Program Visual Basic Kalkulator

BERIKUT PROGRAM TANTANGAN VISUAL BASIC DI SEKOLAH KU DAN INI CARA-CARA NYA

Dim Hitung As String

Dim Angka1 As Integer

Dim Angka2 As Integer

Private Sub N1_Click ()

LAYAR.Text = LAYAR.Text & 1

End Sub

Private Sub N2_Click ()

LAYAR.Text = LAYAR.Text & 2

End Sub

Private Sub N3_Click ()

LAYAR.Text = LAYAR.Text & 3

End Sub

Private Sub N4_Click ()

LAYAR.Text = LAYAR.Text & 4

End Sub

Private Sub N5_Click ()

LAYAR.Text = LAYAR.Text & 5

End Sub

Private Sub N6_Click ()

LAYAR.Text = LAYAR.Text & 6

End Sub

Private Sub N7_Click ()

LAYAR.Text = LAYAR.Text & 7

End Sub

Private Sub N8_Click ()

LAYAR.Text = LAYAR.Text & 8

End Sub

Private Sub N9_Click ()

LAYAR.Text = LAYAR.Text & 9

End Sub

Private Sub N0_Click ()

LAYAR.Text = LAYAR.Text & 0

End Sub

Private Sub Nhapus_Click ()

LAYAR.Text = “”

End Sub

Private Sub NHasil_Click ()

Angka2 = LAYAR.Text

If Hitung = “+” Then

LAYAR.Text = Angka1 + Angka2

ElseIf Hitung = “-” Then

LAYAR.Text = Angka1 – Angka2

ElseIf Hitung = “*” Then

LAYAR.Text = Angka1 * Angka2

ElseIf Hitung = “/” Then

LAYAR.Text = Angka1 / Angka2

End If

End Sub

Private Sub Ttambah_Click ()

Angka1 = LAYAR.Text

LAYAR.Text = “”

Hitung = “+”

End Sub

Private Sub Tkurang_Click ()

Angka1 = LAYAR.Text

LAYAR.Text = “”

Hitung = “-”

End Sub

Private Sub Tkali_Click ()

Angka1 = LAYAR.Text

LAYAR.Text = “”

Hitung = “*”

End Sub

Private Sub TBagi_Click ()

Angka1 = LAYAR.Text

LAYAR.Text = “”

Hitung = “/”

End Sub

Pada Text biarkan tetap

Pada Cmd1 ganti Name dengan N1

Begitupun pad cmd yg lain sama kan dengan angka yg di tulis contoh 2 name nya di ganti N2 dan seterusnya sampai angka 0

Pada Cmd + Beri Name Ttambah

Pada Cmd – Beri Name Tkurang

Pada Cmd / Beri Name Tbagi

Pada Cmd x Beri Name Tkali

Pada Cmd = Beri Name NHasil

Pada Cmd Hapus Beri Name Nhapus

JIKA ADA KESULITAN ATAU KESALAHAN, JANGAN SEGAN-SEGAN UNTUK BERTANYA