Friday, 29 November 2013

Pemakaian SELECT CASE (2) Pada Visual Basic Net

November 29, 2013 0 Comments
Di bawah ini merupakan contoh pemakaian Select Case (2) pada visual basic net.


Berikut program pemakaian select case menggunakan Visual Basic Net.

Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

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

        x = Microsoft.VisualBasic.Right(Kode.Text, 3)
        If x = "001" Then
            Namabarang.Text = "Flashdisk 4Gb"
        ElseIf x = "002" Then
            Namabarang.Text = "Flashdisk 2Gb"
        End If
    End Sub

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

Dan Hasilnya seperti dibawah ini :
Continue reading...
on No comments: quickedit
Labels:

Friday, 22 November 2013

Membuat Form Penggajian Pegawai

November 22, 2013 0 Comments

Belajar Bahasa Pemograman

Postingan ini saya buat untuk melengkapi tugas mata kuliah Pemograman Visual saya.. Disini saya akan membuat contoh form penggajian pegawai menggunakan Visula Basic..

 Pertama dibuat dulu form seperti dibawah ini :

ComboBox 1
NIK
NIK
ComboBox 2
Jabatan
Jabatan
ComboBox 3
Status
Status
ComboBox 4
Jumlah Anak
JA
TextBox 1
Nama
nama
TextBox 2
Bagian
bagian
TextBox 3
Gaji Pokok
GP
TextBox 4
Pajak
pajak
TextBox 5
Tunjanga Keluarga
TK
TextBox 6
Tunjangan Anak
TA
TextBox 7
Total Gaji
TG
Button 1
Hapus
btnhapus
Button 2
Keluar
btnkeluar
Button 3
proses
btnproses
                Gambar 1.1 Bentuk Form


Lalu isikan perintah dibawah ini untuk vb.design nya.

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 = "Kristina Nancy Lumban Gaol"
            Case "PS111"
                nama.Text = "Meitri widya"
            Case "KU101"
                nama.Text = "Doni Armando"
            Case "GD100"
                nama.Text = "Steven Leo"
            Case "PM011"
                nama.Text = "Cahyo Sobirin"
        End Select
        Dim B As String
        B = Microsoft.VisualBasic.Left(NIK.Text, 2)
        Select Case B
            Case "PM"
                bagian.Text = "Pemasaran"
            Case "PS"
                bagian.Text = "Personalia"
            Case "KU"
                bagian.Text = "Keuangan"
            Case "GD"
                bagian.Text = "Gudang"
        End Select
    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 Divisi"
                GP.Text = "5000000"
            Case "Staf"
                GP.Text = "2000000"
            Case "Wakil Kepala"
                GP.Text = "3500000"
        End Select

        Pajak.Text = GP.Text * 0.1
    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"
                TK.Text = 0.15 * GP.Text
            Case "Belum Menikah"
                TK.Text = 0
        End Select
    End Sub

    Private Sub JA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JA.SelectedIndexChanged
        Select Case JA.Text
            Case "1"
                TA.Text = 0.5 * GP.Text
            Case "2"
                TA.Text = 0.1 * GP.Text
            Case "3"
                TA.Text = "Berlaku Untuk Dua Anak saja"
            Case "4"
                TA.Text = "Berlaku Untuk Dua Anak saja"
        End Select
End Sub

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("Staf")
        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")

        Dim i As Integer
        For i = 1 To 6
            JA.Items.Add(i)
        Next i
    End Sub


Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        TG.Text = Val(GP.Text) + Val(TA.Text) + Val(TK.Text) - Pajak.Text
   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 = ""
        GP.Text = ""
        Pajak.Text = ""
        Status.Text = ""
        JA.Text = ""
        TA.Text = ""
        TK.Text = ""
        TG.Text = ""
    End Sub

End Class


Dan inilah hasilnya :

Gambar 1.2. Hasil form apabila pegawai sudah menikah


Gambar 1.3. Hasil form apabila pegawai belum menikah
Continue reading...
on No comments: quickedit
Labels:

Wednesday, 20 November 2013

Membuat Form Penilaian Mahasiswa

November 20, 2013 0 Comments

Belajar Bahasa Pemograman

Postingan ini saya buat untuk melengkapi tugas mata kuliah Pemograman Visual saya.. Disini saya akan membuat form Penilaian Mahasiswa dengan Visual Basic

Pertama dibuat dulu form seperti dibawah ini :


Gambar 1.1 Bentuk Form

Lalu isikan perintah dibawah ini untuk vb.design nya.

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110404"
                Nama.Text = "Kristina Nancy Lumban Gaol"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tekhnologi Informatika"
            Case "12110402"
                Nama.Text = "Cahyo Sobirin"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12110377"
                Nama.Text = "Meitri widya Pradipta"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tekhnologi Informatika"
            Case "12110378"
                Nama.Text = "Doni Armando"
                Jenjang.Text = "S1"
                Jurusan.Text = "Manajemen Informatika"
            Case "12110400"
                Nama.Text = "Steven Ginting"
                Jenjang.Text = "S1"
                Jurusan.Text = "Manajemen Informatika"
        End Select
    End Sub


    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
        Select Case kddosen.Text
            Case "318"
                namdos.Text = "Yasir Hasan, S.Kom"
            Case "401"
                namdos.Text = "Sinar Sinurat,ST,M.Kom"
            Case "206"
                namdos.Text = "Mesran,S.Kom,M.Kom"
            Case "408"
                namdos.Text = "Kennedi Tampubolon,S.Si"
            Case "204"
                namdos.Text = "Kristian Siregar,S.Kom"
        End Select
    End Sub

    Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmakul.SelectedIndexChanged
        Select Case kdmakul.Text
            Case "KB001"
                Makul.Text = "Pemograman HTML"
            Case "KB002"
                Makul.Text = "Matematika Diskrit"
            Case "KB003"
                Makul.Text = "Pemrogaman Visual Basic"
            Case "KB0004"
                Makul.Text = "Matriks dan Linear"
            Case "KB005"
                Makul.Text = "Struktur Data"
        End Select
End Sub


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

        NPM.Items.Add("12110404")
        NPM.Items.Add("12110402")
        NPM.Items.Add("12110377")
        NPM.Items.Add("12110378")
        NPM.Items.Add("12110400")

        kddosen.Items.Add("318")
        kddosen.Items.Add("401")
        kddosen.Items.Add("206")
        kddosen.Items.Add("408")
        kddosen.Items.Add("204")

        kdmakul.Items.Add("KB001")
        kdmakul.Items.Add("KB002")
        kdmakul.Items.Add("KB003")
        kdmakul.Items.Add("KB004")
        kdmakul.Items.Add("KB005")

        Dim K As Integer
        For K = 100 To 1 Step -3
            Hadir.Items.Add(K)
        Next (K)
        K = 100
        Do While K >= 1
            Tugas.Items.Add(K)
            K = K - 3
        Loop
        For K = 100 To 1 Step -4
            UTS.Items.Add(K)
        Next (K)
        For K = 100 To 1 Step -3
            UAS.Items.Add(K)
        Next (K)

    End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Akhir.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * Tugas.Text + 0.1 * Hadir.Text()
        If Akhir.Text >= 50 Then
            Ket.Text = "Lulus"
        Else
            Ket.Text = "Gagal"
        End If
        If Akhir.Text >= 80 Then
            Huruf.Text = "A"
        ElseIf Akhir.Text >= 70 Then
            Huruf.Text = "B"
        ElseIf Akhir.Text >= 60 Then
            Huruf.Text = "C"
        ElseIf Akhir.Text >= 50 Then
            Huruf.Text = "D"
        Else
            Huruf.Text = "E"
        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 = ("")
        kddosen.Text = ("")
        namdos.Text = ("")
        kdmakul.Text = ("")
        Makul.Text = ("")
        Hadir.Text = ("")
        Tugas.Text = ("")
        UTS.Text = ("")
        UAS.Text = ("")
        Akhir.Text = ("")
        Huruf.Text = ("")
        Ket.Text = ("")
    End Sub
End Class

Dan inilah hasilnya :


Gambar 1.2 Hasil Form Penilaian
Continue reading...
on No comments: quickedit
Labels: