Hesap Makinası Yapımı 6.0

Hesap Makinası Yapımı 6.0

B Berkay Tosun - #1
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;

HTML: 
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;
Kod: 
[SIZE=3]
[/SIZE][SIZE=3]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[/SIZE][SIZE=3]
[/SIZE]

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

Kod: 
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;

Kod: 
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
URL: https://www.turkmaxi.org/forum//forum/konular/hesap-makinas%C4%B1-yap%C4%B1m%C4%B1-6-0.1168/
Top