Ini adalah Program "Kalkulator Sederhana" pada Visual Basic
cara membuatnya :
txthasil = Val(txtnilai1) / Val(txtnilai2)
End Sub
Private Sub cmdinput_Click()
txtnilai1.Text = ""
txtnilai2.Text = ""
txthasil.Text = ""
txthasil.SetFocus
End Sub
Private Sub cmdkali_Click()
txthasil = Val(txtnilai1) * Val(txtnilai2)
End Sub
Private Sub cmdkeluar_Click()
p = MsgBox("Apakah Anda Ingin Keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub
Private Sub cmdkurang_Click()
txthasil = Val(txtnilai1) - Val(txtniali2)
End Sub
Private Sub cmdtambah_Click()
txthasil = Val(txtnilai1) + Val(txtnilai2)
End Sub
cara membuatnya :
- buka software Visual Basicnya
- Pilih menu yang standard.exe saja
- design formnya seperti gambar dibawah ini :
- Isi kodingannya seperti ini
txthasil = Val(txtnilai1) / Val(txtnilai2)
End Sub
Private Sub cmdinput_Click()
txtnilai1.Text = ""
txtnilai2.Text = ""
txthasil.Text = ""
txthasil.SetFocus
End Sub
Private Sub cmdkali_Click()
txthasil = Val(txtnilai1) * Val(txtnilai2)
End Sub
Private Sub cmdkeluar_Click()
p = MsgBox("Apakah Anda Ingin Keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub
Private Sub cmdkurang_Click()
txthasil = Val(txtnilai1) - Val(txtniali2)
End Sub
Private Sub cmdtambah_Click()
txthasil = Val(txtnilai1) + Val(txtnilai2)
End Sub
No comments:
Post a Comment