![[Resim: hmakqb5.jpg]](http://img463.imageshack.us/img463/6374/hmakqb5.jpg)
Forma;
2 TextBox, 2 Label (1de çıkan sonuç yazacak. 2yede sadece isim olarak "Sonuç" yazınız.. ), 4 tane commandbutton( + - / * ) ve tasarım olarak canlılık kazandıracaksanız resimdeki gibi Shape ekleyin
Kodlamamıza Geçiyoruz.
-----------
Toplama İşlemi yaptırıyoruz.. (+ buttonuna tıklayarak kod bölümünü açın )
Kod:
Private Sub Command1_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 + mc2
End Sub----------
Çıkartma İşlemi yaptırıyoruz.. (- buttonuna tıklayarak kod bölümünü açın )
Kod:
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 - mc2
End Sub----------
Bölme İşlemi yaptırıyoruz.. (/ buttonuna tıklayarak kod bölümünü açın )
Kod:
Private Sub Command3_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 / mc2
End SubÇarpma İşlemi yaptırıyoruz.. (* buttonuna tıklayarak kod bölümünü açın )
Kod:
Private Sub Command4_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 * mc2
End SubKullandığımız mantık:
text1 ve text2 adlı textboxları mc1 ve mc2 adlı değişkene eşitledik. label1 de ise bu mc1 ve mc2 ile işlemimizi yaptık.. "On Error Resume Next" ise Hata olursa hiçbir işlem yapma anlamındadır. Yani textbox lara sayı yerine harf girerseniz hiçbir hata vermeyecektir..
----------
Kendinize göre düzenlemek ve geliştirmek serbesttir.
Saygılarımla..
