UAS KONSEP PEMROGRAMAN TSI B

Form untuk Sales Order Mc Donalds Indonesia.
Terdapat 6 Form,
1. Form untuk Login.
2. Form utama untuk mengakses beberapa form lainnya.
3. Form untuk melakukan input order.
4. Form untuk mengetahui promo apa yang sedang berlaku.
5. Form untuk hasil cetak dari input order.
6. Form menu makanan yang tersedia.

Form untuk Login.

Username yang digunakan bebas, sesuai dengan nama masing-masing pegawai yang sedang bertugas,

tapi Password yang digunakan harus sesuai, untuk memastikan tidak ada yang bisa mengakses aplikasi ini kecuali mereka yang memiliki wewenang untuk membukanya.

Button reset di bagian atas digunakan untuk mengosongkan text box username dan textbox password. Button reset menggunakan procedur, bisa dilihat secara lengkap pada source code dibawah ini.

Public Class Form2

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

        If TextBox2.Text = "mcdindonesia" Then

            Form1.Show()

            Me.Hide()

        End If

    End Sub

    Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call bersih()

    End Sub

End Class

Form utama yang dapat terakses jika memasukan Password yang sesuai.

Form ini digunakan untuk mengakses beberapa form lainnya.

Public Class Form1

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form4.Show()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
        Form3.Close()
        Form4.Close()
        Form2.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form6.Show()
    End Sub
End Class

Form untuk menginput order.

Form ini akan terakses bila menekan button Order di form utama sebelumnya.

Waktu pemesanan menggunakan coding while, for, dan array.

Nama admin yang melayani customer akan langsung tercetak sesuai username yang diisikan saat login tadi. 

Selanjutnya, mengisi data data yang diperlukan seperti nama, alamat, no telp, email, dll.

Memasukkan order, menu sudah ada di combo box sehingga tinggal dipilih saja.

Saat memilih menu, harga makanan tersebut akan langsung muncul di sampingnya,

jangan lupa pula masukkan beapa banyak yang ingin dibeli, setelah memasukkan bilangannya,

akan langsung keluar nominal total dari satu/beberapa items yang tadi kita pilih.

Dalam perhitungan subtotal dan total, saya menggunakan coding function.

Di form ini digunakan juga coding select case dan if serta elseif.

Public Class Form3

   

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label25.Text = Form2.TextBox1.Text

        For a = 1 To 31

            ComboBox1.Items.Add(a)

        Next

        Dim b As Integer

        b = 2013

        While b <= 2016

            ComboBox3.Items.Add(b)

            b = b + 1

        End While

        Dim bulan() As String = {"Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Agustus", "September", "Oktober", "November", "Desember"}

        ComboBox2.Items.Add(bulan(0))

        ComboBox2.Items.Add(bulan(1))

        ComboBox2.Items.Add(bulan(2))

        ComboBox2.Items.Add(bulan(3))

        ComboBox2.Items.Add(bulan(4))

        ComboBox2.Items.Add(bulan(5))

        ComboBox2.Items.Add(bulan(6))

        ComboBox2.Items.Add(bulan(7))

        ComboBox2.Items.Add(bulan(8))

        ComboBox2.Items.Add(bulan(9))

        ComboBox2.Items.Add(bulan(10))

        ComboBox2.Items.Add(bulan(11))

    End Sub

    Dim yeyeye As String

    Private Sub cmborder2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmborder2.LostFocus

        yeyeye = cmborder1.Text

        Select Case yeyeye

            Case "Double Cheese Burger"

                lblharga2.Text = "35000"

            Case "Cheese Burger"

                lblharga2.Text = "30000"

            Case "Chicken Burger with Cheese"

                lblharga2.Text = "40000"

            Case "PaNas Special"

                lblharga2.Text = "30000"

            Case "PaNas"

                lblharga2.Text = "27000"

        End Select

        If cmborder2.Text = "Double Cheese Burger" Then

            lblharga2.Text = "35000"

        ElseIf cmborder2.Text = "Cheese Burger" Then

            lblharga2.Text = "30000"

        ElseIf cmborder2.Text = "Chicken Burger with Cheese" Then

            lblharga2.Text = "40000"

        ElseIf cmborder2.Text = "McNuggets" Then

            lblharga2.Text = "25000"

        ElseIf cmborder2.Text = "PaNas Special" Then

            lblharga2.Text = "30000"

        ElseIf cmborder2.Text = "PaNas" Then

            lblharga2.Text = "27000"

        End If

    End Sub

    Private Sub cmborder1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmborder1.LostFocus

        If cmborder1.Text = "Double Cheese Burger" Then

            lblharga1.Text = "35000"

        ElseIf cmborder1.Text = "Cheese Burger" Then

            lblharga1.Text = "30000"

        ElseIf cmborder1.Text = "Chicken Burger with Cheese" Then

            lblharga1.Text = "40000"

        ElseIf cmborder1.Text = "McNuggets" Then

            lblharga1.Text = "25000"

        ElseIf cmborder1.Text = "PaNas Special" Then

            lblharga1.Text = "30000"

        ElseIf cmborder1.Text = "PaNas" Then

            lblharga1.Text = "27000"

        End If

    End Sub

    Function hitung(ByVal harga, ByVal qty)

        hitung = harga * qty

    End Function

    Private Sub txtqty1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtqty1.TextChanged

        lblsub1.Text = hitung(lblharga1.Text, txtqty1.Text)

    End Sub

    Private Sub txtqty2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtqty2.TextChanged

        lblsub2.Text = hitung(lblharga2.Text, txtqty2.Text)

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If TextBox1.Text = "ulangtahun" Then

            TextBox2.Text = 10 / 100 * (Val(lblsub1.Text) + Val(lblsub2.Text))

        ElseIf TextBox1.Text = "kejutanjuni" Then

            TextBox2.Text = 15 / 100 * (Val(lblsub1.Text) + Val(lblsub2.Text))

        End If

        Label17.Text = (Val(lblsub1.Text) + Val(lblsub2.Text)) - TextBox2.Text

    End Sub

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

        Form5.Show()

        Me.Hide()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Hide()

    End Sub

End Class

Ada promo dari Mc Donald Indonesia, untuk keterangan lebih lanjut tentang promo bisa memilih button Info Promo pada form utama, terlebih dahulu tekanlah button Back pada form ini.

Jika sudah memasukkan kode kupon, maka tekan button Proses. Dan keluarlah total yang harus dibayarkan. Setelah itu klik tombol Print untuk mencetak hasil input order di form ini.

Form hasil input order / Form print.

Saat tadi kita menekan button print, maka data data di form input order tadi langsung tercetak di form prnt ini. Dan siap untuk dicetak.

Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        txtadmin.Text = Form3.Label25.Text

        txtnama.Text = Form3.txtnama.Text

        txtpesanan.Text = Form3.cmborder1.Text

        txtpesanan2.Text = Form3.cmborder2.Text

        txttanggal.Text = Date.Now

        txttekp.Text = Form3.txttelp.Text

        txtqty.Text = Form3.txtqty1.Text

        txtqty2.Text = Form3.txtqty2.Text

        txtsub.Text = Form3.lblsub1.Text

        txtsub2.Text = Form3.lblsub2.Text

        TextBox2.Text = Form3.TextBox2.Text

        TextBox1.Text = (Val(txtsub.Text) + Val(txtsub2.Text)) - TextBox2.Text

    End Sub

End Class

Form Menu.

Form ini digunakan untuk melihat varian menu dan harga yang disediakan oleh Mcd Indonesia.

Public Class Form4

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

        Me.Close()

    End Sub

End Class

TUGAS KONSEP PEMROGRAMAN MUTIARA KAMILA ATHIYYA

Untuk Ujian Tengah Semester 2 Mata Kuliah Konsep Pemrograman, saya membuat aplikasi bagi Dosen untuk menginput nilai Mahasiswa dalam salah satu kelas yang diajarnya, dan mengetahui berapa jumlah data yang diinput, berapa rata-rata, apa predikat kelasnya, termasuk ke kategori berapakah, dan berapa orang dari kelas tersebut yang bisa diikuti dalam olimpiade.

1.       Dosen yang mengakses aplikasi ini, diharuskan untuk menginput username dan password. Setelah menginput username dan password, langkah selanjutnya adalah menekan button “LOG IN”

.       Setelah menekan button “LOG IN” maka akan langsung muncul Form kedua untuk menginput nilai Mahasiswa, Mata Kuliahnya apa,  Nilai Mahasiswa termasuk Nilai Tugas Individu, Nilai Tugas Kelompok, Nilai UTS, setelah menginput, maka kita harus menekan button “Simpan” dan nilai yang tadi kita input pun akan langsung terlihat pada List Box di sampingnya. Untuk mengisi nilai untuk mahasiswa lain, maka kita harus menekan button “Isi Data Lain”, maka Text Box untuk menginput Nilai Tugas Individu, Kelompok, dan UTS akan kembali kosong dan siap untuk diisi dengan data baru.

32.       Setelah List Box untuk 11 Mahasiswa sudah terpenuhi, maka harus menekan beberapa button, button yang dimaksud adalah, Jumlah Data, Total Nilai, Rata Rata, dan Rata Rata Kelas, setelah itu maka kita diharuskan menekan button “Proses”, setelah button tersebut ditekan, maka Kategori Kelas dan Predikat Kelas akan langsung terpampang.

a.       Untuk Rata-Rata Kelas antara 86 – 100, maka Predikat Kelasnya “Sangat Memuaskan” dan Kategori Kelasnya yang ke 1.

b.      Untuk Rata-Rata Kelas antara 76 – 85, maka Predikat Kelasnya “Memuaskan” dan Kategori Kelasnya yang ke 2.

c.       Untuk Rata-Rata Kelas antara 66 – 75, maka Predikat Kelasnya “Cukup Memuaskan” dan Kategori Kelasnya yang ke 3.

d.      Untuk Rata-Rata Kelas antara 56 –64, maka Predikat Kelasnya “Cukup Memprihatinkan” dan Kategori Kelasnya yang ke 4.

e.      Untuk Rata-Rata Kelas dibawah 55, maka Predikat Kelasnya “Memprihatinkan” dan Kategori Kelasnya yang ke 5.

43.       Setelah mengetahui Kategori Kelas setiap kelas, maka kita akan mengetahui berapa orang yang bisa diikutkan Olimpiade dari setiap kelas tersebut.

a.       Untuk kategori 1 dan 2, maka yang bisa diikutkan olimpiade adalah 5 orang.

b.      Untuk kategori 3 dan 4, maka yang bisa diikutkan olimpiade adalah 3 orang.

c.       Untuk kategori lainnya, maka yang bisa diikutkan olimpiade adalah 1 orang.

54.       Button “Reset” digunakan untuk menghapus semua data yang telah tersimpan.

56.       Jika menekan button “Selesai” maka akan muncul Message Box untuk mengkonfirmasi apakah yakin akan keluar dari aplikasi tersebut.

Source Code :

Public Class Form1

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

Public Class Form2

   
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        lstnpm.Items.Add(txtnpm.Text)
        lsttgsind.Items.Add(txttgsind.Text)
        lsttgsklm.Items.Add(txttgsklm.Text)
        lstuts.Items.Add(txtuts.Text)
    End Sub
    Dim bulan As Integer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For a = 1 To 31
            cmbtgl.Items.Add(a)
        Next

        For b = 2015 To 2000 Step -1
            cmbthn.Items.Add(b)
        Next

        bulan = 1
        While bulan <= 12
            cmbbln.Items.Add(bulan)
            bulan = bulan + 1
        End While
    End Sub

    Private Sub radiokonsep_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokonsep.CheckedChanged
        If radiokonsep.Checked = True Then
            lblmatkul.Text = "Konsep Pemrograman"
            lblmatkul2.Text = "Konsep Pemrograman"
            lblkesimpulan1.Text = "Konsep Pemrograman"
        End If
    End Sub

    Private Sub radiobisnis_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiobisnis.CheckedChanged
        If radiobisnis.Checked = True Then
            lblmatkul.Text = "Lab Pemrograman Bisnis"
            lblmatkul2.Text = "Lab Pemrograman Bisnis"
            lblkesimpulan1.Text = "Lab Pemrograman Bisnis"
        End If
    End Sub

    Private Sub radiovisual_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiovisual.CheckedChanged
        If radiovisual.Checked = True Then
            lblmatkul.Text = "Pemrograman Visual"
            lblmatkul2.Text = "Pemrograman Visual"
            lblkesimpulan1.Text = "Pemrograman Visual"
        End If
    End Sub

   
    Private Sub btnisilainnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisilainnya.Click
        txtnpm.Text = ""
        txttgsind.Text = ""
        txttgsklm.Text = ""
        txtuts.Text = ""
    End Sub

    Dim total1, total2, total3 As Integer
    Private Sub btntotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntotal.Click
        For i As Integer = 0 To lsttgsind.Items.Count - 1
            total1 = total1 + lsttgsind.Items(i)
        Next
        txttotal1.Text = total1

        For j As Integer = 0 To lsttgsklm.Items.Count - 1
            total2 = total2 + lsttgsklm.Items(j)
        Next
        txttotal2.Text = total2


        For k As Integer = 0 To lstuts.Items.Count - 1
            total3 = total3 + lstuts.Items(k)
        Next
        txttotal3.Text = total3

    End Sub

    Private Sub btnjmldata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnjmldata.Click
        txtdata1.Text = lsttgsind.Items.Count
        txtdata2.Text = lsttgsklm.Items.Count
        txtdata3.Text = lstuts.Items.Count
    End Sub

    Private Sub btnratarata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnratarata.Click
        txtrata1.Text = txttotal1.Text / txtdata1.Text
        txtrata2.Text = txttotal2.Text / txtdata2.Text
        txtrata3.Text = txttotal3.Text / txtdata3.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtratakelas.Text = (Val(0.25 * txtrata1.Text) + Val(0.25 * txtrata2.Text) + Val(0.5 * txtrata3.Text))
    End Sub

    Sub bersih()
        txtmahasiswa.Text = ""
        lblkategorikls.Text = ""
        cmbtgl.Text = ""
        cmbbln.Text = ""
        cmbthn.Text = ""
        txtnpm.Text = ""
        txttgsind.Text = ""
        txttgsklm.Text = ""
        txtuts.Text = ""
        lstnpm.Items.Clear()
        lsttgsind.Items.Clear()
        lsttgsklm.Items.Clear()
        lstuts.Items.Clear()
        radiobisnis.Checked = False
        radiokonsep.Checked = False
        radiovisual.Checked = False
        lblmatkul.Text = ""
        lblmatkul2.Text = ""
        txtdata1.Text = ""
        txtdata2.Text = ""
        txtdata3.Text = ""
        txtrata1.Text = ""
        txtrata2.Text = ""
        txtrata3.Text = ""
        txttotal1.Text = ""
        txttotal2.Text = ""
        txttotal3.Text = ""
        lblpredikatkls.Text = ""
        txtratakelas.Text = ""
    End Sub

    Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click
     
        Call bersih()
    End Sub

    Dim vkategori, vmahasiswa As String
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If txtratakelas.Text <= 100 Then
            lblpredikatkls.Text = "Sangat Memuaskan"
            lblkategorikls.Text = "1"

        ElseIf txtratakelas.Text <= 85 Then
            lblpredikatkls.Text = "Memuaskan"
            lblkategorikls.Text = "2"

        ElseIf txtratakelas.Text <= 75 Then
            lblpredikatkls.Text = "Cukup Memuaskan"
            lblkategorikls.Text = "3"

        ElseIf txtratakelas.Text <= 65 Then
            lblpredikatkls.Text = "Cukup Memprihatinkan"
            lblkategorikls.Text = "4"

        ElseIf txtratakelas.Text <= 55 Then
            lblpredikatkls.Text = "Memprihatinkan"
            lblkategorikls.Text = "5"

        Else : lblpredikatkls.Text = "Sangat Memprihatinkan"
            lblkategorikls.Text = "6"
        End If

        vkategori = lblkategorikls.Text
        Select Case vkategori
            Case 1, 2
                vmahasiswa = "5"
                txtmahasiswa.Text = vmahasiswa

            Case 3, 4
                vmahasiswa = "3"
                txtmahasiswa.Text = vmahasiswa

            Case Else
                vmahasiswa = "1"
                txtmahasiswa.Text = vmahasiswa
        End Select
    End Sub

    Dim x As Integer
    Sub selesai()
        x = MsgBox("Yakin akan Selesai", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
        If x = vbYes Then
            End
        Else : Call bersih()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call selesai()
    End Sub
End Class

Rangkuman OSK (Pak Yulius)

Kali ini saya akan merangkum apa saja materi yang disampaikan oleh Pak Yulius Eka di pertemuan pertama semester ini dalam mata kuliahnya yakni OSK (Organisasi Sistem Komputer)

Dalam pertemuan kali ini, Pak Yulius menjelaskan tentang bagaimana cara memperbaiki peralatan elektronik seperti Laptop, PC, dsb. Ada beberapa hal yang akan saya bahas dalam postingan saya kali ini, contohnya; kita tidak boleh memainkan laptop diatas kasur, bagaimana memilih charger laptop yang tepat, bagaimana memperbaiki charger alat elektronik yang rusak, cara membersihkan laptop, dan lain-lain.

Pertama, kita tidak boleh memainkan laptop di atas kasur lho. Mengapa demikian?

Bermain laptop di atas kasur.

Salah satu cara agar laptop yang kita miliki tidak mudah rusak yakni dengan tidak menaruhnya di alas yang sulit untuk mengalirkan udara masuk, misalnya di atas kasur pada saat kita sedang bermain sambil berbaring, atau di atas karpet kain. Hal ini di sebabkan karna laptop membutuhkan sirkulasi udara yang lancar, jika sirkulasi udara terhambat, maka suhu ruangan yang ada pada laptop akan cepat panas dan ini sangat berpengaruh pada kipas pendingin di dalamnya atau Fan.

Biasakanlah bermain di atas meja, lantai, ataupun alas yang dapat menyalurkan udara masuk. Jika anda Menghidupkan laptop lebih dari 3 jam, maka usahakan memasang kipas pendingin tambahan, ini jelas sangat membantu agar laptop tidak mudah panas, dan rusak.

Selanjutnya, memilih charger laptop yang tepat.

Charger Laptop.

 Hal yang musti diperhatikan terlebih dulu, Laptop dengan berbagai seri yang berbeda mungkin saja memiliki pengisi daya (charger) yang sama. Model yang berbeda diproduksi oleh suatu perusahaan memiliki spesifikasi yang berbeda.

Jadi, jika ingin membeli charger untuk laptop kita, kita harus selalu memeriksa tegangan input dan outputnya terlebih dahulu. Rincian ini diberi label pada kemasan produk. Pastikan informasi ini sesuai dengan spesifikasi dari laptop yang kita miliki. Janganlah kita dengan cerobohnya memakai charger dengan tegangan yang jauh lebih besar dari yang seharusnya, hal itu akan cepat membuat laptop rusak. Kalo kata pak Yulius sih gini, coba bayangin aja, kita makan biasanya 3 kali sehari, tapi tiba-tiba kita dijejelin disuruh makan 10 piring dalam sehari. Bisa-bisa gumoh haha.

Janganlah pula kita tergiur dengan harga yang rendah luar biasa di beberapa website seperti yang Kita bisa saja membeli produk duplikat. Lebih baik kita membeli charger laptop dari sebuah situs terkenal.

Ohya, kalo ada kabel yang rusak di charger, jangan kita rekatkan pake solatape atau sejenisnya. Kita harusnya memakai alat yang bernama heat shrink tubing, bentuknya kayak pipa gitu, kalo dipanasin nanti dia akan mengikuti bentuk kabel tsb. Jangan pake solatape ya! Soalnya bahaya sekali lho, nanti kalo tiba-tiba solatape nya bolong terus keinjek terus kita kesetrum, beuh mantap juga sih haha. Warnanya juga bermacam-macam, tingal disesuaikan aja sama warna kabel kita.

Heat Shrink Tubing.

Selanjutnya, cara membersihkan laptop dengan benar.

1.      Langkah pertama adalah mematikan laptop. Setelah benar-benar mati, cabut semua kabel yang terhubung dengan laptop kita. Dalam proses pembersihan, janganlah kita menggunakan minyak kayu putih atau hal-hal lain yang terdengar konyol hahaha. Pak Yulius juga menganjurkan untuk menggunakan Thinner, mengapa demikian? Karena thinner sifatnya akan menguap untuk proses pengeringannya, berbeda dengan air.

2.      Gunakan kain yang berbulu, jangan gunakan tisu wajah atau kain yang kasar karena dapat membuat laptop kita tergores, terutama pada bagian LCD kita harus hati-hati karena bagian ini lunak dan mudah tergores. Gunakan kain yang biasa anda gunakan untuk membersihkan kacamata.

3.      membersihkan partikel debu yang paling baik yakni dengan menggunakan vacuum cleaner, tapi bisa juga dengan menggunakan sikat gigi kalo kata Pak Yulius

4.      yang terakhir, sebelum menyalakan laptop pastikan bahwa semua cairan sudah benar-benar kering.

Vacuuming Laptop.

Untuk memperbaiki laptop yang rusak, kita membutuhkan alat-alat seperti obeng, baut, tang dll.  Obeng yang digunakan yakni obeng yang berbentuk bunga, yang seperti tanda plus, dan yang seperti tanda minus. Tang yang digunakan adalah yang seperti gambar dibawah ini, yang satu set, yang isinya meliputi tang pipih, tang buaya, tang jepit, tang kombinasi, dll. Baut, baut itu sebenarnya sangatlah penting, karena kata Pak Yulius sih kemarin, baut itu merupakan penghantar listrik yang bekerja di dalam laptop tersebut.

Satu set Tang.

Baut.

Satu set Obeng.

Multitester. Multitester adalah suatu alat untuk mendeteksi kerusakan atau jika ada suatu alat yang tidak berfungsi, dan jika ada kabel yang tidak tersambung dengan baik. Caranya hanya dengan menggesekkan multitester ke kabel atau bagian laptop yang rusak. Jika terdeteksi kerusakan, multitester akan mengeluarkan bunyi. Berikut saya lampirkan contoh gambar multitester;

Multitester.

Oiya, ada sedikit info tambahan nih, kalo laptop kita rusak dan udah dengan segala cara memperbaiki tapi tetap tidak bisa juga, caranya yakni dengan mengganti motherboard laptop tersebut. Motherboard dewasa ini sangat mudah didapatkan, kita bisa memesannya secara personal, tidak perlu dengan nama perusahaan. Harga motherboard dari China aja harganya hanya sekitar Rp.300.000-Rp.400.000. Banyak teknisi yang menipu customernya bilang bahwa motherboardnya rusak lah apalah, padahal cuma kotor aja, bukan harus diganti. Kalo cuma kotor sih kita bisa bersihin aja pake thinner sesuai dengan artikel yang saya bahas di bagian atas tadi. Mulai saat ini, jangan sampai kita ketipu lagi ya sama teknisi-teknisi yang tidak bertanggung jawab itu.

Motherboard.

Sekian rangkuman saya tentang materi yang disampaikan Pak Yulius dalam kesempatan yang lalu, kurang lebihnya mohon maaf. Semoga apa yang saya postingkan ini dapat memberikan manfaat kepada kita semua yang membacanya. Terimakasih.