HASIL UJIAN NASIONAL KOTA MEDAN TINGKAT SMA/MA DAN SMK TAHUN 2012

Pada hari Jumat tanggal 25 Mei 2012, Dinas Pendidikan Kota Medan telah menerima hasil Ujian Nasional Tingkat Kota Medan dari Dinas Pendidikan Propinsi Sumatera Utara. Dari hasil UN tersebut, tingkat kelulusan di Kota Medan cukup tinggi, dimana siswa SMA yang lulus 99.84% meliputi Jurusan IPA yang lulus mencapai 99.95% serta jurusan IPS tingkat kelulusan mencapai 99.69%. Sedangkan untuk tingkat jenjang SMK tingkat kelulusan mencapai 99.80%. Untuk dapat melihat hasil ujian nasional tingkat SMA, MA dan SMK dapat dilihat Download disisni

Cara Membuat Komputer Anti Lelet

Sebagai pengguna komputer tentunya kita menginginkan mempunyai komputer yang mempunyai kinerja optimal, cepat dan stabil. Saya menyebutnya “komputer anti lelet”.  Dalam artikel perdana ini saya ingin berbagi pengalaman dengan pembaca blog fastncheap tentang bagaimana cara membuat komputer anti lelet dengan melakukan beberapa perawatan dan tune up sederhana terhadap komputer untuk meningkatkan kinerja windows.
Sebelum membuat komputer anti lelet, sebaiknya kita mengetahui terlebih dahulu beberapa hal yang menyebabkan performa komputer kita lambat, sering hang bahkan muncul berbagai error yang meyebabkan komputer crash sehingga tidak nyaman lagi digunakan.   Beberapa hal paling umum yang dapat menyebabkan masalah pada komputer sehingga komputer kita terasa lelet kita diantaranya adalah: Continue reading »

1. Mengabaikan Minimum Hardware Requirements, ketika menginstal  suatu aplikasi.
   Semua software / aplikasi mempunyai spesifikasi minimal hardware komputer yang diperlukan agar aplikasi tersebut dapat berjalan normal.  Dan kita ingat itu adalah spesifikasi minimal , jadi agar aplikasi tersebut bisa berjalan optimal spesifikasi komputer kita harus lebih tinggi dari system requirement  aplikasi tersebut.
2. Overheating pada komponen hardware, beberapa komponen hardware yang sering terjadi overheat adalah Processor, Mainboard, VGA Card dan Power Supply. Overheat pada komponen hardware tersebut bisanya terjadi  karena tidak optimalnya kerja system pendingin (misalnya fan Processor),  komputer ditempatkan di ruangan yang memang mempunyai temperatur cukup tinggi atau bisa juga karena komputer yang dioperasikan 24 jam nonstop.
3. Live time, hardware komputer juga tidak bisa melawan usia, terutama untuk komponen kapasitor pada mainboard dan hardisk. Secara umum komputer yang telah beroperasi diatas 5 tahun sudah saatnya diupgrade atau diganti baru.
4. Terlalu banyak software yang diinstall, banyak proses yang berjalan di background, terdapat virus, malware dan spyware yang memakan resource Processor dan Memory yang pada akhirnya dapat menyebabkan komputer kita terasa sangat lelet.

Setelah kita mengetahui beberapa penyebab umum komputer menjadi lelet, maka saatnyalah sekarang kita mempersiapkan  dan melakukan beberapa langkah tune up windows untuk membuat komputer anti lelet.

1. Ketahui spesifikasi komputer kita, jangan ragu untuk meng-upgrade komponen terutama untuk RAM yang masih dibawah 1 GB.  Apabila anda berminat membeli komputer baru, menurut saya spesifikasi minimal saat ini adalah komputer sekelas Intel Core 2 Duo, RAM DDR3 2 GHz,  Hardisk SATA 250 GB dan 530 Watt Power Supply.
2. Bersihkan komponen hardware, buka casing CPU dan bersihkan debu yang menempel pada mainboard, fan dan peripheral lainya dengan menggunakan sikat halus dan vacum cleaner.
3. Bila memang spek komputer kita pas-pasang instal-lah program yang benar-benar diperlukan saja. Ada baiknya juga untuk menggunakan program alternative yang mempunyai ukuran kecil dan tidak memakan banyak resource, diantaranya adalah:
   • Open Office,  untuk membuka dan mengedit dokumen
   • Foxit Reader, untuk membaca dokumen PDF
   • Opera Mini, untuk browsing  lebih cepat dan aman
   • 7 Zip untuk membuat dan membuka file kompresi
   • VLC Media Player untuk menjalankan file multimedia
4. Bersihkan komputer dari virus, spyware dan malware dengan virus scanner seperti misalnya Norman Malware Cleaner, lalu install antivirus yang tidak memberatkan komputer, saya sendiri menggunakan avast free antivirus dan pastikan selalu update.
5. Disable Automatic Update pada windows, sebagai gantinya download security update dan hotfix terbaru menggunakan Windows Update Downloader dari windowsupdatesdownloader.com
   
    
6. Disable windows services yang tidak digunakan, caranya adalah sbb:
   • Klik start – run – ketik: services.msc
   • Double klik pada service yang tidak dipakai, pada pilihan start up type pilih disable
   • Beberapa service windows yang bisaanya tidak terpakai diantaranya : Alerter, Clipbook, Distributed Link Tracking Client, Fast User Switching, Help and Support , Indexing Service, IPSEC Services,  Netmeeting Remote Desktop Sharing,  Portable Media Serial Number,  Remote Desktop Help Session Manager, Remote Procedure Call Locator, Remote Registry, Remote Registry Service, Secondary Logon, Routing & Remote Access, Server,  SSDP Discovery Service , Telnet,  TCP/IP NetBIOS Helper,  Upload Manager, Universal Plug and Play Device Host, Wireless Zero Configuration (bagi yang tidak menggunakan wireless device).  Untuk komputer yang tidak terhubung ke jaringan disable juga
     komputer Browser, Messenger, Windows Time .
7. Matikan beberapa aplikasi yang berjalan otomatis saat windows startup. Saya menggunakan tools Start Up Control Panel untuk mengontrol program apa saja yang perlu atau tidak perlu di load saat windows start up. Download programnya di www.mlin.net/StartupCPL.shtml, lalu jalankan dan disable beberapa service yang tidak diperlukan
8. Matikan System Restore pada beberapa partisi atau keseluruhan drive. Selain dapat meningkatkan kecepatan windows, mendisable fitur ini akan menghindari  boomerang yang terjadi karena adanya virus yang bercokol di file-file restore point.
   • Caranya: klik kanan icon My komputer – klik Properties – klik tab System Restore – check  Turn off system restore
9. Bersihkan desktop dari shortcut dan file yang tidak sering terpakai. Untuk menyimpan file data sebaiknya simpan di folder atau drive tersendiri. Gunakan wallpaper yang tidak memakan banyak resource memory atau gunakan saja background warna pada tampilan desktop.
10. Atur Visual Effects for Better Performance,
    • Caranya: klik kanan My komputer – klik Properties – klik tab Advance – pada menu Performance pilih setting,
      pada tab visual effect pilih Adjust for best Performance.
11. Bersihkan temporary file yang ada dilokasi C:Documents and Settings-namauser-Local Settings-Temp dan C:Windows-Temp
12. Jalankan Disk Cleanup Wizard untuk meng-compress old file dan membersihkan file-file yang tidak diperlukan.
    • Caranya klik start – run – ketik : cleanmgr 
13. Jalankan Disk Defragmenter secara teratur untuk merapikan kembali data-data yang tersimpan pada hardisk.
    • Caranya klik start – run – ketik : dfrg.msc
14. Jalankan tools Checkdisk untuk memastikan struktur file dan direktory pada hardisk bebas dari error.
    • Caranya : Buka Windows Explorer, Klik kanan pada hardisk yang aka di scan, pilih Properties,  pilih tab Tools, pilih Error Checking, klik Check Now.
    • check Automatically fix file system errors dan Scan for and attempt recovery of bad sector
15. Install ulang Windows dan Aplikasi.  Apabila dirasa komputer sudah terlalu banyak masalah, inilah jurus terakhir yang dapat kita lakukan untuk membuat komputer kita kembali ke performa awal, selamatkan semua data ke partisi atau hardisk yang lain lalu mulai lagi semuanya dari awal, reinstall Windows dan program aplikasi lainnya.

Demikianlah sedikit cara perawatan dan tune up windows untuk membuat komputer kita selalu bekerja optimal alias anti lelet.  Dalam artikel ini saya masih menggunakan sistem operasi Windows XP, meskipun beberapa tips diatas pada prinsipnya dapat juga diterapkan pada OS yang lain.
Semoga bermanfaat!

Jawaban Soal 3 ( Husni Tamrin)

Kasus : Lihat disini kasus
Soal 3 (Husni Tamrin)

1.      Program Login

Listing Program

Public Class Login

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

    End Sub

    Sub masuk()

        If username.Text = "Husni" And Password.Text = "husnialbara" Then

            Menu_Utama.Show()

            Me.Hide()

        Else : MsgBox(" Masukkan semua data yang diminta...!", MsgBoxStyle.Critical, "Gagal")

        End If

    End Sub

    Private Sub Password_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress

        If e.KeyChar = Chr(13) Then

            masuk()

        End If

    End Sub

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        masuk()

    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

        End

    End Sub

End Class

2. Menu Utama
 

Listing Program

Public Class Menu_Utama

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

        Timer1.Start()

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        Data_pegawai.Show()

    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click

        Data_pegawai.Show()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        stttanggal.Text = Format(Now.Date, "dddd, MMMM dd, yyyy")

        sttjam.Text = Format(Now, "h:mm:ss tt")

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

End Class

3. Program Data Pegawai

Listing Program

Public Class Data_pegawai

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

        Nik.Items.Add("09111")

        Nik.Items.Add("09112")

        Nik.Items.Add("09113")

        Nik.Items.Add("09114")

        Nik.Items.Add("09115")

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staf")

        Status.Items.Add("Menikah")

        Status.Items.Add("Belum Menikah")

        lembur.Items.Add("Ya")

        lembur.Items.Add("Tidak")

        BuatTabel()

        Addjumlah()

    End Sub

    Sub BuatTabel()

        With (LV)

            .Columns.Add("NIK", 70, HorizontalAlignment.Center)

            .Columns.Add("Nama", 70, HorizontalAlignment.Left)

            .Columns.Add("Jabatan", 70, HorizontalAlignment.Left)

            .Columns.Add("Gaji", 70, HorizontalAlignment.Left)

            .Columns.Add("Status", 95, HorizontalAlignment.Left)

            .Columns.Add("Jlh_Anak", 70, HorizontalAlignment.Center)

            .Columns.Add("Lembur", 70, HorizontalAlignment.Center)

            .Columns.Add("Jlh_Jam_Lembur", 60, HorizontalAlignment.Center)

            .Columns.Add("Tjng_Istri", 60, HorizontalAlignment.Center)

            .Columns.Add("Tjng_Anak", 70, HorizontalAlignment.Center)

            .Columns.Add("Bonus Lembur", 90, HorizontalAlignment.Center)

            .Columns.Add("Pajak", 70, HorizontalAlignment.Center)

            .Columns.Add("Ttl_Gaji", 70, HorizontalAlignment.Center)

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

        End With

    End Sub

    Sub IsiTable()

        Dim lst As New ListViewItem

        With lst

            .Text = Nik.Text

            .SubItems.Add(Nama.Text)

            .SubItems.Add(jabatan.Text)

            .SubItems.Add(GajiPokok.Text)

            .SubItems.Add(Status.Text)

            .SubItems.Add(jmlhanak.Text)

            .SubItems.Add(lembur.Text)

            .SubItems.Add(jmlhjamlembur.Text)

            .SubItems.Add(Tunjanganistri.Text)

            .SubItems.Add(TunjanganAnak.Text)

            .SubItems.Add(BonusLembur.Text)

            .SubItems.Add(Pajak.Text)

            .SubItems.Add(TotalGaji.Text)

            LV.Items.Add(Lst)

        End With

    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged

        Select Case Nik.Text

            Case "09111"

                Nama.Text = "Amir"

            Case "09112"

                Nama.Text = "Andra"

            Case "09113"

                Nama.Text = "Reza"

            Case "09114"

                Nama.Text = "Sara"

            Case "09115"

                Nama.Text = "Riza"

        End Select

    End Sub

    Sub Addjumlah()

        Dim i As Integer

        For i = 1 To 10

            jmlhanak.Items.Add(i)

        Next

    End Sub

    Sub OK()

        Dim xGaji, xPajak, xTotal, xIstri, xAnak, xlembur As Double

If Status.Text = "Belum Menikah" Then

            jmlhanak.Text = 0

            TunjanganAnak.Text = 0

            Tunjanganistri.Text = 0

            Pajak.Text = 0.15 * GajiPokok.Text

            TotalGaji.Text = Val(Tunjanganistri.Text) + Val(TunjanganAnak.Text) + Val(GajiPokok.Text) - Pajak.Text

            TunjanganAnak.Text = 0

            Tunjanganistri.Text = 0

        End If

        Select Case jabatan.Text

            Case "Mandor"

                xGaji = 1750000

            Case "Kepala Bagian"

                xGaji = 2500000

            Case "Staf"

                xGaji = 1250000

        End Select

        GajiPokok.Text = Format(xGaji, "###,##,#")

        Select Case Status.Text

            Case "Menikah"

                xIstri = 0.09 * xGaji

                If jmlhanak.Text = 1 Then

                    xAnak = 0 = 0.03 * xGaji

                ElseIf jmlhanak.Text >= 2 Then

                    xAnak = 0.07 * xGaji

                Else

                    xAnak = 0

                End If

        End Select

        Select Case lembur.Text

            Case "Tidak"

                jmlhjamlembur.Text = 0

                jmlhjamlembur.Enabled = False

                bonuslembur.Text = 0

                bonuslembur.Enabled = False

            Case "Ya"

                jmlhjamlembur.Enabled = True

                If Not jmlhjamlembur.Text = "" Then

                    Select Case jabatan.Text

                        Case "Mandor"

                            bonuslembur.Text = 7500 * jmlhjamlembur.Text

                        Case "Staff"

                            bonuslembur.Text = 5000 * jmlhjamlembur.Text

                        Case "Kepala Bagian"

                            bonuslembur.Text = 10000 * jmlhjamlembur.Text

                    End Select

                End If

        End Select

        If Not GajiPokok.Text = "" Then

            Pajak.Text = GajiPokok.Text * 0.015

            Pajak.Text = Format(xPajak, "###,##,#")

        End If

        TunjanganAnak.Text = Format(xAnak, "###,##,#")

        Tunjanganistri.Text = Format(xIstri, "###,##,#")

        xTotal = Val(xGaji) + Val(Tunjanganistri.Text) + Val(TunjanganAnak.Text) + Val(lembur.Text) - xPajak

        TotalGaji.Text = Format(xTotal, "###,##,#")

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        IsiTable()

        Nik.Text = ""

        Nama.Text = ""

        jabatan.Text = ""

        GajiPokok.Text = ""

        Status.Text = ""

        jmlhanak.Text = ""

        lembur.Text = ""

        jmlhjamlembur.Text = ""

        bonuslembur.Text = ""

        TunjanganAnak.Text = ""

        Tunjanganistri.Text = ""

        Pajak.Text = ""

        TotalGaji.Text = ""

    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        OK()

    End Sub

    Sub Hapus()

        Nik.Text = ""

        Nama.Text = ""

        jabatan.Text = ""

        GajiPokok.Text = ""

        Status.Text = ""

        jmlhanak.Text = ""

        jmlhjamlembur.Text = ""

        bonuslembur.Text = ""

        Pajak.Text = ""

        TunjanganAnak.Text = ""

        Tunjanganistri.Text = ""

        TotalGaji.Text = ""

        lembur.Text = ""

        jmlhanak.Enabled = True

        Nik.Focus()

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        If Not jmlhanak.Text = "" Then

            Call OK()

        End If

        If Status.Text = "Belum Menikah" Then

            jmlhanak.Text = 0

            TunjanganAnak.Text = 0

            Tunjanganistri.Text = 0

            jmlhanak.Enabled = False

        End If

        If Status.Text = "Menikah" Then

            jmlhanak.Enabled = True

        End If

    End Sub

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

        Call Proses()

        Dim xpajak As Double

        xPajak = 0.015 * GajiPokok.Text

        Pajak.Text = Format(xPajak, "###,##,#")

    End Sub

    Sub Proses()

        If Not jmlhanak.Text = "" Then

            Call OK()

        Else

            TunjanganAnak.Text = 0

            Tunjanganistri.Text = 0

        End If

    End Sub

    Private Sub bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click

        Call Hapus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged

        Call OK()

        If Status.Text = "Ya" Then

            bonuslembur.Enabled = True

        End If

        If Status.Text = "Tidak" Then

            bonuslembur.Enabled = False

        End If

    End Sub

    Private Sub bonuslembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bonuslembur.TextChanged

        Call OK()

    End Sub

    Private Sub btnhapustabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapustabel.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click

        LV.Items.Clear()

    End Sub

End Class