Penjelasan Aplikasi
Aplikasi ini adalah aplikasi untuk memudahan petugas penjaga
kasir di tempat service motor sehingga petugas tidak perlu menghitung satu satu
apa saja part yang customer beli tetapi petugas kasir tinggal menginput
sehingga hasil total pembayaran akan muncul sehingga hasilnya tepat dan akurat
dan meminimalkan kerugian akibat human error.
ScreenShot dan Penjelasan Alur
Program
Ketika Pada awal Program di buka akan
muncul form Login dimana kita harus login, login dengan username : admin dan
Password : admin
Kemudian akan muncul
message box seperti di bawah ini dan klik ok
Lalu akan muncul form
pengisian seperti ini
1.
Masukan nomor Pendaftaran yang telah di terima
2.
Tentukan tanggal service
3.
Pilih mekanik sesuai yang di inginkan
4.
Masukan plat nomor kendaraan
5.
Masukan nama pemilik kendaraan bermotor tersebut
6.
Masukan keluhan yang dihadapi oleh customer tersebut
7.
Pilih lah kode jasa yang telah tersedia seperti
di bawah ini
8.
Pilih lah spare part tambahan jika ada, seperti
di bawah ini
9.
Masukan jumlah berapa spare part yang di
butuhkan
10.
Lalu klik hitung maka akan munucl nominal harga
total
11.
Lalu klik print untuk memulai pengerjaan
Source Code
Form Masuk
Public Class Masuk
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "admin" And TextBox2.Text = "admin" Then
MsgBox("Selamat anda berhasil login", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
Form1.Show()
Me.Visible = False
Else
MsgBox("Maaf
Username/Password salah, silahkan klik forget ", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Forget.Show()
Me.Visible = False
End Sub
End Class
Form1
Public Class Form1
Dim vmekanik, vjasa As String
Dim x, hasil As Integer
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim objkelas As New Class1
objkelas.keluar()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For a = 111 To 114 Step 1
ComboBox6.Items.Add(a)
Next
x = 1
Do
ComboBox5.Items.Add(x)
x = x + 1
Loop Until x = 6
End Sub
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
ComboBox5.SelectedIndexChanged
vmekanik = ComboBox5.SelectedItem
Select Case vmekanik
Case "1"
TextBox4.Text = "Budi"
TextBox16.Text = "50000"
Case "2"
TextBox4.Text = "Irwan"
TextBox16.Text = "70000"
Case "3"
TextBox4.Text = "Yanto"
TextBox16.Text = "100000"
Case "4"
TextBox4.Text = "Jhonny"
TextBox16.Text = "150000"
Case "5"
TextBox4.Text = "Ridho"
TextBox16.Text = "200000"
End Select
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label17.Text = Now
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Kode_Jasa.Show()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Harga_Spare_part.Show()
End Sub
Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
ComboBox6.SelectedIndexChanged
vjasa = ComboBox6.Text
Select Case vjasa
Case "111"
TextBox3.Text = "Service Total Motor"
TextBox7.Text = "100000"
Case "112"
TextBox3.Text = "Ganti Oli"
TextBox7.Text = "50000"
Case "113"
TextBox3.Text = "Ganti Ban"
TextBox7.Text = "100000"
Case "114"
TextBox3.Text = "Tune Up"
TextBox7.Text = "150000"
End Select
End Sub
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles
TextBox9.TextChanged
Dim objkelaskapital As Class1
objkelaskapital = New Class1
hasil =
objkelaskapital.fkali(TextBox15.Text, TextBox9.Text)
TextBox10.Text = hasil
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ComboBox5.Text = "5" Then
TextBox11.Text =
(Val(TextBox16.Text) + Val(TextBox7.Text) + Val(TextBox10.Text)) * 0.1
ElseIf ComboBox5.Text = "4" Then
TextBox11.Text = (Val(TextBox16.Text)
+ Val(TextBox7.Text) + Val(TextBox10.Text)) * 0.1
Else
TextBox11.Text = 0
End If
Dim objkelas As New Class1
hasil =
objkelas.Totalbayar(TextBox16.Text, TextBox7.Text, TextBox10.Text, TextBox11.Text)
TextBox14.Text = Format(hasil, "Rp,###,##,0.00")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim objkelas As New Class1
objkelas.clean()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim objkelas As New Class1
objkelas.output()
End Sub
End Class
Form Harga Spare Part
Public Class Harga_Spare_part
Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
ComboBox4.SelectedIndexChanged
If (ComboBox4.Text = "Honda") Then
txtbandalam.Text = "151000"
txtBanLuar.Text = "320000"
txtKarbu.Text = "440000"
txtbody.Text = "152000"
txtOLI.Text = "Kosong"
txtLampu.Text = "2110000"
txtRantai.Text = "160100"
txtBusi.Text = "320000"
txtsepion.Text = "Kosong"
txtPedal.Text = "210000"
End If
If (ComboBox4.Text = "Suzuki") Then
txtbandalam.Text = "300000"
txtBanLuar.Text = "730000"
txtKarbu.Text = "510000"
txtbody.Text = "350000"
txtOLI.Text = "210000"
txtLampu.Text = "3900000"
txtRantai.Text = "1010000"
txtBusi.Text = "920000"
txtsepion.Text = "807000"
txtPedal.Text = "470000"
End If
If (ComboBox4.Text = "Kawasaki") Then
txtbandalam.Text = "100000"
txtBanLuar.Text = "250000"
txtKarbu.Text = "320000"
txtbody.Text = "151000"
txtOLI.Text = "110000"
txtLampu.Text = "1520000"
txtRantai.Text = "330000"
txtBusi.Text = "410000"
txtsepion.Text = "620000"
txtPedal.Text = "110000"
End If
If (ComboBox4.Text = "Yamaha") Then
txtbandalam.Text = "110000"
txtBanLuar.Text = "700000"
txtKarbu.Text = "500000"
txtbody.Text = "350000"
txtOLI.Text = "200000"
txtLampu.Text = "4000000"
txtRantai.Text = "1000000"
txtBusi.Text = "900000"
txtsepion.Text = "800000"
txtPedal.Text = "400000"
End If
If (ComboBox4.Text = "Bajaj") Then
txtbandalam.Text = "150000"
txtBanLuar.Text = "200000"
txtKarbu.Text = "500000"
txtbody.Text = "Kosong"
txtOLI.Text = "110000"
txtLampu.Text = "4100000"
txtRantai.Text = "1100000"
txtBusi.Text = "521000"
txtsepion.Text = "340000"
txtPedal.Text = "220000"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton1.Checked Then
Form1.TextBox8.Text = "Ban Dalam"
Form1.TextBox15.Text =
txtbandalam.Text
ElseIf RadioButton2.Checked Then
Form1.TextBox8.Text = "Ban Luar"
Form1.TextBox15.Text =
txtBanLuar.Text
ElseIf RadioButton11.Checked Then
Form1.TextBox8.Text = "Karbu"
Form1.TextBox15.Text =
txtKarbu.Text
ElseIf RadioButton6.Checked Then
Form1.TextBox8.Text = "Body"
Form1.TextBox15.Text = txtbody.Text
ElseIf RadioButton5.Checked Then
Form1.TextBox8.Text = "OLI"
Form1.TextBox15.Text = txtOLI.Text
ElseIf RadioButton4.Checked Then
Form1.TextBox8.Text = "Lampu"
Form1.TextBox15.Text =
txtLampu.Text
ElseIf RadioButton9.Checked Then
Form1.TextBox8.Text = "Rantai"
Form1.TextBox15.Text =
txtRantai.Text
ElseIf RadioButton8.Checked Then
Form1.TextBox8.Text = "Busi"
Form1.TextBox15.Text = txtBusi.Text
ElseIf RadioButton7.Checked Then
Form1.TextBox8.Text = "Sepion"
Form1.TextBox15.Text =
txtsepion.Text
Else
Form1.TextBox8.Text = "Pedal"
Form1.TextBox15.Text =
txtPedal.Text
End If
Me.Close()
End Sub
End Class
Form Kode Jasa
Public Class Kode_Jasa
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
Form Class1
Public Class Class1
Dim vnama As String
Public Sub New()
vnama = Form1.TextBox5.Text
End Sub
Public Function fkali(ByVal bil1 As Integer, bil2 As Integer) As Integer
Dim kali As String
kali = bil1 * bil2
fkali = kali
End Function
Public Sub keluar()
Dim a As Integer
a = MsgBox("Anda Yakin Mau Keluar ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If a = vbYes Then
MsgBox(vnama & " data anda sudah tersimpan, kami siap memproses
laptop anda, Terima kasih telah menggunakan jasa kami ")
End
End If
End Sub
Public Function Totalbayar(ByVal bil1 As Integer, bil2 As Integer, bil3 As Integer, bil4 As Integer) As Integer
Dim hasiltotalbayar As String
hasiltotalbayar = bil1 + bil2 + bil3 -
bil4
Totalbayar = hasiltotalbayar
End Function
Public Sub output()
Form1.ListBox1.Items.Add("No.Pendaftaran = " + Form1.TextBox1.Text)
Form1.ListBox1.Items.Add("Nama Mekanik = " +
Form1.TextBox4.Text)
Form1.ListBox1.Items.Add("Plat Nomor = " +
Form1.TextBox2.Text)
Form1.ListBox1.Items.Add("Merek Motor = " +
Form1.ComboBox4.Text)
Form1.ListBox1.Items.Add("Nama Pemilik = " +
Form1.TextBox5.Text)
Form1.ListBox1.Items.Add("Keluhan = " +
Form1.TextBox6.Text)
Form1.ListBox1.Items.Add("Nama Jasa = " +
Form1.TextBox3.Text)
Form1.ListBox1.Items.Add("Spare Part = " +
Form1.TextBox8.Text)
Form1.ListBox1.Items.Add("Total Pembayaran = " + Form1.TextBox14.Text)
End Sub
Public Sub clean()
Form1.TextBox1.Text = ""
Form1.TextBox2.Text = ""
Form1.TextBox4.Text = ""
Form1.TextBox3.Text = ""
Form1.TextBox5.Text = ""
Form1.TextBox6.Text = ""
Form1.TextBox7.Text = ""
Form1.TextBox8.Text = ""
Form1.TextBox9.Text = ""
Form1.TextBox10.Text = ""
Form1.TextBox11.Text = ""
Form1.TextBox14.Text = ""
Form1.TextBox15.Text = ""
Form1.TextBox16.Text = ""
Form1.ComboBox5.Text = ""
Form1.ComboBox4.Text = ""
Form1.ComboBox6.Text = ""
Form1.TextBox1.Focus()
End Sub
End Class
Form Forget
Public Class Forget
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Masuk.Show()
Me.Close()
End Sub
End Class
