latihan-pemrograman.html

 

KODE PROGRAMNYA

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")
        jabatan.Items.Add("Kepala Divisi")
        jabatan.Items.Add("Staff")
        jabatan.Items.Add("Wakil")
        Status.Items.Add("Menikah")
        Status.Items.Add("Tidak Menikah")
        jumlah_anak.Items.Add("1 Anak")
        jumlah_anak.Items.Add("2 Anak")
        Call pembagian()
        Call penamaan()
        Call gapok()
    End Sub

    Sub pembagian()
        Dim x As String
        x = Microsoft.VisualBasic.Left(nik.Text, 2)
        Select Case x
            Case "PM"
                bagian.Text = "Pemasaran"
            Case "PS"
                bagian.Text = "Personalia"
            Case "KU"
                bagian.Text = "Keuangan"
            Case "GD"
                bagian.Text = "Gudang"
        End Select
    End Sub

    Sub penamaan()
        Select Case nik.Text
            Case "PM010"
                nama.Text = "Doni Sutejo"
            Case "PS111"
                nama.Text = "Bambang Kodek"
            Case "KU101"
                nama.Text = "Sutan Mulia"
            Case "GD100"
                nama.Text = "Muhammad Lego"
            Case "PM011"
                nama.Text = "Abed Nego"
        End Select
    End Sub

    Sub gapok()
        Select Case jabatan.Text
            Case "Kepala Divisi"
                gaji_pokok.Text = "5000000"
            Case "Staff"
                gaji_pokok.Text = "2000000"
            Case "Wakil"
                gaji_pokok.Text = "3500000"
        End Select
    End Sub

    Sub TunjanganAnak()
        Select Case jumlah_anak.Text
            Case "1 Anak"
                tunjangan_anak.Text = 0.05 * gaji_pokok.Text
            Case "2 Anak"
                tunjangan_anak.Text = 0.1 * gaji_pokok.Text
        End Select
        Call totalGaji()
    End Sub
    Sub TunjanganKeluarga()
        Select Case Status.Text
            Case "Menikah"
                tunjangan_keluarga.Text = 0.15 * gaji_pokok.Text
            Case "Tidak Menikah"
                tunjangan_keluarga.Text = "0"
        End Select
    End Sub
    Sub totalGaji()
        total_gaji.Text = "Rp " & Val(gaji_pokok.Text) + Val(tunjangan_keluarga.Text) + Val(tunjangan_anak.Text) - Val(Pajak.Text)
    End Sub
    Sub hapus()
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gaji_pokok.Text = ""
        Pajak.Text = ""
        Status.Text = ""
        jumlah_anak.Text = ""
        tunjangan_keluarga.Text = ""
        tunjangan_anak.Text = ""
        total_gaji.Text = ""
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Call pembagian()
        Call penamaan()
    End Sub
    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Call gapok()
        Pajak.Text = gaji_pokok.Text * 0.1
    End Sub
    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        End
    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged
        Call TunjanganAnak()
    End Sub

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

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        Call hapus()
    End Sub
End Class

Belajar Bahasa Pemrograman

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110444")
        NPM.Items.Add("1311011")
        NPM.Items.Add("13112011")
        Koddosen.Items.Add("01")
        Koddosen.Items.Add("02")
        Kodmatakuliah.Items.Add("001")
        Kodmatakuliah.Items.Add("002")
        Dim i As Integer
        For i = 1 To 100
            Nkehadiran.Items.Add(i)
            Ntugas.Items.Add(i)
            NUTS.Items.Add(i)
            UAS.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 "12110444"
                Nama.Text = "Yanuati Lahagu"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "1311011"
                Nama.Text = "Fersona Dohare"
                Jenjang.Text = "D3"
                Jurusan.Text = "manajemen Informatika"
            Case "13112011"
                Nama.Text = " Firman"
                Jurusan.Text = "Komputer Akutansi"
            Case Else
                Nama.Text = "_"
        End Select

    End Sub

    Private Sub Koddosen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Koddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Koddosen.SelectedIndexChanged
        Select Case Koddosen.Text
            Case "01"
                Namadosen.Text = "Mesran"
            Case "02"
                Namadosen.Text = "Sinurat"
            Case Else
                Nama.Text = "_"
        End Select
    End Sub

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

    Private Sub Kodmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodmatakuliah.SelectedIndexChanged
        Select Case Kodmatakuliah.Text
            Case "001"
                Namamatakuliah.Text = "Teknik Informatika"
            Case "002"
                Namamatakuliah.Text = "Sistem Informatika"
            Case Else
                Nama.Text = "-"
        End Select
    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 = ""
        Koddosen.Text = ""
        Namadosen.Text = ""
        Kodmatakuliah.Text = ""
        Namamatakuliah.Text = ""
        Nkehadiran.Text = ""
        UAS.Text = ""
        Ntugas.Text = ""
        NUTS.Text = ""
        AKHIR.Text = ""
        NHuruf.Text = ""
        Keterangan.Text = ""
        Jurusan.Text = ""
    End Sub

    Private Sub BTNproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNproses.Click
        AKHIR.Text = 0.4 * Nkehadiran.Text + Ntugas.Text + 0.6 * UAS.Text + AKHIR.Text
    End Sub
End Class

buat kamu

Padahal, kamu lebih ganteng kalau tanpa rokok. Iya, gitu aja, kok. :')

galau tingkat II

Kupandangi lagi foto-foto itu, kuingat lagi kenangan-kenangan itu, kuingat lagi sosokmu, yang sempat menghancurkan aku.

galau

Lebih baik gak tau, daripada tau tapi bikin nyesek. Lebih baik gak peduli, daripada peduli tapi bikin sakit hati.