- Hesap Makinesi Yapma

Hesap Makinesi Yapma
Evet arkadaşlar, kullanacağımız kontroller:
5 adet CommandBtton , 5 adets Label, 3 adet TextBox'dır..

Form görünümünü istediğiniz gibi yapabilirsiniz . Ben aşağıdaki gibi yaptım.

Dikkat edilmesi gereken nokta kontrolleri yanlış yere yerleştirmemektir. Bunu önlemek için kontrollerin üzerine adlarını yazdım.

Şimdi program bize ne yapacak?

Program bize 4 işlemi yapacak, aynı zamanda yapılan işlemi "Label4"e yazdıracak, eğer "TextBox2" kutusuna 0 değeri girilirse, bilindiği gibi bir sayının sıfıra bölümü tanımsız olacağından bize hata mesajı verecek ve bir de ikinci işlemler yapabilmemiz için formu temizleyecek.

Geldik Şimdi Kodlara:

 
1.CommandButon::


    Private Sub Command1_Click() 


     Label4.Caption = "+"   'Labelin ismini değiştiriyoruz'  


     Text3.Text = Val(Text1) + Val(Text2) 'İşlemi yaptırıyoruz'


    End Sub



2.CommandButon::


    Private Sub Command2_Click()


     Label4.Caption = "-"    'Labelin ismini değiştiriyoruz'  


     Text3.Text = Val(Text1) - Val(Text2) 'İşlemi yaptırıyoruz'


    End Sub



3.CommandButon:: 


    Private Sub Command3_Click()


     Label4.Caption = "*"    'Labelin ismini değiştiriyoruz'  


     Text3.Text = Val(Text1) * Val(Text2) 'İşlemi yaptırıyoruz'


    End Sub



4.CommandButon::


    Private Sub Command4_Click()


     If Val(Text2) = 0 Then    'Burada text2 kontrol ediliyor eğer 0 ise hata mesajı veriyor değilse işlemi yapıyor'


       MsgBox "Veri Hatası", , "Sıfıra Bölünme Hatası"


     Else


       Label4.Caption = "/"    'Labelin ismini değiştiriyoruz'  


       Text3.Text = Val(Text1) / Val(Text2) 'İşlemi yaptırıyoruz'


       End If


    End Sub



5.CommandButon::


    Private Sub Command5_Click()


     Text1.Text = ""


     Text2.Text = ""


     Text3.Text = ""


     Label4.Caption = ""


    End Sub

Kodlar bitti şimdi de programımızın çıktısına bakalım:

Kolay gelsin.... Beğendiniz Mi ? JoJo PaPi visualbasic_tr@hotmail.com