Quiz no 1 Latihan Listview Perhitungan Penjualan Barang

 

Berikut Listing Program nya :

Public Class Form1

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

        If Asc(e.KeyChar) = 13 Then
            THarga.Text = Val(Harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

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

        kbarang.Items.Add("TS001")
        kbarang.Items.Add("TS002")
        kbarang.Items.Add("VG001")
        kbarang.Items.Add("VG002")
    End Sub

    Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kbarang.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kbarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kbarang.Text, 3)
        Select Case X
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : Nbarang.Text = "Flashdisk 4GB"
            Case "002" : Nbarang.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            Harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            Harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            Harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            Harga.Text = 80000

        End If

    End Sub


    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""
    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        lv.Items.Clear()
    End Sub

    Private Sub nomor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

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

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
        isitabel()
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""

    End Sub

    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nomor.Text
        lst.SubItems.Add(kbarang.Text)
        lst.SubItems.Add(Nbarang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(THarga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub THarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THarga.TextChanged
        THarga.Text = (Harga.Text) * (jumlahbeli.Text)
    End Sub
End Class

Tugas Pemograman Visual

 

Tugas Belajar Bahasa Pemograman

Berikut ini adalah hasil dari output program nya

dan berikut ini adalah coding program nya  :

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111001")
        NPM.Items.Add("12111002")
        NPM.Items.Add("12110103")

        KodeDosen.Items.Add("300")
        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")

        KodeMatakuliah.Items.Add("A11")
        KodeMatakuliah.Items.Add("A12")
        KodeMatakuliah.Items.Add("A13")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12111001"
                Nama.Text = "Bayu Walanda"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik informatika"
            Case "12111002"
                Nama.Text = "Candro S"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem informasi"
            Case "12110103"
                Nama.Text = "Deni Syahputra"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case Else
                Nama.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "300"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "301"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "302"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

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

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A11"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A12"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A13"
                NamaMatakuliah.Text = "Programan visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class

Sumber : Materi Pelajaran dari Pak Mesran S.Kom, M.Kom  :)

Belajar Bahasa Pemograman

Peneliti Australia : "Pria Punah 5 Juta Tahun Lagi"

Proses evolusi kromosom Y, kromosom penentu jenis kelamin laki-laki, dianggap tidak stabil.

Peneliti genetika Universitas LaTrobe Australia, Profesor Jenny Graves mengungkapkan, dalam waktu lima juta tahun ke depan, dampak evolusi kromosom itu bisa jadi mengakibatkan punahnya jenis kelamin pria.

Jenny mendasarkan pada perhitungan penyusutan kromosom Y. Sekitar 166 juta tahun yang lalu, kromosom Y mempunyai 1.669 gen. Namun, hari ini jumlahnya menyusut menjadi 45 gen saja. Artinya, per satu juta tahun, gen kromosom Y hilang 9,8 gen.

"Dengan perhitungan tersebut, kromosom Y akan punah dalam 4,6 juta tahun yang akan datang, dan pria bisa punah," jelas Profesor Jenny dalam presentasi seminar "Genom Aneh pada Hewan, Jenis Kelamin dan Masa Depan Pria" di Kedubes Australia, Kuningan, Jakarta, Rabu 21 Agustus 2013.

Dia menyebutkan, penyebab merosotnya gen yakni mutasi, pembatalan, dan penyisipan sel secara terus menerus dalam testis.

Menurutnya tempat testis berkembang menjadi lingkungan yang kurang baik bagi kromosom Y. Dalam evolusi itu, gen potensial laki-laki yang dibawa oleh kromosom Y, banyak yang disalin ke kromosom X. Akibatnya, jenis kelamin laki-laki bisa menyusut di masa depan.

Ia juga berspekulasi, bila nantinya manusia tidak punah, maka gen dan kromosom penentu jenis kelamin baru akan berevolusi. "Ini proses yang alamiah. Mungkin nantinya akan mengarah pada evolusi spesies hominid baru," katanya.