VisualBasic_hesap_makinesi.htm



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.

(Coded by SahiN )

-----------

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.. 
 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol