Codingan Kalkulator Sederhana

CODINGAN UNTUK MEMBUAT KALKULATOR SEDERHANA PADA PROGRAM VISUAL BASIC 6.0

1. Untuk pertambahan masukkan codingan seperti ini :

   Private Sub Command1_Click()
      Text3.Text = Val(Text1.Text) + Val(Text2.Text)
      End Sub

2. Untuk pengurangan masukkan codingan seperti ini :

    Private Sub Command2_Click()

      Text3.Text = Val(Text1.Text) - Val(Text2.Text)

      End Sub

3. Untuk perkalian masukkan codingan seperti ini :

    Private Sub Command3_Click()

      Text3.Text = Val(Text1.Text) * Val(Text2.Text)

      End Sub

4. Untuk pembagian masukkan codingan seperti ini :

    Private Sub Command4_Click()

      Text3.Text = Val(Text1.Text) / Val(Text2.Text)

      End Sub

5. Untuk C atau reset masukkan codingan seperti ini :

    Private Sub Command5_Click()

    Text1.Text = " "

      Text2.Text = " "

      Text3.Text = " "

      Text1.Enabled = True

      Text2.Enabled = True

      Text3.Enabled = True

      Command1.Enabled = True

      Command2.Enabled = True

      Command3.Enabled = True

      Command4.Enabled = True

      Command5.Enabled = True

      Command6.Enabled = True

      Text1.Setfocus

      End Sub

6. Untuk Exit (Keluar) masukkan codingan seperti ini :

    Private Sub Command6_Click()

      End

      End Sub

Sekian dan Terimakasih :)