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.