Aplikasi Service Laptop
Penjelasan :
Fungsi dari aplikasi ini adalah sebagai penghitungan Biaya
Biaya yang di perlukan dalam sebuah jasa service laptop yang mana aplikasi ini
dapat memudahkan penggunanya untuk mengetahui total biaya yang harus di bayar
oleh customer tanpa harus menghitungnya lagi.
Input :
1.
No.Pendaftaran
2.
Mekanik
3.
IMEI Laptop
4.
Merek Laptop
5.
Nama Pemilik
6.
Keluhan
7.
Kode Jasa
8.
Spare Part
9.
Jumlah
Output :
1.
Nama Mekanik
2.
Nama Jasa
3.
Nama Spare Part
4.
Harga
5.
Biaya Mekanik
6.
Biaya Jasa
7.
Biaya Spare Part
8.
Discount
9.
Print
Tutorial Pengisian :
11.
Isikan nomer pendaftaran
22.
Pilih tanggal service
33.
Pilih nomer mekanik
44.
Isikan IMEI Laptop anda
55.
Iskan Merek laptop anda
66.
Isikan Nama Pemilik laptop
77.
Isikan keluhan yang terjadi pada laptop anda
88.
Masukan kode jasa ( kode jasa dapat di liat di
button)
99.
Masukan spare part tambahan ( dapat di lihat di
button)
110.
Kemudian muncul form lalu pilih merek laptop dan
spare part yang di beli
111.
Isikan jumlah spare part yang di beli
112.
Lalu klik button hitung
113.
Kemudian isikan kolom pelayanan
114.
Lalu print
115.
Selesaii
Form 1 :
Form 2 :
Form 3 :
Source Code
FORM 1 :
Public Class Form1
Dim vmekanik, vjasa As String
Dim x As Integer
Sub clean()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
ComboBox5.Text = ""
ComboBox4.Text = ""
ComboBox6.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
TextBox1.Focus()
End Sub
Sub print()
ListBox1.Items.Add(TextBox1.Text)
ListBox1.Items.Add(TextBox4.Text)
ListBox1.Items.Add(TextBox2.Text)
ListBox1.Items.Add(ComboBox4.Text)
ListBox1.Items.Add(TextBox5.Text)
ListBox1.Items.Add(TextBox6.Text)
ListBox1.Items.Add(TextBox3.Text)
ListBox1.Items.Add(TextBox8.Text)
ListBox1.Items.Add(TextBox14.Text)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim a As Integer
a = MsgBox("Anda Yakin Mau Keluar ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If a = vbYes Then
End
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For a = 111 To 115 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 = "Install ulang OS"
TextBox7.Text = "100000"
Case "112"
TextBox3.Text = "Service total laptop"
TextBox7.Text = "500000"
Case "113"
TextBox3.Text = "Pembersihan dari virus"
TextBox7.Text = "100000"
Case "114"
TextBox3.Text = "Service ringan laptop"
TextBox7.Text = "300000"
Case "115"
TextBox3.Text = "Pengecekan laptop"
TextBox7.Text = "50000"
End Select
End Sub
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles
TextBox9.TextChanged
TextBox10.Text = Val(TextBox15.Text) *
Val(TextBox9.Text)
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
TextBox14.Text =
Format((Val(TextBox16.Text) + Val(TextBox7.Text) + Val(TextBox10.Text)) -
Val(TextBox11.Text), "Rp,###,##,0.00")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Call clean()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Call print()
End Sub
End Class
FORM 2 :
Public Class Kode_Jasa
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
FORM 3 :
Public Class Harga_Spare_part
Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
ComboBox4.SelectedIndexChanged
If (ComboBox4.Text = "Acer") Then
txtberai.Text = "151000"
txtkeyboard.Text = "320000"
txtLCD.Text = "440000"
txtAC.Text = "152000"
txtEngsel.Text = "Kosong"
txtMother.Text = "2110000"
txtSpeaker.Text = "160100"
txtRAM.Text = "320000"
txtProcessor.Text = "Kosong"
txtIC.Text = "210000"
End If
If (ComboBox4.Text = "Apple") Then
txtberai.Text = "300000"
txtkeyboard.Text = "730000"
txtLCD.Text = "510000"
txtAC.Text = "350000"
txtEngsel.Text = "210000"
txtMother.Text = "3900000"
txtSpeaker.Text = "1010000"
txtRAM.Text = "920000"
txtProcessor.Text = "807000"
txtIC.Text = "470000"
End If
If (ComboBox4.Text = "Asus") Then
txtberai.Text = "100000"
txtkeyboard.Text = "250000"
txtLCD.Text = "320000"
txtAC.Text = "151000"
txtEngsel.Text = "110000"
txtMother.Text = "1520000"
txtSpeaker.Text = "330000"
txtRAM.Text = "410000"
txtProcessor.Text = "620000"
txtIC.Text = "110000"
End If
If (ComboBox4.Text = "Dell") Then
txtberai.Text = "110000"
txtkeyboard.Text = "700000"
txtLCD.Text = "500000"
txtAC.Text = "350000"
txtEngsel.Text = "200000"
txtMother.Text = "4000000"
txtSpeaker.Text = "1000000"
txtRAM.Text = "900000"
txtProcessor.Text = "800000"
txtIC.Text = "400000"
End If
If (ComboBox4.Text = "HP") Then
txtberai.Text = "150000"
txtkeyboard.Text = "200000"
txtLCD.Text = "500000"
txtAC.Text = "Kosong"
txtEngsel.Text = "110000"
txtMother.Text = "4100000"
txtSpeaker.Text = "1100000"
txtRAM.Text = "521000"
txtProcessor.Text = "340000"
txtIC.Text = "220000"
End If
If (ComboBox4.Text = "Fujitsu") Then
txtberai.Text = "130000"
txtkeyboard.Text = "260000"
txtLCD.Text = "315000"
txtAC.Text = "110000"
txtEngsel.Text = "Kosong"
txtMother.Text = "Kosong"
txtSpeaker.Text = "210000"
txtRAM.Text = "210000"
txtProcessor.Text = "323000"
txtIC.Text = "117000"
End If
If (ComboBox4.Text = "Lenovo") Then
txtberai.Text = "91000"
txtkeyboard.Text = "231000"
txtLCD.Text = "227000"
txtAC.Text = "121000"
txtEngsel.Text = "101000"
txtMother.Text = "1200000"
txtSpeaker.Text = "231000"
txtRAM.Text = "319000"
txtProcessor.Text = "427000"
txtIC.Text = "101000"
End If
If (ComboBox4.Text = "Samsung") Then
txtberai.Text = "251000"
txtkeyboard.Text = "331000"
txtLCD.Text = "296000"
txtAC.Text = "254000"
txtEngsel.Text = "Kosong"
txtMother.Text = "1200000"
txtSpeaker.Text = "230000"
txtRAM.Text = "330000"
txtProcessor.Text = "420000"
txtIC.Text = "100000"
End If
If (ComboBox4.Text = "Sony
Vaio") Then
txtberai.Text = "200000"
txtkeyboard.Text = "231000"
txtLCD.Text = "230000"
txtAC.Text = "120000"
txtEngsel.Text = "120000"
txtMother.Text = "3200000"
txtSpeaker.Text = "431000"
txtRAM.Text = "719000"
txtProcessor.Text = "527000"
txtIC.Text = "201000"
End If
If (ComboBox4.Text = "Thosiba") Then
txtberai.Text = "90000"
txtkeyboard.Text = "231000"
txtLCD.Text = "200000"
txtAC.Text = "120000"
txtEngsel.Text = "100000"
txtMother.Text = "1110000"
txtSpeaker.Text = "131000"
txtRAM.Text = "313000"
txtProcessor.Text = "327000"
txtIC.Text = "111000"
End If
If (ComboBox4.Text = "Zyrex") Then
txtberai.Text = "81000"
txtkeyboard.Text = "200000"
txtLCD.Text = "190000"
txtAC.Text = "120000"
txtEngsel.Text = "100000"
txtMother.Text = "1000000"
txtSpeaker.Text = "210000"
txtRAM.Text = "310000"
txtProcessor.Text = "420000"
txtIC.Text = "91000"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton1.Checked Then
Form1.TextBox8.Text = "Baterai Laptop"
Form1.TextBox15.Text =
txtberai.Text
ElseIf RadioButton2.Checked Then
Form1.TextBox8.Text = "Keyboard Laptop"
Form1.TextBox15.Text = txtkeyboard.Text
ElseIf RadioButton11.Checked Then
Form1.TextBox8.Text = "LCD Laptop"
Form1.TextBox15.Text = txtLCD.Text
ElseIf RadioButton6.Checked Then
Form1.TextBox8.Text = "AC Adaptor"
Form1.TextBox15.Text = txtAC.Text
ElseIf RadioButton5.Checked Then
Form1.TextBox8.Text = "Engsel Laptop"
Form1.TextBox15.Text =
txtEngsel.Text
ElseIf RadioButton4.Checked Then
Form1.TextBox8.Text = "Motherboard Laptop"
Form1.TextBox15.Text =
txtMother.Text
ElseIf RadioButton9.Checked Then
Form1.TextBox8.Text = "Speaker Laptop"
Form1.TextBox15.Text =
txtSpeaker.Text
ElseIf RadioButton8.Checked Then
Form1.TextBox8.Text = "Memory RAM"
Form1.TextBox15.Text = txtRAM.Text
ElseIf RadioButton7.Checked Then
Form1.TextBox8.Text = "Processor Laptop"
Form1.TextBox15.Text =
txtProcessor.Text
Else
Form1.TextBox8.Text = "IC Laptop"
Form1.TextBox15.Text = txtIC.Text
End If
Me.Close()
End Sub
End Class
