Tugas Visual Bsic PT HONDA SEHAT SELALU

PROGRAM PT HONDA SEHAT SELALU

Keterangan

=> nama, nama barang, harga barang, dan lainya pada properties enabled.a ganti jadi  false semua.a

Private Sub Form_Load()

'menambahkan item pada combo box

cmbnmbrg.AddItem ("Oli")

cmbnmbrg.AddItem ("Ban")

cmbnmbrg.AddItem ("Speaker")

cmbnmbrg.AddItem ("Ac")

cmbnmbrg.AddItem ("Mp3")

cmbjnssrvc.AddItem ("Steam")

cmbjnssrvc.AddItem ("Cuci")

cmbjnssrvc.AddItem ("Reparasi AC")

cmbjnssrvc.AddItem ("Ganti bumper")

cmbjnssrvc.AddItem ("Ganti pelk")

End Sub

Private Sub cmbnmbrg_Click()

Select Case (cmbnmbrg.Text) 'memilih nilai pda list barang

Case "Oli" 'bila sama dengan Oli maka

txthrgbrg.Text = 50000

Case "Ban"

txthrgbrg.Text = 200000

Case "Speaker"

txthrgbrg.Text = 100000

Case "Ac"

txthrgbrg.Text = 2000000

Case Else 'selain nilai diatas maka

txthrgbrg.Text = 500000

End Select

End Sub

Private Sub txtjumbel_Change()

'Harga total = jumlah beli dikali harga barang

txtgatot.Text = Val(txtjumbel.Text) * Val(txthrgbrg.Text)

End Sub

Private Sub cmbjnssrvc_Click()

If cmbjnssrvc.Text = "Steam" Then 'jika text combobox steam maka

txthrgsrvc.Text = 25000 'harga 25000

ElseIf cmbjnssrvc.Text = "Steam" Then 'dan seterusnya

txthrgsrvc.Text = 25000

txthrgsrvc.Text = 15000

ElseIf cmbjnssrvc.Text = "Cuci" Then

txthrgsrvc.Text = 300000

ElseIf cmbjnssrvc.Text = "Reparasi AC" Then

txthrgsrvc.Text = 2000000

Else 'jika selain kata diatas maka

txthrgsrvc.Text = 3000000

End If

txttotsrvc.Text = txthrgsrvc.Text 'total service sma dngn hrg service

End Sub

Private Sub cmdhitung_Click()

'total bayar sama dengan harga total dikurangi total service

txttotbyr.Text = Val(txtgatot.Text) + Val(txttotsrvc.Text)

End Sub

Private Sub cmdnew_Click()

'membuat aktiv tool yg blum aktiv

txtnama.Enabled = True

sukucadang.Enabled = True

jenisservice.Enabled = True

transaksi.Enabled = True

cmdhitung.Enabled = True

cmdbersih.Enabled = True

txtnama.SetFocus

End Sub

Private Sub cmdservicelagi_Click()

'total service=total service + harga service

 txttotsrvc.Text = Val(txttotsrvc.Text) + Val(txthrgsrvc.Text)

End Sub

Private Sub txtuangbyr_Change()

'kemblian= uang bayar dikurangi total bayar

txtkembali.Text = Val(txtuangbyr.Text) - Val(txttotbyr.Text)

End Sub

Private Sub cmdbersih_Click()

'Mengkosongkan semua data

txtnama.Text = " "

cmbnmbrg.Text = " "

txthrgbrg.Text = " "

txtjumbel.Text = " "

cmbjnssrvc.Text = " "

txthrgsrvc.Text = " "

txttotsrvc.Text = " "

txttotbyr.Text = " "

txtuangbyr.Text = " "

txtkembali.Text = " "

txtgatot.Text = " "

txtnama.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub