Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Tampilan Awal

Coding Nya:
Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        kp.Text = ""
        np.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        harga.Text = ""
        pemakaian.Text = ""
        totat.Text = ""
        pajak.Text = ""
        daerah.Text = ""
        pembayaran.Text = ""
        biba.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("pab-pak-100")
        kp.Items.Add("pab-bel-100")
        kp.Items.Add("rum-bel-101")
        kp.Items.Add("swa-med-100")

        Call BuatTabel()
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Mid(kp.Text, 1, 3)
        Select x
            Case "TOK"
                tipe.Text = "toko"
                biba.Text = 150000
                harga.Text = 500
                np.Text = "santi"
            Case "rum"
                tipe.Text = "rumah"
                biba.Text = 50000
                harga.Text = 200
                np.Text = "angga"
            Case "swa"
                tipe.Text = "swalayan"
                biba.Text = 400000
                harga.Text = 1500
                np.Text = "sandi"
            Case "pab"
                tipe.Text = "pabrik"
                biba.Text = 1000000
                harga.Text = 10000
                np.Text = "roy"

        End Select
        x = Mid(kp.Text, 5, 3)
        Select Case x
            Case "med"
                daerah.Text = "medan"
            Case "bel"
                daerah.Text = "belawan"
            Case "tem"
                daerah.Text = "aksara"
            Case "mar"
                daerah.Text = "marendal"
            Case "bin"
                daerah.Text = "binjai"
            Case "pak"
                daerah.Text = "lubuk pakam"
        End Select
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        pajak.Text = 0.015 * totat.Text

        pembayaran.Text = Val(totat.Text) + Val(pajak.Text)
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Pelanggan", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga KWH", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = kp.Text
        lst.SubItems.Add(np.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(biba.Text)
        lst.SubItems.Add(pemakaian.Text)
        lst.SubItems.Add(totat.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()

    End Sub

    Private Sub H_list_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H_list.Click
        Call IsiTabel()
    End Sub

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

    Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
        Dim a As String = Asc(e.KeyChar)
        If a = 13 Then
            totat.Text = (harga.Text * pemakaian.Text) + biba.Text
        End If
    End Sub

   

    Private Sub pemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged
       
    End Sub
End Class

Hasil:

Read More

TIPS DAN TRIK

Awal

Public Class Form2
    Sub BuatTabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Center)
        LV.Columns.Add("MATA KULIAH", 180, HorizontalAlignment.Center)
        LV.Columns.Add("NILAI UTS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NILAI UAS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NILAI ANGKA", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NILAI HURUF", 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(mata_kuliah.Text)
        lst.SubItems.Add(uts.Text)
        lst.SubItems.Add(uas.Text)
        lst.SubItems.Add(na.Text)
        lst.SubItems.Add(nh.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13110123")
        npm.Items.Add("13110234")
        npm.Items.Add("13110345")
        npm.Items.Add("13110456")

        mata_kuliah.Items.Add("sistem operasi")
        mata_kuliah.Items.Add("struktur dan organisasi komputer")
        mata_kuliah.Items.Add("Sistem Basis Data")
        mata_kuliah.Items.Add("matriks dan transfomasi linier")
        mata_kuliah.Items.Add("struktur data")
        mata_kuliah.Items.Add("komunikasi data")
        mata_kuliah.Items.Add("pemograman visual")
        Call BuatTabel()
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = ("13110123") Then
            nama.Text = "susanti"
        ElseIf npm.Text = ("13110234") Then
            nama.Text = "yosefha"
        ElseIf npm.Text = ("13110345") Then
            nama.Text = "SRI HARTATI"
        ElseIf npm.Text = ("13110456") Then
            nama.Text = "META VALENTINA"


        End If
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = (Val(uts.Text) + Val(uas.Text)) / 2
        If na.Text = "90" Then
            nh.Text = "A"
        ElseIf na.Text = "80" Then
            nh.Text = "B"
        ElseIf na.Text = "70" Then
            nh.Text = "C"
        ElseIf na.Text = "60" Then
            nh.Text = "D"
        Else
            nh.Text = "E"

        End If
    End Sub

    Private Sub IL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisitabel.Click
        Call IsiTabel()
    End Sub

    Private Sub HN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        mata_kuliah.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""

    End Sub

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

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

    Private Sub HD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

    End Sub

    Private Sub uas_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uas.TextChanged

    End Sub
End Class

Hasil :

Read More

Tugas Praktikum NILAI MAHASISWA

TUGAS PRAKTIKUM NILAI MAHASISWA

Public Class Form2

    Sub BuatTabel()

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

        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Center)

        LV.Columns.Add("MATA KULIAH", 180, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI UTS", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI UAS", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI ANGKA", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NILAI HURUF", 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(mata_kuliah.Text)

        lst.SubItems.Add(uts.Text)

        lst.SubItems.Add(uas.Text)

        lst.SubItems.Add(na.Text)

        lst.SubItems.Add(nh.Text)

        LV.Items.Add(lst)

    End Sub

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

        npm.Items.Add("13110123")

        npm.Items.Add("13110234")

        npm.Items.Add("13110345")

        npm.Items.Add("13110456")

        mata_kuliah.Items.Add("sistem operasi")

        mata_kuliah.Items.Add("struktur dan organisasi komputer")

        mata_kuliah.Items.Add("Sistem Basis Data")

        mata_kuliah.Items.Add("matriks dan transfomasi linier")

        mata_kuliah.Items.Add("struktur data")

        mata_kuliah.Items.Add("komunikasi data")

        mata_kuliah.Items.Add("pemograman visual")

        Call BuatTabel()

    End Sub

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

        If npm.Text = ("13110123") Then

            nama.Text = "susanti"

        ElseIf npm.Text = ("13110234") Then

            nama.Text = "yosefha"

        ElseIf npm.Text = ("13110345") Then

            nama.Text = "SRI HARTATI"

        ElseIf npm.Text = ("13110456") Then

            nama.Text = "META VALENTINA"

        End If

    End Sub

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

        na.Text = (Val(uts.Text) + Val(uas.Text)) / 2

        If na.Text = "90" Then

            nh.Text = "A"

        ElseIf na.Text = "80" Then

            nh.Text = "B"

        ElseIf na.Text = "70" Then

            nh.Text = "C"

        ElseIf na.Text = "60" Then

            nh.Text = "D"

        Else

            nh.Text = "E"

        End If

    End Sub

    Private Sub IL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisitabel.Click

        Call IsiTabel()

    End Sub

    Private Sub HN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        mata_kuliah.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        nh.Text = ""

    End Sub

    Private Sub HI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click

        LV.Items.Clear()

    End Sub

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

        Me.Close()

    End Sub

    Private Sub HD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

    End Sub

    Private Sub uas_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uas.TextChanged

    End Sub

End Class

SESUDAH DIPROSES/DIJALANKAN PROGRAMNYA

Demikianlah postingan saya :

Nama : sri hartati sihombing

NPM : 13110389

Kelas : TI.P1305

SELAMAT PEMOGRAMAN VB NET(MESRAN.NET)

Read More