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

Program Sour Sally

Pada program ini, pertama kali harus mengklik tombol mulai, setelah itu semua tombol akan berfungsi.

Setelah itu, masukkan jumlah toping yang diinginkan.

Tahap terakhir, masukkan topping yang diinginkan. setelah itu klik tombol beli dan akan keluar harga, diskon yang di dapat dan jumlah yang harus dibayarkan.

Diskon hanya berlaku bagu pembelian dengan 3 topping. diskon 10% dari harga.

Source code:

Public Class Form1

Private Sub mulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mulai.Click

rb1.Enabled = True

rb2.Enabled = True

rb3.Enabled = True

rb1.Checked = False

rb2.Checked = False

rb3.Checked = False

harga.Enabled = False

diskon.Enabled = False

total.Enabled = False

top1.Text = ""

top2.Text = ""

top3.Text = ""

harga.Text = ""

diskon.Text = ""

total.Text = ""

If mulai.Text = "MULAI" Then

mulai.Text = "REFRESH"

Else

mulai.Text = "MULAI"

End If

End Sub

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

End

End Sub

Private Sub rb1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb1.CheckedChanged

top1.Visible = True

top2.Visible = False

top3.Visible = False

Label2.Visible = True

Label3.Visible = False

Label4.Visible = False

top1.Text = ""

top2.Text = ""

top3.Text = ""

End Sub

Private Sub rb2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb2.CheckedChanged

top1.Visible = True

top2.Visible = True

top3.Visible = False

Label2.Visible = True

Label3.Visible = True

Label4.Visible = False

top1.Text = ""

top2.Text = ""

top3.Text = ""

End Sub

Private Sub rb3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb3.CheckedChanged

top1.Visible = True

top2.Visible = True

top3.Visible = True

Label2.Visible = True

Label3.Visible = True

Label4.Visible = True

top1.Text = ""

top2.Text = ""

top3.Text = ""

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If rb1.Checked = True Then

If top1.Text = "" Then

MsgBox("Isi dulu mau toping apa", MsgBoxStyle.Exclamation, "No Toping")

Exit Sub

End If

harga.Enabled = True

harga.Text = "15000"

diskon.Enabled = True

diskon.Text = "0"

ElseIf rb2.Checked = True Then

If top1.Text & top2.Text = "" Then

MsgBox("Isi dulu mau toping apa", MsgBoxStyle.Exclamation, "No Toping")

Exit Sub

ElseIf top1.Text = "" Then

MsgBox("Toping kurang 1", MsgBoxStyle.Exclamation, "Toping kurang 1")

Exit Sub

ElseIf top2.Text = "" Then

MsgBox("Toping kurang 1", MsgBoxStyle.Exclamation, "Toping kurang 1")

Exit Sub

End If

harga.Enabled = True

harga.Text = "25000"

diskon.Enabled = True

diskon.Text = "0"

ElseIf rb3.Checked = True Then

If top1.Text & top2.Text & top3.Text = "" Then

MsgBox("Isi dulu mau toping apa", MsgBoxStyle.Exclamation, "No Toping")

Exit Sub

ElseIf top2.Text & top3.Text = "" Then

MsgBox("Toping kurang 2", MsgBoxStyle.Exclamation, "Toping kurang 2")

Exit Sub

ElseIf top1.Text & top3.Text = "" Then

MsgBox("Toping kurang 2", MsgBoxStyle.Exclamation, "Toping kurang 2")

Exit Sub

ElseIf top1.Text & top2.Text = "" Then

MsgBox("Toping kurang 2", MsgBoxStyle.Exclamation, "Toping kurang 2")

Exit Sub

ElseIf top1.Text = "" Then

MsgBox("Toping kurang 1", MsgBoxStyle.Exclamation, "Toping kurang 1")

Exit Sub

ElseIf top2.Text = "" Then

MsgBox("Toping kurang 1", MsgBoxStyle.Exclamation, "Toping kurang 1")

Exit Sub

ElseIf top3.Text = "" Then

MsgBox("Toping kurang 1", MsgBoxStyle.Exclamation, "Toping kurang 1")

Exit Sub

End If

harga.Enabled = True

harga.Text = "30000"

diskon.Enabled = True

diskon.Text = Val(harga.Text) * 0.1

Else

MsgBox("Belum ada pilihan toping !", MsgBoxStyle.Information, "Belum ada pilihan toping")

End If

total.Enabled = True

total.Text = harga.Text - diskon.Text

End Sub

End Class

Permasalahan Seputar Monitor

Dibawah ini adalah contoh masalah yang terdapat pada monitor dan solusi yang dari permasalahan tersebut.

Kasus:

Warna, layar monitor berwarna hitam setelah komputer dihidupkan.

Solusi:

1. Pastikan kabel power monitor sudah dimasukkan ke power suppy pada

casing komputer dan indikator lampu dari monitor sudah menyala.

2. Cabut semua perangkat keras yang terpasang pada casing komputer

kecuali mouse, keyboard dan monitor. Booting kembali komputer untuk

melihat apa permasalahannya sudah terpecahkan.

3. Coba hubungkan dengan kabel power monitor yang berbeda, dan jika

dengan menggunakan kabel power monitor yang berbeda tersebut bisa

menyala, maka kabel power monitor yang semula perlu diganti dengan

yang baru.

4. Cabut kabel power monitor dan tunggu 20-30 detik, baru pasang

kembali kabel power monitor tersebut.

Kasus:

Tampilan monitor, pengaturan tampilan monitor tidak tepat.

Solusi:

1. Masalah ini biasanya muncul pada waktu monitor baru selesai dipasang.

Hal ini bisa terjadi jika sistem mendeteksi secara otomatis driver yang

dimasukkan untuk menginstall monitor tidak benar/salah.

2. Pilih driver untuk menginstall monitor dengan tepat. Cara untuk

mendapatkan driver adalah dengan mengunjungi situs dari manufaktur

pembuat monitor tersebut atau bisa menanyakan ke toko komputer

terdekat.

3. Setelah mendapat driver tersebut, pasang kembali monitor dan lakukan

instalasi ulang.

Kasus:

Tampilan monitor berputar.

Solusi:

Hal ini bisa disebabkan oleh game yang menggunakan pengaturan Rotation

pada monitor dan ditambah dengan fasilitas Graphics Controller. Untuk

mengembalikan tampilan monitor ke kondisi awal, langkah-langkahnya adalah

sebagai berikut:

1. Pilih menu Start» Control Panel» Intel Extreme Graphics Applet» pilih

pada bagian Rotation.

2. Hilangkan tanda centang pada kotak cek Enable Rotation.

3. Klik Apply, kemudian klik OK.

4. Keluar dari Control Panel .

Catatan: Langkah-langkah diatas tergantung dari VGA card yang dipasang.

Untuk mengatur properti Rotation, dapat melihat pada jendela Graphics

Controller. Dan cara lain untuk menemukan pengaturan Rotation, adalah

sebagai berikut:

1. Klik kanan di tempat yang kosong pada desktop, Pilih Properties.

2. Klik pada bagian Settings, Pilih tombol Advanced.

3. Klik pada bagian Graphics card, Pilih tombol Graphics Properties.

4. Klik pada bagian Rotation, Hilangkan tanda centang pada kolak cek

Enable Rotation.

5. Pilih Apply dan keluar dari semua jendela.

Kasus:

Membersihkan layar monitor.

Solusi:

Matikan terlebih dahulu komputer. Gunakan kain yang lembut dengan dibasahi

sedikit air hangat, kemudian usap layar monitor dari atas ke bawah dan dari

sisi kiri ke sisi kanan.

Permasalahan Seputar Keyboard

Masalah seperti kerusakan beberapa tuts pada papan ketik (keyboard) komputer ini memang jarang terjadi, namun tidak salah bila kita mengetahui sebelumnya apabila suatu saat nanti kita menemukan masalah seperti ini.

Masalahnya memang sepele namun apabila dilihat dari kebutuhan pada saat pengetikan maka masalah ini merupakan masalah yang besar karena bisa-bisa menghambat pekerjaan yang sedang kita lakukan.

Misalkan saja sementara mengetik sesuatu kemudian tiba-tiba saja salah satu tuts pada keyboard anda mengalami gangguan dan pada saat diketik tidak mengeluarkan tulisan. Untuk masalahg seperti ini, kita sudah dilengkapi dengan on-screen keyboard oleh sistem operasi windows (khususnya windows xp).

Memang sih menggunakan on-screen keyboard tidak semudah menggunakan keyboard manual (papan ketik fisik) namun dalam keadaan terdesak perlu juga diketahui manfaat on-screen keyboard ini untuk mengatasi masalah-masalah yang dibutuhkan langkah penyelesaian yang segera.

Atau mungkin juga bisa menghindari keylogger karena pengetikan kita tidak menggunakan keyboard melainkan klik mouse. (saya sendiri belum tau apakah tidak terekam oleh keylogger sebagai ketikan dari keyboard atau tidak), bahkan mungkin memasukan nomor PIN atau password untuk keperluan transaksi online.

Selain on-screen keyboard dengan 101 keys bisa juga digunakan onscreen keyboard dengan 102 keys dan 106 keys.

Untuk mengaktifkan on-screen keyboard klik Start-All Programs-Accessories-Accessobility-On-screenKeyboard. Kemudian untuk mengaktifkan jumlah key yang dikehendaki maka klik menu Keyboard dan pilih jumlah key yang dikehendaki.

PENGENALAN HARDWARE

Perangkat keras komputer (hardware) adalah semua bagian fisik komputer, dan dibedakan dengan data yang berada di dalamnya atau yang beroperasi di dalamnya, dan dibedakan dengan perangkat lunak (software) yang menyediakan instruksi untuk perangkat keras dalam menyelesaikan tugasnya.

Batasan antara perangkat keras dan perangkat lunak akan sedikit buram kalau kita berbicara mengenai firmware, karena firmware ini adalah perangkat lunak yang "dibuat" ke dalam perangkat keras. Firmware ini merupakan wilayah dari bidang ilmu komputer dan teknik komputer, yang jarang dikenal oleh pengguna umum.

Komputer pada umumnya adalah komputer pribadi, (PC) dalam bentuk desktop atau menara kotak yang terdiri dari bagian berikut:

• Papan sistem/papan induk yang merupakan tempat CPU, memori dan bagian lainnya, dan memiliki slot untuk kartu tambahan.
• RAM - tempat penyimpanan data jangka pendek, sehingga komputer tidak perlu selalu mengakses hard disk untuk mencari data. Jumlah RAM yang lebih besar akan membantu kecepatan PC
• Buses:
• Bus PCI
• Bus ISA
• USB
• AGP
• ROM (Read Only Memory) di mana firmware diletakkan
• CPU (Central Processing Unit) sebagai otak dan bagian utama komputer
• Power supply - sebuah kotak yang merupakan tempat transformer, kontrol voltase dan kipas
• Pengontrol penyimpanan, dari jenis IDE, SCSI atau lainnya, yang mengontrol hard disk, Floppy disk, CD-ROM dan drive lainnya; kontroler ini terletak di papan induk (atas-papan) atau di kartu tambahan
• Pengontrol penampilan video yang memproduksi output untuk komputer display
• Pengontrol komputer bus (paralel, serial, USB, Firewire) untuk menyambung komputer dengan alat tambahan luar lainnya seperti printer atau scanner
• Beberapa jenis penyimpanan komputer:
• CD - tipe paling umum media yang dapat dilepas, murah tapi mudah rusak.
• CD-ROM
• CD-RW
• CD-R
• DVD
• DVD-ROM
• DVD-RW
• DVD-R
• Floppy disk
• Penyimpanan dalam - menyimpan data dalam komputer untuk penggunaan jangka panjang.
• Hard disk - untuk penyimpanan data jangka panjang
• Disk array controller
• Kartu suara - menerjemahkan signal dari papan sistem ke bahasa yang dapat dimengerti oleh speaker, dan memiliki terminal untuk mencolok kabel suara speaker.
• Jaringan komputer - untuk menghubungkan komputer ke internet dan/atau komputer lainnya.
• Modem - untuk koneksi tekan-tombol.
• Kartu network - untuk internet DSL/kabel, dan/atau menghubungkan ke komputer lain.
• Alat lainnya.

Sebagai tambahan, perangkat keras dapat memasukan komponen luar lainnya. Di bawah ini merupakan komponen standar atau yang umum digunakan.

• Input
• Keyboard
• Alat penunjuk
• Mouse
• Trackball
• Joystick
• Gamepad
• Scanner gambar
• Webcam
• Tablet Grafis
• Output
• Printer
• Speaker
• Monitor
• Jaringan/Networking
• Modem
• Kartu network