Private Sub Command1_Click()
If Text1.Text = "" Then
pesan = MsgBox("Nama Barang masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")
End If
If Text2.Text = "" Then
pesan = MsgBox("Harga masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")
End If
If Text3.Text = "" Then
pesan = MsgBox("Jumlah masih kosong , Mohon Diisi !!", vbInformation, "Peringatan")
Else
a = Int(Text2.Text)
b = Int(Text3.Text)
Text4.Text = a * b
Label6.Visible = True
Label9.Visible = True
Label9.Caption = a * b
Label8.Visible = True
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub
Private Sub Command3_Click()
d = Int(Text4.Text)
e = Int(Text5.Text)
f = e - d
Label9.Visible = True
Label9.Caption = f
Label7.Visible = True
Label8.Visible = True
End Sub
Private Sub Command4_Click()
Text5.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Caption = ""
End Sub
Private Sub Form_Load()
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
End Sub
Joko-Sugiono
1 Komentar
GA BISA LEBIH TERPERINCI LAGI YAA
BalasHapus