Jawaban Dari Quis No 02

Nama : Berlan Hutajulu
Npm : 0911141
Kelas : TI-M 0911

Contoh Kasus lihat Disini...

Listing Program

Public Class Form1

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

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
        Dim i As String
        Dim x As String
        Dim y As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
        y = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If i = "09" Then
            tahun.Text = "2009"
        ElseIf i = "10" Then
            tahun.Text = "2010"
        ElseIf i = "11" Then
            tahun.Text = "2011"
        ElseIf i = "12" Then
            tahun.Text = "2012"
        End If
        If x = "0" Then
            jenjang.Text = "D3"
            If y = "03" Then
                jurusan.Text = "Komputerisasa Akuntansi"
            ElseIf y = "23" Then
                jurusan.Text = "Manejemen Informatika"
            End If
        ElseIf x = "1" Then
            jenjang.Text = "S1"
            If y = "11" Then
                jurusan.Text = "Teknik-Informatika"
            ElseIf y = "33" Then
                jurusan.Text = "Sistem Informasi"
            End If
        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        tahun.Text = ""
        nhuruf.Text = ""
        n_angka.Text = ""
    End Sub

    Sub rancangtabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 90, HorizontalAlignment.Center)
        LV.Columns.Add("N_Huruf", 80, HorizontalAlignment.Center)
        LV.Columns.Add("N_Angka", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jurusan.Text)
        lst.SubItems.Add(jenjang.Text)
        lst.SubItems.Add(tahun.Text)
        lst.SubItems.Add(n_angka.Text)
        lst.SubItems.Add(nhuruf.Text)
        LV.Items.Add(lst)
    End Sub


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

    Private Sub btnhsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhsemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnhdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
    End Sub

    Private Sub n_angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles n_angka.KeyPress
        If e.KeyChar = Chr(13) Then
            If n_angka.Text >= 80 Then
                nhuruf.Text = "A"
            ElseIf n_angka.Text >= 70 Then
                nhuruf.Text = "B"
            ElseIf n_angka.Text >= 60 Then
                nhuruf.Text = "C"
            ElseIf n_angka.Text >= 50 Then
                nhuruf.Text = "D"
            Else
                nhuruf.Text = "E"
            End If
        End If
    End Sub
End Class



Hasil Program....

Jawaban Dari Quis No 03

Nama : Berlan Hutajulu
NPM : 0911141
Kelas : TI-M0911

Kasus lihat Disini
=======================================================

Listing Program Login

=======================================================

 Public Class Login

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        If user.Text = "Berlan Hutajulu" And pasword.Text = "0911141" Then
            menufile.Show()
            Me.Hide()
        Else
            MsgBox("Pasword Anda Salah,,,Coba Ulangi Sekali Lagi....!!!")
            user.Text = ""
            pasword.Text = ""
        End If
    End Sub=======================================================
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class

=======================================================

Tampilan Program Login, kalau berhasil tampilan menu akan muncul....

 =======================================================

 =======================================================

kalau tidak berhasil, maka akan keluar tampilan message box  seperti ini..

 =======================================================

 

 Listing Program Menu..

=======================================================
Public Class menufile


    Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
        Penggajian_Karyawan.Show()
    End Sub
=======================================================
    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub
End Class
=======================================================
Tampilan program Menu.
 =======================================================

 =======================================================
Listing program Penggajian Pegawai
=======================================================

Public Class Penggajian_Karyawan

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "0911141" Then
            nama.Text = "Berlan Hutajulu "
        ElseIf nip.Text = "000111" Then
            nama.Text = "Mordong"
        ElseIf nip.Text = "998908" Then
            nama.Text = "Jaultop"
        End If
    End Sub
=======================================================
    Private Sub data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("0911141")
        nip.Items.Add("000111")
        nip.Items.Add("998908")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staf")
        status.Items.Add("Menikah")
        status.Items.Add("Tidak-Menikah")
        rancangtabel()
    End Sub
=======================================================
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tunistri.Text = (9 / 100 * gaji.Text)
            junak.Enabled = True
            tunak.Enabled = True
        ElseIf status.Text = "Tidak-Menikah" Then
            tunistri.Text = "0"
            tunak.Text = "0"
            junak.Text = "0"
        End If
        pajak.Text = (1.5 / 100) * (gaji.Text)
    End Sub
=======================================================
    Private Sub junak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles junak.KeyPress
        If e.KeyChar = Chr(13) Then
            If junak.Text = "1" Then
                tunak.Text = (junak.Text) * (3 / 100 * gaji.Text)
            ElseIf junak.Text = "2" Then
                tunak.Text = (junak.Text) * (7 / 100 * gaji.Text)
            ElseIf junak.Text >= 2 Then
                tunak.Text = (2 * 7 / 100 * gaji.Text)
            End If
        End If
    End Sub
=======================================================
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If status.Text = "Menikah" Then
            gatal.Text = Val(gaji.Text) + (tunistri.Text) + (tunak.Text) + (galem.Text) - (pajak.Text)
        ElseIf status.Text = "Tidak-Menikah" Then
            gatal.Text = Val(gaji.Text) + (galem.Text) - (pajak.Text)
        End If

    End Sub
=======================================================
    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Kepala Bagian" Then
            gaji.Text = "2500000"
        ElseIf jabatan.Text = "Mandor" Then
            gaji.Text = "1750000"
        ElseIf jabatan.Text = "Staf" Then
            gaji.Text = "1250000"
        End If
    End Sub
=======================================================
    Sub rancangtabel()
        LV.Columns.Add("NIP", 40, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 60, HorizontalAlignment.Center)
        LV.Columns.Add("T_Istri", 60, HorizontalAlignment.Center)
        LV.Columns.Add("J_Anak", 60, HorizontalAlignment.Center)
        LV.Columns.Add("T_Anak", 60, HorizontalAlignment.Center)
        LV.Columns.Add("J_Lembur", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Lembur", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 40, HorizontalAlignment.Center)
        LV.Columns.Add("Total Gaji", 50, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
=======================================================
    Sub masuktabel()
        Dim lst As New ListViewItem
        lst.Text = nip.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(tunistri.Text)
        lst.SubItems.Add(junak.Text)
        lst.SubItems.Add(tunak.Text)
        lst.SubItems.Add(Lembur.Text)
        lst.SubItems.Add(galem.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(gatal.Text)
        LV.Items.Add(lst)

    End Sub
=======================================================
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        gatal.Text = ""
        status.Text = ""
        tunistri.Text = ""
        junak.Text = ""
        Lembur.Text = ""
        galem.Text = ""
        tunak.Text = ""
        pajak.Text = ""
    End Sub
=======================================================
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
=======================================================
    Private Sub btnsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsemua.Click
        LV.Items.Clear()
    End Sub
=======================================================
    Private Sub btnsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsatu.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
=======================================================
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        masuktabel()
    End Sub
=======================================================
    Private Sub Lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lembur.TextChanged
        If jabatan.Text = "Kepala Bagian" Then
            galem.Text = (Lembur.Text * 10000)
        ElseIf jabatan.Text = "Mandor" Then
            galem.Text = (Lembur.Text * 7500)
        ElseIf jabatan.Text = "Staf" Then
            galem.Text = (Lembur.Text * 5000)
        End If
    End Sub
End Class
=======================================================

file:///C:/Users/pc/AppData/Local/Temp/msohtmlclip1/01/clip_image001.jpg

file:///C:/Users/pc/AppData/Local/Temp/msohtmlclip1/01/clip_image001.jpg

HACK FLASHDISK MENJADI HARDDISK

Description: http://1.bp.blogspot.com/_lUD44ahahN4/TSVqXW-osiI/AAAAAAAAAWw/NLnLGFdpOS0/s1600/harddisk+termahal.jpg

Apakah diantara anda ada yang pernah mau mengubah flashdisknya menjadi harddisk sehingga bisa dipartisi tetapi anda tidak tahu caranya...? kalo memang demikian, anda jangan khawatir karena disini saya akan memberikan caranya bagaimana mengubah flashdisk menjadi terbaca harddisk di komputer anda. sebelumnya silahkan download dulu software nya yaitu lexar_usb_format Disini

Langkah-langkahnya sebagai berikut:

1. Silahkan anda masukan flashdisk ke komputer

2. jalankan lexar_usb_format

3. Pilih Lokasi Flashdisk anda kemudian klik Flip Removeable Bit seperti gambar dibawah ini :

4. Setelah proses selesai kemudian anda akan disuruh untuk mencabut flashdisk anda kemudian masukan ke komputer kembali.untuk melihat perubahannya silahkan buka explore lalu klik kanan di flashdisk, nah dah berubah kan...?

Ok, sekarang bagaimana membuat partisi di flashdisknya...? Berikut langkah-langkahnya :

1. Jalankan Run dari starmenu > Run atau bisa juga menekan tombol Window+R di keyboard

2. Ketikkan diskmgmt.msc lalu enter

3. Di jendela Diskmanagement silahkan anda pilih flashdisk yang udah anda ubah tadi kemudian klik kanan dan pilih Delete kemudian klik kanan lagi dan pilih Make Partition

Selamat mencoba ya.

Tips Mempercepat Kerja Komputer: Bersih-bersih Hardisk

Bismillah…

Ini kisah saya dua hari lalu. Setelah hampir satu tahun memiliki laptop yang diisntall windows, saya merasakan bahwa kerja laptop saya semakin lambat. Ada apakah gerangan? Jangan-jangan sudah dekat dengan ajal? Setalah bertanya kesana-kemari maka dapatlah saya jawabannya. Ternyata hardisk saya perlu dibersihkan agar kerja komputer semakin cepat.
Langsung saja kita mulai langkah-langkah ‘bersih-bersih’ hardisk untuk mempercepat kerja komputer:
1. Disk Cleanup

• Buka My Computer, klik kanan Drive kamu (C, D, E, atau yang lain), pilih menu Properties, klik tombol Disk Cleanup, maka proses scanning (bukan scanning virus) akan berjalan.
  
  
• Setelah proses scanning makan muncul jendela Disk Cleanup. Centang bagian-bagian yang ingin kamu hapus lalu tekan Ok. Mungkin jumlah centang di tempat kamu bisa lebih banyak atau lebih sedikit
  

2. Defrag Hard Disk-mu
Windows memiliki program bawaan untuk melakukan defrag hard disk. Tapi saya sarankan kamu memakai Auslogics. Saya lebih suka software ini karena lebih berwarna . Auslogics akan memberitahu berapa persen peningkatan kecepatan hard disk setelah di-defrag.
3. Perbaiki Bad Sector

• Buka My Computer, klik kanan Drive kamu (C, D, E, atau yang lain), pilih menu Properties, klik tab Tools.
• Klik tombol Check Now untuk menu Error-Checking, maka akan muncul jendela Check Disk.
  
• Pada jendela tersebut, centang menu Scan (kamu juga bisa mencentang semua menu) lalu klik Start.
• Saya lupa, perlu restart atau tidak. Silakan dicoba saja.
  

Semoga bermanfaat. Kali aja saya dan yang nularin ilmu dapat pahala .
~sumber: informasi dari sahabat-sahabat saya dan ternyata dedengkot sumbernya dari sini.

Menghilangkan Menu Shutdown, Restart, Sleep dan Hibernate

Karena keperluan tertentu, mungkin saja suatu saat anda ingin membuat  komputer supaya tidak bisa dimatikan. Atau misalnya anda sedang menjalankan program atau proses tertentu di komputer tetapi harus meninggalkan ruangan. Untuk mencegah teman atau siapapun  mematikan komputer, maka salah satu caranya adalah dengan mendisable fungsi Shutdown, Restart, Sleep atau Hibernate.

Caranya:

• Klik Start
• Ketik gpedit.msc pada kolom Search Programs and Files  (kolom RUN pada Windows XP)
Klik Enter, maka akan keluar jendela Local Group Policy Editor
• Masuk ke User Configuration --> Administrative Templates --> Start Menu And Taskbar

Remove and prevent access to the shutdown ( Windows 7)

• Untuk Windows 7, pada jendela sebelah kanan cari : Remove and prevent access to the shutdown, Restart, Sleep, and Hibernate, kalau sudah ketemu silakan Dobel Klik
• Untuk  Windows XP,  pada jendela sebelah kanan cari : Remove and prevent access to the Shut Down command, kalau sudah ketemu silakan Dobel Klik.

Remove and prevent access to the Shut Down command ( Windows XP )

• Pilih Enable, kemudian klik OK

• Silakan coba hasilnya, shutdown, Restart, Sleep, Hibernate sudah tidak bisa dilakukan, begitupun kalau anda menekan Ctrl+Alt+Del, menu Shutdownnya tetep disable.

• Untuk menormalkan kembali tinggal ikuti semua langkah di atas, tinggal mengganti pilihan dari Enable ke Disable pada langkah terakhir.

• Ketika sedang dalam keadaan Disable, sebenarnya kita masih bisa melakukan shutdown caranya yaitu dengan mengetik di search  atau RUN command  :
shutdown /s  (untuk shutdown)
shutdown /r  (untuk restart ).

MENGGUNAKAN WEBCAM DENGAN BEBERAPA APLIKASI SECARA BERSAMAAN DENGAN MANYCAM

Menggunakan Webcam Dengan Beberapa Aplikasi Secara Bersamaan Dengan ManyCam. Saya sering melakukan chatting dengan aplikasi chatting yang berbeda dalam waktu yang bersamaan, biasanya saya menggunakan aplikasi CAMFROG dan YAHOO MESSENGER (kedua aplikasi ini yang paling populer setidaknya untuk saat-saat ini). Ini dikarenakan tidak semua teman chatting saya mempunyai atau mengenal kedua-duanya aplikasi chatting tersebut. Kebanyakan mereka hanya mempunyai atau mengenal aplikasi Yahoo Messenger. Namun ada juga yang hanya mempunyai atau mengenal aplikasi CAMFROG.

Masalahnya adalah ketika saya menjalankan kedua aplikasi chatting tersebut secara bersamaan, saya hanya bisa menggunakan Webcam untuk salah satu aplikasi saja. Misalkan ketika saya sedang menggunakan Webcam pada aplikasi CAMFROG maka pada saat itu saya tidak bisa menggunakan Webcam tersebut untuk aplikasi Yahoo Messenger. Dan juga sebaliknya ketika saya sedang menggunakan Webcam ketika berchatting dengan Yahoo Messenger maka pada saat itu saya tidak bisa menggunakannya untuk aplikasi CAMFROG.

Namun masalah tersebut hilang ketika saya menemukan sebuah aplikasi gratis (freeware) yang bernama ManyCam. ManyCam adalah aplikasi yang memungkinkan kita menggunakan Webcam dengan beberapa aplikasi lainnya dalam waktu yang bersamaan. Contoh, sementara kita menggunakan webcam dengan menggunakan aplikasi Yahoo Messenger maka pada waktu yang bersamaan, kita pun dapat menggunakan webcam untuk aplikasi chatting lainnya, seperti MSN Messenger, ICQ, Skype, AIM, PalTalk, CamFrog, bahkan Youtube.

Setelah menginstal program ini, kita perlu mengatur ManyCam sebagai alat input utama untuk program yang ingin kita gunakan. ManyCam akan berjalan secara otomatis pada saat kita mengaktifkan webcam melalui aplikasi ini.

Dengan aplikasi ManyCam, kita dapat menambahkan teks, bendera suatu negara, tampilan jam pada layar video kita, seperti gambar di bawah ini.

Selain itu, kita juga dapat mengubah tampilan latar belakang (background) dan latar depan (foreground) pada tampilan webcam kita. Fitur unik lainnya adalah kita dapat meletakkan sepasang mata kaca mata lucu pada wajah kita yang akan mengikuti dari gerakan wajah atau mata kita.

Kita pun dapat memilih efek salju (efek snow) yang bertaburan pada tampilan webcam kita yang mungkin dapat menggambarkan di mana hati/pikiran kita sedang sejuk atau tentram. Ada juga efek api yang menyala-nyala (efek flame), efek air (efek water), efek matrik, dan masih banyak efek-efek lainya yang dapat kita coba-coba sendiri.

Oh, iya satu lagi, selain bersumber dari webcam, kita pun dapat menampilkan movie (film) dengan memilih tab Source kemudian pilih Movies lalu pilih tombol open lalu pilih folder tempat menyimpan film kita pada komputer. Dengan begitu, kita dapat menampilkan film yang sedang kita putar pada tampilan video (webcam) ketika kita sedang chatting. Jadi teman yang sedang chatting dengan kita akan melihat film yang sedang kita putar pada tampilan webcam kita. Selain itu, kita juga dapat menampilkan tampilan desktop, blank image, still image (gambar diam), dan juga playlist (menampilkan gambar secara bergantian).

Untuk lebih jelasnya, silakan di coba sendiri-sendiri, ya.

Untuk download, silakan klik ini http://download.manycam.com.

Dan gambar di bawah ini adalah contoh ketika saya melakukan chatting dengan efek-efek yang saya dapatkan dengan aplikasi ManyCam. Yang satu webcam dengan aplikasi Yahoo Messenger dan yang satu webcam dengan aplikasi Camfrog.

SELAMAT MENCOBA!!!