Bahasa Pemograman

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

        Jabatan.Items.Add("KEPALA DIVISI")

        Jabatan.Items.Add("STAFF")

        Jabatan.Items.Add("WAKIL KEPALA")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        Jumlah_ank.Items.Add("0")

        Jumlah_ank.Items.Add("2")

        Jumlah_ank.Items.Add("1")

    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged

        Select Case Nik.Text

            Case "PM010"

                Nama.Text = "Meitri Widya Pradipta"

            Case "KU101"

                Nama.Text = "Kristina Nancu L.Gaol"

            Case "PS111"

                Nama.Text = "Steven Leo T.Ginting"

            Case Else

                Nama.Text = " Doni Armando"

        End Select

        Dim K As String

        K = Microsoft.VisualBasic.Left(Nik.Text, 2)

        If K = "PM" Then

            Bagian.Text = "Pemasaran"

        ElseIf K = ("PS") Then

            Bagian.Text = "Personalia"

        ElseIf K = "KU" Then

            Bagian.Text = "Keuangan"

        Else

            Bagian.Text = "Gudang"

        End If

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Case Jabatan.Text

            Case "Kepala Devisit"

                Gaji_pokok.Text = "5000000"

            Case "Staf"

                Gaji_pokok.Text = "2000000"

            Case Else

                Gaji_pokok.Text = "3500000"

        End Select

        Pajak.Text = Gaji_pokok.Text * 0.1

    End Sub

    Private Sub Jumlah_ank_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_ank.KeyPress

        If e.KeyChar = Chr(13) Then

            Select Case Jumlah_ank.Text

                Case "0"

                    tnjgan_ank.Text = 0

                Case "1"

                    tnjgan_ank.Text = Gaji_pokok.Text * 0.05

                Case "2"

                    tnjgan_ank.Text = Gaji_pokok.Text * 0.1

                Case Else

                    tnjgan_ank.Text = Gaji_pokok.Text * 0.5

            End Select

        End If

        Total_gji.Text = (Gaji_pokok.Text) + Val(Tunjangan_kluarga.Text) + Val(Tunjangan_kluarga.Text) - Pajak.Text

    End Sub

    Private Sub Jumlah_ank_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah_ank.SelectedIndexChanged

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Dim tanya As String

        tanya = MsgBox("Apakah Anda ingin Keluar?", MsgBoxStyle.YesNo)

        If tanya = vbCancel Then

            Me.Close()

        ElseIf tanya = vbNo Then

            Me.Focus()

        ElseIf tanya = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        Nik.Text = ""

        Nama.Text = ""

        Bagian.Text = ""

        Jabatan.Text = ""

        tnjgan_ank.Text = ""

        Tunjangan_kluarga.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        Gaji_pokok.Text = ""

        Total_gji.Text = ""

        Jumlah_ank.Text = ""

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        Select Case Status.Text

            Case "Menikah"

                Tunjangan_kluarga.Text = Gaji_pokok.Text * 0.15

            Case "Tidak Menikah"

                Jumlah_ank.Text = ""

                Tunjangan_kluarga.Text = 0

        End Select

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

End Class

Quis no 1

Public Class Quiz1

    Sub BuatTabel()
        Storage.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        Storage.View = View.Details
        Storage.GridLines = True
        Storage.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = No_Pembelian.Text
        Lst.SubItems.Add(Kd_Barang.Text)
        Lst.SubItems.Add(Nm_Barang.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Jumlah.Text)
        Lst.SubItems.Add(Total.Text)
        Storage.Items.Add(Lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kd_Barang.Items.Add("TS001")
        Kd_Barang.Items.Add("TS002")
        Kd_Barang.Items.Add("VG001")
        Kd_Barang.Items.Add("VG002")

        Call BuatTabel()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kd_Barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(Kd_Barang.Text, 3)
        If x = "001" Then
            Nm_Barang.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            Nm_Barang.Text = "Flashdisk 2GB"
        End If

        Select Case Kd_Barang.Text
            Case "TS001"
                Harga.Text = "105000"
            Case "TS002"
                Harga.Text = "75000"
            Case "VG001"
                Harga.Text = "90000"
            Case "VG002"
                Harga.Text = "60000"
        End Select
    End Sub

    Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Tambah.Click
        IsiTabel()
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress
        Total.Text = Harga.Text * Val(Jumlah.Text)
    End Sub

    Private Sub Btn_Hapus_yg_Dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_yg_Dipilih.Click
        Storage.Items.Remove(Storage.SelectedItems(0))
    End Sub

    Private Sub Btn_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_Semua.Click
        Storage.Items.Clear()
    End Sub

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

    Private Sub Btn_Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Bersih.Click
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub
End Class

Postingan Nilai Mahasiswa

Ini postingan saya untuk memenuhi tugas saya mata kuliah Pemograman visual

baik inilah program nya

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

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

        NPM.Items.Add("12110377")

        NPM.Items.Add("12110404")

        NPM.Items.Add("12110400")

        NPM.Items.Add("12110597")

        NPM.Items.Add("12110321")

        KD.Items.Add("301")

        KD.Items.Add("302")

        KD.Items.Add("303")

        KD.Items.Add("304")

        KD.Items.Add("305")

        KMK.Items.Add("301")

        KMK.Items.Add("302")

        KMK.Items.Add("303")

        KMK.Items.Add("304")

        KMK.Items.Add("305")

        Dim x As Integer

        For x = 100 To 1 Step -3

            NK.Items.Add(x)

        Next (x)

        x = 100

        Do While x >= 1

            NT.Items.Add(x)

            x = x - 3

        Loop

        For x = 100 To 1 Step -3

            UTS.Items.Add(x)

        Next (x)

        For x = 100 To 1 Step -3

            UAS.Items.Add(x)

        Next (x)

    End Sub

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

        Select Case NPM.Text

            Case "12110377"

                NM.Text = "Meitri Widya Pradipta"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110404"

                NM.Text = "Kristina Nancy LumbanGaol"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110400"

                NM.Text = "Steven Leo Talenta Ginting"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110597"

                NM.Text = "Doni Armando"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110321"

                NM.Text = "Cahyo Shobirin"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

        End Select

    End Sub

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

        Select Case KD.Text

            Case "301"

                ND.Text = "Toni Limbong,S.Kom,M.Kom"

            Case "302"

                ND.Text = "Sinar Sinurat,ST,M.Kom"

            Case "303"

                ND.Text = "Mesran,S.Kom,M.Kom"

            Case "304"

                ND.Text = "Kennedi Tampubolon,S.Si"

            Case "305"

                ND.Text = "Kristian Siregar,S.Kom"

        End Select

    End Sub

    Private Sub KMK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMK.SelectedIndexChanged

        Select Case KMK.Text

            Case "301"

                MK.Text = "Sistem Basis Data"

            Case "302"

                MK.Text = "Matematika Diskrit"

            Case "303"

                MK.Text = "Pemrogaman Visual Basic"

            Case "304"

                MK.Text = "Kalkulus II"

            Case "305"

                MK.Text = "HTML"

        End Select

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NA.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * NT.Text + 0.1 * NK.Text()

        If NA.Text >= 50 Then

            KET.Text = "Lulus"

        Else

            KET.Text = "Gagal"

        End If

        If NA.Text >= 80 Then

            NH.Text = "A"

        ElseIf (NA.Text >= 70) And (NA.Text < 80) Then

            NH.Text = "B"

        ElseIf (NA.Text >= 60) And (NA.Text < 70) Then

            NH.Text = "C"

        ElseIf (NA.Text >= 50) And (NA.Text < 60) Then

            NH.Text = "D"

        Else

            NH.Text = "E"

        End If

    End Sub

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

        NPM.Text = ("")

        NM.Text = ("")

        Jenjang.Text = ("")

        Jurusan.Text = ("")

        KD.Text = ("")

        ND.Text = ("")

        KMK.Text = ("")

        MK.Text = ("")

        NK.Text = ("")

        NT.Text = ("")

        UTS.Text = ("")

        UAS.Text = ("")

        NA.Text = ("")

        NH.Text = ("")

        KET.Text = ("")

    End Sub

End Class

Dan hasilnya. . 

catatan lagu ini pas buat ku 

All I knew this morning when I wokeIs I know something now, know something now I didn't beforeAnd all I've seen since eighteen hours agoIs green eyes and freckles and your smileIn the back of my mind making me feel like
I just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you know you know you
'Cause all I know is we said "Hello"And your eyes look like coming homeAll I know is a simple nameEverything has changedAll I know is you held the doorYou'll be mine and I'll be yoursAll I know since yesterday is everything has changed

And all my walls stood tall painted blueAnd I'll take them down, take them down and open up the door for you
And all I feel in my stomach is butterfliesThe beautiful kind, making up for lost time,Taking flight, making me feel like
I just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you better know you better know you better nowI just wanna know you know you know you
'Cause all I know is we said "Hello"And your eyes look like coming homeAll I know is a simple nameEverything has changedAll I know is you held the doorYou'll be mine and I'll be yoursAll I know since yesterday is everything has changed
Come back and tell me whyI'm feeling like I've missed you all this time, oh, oh, ohAnd meet me there tonightAnd let me know that it's not all in my mind

I just wanna know you better know you better know you better nowI just wanna know you know you know you

'Cause all I know is we said "Hello"And your eyes look like coming homeAll I know is a simple nameEverything has changedAll I know is you held the doorYou'll be mine and I'll be yoursAll I know since yesterday is everything has changed
All I know is we said "Hello"So dust off your highest hopesAll I know is pouring rain and everything has changedAll I know is the new found graceAll my days I know your faceAll I know since yesterday is everything has changed