- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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 )
Private Sub Command1_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 + mc2
End Sub
Topama İşlemi kodu bu kadar..
----------
Çıkartma İşlemi yaptırıyoruz.. (- buttonuna tıklayarak kod bölümünü açın )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 - mc2
End Sub
Çıkartma İşlemi kodu bu kadar..
----------
Bölme İşlemi yaptırıyoruz.. (/ buttonuna tıklayarak kod bölümünü açın )
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 )
Private Sub Command4_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 * mc2
End Sub
----------
Kullandığı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..
----------
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 )
Private Sub Command1_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 + mc2
End Sub
Topama İşlemi kodu bu kadar..
----------
Çıkartma İşlemi yaptırıyoruz.. (- buttonuna tıklayarak kod bölümünü açın )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 - mc2
End Sub
Çıkartma İşlemi kodu bu kadar..
----------
Bölme İşlemi yaptırıyoruz.. (/ buttonuna tıklayarak kod bölümünü açın )
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 )
Private Sub Command4_Click( )
Dim mc1, mc2 As Integer
On Error Resume Next
mc1 = Text1.Text
mc2 = Text2.Text
Label1 = mc1 * mc2
End Sub
----------
Kullandığı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..
----------
