Membuat Program vb net untuk menampilkan output

BERIKUT INI PROGRAM MEMBUAT program vb net untuk menampilkan output

Public Class Form1

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

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jbtan.Items.Add("PM")

        Jbtan.Items.Add("PS")

        Jbtan.Items.Add("KU")

        stats.Items.Add("Menikah")

        stats.Items.Add("Tidak Menikah")

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text

Pemakaian if elsedalam penyelesaian dengan menambahkan komponen LISTVIEW

Modifikasi program berikut ini pemakaian-if-else-dalam-penyelesaian dengan menambahkan komponen LISTVIEW

berikut hasilnya:

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)

        LV.Columns.Add("tipe", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Harga M3", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Biaya Air", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    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-BEL-101")

        KP.Items.Add("SWA-BEL-102")

        KP.Items.Add("PAB-MED-103")

        KP.Items.Add("RUM-MED-104")

        BuatTabel()

    End Sub

Pemograman Nilai Mahasiswa dengan Visual Studio

Hai semua ,,kali ini saya akan membahas tentang Pemograman Mahasiswa ,yang meliputi Nama,NPM,Nama Dosen,,Nilai dan lainya. Sebenernya ini merupakan tugas admin ,tapi bagi sahabat D-dragon yang pengen tau juga silahkan dilihat  :) .

Pertama kita buat desain form  nya seperti gambar di bawah ini

Lalu double klik form nya ,,setelah itu isikan code  dibawah ini:


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110485")
        npm.Items.Add("12110020")
        npm.Items.Add("11120483")
        npm.Items.Add("10110478")
        kodedosen.Items.Add("KKTI01")
        kodedosen.Items.Add("KKTI02")
        kodedosen.Items.Add("KKTI03")
        kodedosen.Items.Add("KKTI04")

        kdmatakuliah.Items.Add("MT01")
        kdmatakuliah.Items.Add("MT02")
        kdmatakuliah.Items.Add("MT03")
        kdmatakuliah.Items.Add("MT04")

Mencari Nilai Rata-Rata 3 Bilangan

Mencari Nilai Rata-rata 3 Bilangan dengan Visual Basic

Tutorial pemrograman kali ini adalah tutorial visual basic 2008. Kali ini saya akan menjelaskan mengenai cara pembuatanprogram pencari nilai rata-rata 3 bilangan menggunakan visual basic 2008. Rata-rata bilangan didapat dari jumlah total data dibagi dengan banyaknya data. Nah, untuk membuat program ini, buatlah design programnya seperti gambar dibawah ini.

Kemudian, double clik pada Textbox1 atau Textbox dengan label "Hitung", kemudian masukkan kode berwarna merah berikut:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox4.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3
    End Sub