Desain dan Koding Program aplikasi kalkulator memakai VB 6.0

Private Sub cmdbagi_Click()

txthasil = Val(txtnilai1) / Val(txtnilai2)

End Sub

Private Sub cmdclear_Click()

txtnilai1.Text = ""

txtnilai2.Text = ""

txthasil.Text = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub cmdkali_Click()

txthasil = Val(txtnilai1) * Val(txtnilai2)

End Sub

Private Sub cmdkurang_Click()

txthasil = Val(txtnilai1) - Val(txtnilai2)

End Sub

Private Sub cmdtambah_Click()

txthasil = Val(txtnilai1) + Val(txtnilai2)

End Sub

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari MPA Jamarsingsia. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow MPA Jamarsingsia dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Unknown pada tanggal Wednesday, 26 June 2013