Quis online vb

Public Class Form1

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

        bn_kopel.Items.Add("MED")
        bn_kopel.Items.Add("BEL")
        bn_kopel.Items.Add("TEM")
        bn_kopel.Items.Add("MAR")
        bn_kopel.Items.Add("BIN")
        bn_kopel.Items.Add("PAK")

        bn_tipel.Items.Add("TOK")
        bn_tipel.Items.Add("RUM")
        bn_tipel.Items.Add("SWA")
        bn_tipel.Items.Add("PAB")

    End Sub

    Private Sub bn_kopel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bn_kopel.KeyPress
        bn_total.Text = Val(bn_tagihan.Text) + Val(bn_pajak.Text)
    End Sub

    Private Sub bn_kopel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bn_kopel.SelectedIndexChanged
        Select Case bn_kopel.Text
            Case ("MED")
                bn_daerah.Text = "MEDAN"
                bn_pajak.Text = 0.015
            Case ("BEL")
                bn_daerah.Text = "BELAWAN"
                bn_pajak.Text = 0.015
            Case ("TEM")
                bn_daerah.Text = "AKSARA"
                bn_pajak.Text = 0.015
            Case ("MAR")
                bn_daerah.Text = "MARELAN"
                bn_pajak.Text = 0.015
            Case ("BIN")
                bn_daerah.Text = "BINJAI"
                bn_pajak.Text = 0.015
            Case ("PAK")
                bn_daerah.Text = "LUBUK PAKAM"
                bn_pajak.Text = 0.015
        End Select
    End Sub

    Private Sub bn_daerah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bn_daerah.TextChanged
        Select Case bn_daerah.Text
            Case "MED" : bn_daerah.Text = "Medan"
            Case "BEL" : bn_daerah.Text = "Belawan"
            Case "TEM" : bn_daerah.Text = "Aksara"
            Case "MAR" : bn_daerah.Text = "Marelan"
            Case "BIN" : bn_daerah.Text = "Binjai"
            Case "PAK" : bn_daerah.Text = "Pakam"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        bn_besar.Text = bn_meteran.Text - bn_msekarang.Text
        bn_tagihan.Text = bn_biben.Text + (bn_harga.Text + bn_besar.Text)
        bn_total.Text = bn_tagihan.Text * bn_pajak.Text
    End Sub

    Private Sub bn_tipel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bn_tipel.SelectedIndexChanged
        Select Case bn_tipel.Text
            Case ("TOK")
                bn_titok.Text = "TOKO"
                bn_biben.Text = 150000
                bn_harga.Text = 500
            Case ("RUM")
                bn_titok.Text = "RUMAH"
                bn_biben.Text = 500000
                bn_harga.Text = 1500
            Case ("SWA")
                bn_titok.Text = "SWALAYAN"
                bn_biben.Text = 400000
                bn_harga.Text = 1500
            Case ("PAB")
                bn_titok.Text = "PABRIK"
                bn_biben.Text = 1000000
                bn_harga.Text = 10000

        End Select
    End Sub
    Sub TABEL()
        LV.Columns.Add("bn_kopel", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_titok", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_tipel", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_biben", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_meteran", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_msekarang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_besar", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_tagihan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_total", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .Text = bn_kopel.Text
            .SubItems.Add(bn_daerah.Text)
            .SubItems.Add(bn_tipel.Text)
            .SubItems.Add(bn_titok.Text)
            .SubItems.Add(bn_biben.Text)
            .SubItems.Add(bn_meteran.Text)
            .SubItems.Add(bn_msekarang.Text)
            .SubItems.Add(bn_harga.Text)
            .SubItems.Add(bn_besar.Text)
            .SubItems.Add(bn_pajak.Text)
            .SubItems.Add(bn_tagihan.Text)
            .SubItems.Add(bn_total.Text)
            Lv.items.add(x)
        End With
    End Sub

    Private Sub bn_total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bn_total.KeyPress
        If Asc(e.KeyChar) = 13 Then
            bn_total.Text = Val(bn_biben.Text) + Val(bn_harga.Text) + Val(bn_besar.Text)
        End If
    End Sub

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

    Sub BERSIH()
        bn_kopel.Text = ""
        bn_tipel.Text = ""
        bn_titok.Text = ""
        bn_pajak.Text = ""
        bn_meteran.Text = ""
        bn_msekarang.Text = ""
        bn_total.Text = ""
        bn_daerah.Text = ""
        bn_harga.Text = ""
        bn_biben.Text = ""
        bn_tagihan.Text = ""
        bn_besar.Text = ""
    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        BERSIH()
    End Sub

    Private Sub Btnhapus1lv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus1lv.Click
        LV.items.remove(LV.selecteditems(0))
    End Sub
End Class

Mempelajari Tentang Blog

Mesran[dot]Net
menurut saya mesran[dot]net ini sangat bermanfaat bagi semua mahasiswa/i ,karna dapat menanbah ilmu bagi setiap mahasiswa/i terutama bagi mahasiswa/i STMIK Budidarma .
Disini terdapat silabus perkuliahan,modul perkuliahan,bahkan sampai juga E-book juga bisa didownload .
buat kawan-kawan sekalian silahkan berkunjung ke Mesran.blogspot.com
Disana kalian dapat melihat dan mempelajari tentang bahasa pemrograman.

Yuk Belajar Pemograman

Tugas Belajar Bahasa Pemograman
Pada tutorial kali ini, kita bahas bersama contoh program visual basic. Langkah-langkah nya sbb:

1. Buka Microsoft Visual Studio

2. Buka New>>Project

3. Beri nama project anda pada name, kemudian klik ok

4. Setelah itu maka akan keluar From1 di project kita, kemudian desain From tersebut dengan menggunakan Label, Textbox, Combobox, dan Botton yang dapat kata pilih pada proporties.

 5.Listing Program dibawah ini:

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

        npm.Items.Add("12110647")

        npm.Items.Add("12110989")

        kodedosen.Items.Add("001")

        kodedosen.Items.Add("002")

        kmatakuliah.Items.Add("111")

        kmatakuliah.Items.Add("222")

        Dim i As Integer

        For i = 100 To 1 Step -1

            nk.Items.Add(i)

            nt.Items.Add(i)

            nuts.Items.Add(i)

            nuas.Items.Add(i)

        Next

    End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.text

            Case Is = "12110647"

                nama.Text = "florida situmorang"

                jenjang.text = "S1"

                jurusan.Text = "Teknik Informatika"

            Case Is = "12110989"

                nama.Text = "Yulia Hannelore"

                Jenjang.text = "s1"

                jurusan.Text = "Teknik Informatika"

        End Select

    End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        Select Case kodedosen.Text

            Case Is = "001"

                nd.Text = "Tonni Limbong S.kom, M.kom"

            Case Is = "002"

                nd.Text = " Sinar Sinurat S.T, M.kom"

        End Select

    End Sub

Select Case kmatakuliah.Text

            Case Is = "111"

                matakuliah.Text = " Sistem basis data"

            Case Is = "222"

                matakuliah.Text = "Matematika diskrit"

        End Select

    End Sub

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

        nak.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nuts.Text + 0.45 * nuas.Text

        If nak.Text >= 80 Then

            nhu.Text = "A"

            ket.Text = "Lulus"

        ElseIf nak.Text >= 70 Then

            nhu.Text = "B"

            ket.Text = " Lulus"

        ElseIf nak.Text >= 60 Then

            nhu.Text = "C"

            ket.Text = "Lulus"

        ElseIf nak.Text >= 50 Then

            nhu.Text = "D"

            ket.Text = "Tidak Lulus"

        Else

            nhu.Text = "E"

            ket.Text = "Tidak Lulus"

        End If

    End Sub

End Class

Cara membuat MP3 di Blog

Memasang musik di blog selain untuk menambah rasa sepi di blog ternyata bisa juga untuk membuat visitor sendiri betah berlama-lama di blog anda, alasannya karena mereka ingin menyelesaikan lagu yang mereka dengar (kalau pas musik yang di dengar pengunjung sendiri memang pengunjungnya suka) hehehe. Saya sendiri pernah memasang musik di blog saya , tetapi saya kwatir akan ketenangan pengunjung blog yang suka konsentrasi dengan artikel , apalagi blog ini membahas tentang tutorial-tutorial blog yang saya dapatkan dari blog lain terus saya tulis dengan narasi versi sendiri di blog saya.

Tutorial blog menurut saya membutuhkan ketenangan agar mereka bisa fokus terhadap tutorial blog tersebut (ini cuma menurut saya ya, tapi kalau menurut anda sendiri saya tidak tahu) , tapi saya rasa pendapat orang berbeda-beda , jadi kita harus menghargainya.

Cara Memasang Musik di Blog ini saya sajikan khusus sesuai keinginan pemiliknya / Lagu Pilih Sendiri , 

berikut ini Cara Memasang Musik di Blog (Lagu Pilih Sendiri) :

1. Anda harus pergi ke alamat http://www.divine-music.info/ dan jika ingin tutorial blog yang keren, kunjungi www.mestiqui.com

2. Setelah itu anda tinggal memilih nama band yang anda suka , contoh "planet ajaib" akan memilih "Bruno Mars"

3. Setelah itu pilihlah salah satu judul lagu yang anda suka.
4. Kemudian , Copy dan Paste kode yang telah disediakan

5. Lalu letakan kode yang telah di copas di Dasbor Blogger > Tata Letak > Tambahkan Gadget

6. Simpan / Save dan lihat hasilnya

Cara Membuat Facebook

Siapa yang tak kenal facebook? Sebuah situs yang paling sering dikunjungi dalam satu situs media sosial nomor satu di dunia. Facebook sendiri lahir sejak 2004, buah karya dari Mark Zuckerberg, seorang mahasiswa yang saat ini termasuk salah satu orang terkaya di dunia.

Facebook sebenarnya adalah media sosial di mana setiap orang dapat mendaftar di sana. Siapapun dapat berbagi Facebook mereka, apa yang mereka rasakan, berbagi foto, berbagi catatan, atau bahkan menjual produk dan jasa melalui facebook. Beberapa orang membuat facebook memiliki beberapa tujuan. Salah satu dari mereka pasti mencari teman, pacar, atau berniaga.

Namun, ada beberapa orang awam dan tidak tahu bagaimana Cara Membuat Facebook. Nah, kali ini saya akan berbagi bagaimana cara membuat facebook dengan mudah dan cepat. Sebelumnya anda harus menyiapkan sebuah e-mail untuk mendaftar Facebook.

- Langkah pertama Kunjungi ke facebook.com pada browser Web Anda, selanjutnya isi formulir pendaftaran dengan data lengkap yang anda punya.

- Setelah semua diisi dengan benar, klik Daftar. Kemudian Anda akan masuk ke halaman berikutnya.

- Anda dapat menemukan teman dengan pencarian ini. atau anda dapat menemukan teman melalui e-mail yang Anda kirimkan melalui email atau yang lain. Tapi di sini saya lewati dan pergi ke langkah berikutnya.

- Di sini Anda akan diminta untuk mengisi data profil Anda. Silahkan mengisi data Anda sesuai dengan data asli. Agar teman-teman Anda bisa dengan mudah mencari akun facebook anda. Ketika Anda selesai, cukup klik save and continue.

- Pada langkah 3, Anda dapat meng-upload foto yang Anda inginkan. Tapi di sini saya belum meng-upload foto. Jika Anda memiliki, Anda dapat mengklik Simpan dan lanjutkan. Kemudian Anda akan diarahkan ke profil Anda.

- Anda akan diminta untuk membuka e-mail Anda untuk mengkonfirmasi bahwa andalah si pemilik akun tersebut.

- Klik link konfirmasi di email yang Anda masukkan.

- Kemudian Anda akan diarahkan ke profil facebook Anda. Selamat, Anda telah selesai membuat akun Facebook Anda