Tugas Quiz

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KP.Items.Add("TOK-MED-100")
        KP.Items.Add("PAB-TAN-101")
        KP.Items.Add("SWA-TAN-102")
        KP.Items.Add("PAB-MED-103")
        KP.Items.Add("RUM-MED-104")
    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(KP.Text, 3)



        If x = "100" Then
            nama.Text = "eko juliansyah"
        ElseIf x = "101" Then
            nama.Text = "jaya "
        ElseIf x = "102" Then
            nama.Text = "Melani"
        ElseIf x = "103" Then
            nama.Text = "Andre"
        End If


        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then
            HargaM3.Text = 500
            BBeban.Text = 250000
            Tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HargaM3.Text = 500
            BBeban.Text = 25000
            Tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            HargaM3.Text = 500
            BBeban.Text = 10000
            Tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            HargaM3.Text = 200
            BBeban.Text = 15000
            Tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If x = "MED" Then
            Daerah.Text = "Medan"
        ElseIf x = "TAN" Then
            Daerah.Text = "Tanjung"
        End If
    End Sub

    Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)
            Pajak.Text = 0.01 * TTagihan.Text
            Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)
        End If
    End Sub

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

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        KP.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        TTagihan.Text = ""
        HargaM3.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Pemakaian.Text = ""
        Daerah.Text = ""
        BBeban.Text = ""
    End Sub
End Class

tugas: mesran

contoh program Cb.net sederhana

di bawah ini adalah cara gimana untuk membuat program seperti di atas!!
selamat mencoba..


Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110298")
        NPM.Items.Add("13111057")
        NPM.Items.Add("12111009")
        NPM.Items.Add("10111077")

        KodeDosen.Items.Add("982")
        KodeDosen.Items.Add("973")
        KodeDosen.Items.Add("957")
        KodeDosen.Items.Add("999")


        KodeMatakuliah.Items.Add("A23")
        KodeMatakuliah.Items.Add("A24")
        KodeMatakuliah.Items.Add("A25")
        KodeMatakuliah.Items.Add("A26")
        KodeMatakuliah.Items.Add("A27")
        KodeMatakuliah.Items.Add("A28")
        KodeMatakuliah.Items.Add("A29")


        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim x, y As String
        x = Microsoft.VisualBasic.Left(NPM.Text, 3)
        y = Microsoft.VisualBasic.Right(NPM.Text, 3)

        Select Case NPM.Text
            Case "12110298"
                Nama.Text = "benny syahputra"
            Case "13111057"
                Nama.Text = "eko juliansyah"
            Case "12111009"
                Nama.Text = "Rio"
            Case "10111077"
                Nama.Text = "Jayen"
        End Select

        Select Case x
            Case "131"
                Jenjang.Text = "DII"
            Case "121"
                Jenjang.Text = "S1"
            Case "121"
                Jenjang.Text = "S1"
            Case "101"
                Jenjang.Text = "DIII"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "298"
                Jurusan.Text = "Teknik Informatika"
            Case "057"
                Jurusan.Text = "Managemen informatika"
            Case "009"
                Jurusan.Text = "Sistem Informasi"
            Case "077"
                Jurusan.Text = "Manajemen informatika"
            Case Else
                Jurusan.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "982"
                NamaDosen.Text = "M.Syahrizal, M.kom"
            Case "973"
                NamaDosen.Text = "Mesran S.Kom,M.Kom"
            Case "957"
                NamaDosen.Text = "Hotman S.kom"
            Case "999"
                NamaDosen.Text = "Yasir M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        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 = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub
    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A23"
                NamaMatakuliah.Text = "Sistem Basis data"
            Case "A24"
                NamaMatakuliah.Text = "matriks linier transformasi"
            Case "A25"
                NamaMatakuliah.Text = "Programan visual"
            Case "A26"
                NamaMatakuliah.Text = "Teknik Informatika"
            Case "A27"
                NamaMatakuliah.Text = "Managemen Sistem"
            Case "A28"
                NamaMatakuliah.Text = "teknik digital"
            Case "A29"
                NamaMatakuliah.Text = "visual basic"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

    Private Sub NilaiUAS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiUAS.SelectedIndexChanged

    End Sub
End Class


link pak mesran

install WeChat di PC Komputer dan Laptop

Tips Cara Install WeChat di PC Komputer dan Laptop - Aplikasi WeChat yang dari mulai muncul di iklan-iklan mulai saat ini sudah banyak yang menggunakannya. Aplikasi yang mampu membuat ketagihan penggunanya tersebut di karenakan banyaknya fitur seperti mengirim pesan, video, foto maupun mengirim suara. WeChat sendiri yang hanya bisa di install di platform seperti Android, iOS dan Blackberry sangat di sayangkan. Lalu bagaimana cara install WeChat di PC Komputer dan Laptop? 

Berikut ini akan saya berikan tips cara install WeChat di PC komputer dan Laptop agar anda bisa melakukan asiknya ber chatting ria layaknya ber WeChat di Blackberry. Akan tetapi sebelum Anda menjalankan aplikasi WeChat di komputer maupun Laptop, anda di haruskan menginstall emulator android yang bernama Bluestack. Anda bisa mengunduh emulator tersebut di Bluestack.com.

1. Langkah pertama cara menjalankan WeChat di PC Komputer maupun Laptop adalah dengan bantuan aplikasi Tool Chat (silahkan cari di google). Install Tool Chat dan jalankan.

2. Dalam Layar Tool Chat ada menu App Search. Klik dan ketik "WeChat".

3. Pilih Icon WeChat, dan install sekali lagi di komputer.

4. Setelah sukses menginstall WeChat, akan keluar menu Login pertanda anda sukses menginstall WeChat di komputer dan Laptop.

Dalam cara install WeChat di PC komputer dan Laptop ini sebenarnya ada cara lain bila anda tak mau menginstall bluestack. Dengan bantuan dari web.wechat.com/?lang=en anda pun bisa ngobrol, mengirim video maupun suara layaknya WeChat - an di Blacberry. Tetapi anda akan dimintai scan QRcode sebagai login ke aplikasi WeChat. Baca juga "cara install Kakao Talk di Blackberry".

Cara Memasang Wifi Sendiri buat agan

Cara memasang WiFi sendiri dan alat yang dibutuhkan ~ Wireless Fidelity atau disingkat WiFi adalah sebuah teknologi terkenal yang memanfaatkan peralatan elektronik untuk bertukar data secara nirkabel (menggunakan gelombang radio) melalui sebuah jaringan komputer, termasuk koneksi Internet berkecepatan tinggi (Wikipedia).
Berikut adalah Alat-alat Yang Dibutuhkan untuk Membuat Jaringan Wifi, seperti Access Point, Antena Omni, Box Access Point, Kabel Pigtail/Kabel Jumper, POE (Power Over Ethernet), Kabel UTP/STP, Penangkal Petir (Lightning Arrester), Tower. 1. Access PointAccess Point adalah alat yang digunakan untuk melakukan pengaturan lalulintas jaringan dari mobile radio ke jaringan kabel atau dari backbone jaringan wireless client/server. Fungsi Access Point ibaratnya sebagai Hub/Switch di jaringan lokal, yang bertindak untuk menghubungkan jaringan lokal dengan jaringan wireless/nirkabel para client/tetangga anda, di access point inilah koneksi internet dari tempat anda dipancarkan atau dikirim melalui gelombang radio, ukuran kekuatan sinyal juga mempengaruhi area coverage yang akan dijangkau, semakin tinggi kekuatan sinyal(ukurannya dalam satuan dBm atau mW) semakin luas jangkauannya.
 2. Antena OmniAntena Omni adalah antena yang memiliki pola radiasi yang menyebar sama rata ke segala arah, sehingga cocok digunakan sebagai antena access point.Untuk memperluas coverage area hingga beberapa Kilometer, anda memerlukan antena omni eksternal, meski ketika anda membeli access point sudah dilengkapi antena omni, namun belumlah cukup karena hanya berkekuatan sekitar 3-5dB, untuk memperluas area jangkauannya, anda memerlukan antena Omni eksternal, yang rata-rata berkekuatan 15dB. Antena Omni ini memiliki pancaran atau radiasi 360 derajat, jadi cocok bisa menjangkau client dari arah mana saja.
 3. Box Access Point Box Access Point berguna untuk melindungi access point anda, maka diperlukan pelindung berbentuk kotak, bisa terbuat dari plastik atau plat besi, rata-rata kotak ini sudah dilengkapi dengan kunci pengaman, dan box ini memang harus diletakkan persis di bawah antena.
 4. Kabel Pigtail/Kabel JumperKabel Pigtail atau kabel jumper berguna untuk menghubungkan antara antena omni dengan dengan access point, perhatikan panjang maksimal yang diperlukan hanya 1 meter, selebih dari itu anda akan mengalami degradasi sinyal(loss dB) Pada kedua ujung kabel terdapat konektor dimana type konektor disesuaikan dengan konektor yang melekat pada access point anda.
 5. POE (Power Over Ethernet)Fungsi dari Power Over Ethernet agar anda tidak perlu repot-repot lagi mengulur kabel listrik ke atas tower, lebih praktis dan hemat.
 6. Kabel UTP/STPMeski namanya perangkat wireless, namun peranan kabel juga diperlukan, kabel UTP/STP ini diperlukan untuk menghubungkan antara access point dengan jaringan kabel pada LAN lokal anda, jadi di bawah dia bisa ditancapkan ke komputer Gateway/Router atau ke Hub/Switch, pilihlah kabel UTP/STP yang berkualitas baik guna meningkatkan kualitas arus listrik yang dilewatkan melalui POE.
 7. Penangkal Petir (Lightning Arrester)Penangkal Petir berguna sebagai pengaman dari petir maka anda memerlukan alat ini yang berfungsi menyalurkan kelebihan beban listrik saat petir menyambar ke kabel pembumian(grounding), komponen ini dipasang pada kabel jumper antara perangkat access point dengan antena eksternal. Grounding untuk penangkal petir umumnya ditanam dengan batang tembaga hingga kedalaman beberapa meter sampai mencapai sumber air. Ingat grounding yang kurang baik akan menyebabkan perangkat wireless tetap rentan terhadap serangan petir.
 8. TowerTower berguna untuk mendapatkan jangkauan area coverage yang maksimal, anda perlu menaikkan antena omni eksternal ke tempat yang tinggi agar client WLAN anda bisa menangkap sinyal radio anda dengan baik.
PERANGKAT CLIENT WLAN : 

1. Pada sisi client, untuk menangkap sinyal dari “antena omni” anda maka perangkat client sbb : Untuk Client yang jaraknya dari tempat pemancar kurang dari 1 KM, lebih ekonomis jika menggunakan wajan bolic, dimana pada perangkat tersebut biasanya sudah dilengkapi dengan USB Wifi, yang disambungkan dengan kabel UTP plus kabel extended USB, jadi langsung anda bisa menancapkannya ke komputer. 

1. Apabila jarak client lebih dari 1 KM, anda membutuhkan 2 perangkat, pertama, access point dan kedua antena eksternal pengarah atau type grid untuk menangkap sinyal dari pemancar anda. Berikut rekomendasinya :

• Jarak 0-1 KM, pakailah wajan bolic lebih ekonomis

• Jarak 1-2 KM, Akses poin merk Edimax/Minitar/Linksys, antenanya anda bisa pakai Yagi atau Backfire

• Jarak 2-3 KM, Akses poin merk Edimax/Minitar/Linksys, antena Grid 24db

• Jarak 3-10 KM. Akses poin merk Senao SL2611/Mikrotik, antena Grid 24db

• Jarak 10 KM lebih, Akses poin merk Senao ECCB3220/Mikrotik, antena Grid 24db

Alat-alat yang dibutuhkan untuk membuat Wifi sendiri
Cara Memasang Wifi Sendiri