Program Bengkel Sederhana VB 6.0
setelah sekian lama ga updet blog, sekarang lagi tertarik vb. Program sederhana bengkel ini ane contek seh dari salah satu blog. Tapi ada perombakan di listing programnya. soalnya listing yang ane liat ada yang ga jalan. Saya juga baru banget dalam buat program. Ini lumayan buat anda yang tertarik dan juga baru dalam bidang ini.
Mohon maaf kalo masih banyak kurangnya..
listing programnya:
Private Sub cmdclear_Click()
Combo1 = “”
txtjumlahbeli = “”
txtpembayaran = “”
txtpotongan = “”
txtppn = “”
txttotalbayar = “”
txtmerk = “”
txthargaoli = “”
txtservice = “”
txtuangbayar = “”
txtkembali = “”
End Sub
Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdhitung_Click()
txtpembayaran.Text = Val(txtjumlahbeli.Text * txthargaoli.Text) + Val(txtservice.Text)
If Val(txtpembayaran.Text) = 50000 Then
txttotalbayar.Text = Val(txtjumlahbeli.Text * txthargaoli.Text) + Val(txtservice.Text)
End If
If Val(txtpembayaran.Text) < 50000 Then
txttotalbayar.Text = Val(txtjumlahbeli.Text * txthargaoli.Text) + Val(txtservice.Text)
End If
If Val(txtpembayaran.Text) > 50000 Then
txtpotongan.Text = Val(txtpembayaran * 0.1)
txtppn.Text = Val(txtpembayaran.Text * 0.05)
txttotalbayar = Val(txtpembayaran.Text – txtpotongan.Text) + Val(txtppn.Text)
End If
End Sub
Private Sub cmdhitung_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtbayar.SetFocus
End If
End Sub
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
txtmerk.Text = “Penzoil”
txthargaoli = “35000″
ElseIf Combo1.ListIndex = 1 Then
txtmerk.Text = “castrol”
txthargaoli = “30000″
ElseIf Combo1.ListIndex = 2 Then
txtmerk.Text = “top one”
txthargaoli.Text = “27000″
Else
txtmerk = “evalube”
txthargaoli = “20000″
End If
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjumlahbeli.SetFocus
End If
End Sub
Private Sub Form_Activate()
Combo1.AddItem “PZ”
Combo1.AddItem “CS”
Combo1.AddItem “TO”
Combo1.AddItem “EV”
txtservice.Enabled = False
txtpembayaran.Enabled = False
txtppn.Enabled = False
txtkembali.Enabled = False
txthargaoli.Enabled = False
txtmerk.Enabled = False
txtpotongan.Enabled = False
End Sub
Private Sub opt1_Click()
txtservice = “25000″
End Sub
Private Sub opt2_Click()
txtservice = “15000″
End Sub
Private Sub txtjumlahbeli_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdhitung.SetFocus
End If
End Sub
Private Sub txtuangbayar_Change()
txtkembali.Text = Val(txtuangbayar.Text – txttotalbayar.Text)
End Sub
