Eski 11-05-04, 03:11 #1
garuda garuda çevrimdışı
Varsayılan Visual Basic de 4 İşlem

Aşağıda belirttiğim gibi kod yazdım. ve resimde gördüğünüz gibi formu ayarladim...

---
amacai 4 işlem..

a= 6
b= 3 olsun diyelim

çıkar deyince = 3 diyor bu doğru
çarp deyince =18 diyor bu doğru
böl deyince = 2 diyor bu doğru

ama

topla deyince 63 diyor ... 9 demesei gere... yani 6 ve 3 ü yanyana topluyor...


-------------
aşağıdaki kodlarda ;

tex1 ve text2 oradaki kutucuklarin ismi..

topla,çıkar,carp,bol ise orada işaretlenebilen kutucukalrin ismi...

------------
KODLAR

---------
*****************

Private Sub Command1_Click()

a = Text1 + Text2
b = Text1 - Text2
c = Text1 * Text2
d = Text1 / Text2

If topla = True Then
MsgBox a

ElseIf cikar = True Then

MsgBox b

ElseIf carp = True Then

MsgBox c

ElseIf bol = True Then

MsgBox d






Else
MsgBox "Lütfen sayı giriniz ve işaretleme kutularindan birini işsaretleyiniz"


End If
End Sub

Private Sub Command2_Click()
End
End Sub

---------------------

nasıl düzeltirim.... ??

teşekkürler
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 11-05-04, 10:32 #2
haldunuraz haldunuraz çevrimdışı
Varsayılan Cvp: Visual Basic de 4 İşlem

bi de buna bak

a = val(Text1.text) + val(Text2.text)

yapınca çalışıo

Mesajı son düzenleyen haldunuraz ( 11-05-04 - 10:37 )
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 11-05-04, 12:01 #3
askmelove askmelove çevrimdışı
Varsayılan Cvp: Visual Basic de 4 İşlem

Alıntı:
Gerçek Mesajı Gönderen haldunuraz
bi de buna bak

a = val(Text1.text) + val(Text2.text)

yapınca çalışıo

textbox'dan girilen string degerlerini integer'a cevirmen gerek.Yukardaki arkadaşın yaptığı gibi saygılar!!!
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 15-03-08, 17:53 #4
matrax_dilara matrax_dilara çevrimdışı
Varsayılan C: Visual Basic de 4 İşlem

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim toplam, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
toplam = sayi1 + sayi2
TextBox1.Text = (toplam)


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim çıkar, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
çıkar = sayi1 - sayi2
TextBox1.Text = (çıkar)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim çarpma, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
çarpma = sayi1 * sayi2
TextBox1.Text = (çarpma)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim bölme, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
If sayi2 = 0 Then
MsgBox("0 sayısını girmeyiniz", MsgBoxStyle.Critical)
End If
bölme = sayi1 / sayi2
TextBox1.Text = (bölme)

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Clear()
End Sub
End Class


böle bişi dört işlem yapıyo ve 100 de 100 doğru
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 15-03-08, 17:55 #5
matrax_dilara matrax_dilara çevrimdışı
Varsayılan C: Visual Basic de 4 İşlem

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim toplam, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
toplam = sayi1 + sayi2
TextBox1.Text = (toplam)


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim çıkar, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
çıkar = sayi1 - sayi2
TextBox1.Text = (çıkar)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim çarpma, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
çarpma = sayi1 * sayi2
TextBox1.Text = (çarpma)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim bölme, sayi1, sayi2 As Integer
sayi1 = InputBox("1.sayıyı giriniz")
sayi2 = InputBox("2.sayıyı giriniz")
If sayi2 = 0 Then
MsgBox("0 sayısını girmeyiniz", MsgBoxStyle.Critical)
End If
bölme = sayi1 / sayi2
TextBox1.Text = (bölme)

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Clear()
End Sub
End Class
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 15-03-08, 19:33 #6
Trayh0per Trayh0per çevrimdışı
Varsayılan C: Visual Basic de 4 İşlem

arkadaşım kafan güzelmi senin 4 sene önceki konuya cevap yazıyorsun

bunlarla uraşmaya hiç gerek yok :

MsgBox Int(a - b)

Int komutu belirtilen değişkeni sayı olarak işler ..
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 15-03-08, 20:40 #7
ScHaO ScHaO çevrimdışı
Varsayılan C: Visual Basic de 4 İşlem

milletin işi gücü yok forumun 90 60 90 'inci sayfalarinda geziniyorlar aslinda belli bir süreden sonraki konular (cevap bulmus olanlar) kilitlense hoş olur
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 15-03-08, 21:03 #8
Trayh0per Trayh0per çevrimdışı
Varsayılan C: Visual Basic de 4 İşlem

yakında asistan olunca ilgileneceğim schao caykesh vb bölümünü bana bıraktı ilgilenirim diye ama benim asistan olma sürem biraz uzayınca kaldı tabi
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 15-03-08, 22:05 #9
ScHaO ScHaO çevrimdışı
Varsayılan C: Visual Basic de 4 İşlem

bence sen iyi ilgilenirsin zaten bu programlama bölümünde ilgilenen pek yok gerci onlarda hakli koskocaman yer hangi birisine baksinlar neyse yani bana kalsa 2 yillik konulari silerim de iste google da arama yapanlar birseylerden faydalansin diye bu yapilamaz en iyisi konuyu kilitlemek sana asistan oldugundan itibaren basarilar o günleri de görürüz insallah
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 18:42
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Tatil