Tugas 3 Visual 1

Buatlah kalkulator sederhana seperti gambar di bawah ini. Simpan projek dengan nama “tugas 3” di folder Tugas 3, dan formnya beri nama “kalkulator”.

Kode program

Option Explicit

Private Hasil As Double

 

‘ Untuk operasi pembagian

Private Sub TbBagi_Click()

Hasil = Val(TxtBil1.Text) / Val(TxtBil2.Text)

TxtHasil.Text = Hasil

End Sub

 

‘ Untuk operasi perkalian

Private Sub TbKali_Click()

Hasil = Val(TxtBil1.Text) * Val(TxtBil2.Text)

TxtHasil.Text = Hasil

End Sub

 

‘ Untuk operasi pengurangan

Private Sub TbKurang_Click()

Hasil = Val(TxtBil1.Text) – Val(TxtBil2.Text)

TxtHasil.Text = Hasil

End Sub

 

‘ Untuk operasi penambahan

Private Sub TbTambah_Click()

Hasil = Val(TxtBil1.Text) + Val(TxtBil2.Text)

TxtHasil.Text = Hasil

End Sub

 

‘ Untuk membatalkan semua operasi

Private Sub TbC_Click()

TxtHasil.Text = “”

TxtBil1.Text = “”

TxtBil2.Text = “”

End Sub

 

‘ Untuk keluar dari form

Private Sub TbExit_Click()

Unload me

End Sub

Print Friendly, PDF & Email