Visual Basic 6 da Kolay Bir hesap Makinesi Yapmak İçin

Arkadaşlar Visual Basic 6 da Kolay Bir hesap Makinesi Yapmak İçin Aşağıdaki adımları izleyin;

1-)Forma 3 adet text butonu ekleyin(Birine ilk sayıyı yazın diğerine ikinceiyi 3. te sonucu versin diye)

2-)Forma 4 adet button ekleyin(Birine "+" Birine "-" Birine "*" Birine "/" yazmanız için)

3-)Şimdi İlk Olarak "+" Yani TOPLAMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;

Private Sub Command1_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 + değer2
Text3.Text = sonuç
End Sub

--)İkinci Olarak "-" Yani ÇIKARTMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;

Private Sub Command2_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 - değer2
Text3.Text = sonuç
End Sub

--)Üçüncü Olarak "*" Yani ÇARPMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;

Private Sub Command3_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 * değer2
Text3.Text = sonuç
End Sub

--)Dördüncü ve sonuncu Olarak "/" Yani BÖLME Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;

Private Sub Command4_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 / değer2
Text3.Text = sonuç
End Sub

Güvenilir Ve Çalışır DurumdaDIR.

HERKEZE KOLAY GELSİN İYİ EĞLENCELER