APLIKASI KALKULATOR DENGAN VB

KALKULATOR MUDAH DENGAN VB

( gambar 1.1 )

masukkan sintak pada microsoft visual basic berikut ini..

     jika anda belum mengerti sama sekali tentang vb cukup sulit sih.. tapi tetp semangat bro..!!

langakah-langkah :

1. buka aplikasai microsoft visual basic

2. mulai memasukan komponen yang sesuai dengan sitax di bawah ini

3. perhatikan secara jelas sintax tersebut.

Private Sub Cmbbersih_Click()
Form_Load
End Sub

Private Sub Combo1_Click()
    If Combo1.Text = "Tambah" Then Command1_Click
    If Combo1.Text = "Kurang" Then Command2_Click
    If Combo1.Text = "Kali" Then Command3_Click
    If Combo1.Text = "Bagi" Then Command4_Click
End Sub

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
   
    Text4.Text = Text1.Text & " + " & Text2.Text & " = " & Text3.Text
    Combo1.Text = "Tambah"
End Sub

Private Sub Command2_Click()
    Text3.Text = Val(Text1.Text) - Val(Text2.Text)
   
    Text4.Text = Text1.Text & " - " & Text2.Text & " = " & Text3.Text
    Combo1.Text = "Kurang"
End Sub

Private Sub Command3_Click()
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
  
    Text4.Text = Text1.Text & " x " & Text2.Text & " = " & Text3.Text
    Combo1.Text = "Kali"
End Sub

Private Sub Command4_Click()
    Text3.Text = Val(Text1.Text) / Val(Text2.Text)
 
    Text4.Text = Text1.Text & " : " & Text2.Text & " = " & Text3.Text
    Combo1.Text = "Bagi"
End Sub

Private Sub Command5_Click()
    End
End Sub

Private Sub Form_Load()
     Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Combo1.Clear
        Combo1.AddItem "Tambah"
        Combo1.AddItem "Kurang"
        Combo1.AddItem "Kali"
        Combo1.AddItem "Bagi"
        Text4.Text = ""
   
End Sub

Private Sub Option1_Click()
    Command1_Click
End Sub

Private Sub Option2_Click()
    Command2_Click
End Sub

Private Sub Option3_Click()
    Command3_Click
End Sub

Private Sub Option4_Click()
    Command4_Click
End Sub

 >>> semangat bro..!! <<<

http://sipedes.blogspot.com/