QUIZ ONLINE

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, Listview dan Botton yang dapat kata pilih pada proporties.

5. Listing Program

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        NPM.Items.Add("12110647")
        NPM.Items.Add("12110878")
        NPM.Items.Add("12110333")

        KDOSEN.Items.Add("01")
        KDOSEN.Items.Add("02")

        KMATAKUL.Items.Add("555")
        KMATAKUL.Items.Add("666")

        Dim f As Integer
        For f = 100 To 1 Step -1
            NUTS.Items.Add(f)
            NKEHADIRAN.Items.Add(f)
            NTUGAS.Items.Add(f)
            NUAS.Items.Add(f)
        Next

    End Sub

    Sub buattabel()
        With ListView1
            .Columns.Add("NPM", 75, HorizontalAlignment.Center)
            .Columns.Add("NAMA", 120, HorizontalAlignment.Center)
            .Columns.Add("JENJANG", 60, HorizontalAlignment.Center)
            .Columns.Add("JURUSAN", 100, HorizontalAlignment.Center)
            .Columns.Add("KDOSEN", 75, HorizontalAlignment.Center)
            .Columns.Add("NDOSEN", 80, HorizontalAlignment.Center)
            .Columns.Add("KMATAKUL", 75, HorizontalAlignment.Center)
            .Columns.Add("NKEHADIRAN", 60, HorizontalAlignment.Center)
            .Columns.Add("NTUGAS", 60, HorizontalAlignment.Center)
            .Columns.Add("NUTS", 60, HorizontalAlignment.Center)
            .Columns.Add("NUAS", 60, HorizontalAlignment.Center)
            .Columns.Add("NAKHIR", 70, HorizontalAlignment.Center)
            .Columns.Add("NHURUF", 60, HorizontalAlignment.Left)
            .Columns.Add("KET", 60, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(NAMA.Text)
        lst.SubItems.Add(JENJANG.Text)
        lst.SubItems.Add(JURUSAN.Text)
        lst.SubItems.Add(KDOSEN.Text)
        lst.SubItems.Add(NDOSEN.Text)
        lst.SubItems.Add(KMATAKUL.Text)
        lst.SubItems.Add(NKEHADIRAN.Text)
        lst.SubItems.Add(NTUGAS.Text)
        lst.SubItems.Add(NUTS.Text)
        lst.SubItems.Add(NUAS.Text)
        lst.SubItems.Add(NAKHIR.Text)
        lst.SubItems.Add(NHURUF.Text)
        lst.SubItems.Add(KET.Text)
        ListView1.View = View.Details
        ListView1.Items.Add(lst)
    End Sub


    Private Sub NPM_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 = "Tehnik Informatika"
            Case Is = "12110878"
                NAMA.Text = "Herlina Situmorang"
                JENJANG.Text = "S1"
                JURUSAN.Text = "Tehnik Informatika"
            Case Is = "12110333"
                NAMA.Text = "Putri ani situmorang"
                JENJANG.Text = "S1"
                JURUSAN.Text = "Tehnik Informatika"
        End Select
    End Sub

    Private Sub KDOSEN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDOSEN.SelectedIndexChanged
        Select Case KDOSEN.Text
            Case Is = "01"
                NDOSEN.Text = "M.Syahrizal, S.kom, M.kom"

            Case Is = "02"
                NDOSEN.Text = "Indra M. Sarkis, ST, M.kom"
        End Select
    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        NAKHIR.Text = Val(0.1 * NKEHADIRAN.Text) + Val(0.15 * NTUGAS.Text) + Val(0.3 * NUTS.Text) + Val(0.45 * NUAS.Text)

        If NAKHIR.Text >= 80 Then
            NHURUF.Text = "A"
            KET.Text = "Lulus"
        ElseIf NAKHIR.Text >= 70 Then
            NHURUF.Text = "B"
            KET.Text = " Lulus"
        ElseIf NAKHIR.Text >= 60 Then
            NHURUF.Text = "C"
            KET.Text = "Lulus"
        ElseIf NAKHIR.Text >= 50 Then
            NHURUF.Text = "D"
            KET.Text = "Tidak Lulus"
        Else
            NHURUF.Text = "E"
            KET.Text = "Tidak Lulus"
        End If

        isitabel()
        NPM.Text = ""
        NAMA.Text = ""
        JENJANG.Text = ""
        JURUSAN.Text = ""
        KDOSEN.Text = ""
        NDOSEN.Text = ""
        KMATAKUL.Text = ""
        NKEHADIRAN.Text = ""
        NTUGAS.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NAKHIR.Text = ""
        NHURUF.Text = ""
        KET.Text = ""
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    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 Hasilnya: 

 

Serunya Belajar Bahasa Pemograman di Mesan[dot]net

Mau belajar bahasa pemograman????

Silahkan gabung ke Mesran[dot]net
Di Mesran[dot]net kita dapat belajar bahasa pemograman, seperti  VB,VB.Net, Delphi,  Pascal, C++/C, Java, PHP serta program yang berorientasi Database.
Selain itu kita dapat Mendownload Ebook, Program, dan Software.

Tidak hanya itu Mesran[dot]net juaga banyak menginformasikan tentang workshop-workshop jadi buat teman-teman yang lagi bingung atau bosan buka situs yang itu-itu aja mendingan langsung aja kunjungi website Mesran.net

Saya yakin selain menambah ilmu, disana juga anda akan menemukan wawasan yang lebih luas lagi tentang ilmu-ilmu pemrograman khususnya....
Sekian dulu ya ulasan saya tentang Mesran[dot]net semoga bermanfaat bagi kalian semua yang ingin menambah ilmu pemrogramannya.

Contoh Penggunaan LISTVIEW Pada Visual Basic

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, Listview dan Botton yang dapat kata pilih pada proporties.

Contoh Program VB Mengenai Pembayaran PDAM

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.

Contoh Visual Basic Sederhana2

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

 

Public Class latihan_di_bpc

    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged

        Dim p As String

        p = Microsoft.VisualBasic.Left(KD.Text, 2)

        If KD.Text = "LPB" Then

            Dim j As Integer

            For j = 1 To 3

                TB.Items.Add(p & "00" & j)

            Next

        ElseIf KD.Text = "CVB" Then

            Dim I As Integer

            For I = 1 To 3

                TB.Items.Add(p & "00" & I)

            Next

        ElseIf KD.Text = "STB" Then

            Dim U As Integer

            For U = 1 To 3

                TB.Items.Add(p & "00" & U)

            Next

        End If

    End Sub

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

        KB.Items.Add("LPB")

        KB.Items.Add("CVB")

        KB.Items.Add("STB")

    End Sub

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

        End

    End Sub

    Private Sub TB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB.SelectedIndexChanged

        Select Case TB.Text

Cara Membuat Text Berjalan Pada Tab

1.Login ke Blogger + Tata Letak + Edit HTML dan berikan centang pada Expand Tempelate Widget

2.Kemudian kamu cari kode <head> { (untuk memudahkan pencarian kamu teken Cntrl + F di keyboard kamu)

3.Lalu letakkan kode berikut di bawah kode <head>

<style type='text/css'>

Cara Sharing/Transfer melalui Wireless/WIFI

Suatu saat anda ingin berbagi file dengan teman anda tapi saat itu anda tidak membawa Flasdisk atau hardisk external. Maka salah satu solusinya adalah dengan melakukan transfer via Wifi.

Berikut adalah langkah-langkahnya:
1. Anda harus membuat jaringan WIFI dengan cara seperti berikut KLIK DISINI
2. Connectkan Wifi anda, tapi dengan satu syarat Wifi laptop teman anda harus connect juga supaya anda dapat menerima file yang di transfer teman tersebut.
3. Kemudian Control panel>>Network and internet>>change advanced sharing setting
4. Turn off password protected sharing >> save change
5. Tekan ctrl+E kemudian tampil gambar seperti dibawah ini:

cara membuat jaringan WIFI/Wireles di laptop

Sebenarnya cara menjadikan laptop atau notebook menjadi wifi merupakan cara yang kuno dan banyak orang yang telah tau. Namun tak ada salahnya juga jika saya menulis ini, dengan harapan masih ada orang yang belum tau dan mencari informasinya di internet.

Langkah-langkahnya adalah sebagai berikut:
1.  Buka Control Panel >> klik Network and Internet>> Network dan Sharing Center
2.  Kemudian klik Manage Wireless network >> add>> pilih Create an ad hoc network>> Next
3. Kemudian akan ada permintaan untuk memberi nama dan tipe proteksi dari hotspot yang ingin di buat. Isi saja nama dengan kesukaan anda, misalnya saja sebagai contoh saya mengisi namanya dengan FLORIDA SITUMORANG kemudian pada bagian proteksi saya memilih no authentication (open) (artinya tidak diberi password) seperti dibawah ini kemudian klik next.
4. Setelah muncul jendela The FLORIDA SITUMORANG network is ready to use, klik Close
5. Cek koneksi WiFi dengan mengklik icon wireless pada taskbar sebelah kanan, akan terlihat status Waiting for users.

Cara Mengaktifkan Wireless/WIFI

Merubah nama URL Blog

Alamat URL kita berakhiran namablog.blogspot.com
Kadang kita ingin menggantinya karena kurang cocok terhadap postingan kita dan lain-lain.

Nah kali ini saya akan membantu anda dalam mengubah nama URL . Ikuti langkah-langkah sebagai berikut:

1. Login ke akun blogger atau klik aja www.blog.com
2. Setelah berhasil masuk, kemudian klik setelan>>dasar
3. Pada kotak Alamat Blog ubah nama sesuai dengan apa yang anda inginkan. Contoh gambar seperti dibawah ini:

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

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 From3 di project kita, kemudian desain From tersebut dengan menggunakan Label, Textbox, Combobox, dan Botton yang dapat kata pilih pada proporties.

Memutar Lagu Secara Otomatis Saat Membuka Blog

Apakah anda tertarik pasang musik/lagu di blog anda ? Kalau “IYA” berikut beberapa cara yang bisa anda lakukan berdasar coba-coba saya dengan blog ini :

1. Masuk ke http://divine-music.info/newtemp/browse.php
2. Disitu akan ada menu berbagai macam jenis lagu pilih, klik salah satu yang diinginkan / cari lagu kesukaan kamu.
3. Setelah itu akan muncul tampilan para penyanyinya pilih sesuai kesukaan anda dan pilih juga lagu yang akan dimainkan.Contoh: Kelly Clarkson

Cara Membuat Link Terbuka Otomatis Tanpa Klik

Cara membuat link terbuka otomatis tanpa di klik maksudnya yaitu apabila ada suatu link ingin dibuka pada tab / halaman baru, tentunya link tersebut harus di klik dahulu agar terbuka pada tab yang baru, namun sebaliknya

Cara Memperbaiki Flashdisk Rusak

Tips solusi cara memperbaiki memformat ulang flashdisk yang rusak yang tidak terbaca / tidak terdeteksi di komputer / laptop lengkap dengan tutorial nya. Disini kita akan membahas bagaimana cara untuk menyetel / memformat flashdisk yang rusak atau tidak terbaca / tidak terdeteksi di komputer atau laptop anda, tetapi di komputer / laptop yang lain bisa digunakan, jika itu terjadi maka artikel ini tepat bagi anda.

Mungkin masalah ini terjadi pada anda yang baru beli komputer / laptop? ada dua hal masalah yang bisa terjadi, yang pertama adalah karena driver untuk port usb flashdisk belum di install atau yang kedua sambungan port usb flashdisk anda memang tidak berfungsi.

Cara Burning File Ke CD-DVD Menggunakan Nero 7 Essential

Cara burning / membakar file, video, lagu, foto atau data yang penting ke CD-R/DVD-RW. Disini kita akan bahas bagaimana langkah-langkah meng-copy / memindahkan / menyimpan file atau data ke cd/dvd. Banyak software yang ada untuk burn suatu file ke cd/dvd, salah satunya adalah memburning data / file dengan menggunakan nero startsmart essentials.

Cara Memperlancar Kinerja Komputer Windows 7

Terkadang kita merasa kesel apabila komputer yang kita gunakan lemot.

Situasi tersebut membuat kita malas mengerjakan pekerjaan kita yang akan kita selesaikan dengan tepat waktu.

Disini saya ingin membantu anda menghindari masalah tersebut.