CONTOH SIMPEL PROGRAM VB TENTANG SWALAYAN
#Dan untuk membuat program dutas simpel saja yakni dengan membuk vb anda kemuadian buat sesuai dengan yang anda ingin kan untuk contoh scrpt ada dibawah,,, . dan perhatikan jangan lupa alamat teksnya...!
Private Sub Check1_Click()
If Text4 >= 3 Then
Text8 = Text5 - (Val(Text5) * 5 / 100)
Else
Text8 = Val(Text5)
End If
End Sub
Private Sub Combo1_Click()
If Combo1 = "KK01" Then
Text2 = "Shampo Loreal"
Text3 = 50000
Text2.Enabled = False
Text3.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
ElseIf Combo1 = "KR01" Then
Text2 = "Rinso color"
Text3 = 18500
Text2.Enabled = False
Text3.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
End If
End Sub
Private Sub Command1_Click()
Dim ok
ok = MsgBox("OK", vbInformation, "Proses")
End Sub
Private Sub Command2_Click()
Combo1 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
End Sub
Private Sub Command3_Click()
Unload Me
Dim ok
ok = MsgBox("Terimakasih telah memakai program budi", vbInformation, "Proses")
End Sub
Private Sub Form_Load()
Combo1.AddItem "KK01"
Combo1.AddItem "KR01"
End Sub
Private Sub Text4_Change()
Text5 = Val(Text3) * Val(Text4)
End Sub
Private Sub Text5_Change()
Text8 = Val(Text5)
End Sub
Private Sub Text6_Change()
Text7 = Val(Text6) - Val(Text8)
If Text7 < 0 Then
Command1.Enabled = False
'Text2.Enabled = False
'Text3.Enabled = False
'Text7.Enabled = False
'Text8.Enabled = False
Else
Command1.Enabled = True
'Text2.Enabled = False
'Text3.Enabled = False
'Text7.Enabled = False
'Text8.Enabled = False
End If
End Sub
0 komentar:
Posting Komentar