PEMOGRAMAN VISUAL BASIC AQ

PEMOGRAMAN VISUAL BASIC

Nilai Mahasiswa & Penggajian Pegawai


Disainlah form dibawah ini:



Kemudian double klik di sembarang tempat pada form tersebut lalu isilah perintahnya seperti dibawah ini :

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110507")
        NPM.Items.Add("12110549")
        NPM.Items.Add("12110443")
        NPM.Items.Add("12110417")
        kode_dosen.Items.Add("00222")
        kode_dosen.Items.Add("00333")
        kode_dosen.Items.Add("00444")
        kode_dosen.Items.Add("00555")
        kode_matakuliah.Items.Add("0001")
        kode_matakuliah.Items.Add("0002")
        kode_matakuliah.Items.Add("0003")
        kode_matakuliah.Items.Add("0004")
        Dim i As Integer
        For i = 1 To 100
            nilai_kehadiran.Items.Add(i)
            nilai_tugas.Items.Add(i)
            nilai_UTS.Items.Add(i)
            nilai_UAS.Items.Add(i)
        Next

    End Sub

kemudian double klik pada combobox  NPM,lalu isikan perintah dibawah ini:

 Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110507"
                Nama.Text = " Cici Dian Lestari"
                Jenjang.Text = "S1"
                jurusan.Text = "sistem informasi"
            Case "12110549"
                Nama.Text = " Nuri Monika"
                Jenjang.Text = "S1"
                jurusan.Text = "sistem informasi"
            Case "12110443"
                Nama.Text = " Maya Lestari"
                Jenjang.Text = "S1"
                jurusan.Text = "sistem informasi"
            Case "12110417"
                Nama.Text = " Nurul Ummi"
                Jenjang.Text = "S1"
                jurusan.Text = "sistem informasi"

        End Select
    End Sub

Double klik pada combobox kode dosen, lalu isilah perintah dibawah ini :

 Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "00222"
                nama_dosen.Text = "kennedi tampubolon"
            Case "00333"
                nama_dosen.Text = "mesran s.kom, m.kom"
            Case "00444"
                nama_dosen.Text = "guidio s.kom"
            Case "00555"
                nama_dosen.Text = "yasir s.kom"

        End Select
    End Sub

Double klik pada combobox kode matakuliah,lalu isilah perintah dibawah ini:

Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "0001"
                matakuliah.Text = "matriks"
            Case "0002"
                matakuliah.Text = "visual studio 2008"
            Case "0003"
                matakuliah.Text = "sistem basis data"
            Case "0004"
                matakuliah.Text = "komunikasi data"
        End Select
    End Sub

Double klik pada button keluar,lalu isilah perintah dibawah ini:

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

Double klik pada button hapus, lalu isilah perintah dibawah ini:
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nilai_kehadiran.Text = " "
        nilai_tugas.Text = " "
        nilai_UTS.Text = " "
        nilai_UAS.Text = " "
        nilai_huruf.Text = " '"
        keterangan.Text = " "
        nilai_akhir.Text = " "

    End Sub

Double klik ada button proses.lalu isilah perintah dibawah ini:

Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        nilai_akhir.Text = 0.3 * nilai_UTS.Text + 0.45 * nilai_UAS.Text + 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text
        If nilai_akhir.Text >= 80 Then
            nilai_huruf.Text = " A"
            keterangan.Text = "sangat memuaskan"
           
        End If
    End Sub
End Class


HASILNYA SEERTI INI


Kemudian yang kedua " penggajian pegawai"

Desainlah form dibawah ini:



Kemudian double klik disembarang temat, lalu isilah perintah dibawah ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM011")
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")

        jabatan.Items.Add("Kepala Devisi")
        jabatan.Items.Add("Staff")
        jabatan.Items.Add("Wakil Kepala")

        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
        For h = 1 To 4
            j_anak.Items.Add(h)

        Next h
    End Sub

Kemudian double klik ada combobox nik, lalu isilah perintah dibawah ini:

 Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "PM011"
                nama.Text = "Susi Susanti"
            Case "PS111"
                nama.Text = "Cici Dian lestari"
            Case "KU101"
                nama.Text = "ryand el nanda"
            Case "GD100"
                nama.Text = "tri ulan dari"
            Case Else
                nama.Text = "gilang yudistira"
        End Select
        Dim j As String
        j = Microsoft.VisualBasic.Left(nik.Text, 2)
        If j = "PM" Then
            bagian.Text = "Pemasaran"
        ElseIf j = "PS" Then
            bagian.Text = "Personalia"
        ElseIf j = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf j = "GD" Then
            bagian.Text = "Gudang"
        End If
    End Sub

Kemudian  double klik pada combobox jabatan ,lalu isilah perintah dibawah ini :

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Kepala Devisi"
                g_pokok.Text = "5000000"
                pajak.Text = 0.1 * g_pokok.Text
            Case "Staff"
                g_pokok.Text = "2000000"
                pajak.Text = 0.1 * g_pokok.Text
            Case "Wakil Kepala"
                g_pokok.Text = "3500000"
                pajak.Text = 0.1 * g_pokok.Text
        End Select
    End Sub

Kemudian double klik pada combobox status ,lalu isilah perintah dibawah ini :

 Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                t_keluarga.Text = 0.15 * g_pokok.Text
            Case "Belum Menikah"
                t_keluarga.Text = 0 * g_pokok.Text
        End Select
    End Sub

 Kemudian double klik pada combobox jumlah anak ,lalu isilah perintah dibawah ini :

 Private Sub j_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles j_anak.SelectedIndexChanged
        If t_anak.Text = "1" Then
            t_anak.Text = 0.05 * g_pokok.Text
        ElseIf j_anak.Text = "2" Then
            t_anak.Text = 0.1 * g_pokok.Text
        Else
            t_anak.Text = 0
        End If
        t_gaji.Text = Val(g_pokok.Text) + Val(t_keluarga.Text) + Val(t_anak.Text) - Val(pajak.Text)
    End Sub


 Kemudian double klik pada buttom hapus ,lalu isilah perintah dibawah ini :

 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 = ""
        g_pokok.Text = ""
        pajak.Text = ""
        status.Text = ""
        j_anak.Text = ""
        t_keluarga.Text = ""
        t_anak.Text = ""
        t_gaji.Text = ""
    End Sub

 Kemudian double klik pada buttom keluar ,lalu isilah perintah dibawah ini :

 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 Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub
End Class

Hasilnya Seperti Ini: