Program bengkel

Pertama program akan meminta user mengisi kelngkapan seperti nama dan jenis kendaraan yang dipakai, kemudian akan diminta vendor jenis kendaraan dan tipe kendaraan yang dipakai, kemudian user memilih layanan yang akan dilakukan ke kendaraannya.

kode class :

Public Class class_bengkel
Private keterangan
Public Property ket(ByVal keterangan As String)
Get
ket = keterangan
End Get
Set(ByVal value)
keterangan = value
End Set
End Property
Public Function nama(ByVal namanya As String)
nama = StrConv(namanya, VbStrConv.ProperCase)
End Function
Public Function tipe(ByVal tipenya As String)
tipe = StrConv(tipenya, VbStrConv.Uppercase)
End Function
End Class

kode form 1 :

Public Class Program_Bengkel

Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
Dim bengkel As New class_bengkel

If nama.Text = "" Then
MsgBox("Isi nama anda !", MsgBoxStyle.Exclamation, "Isi Nama")
Exit Sub
ElseIf kendaraan.Text = "" Then
MsgBox("Pilih kendaraan yang anda pakai", MsgBoxStyle.Exclamation, "Pilih kendaraan")
Exit Sub
Else
MsgBox("Hello " & bengkel.ket(nama.Text) & " ! Anda memasuki bengkel " & bengkel.ket(kendaraan.Text) & " milik Kun Andika", MsgBoxStyle.Information, "Welcome @Bengkel Kun Andika")
Select Case kendaraan.Text
Case Is = "Mobil"
bengkel_mobil.Show()
Case Is = "Motor"
bengkel_motor.Show()
End Select
End If
End Sub
End Class

kode form 2 :

Public Class bengkel_mobil

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub

Private Sub bengkel_mobil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bengkel As New class_bengkel

namaPemilik.Text = bengkel.nama(Program_Bengkel.nama.Text)

vendormobil.Text = bengkel.tipe(InputBox("Masukkan vendor mobil anda ", "Vendor Mobil"))
tipeMobil.Text = bengkel.tipe(InputBox("Masukkan tipe mobil anda ", "Tipe Mobil"))
End Sub

Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
If gantiAccu.Checked = True Then
If spooring.Checked = True Then
MsgBox("Anda memilih ganti accu dan spooring sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf balancing.Checked = True Then
MsgBox("Anda memilih ganti accu dan balancing sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf servisTotal.Checked = True Then
MsgBox("Anda memilih ganti accu dan servis total mobil anda sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
Else
none.Checked = True
MsgBox("Anda hanya memilih ganti accu", MsgBoxStyle.Information, "Pilihan Anda")
End If
ElseIf cekMesin.Checked = True Then
If spooring.Checked = True Then
MsgBox("Anda memilih cek mesin dan spooring sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf balancing.Checked = True Then
MsgBox("Anda memilih cek mesin dan balancing sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf servisTotal.Checked = True Then
MsgBox("Anda memilih cek mesin dan servis total mobil anda sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
Else
none.Checked = True
MsgBox("Anda hanya memilih cek mesin", MsgBoxStyle.Information, "Pilihan Anda")
End If
ElseIf gantiOli.Checked = True Then
If spooring.Checked = True Then
MsgBox("Anda memilih ganti oli dan spooring sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf balancing.Checked = True Then
MsgBox("Anda memilih ganti oli dan balancing sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf servisTotal.Checked = True Then
MsgBox("Anda memilih ganti oli dan servis total mobil anda sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
Else
none.Checked = True
MsgBox("Anda hanya memilih ganti oli", MsgBoxStyle.Information, "Pilihan Anda")
End If
Else
MsgBox("tak ada pilihan menu utama", MsgBoxStyle.Information, "tak ada pilihan menu utama")
End If
End Sub
End Class

kode form 3 :

Public Class bengkel_motor

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub

Private Sub bengkel_motor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bengkel As New class_bengkel

namaPemilik.Text = bengkel.nama(Program_Bengkel.nama.Text)

vendorMotor.Text = bengkel.tipe(InputBox("Masukkan vendor motor anda ", "Vendor Motor"))
tipeMotor.Text = bengkel.tipe(InputBox("Masukkan tipe motor anda ", "Tipe Motor"))

End Sub

Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
If gantiAccu.Checked = True Then
If gantiAksesoris.Checked = True Then
MsgBox("Anda memilih ganti accu dan aksesoris sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf GantiBan.Checked = True Then
MsgBox("Anda memilih ganti accu dan ban sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf servisTotal.Checked = True Then
MsgBox("Anda memilih ganti accu dan servis total mobil anda sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
Else
none.Checked = True
MsgBox("Anda hanya memilih ganti accu", MsgBoxStyle.Information, "Pilihan Anda")
End If
ElseIf cekMesin.Checked = True Then
If gantiAksesoris.Checked = True Then
MsgBox("Anda memilih cek mesin dan aksesoris sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf GantiBan.Checked = True Then
MsgBox("Anda memilih cek mesin dan ban sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf servisTotal.Checked = True Then
MsgBox("Anda memilih cek mesin dan servis total mobil anda sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
Else
none.Checked = True
MsgBox("Anda hanya memilih ganti accu", MsgBoxStyle.Information, "Pilihan Anda")
End If
ElseIf gantiOli.Checked = True Then
If gantiAksesoris.Checked = True Then
MsgBox("Anda memilih ganti oli dan aksesoris sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf GantiBan.Checked = True Then
MsgBox("Anda memilih ganti oli dan ban sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
ElseIf servisTotal.Checked = True Then
MsgBox("Anda memilih ganti oli dan servis total mobil anda sebagai pilihan", MsgBoxStyle.Information, "Pilihan Anda")
Else
none.Checked = True
MsgBox("Anda hanya memilih ganti accu", MsgBoxStyle.Information, "Pilihan Anda")
End If
Else
MsgBox("tak ada pilihan menu utama", MsgBoxStyle.Information, "tak ada pilihan menu utama")
End If
End Sub
End Class