Ane mampir bentaran nih ke sini....ketemu lagi nih kite yeee....Lagi Main VB 6.0 yang buka counter sederhana gak kalah gengsi ama yang dah nanjak counternya....nih utak - atik aja sih eeeh..gak tau nya nge Run Bro...Ane buang dah di sini sapa tau berguna buat yang mampir kesini...
Ane bikin belum sempurna sih tapi mayan daaah buat asah..., asih..., asuh...., otak kite yang dari tadi gak ke tarik hehehehe...
Langsung aja ya Gan.....nih Previewnya.....
Nah ini Source Code nya...cobain aja yaaa Copas ... semoga bisa dimengerti...
Lain waktu Ane buat dah Tutorialnya...Tapi gak Janji yaaaa....hehehehehe
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.Text
Case "Simpati"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Combo2.AddItem 50000
Case "As"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Combo2.AddItem 50000
Case "Mentari"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Combo2.AddItem 50000
Case "IM3"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Combo2.AddItem 50000
Case "Three"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Combo2.AddItem 50000
Case "Axis"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Combo2.AddItem 50000
Case "Esia"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Case "Flexi"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
Case "Freen"
Combo2.AddItem 5000
Combo2.AddItem 10000
Combo2.AddItem 20000
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo2.Text
Case 5000
Text1.Text = 6500
Case 10000
Text1.Text = 11500
Case 20000
Text1.Text = 21500
Case 50000
Text1.Text = 51500
End Select
End Sub
Private Sub Command1_Click()
hargajual = Val(Text1.Text)
jumlah_bayar = Val(Text2.Text)
kembali = jumlah_bayar - hargajual
Text3.Text = kembali
Label8.Caption = " Thank You "
Label8.FontSize = 16
End Sub
Private Sub Command2_Click()
Combo1.Clear
Combo2.Clear
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Pesan = MsgBox(" NGGAK NYESEL MAU KELUAR ?", vbYesNo + vbQuestion, "Keluar")
If Pesan = vbYes Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo2.Clear
Combo1.AddItem "Simpati"
Combo1.AddItem "As"
Combo1.AddItem "Mentari"
Combo1.AddItem "IM3"
Combo1.AddItem "Three"
Combo1.AddItem "Axis"
End Sub
Wassalam......Sampai Ketemu di Postingan yang akan datang.....
