- See more at: http://ak.imgfarm.com/images/cursormania/files/26/13148a.gif - See more at: http://blog-rangga.blogspot.com/2013/01/cara-mengganti-icon-kursor-blog-dengan.html#sthash.gJxiY3LW.dpuf

Sabtu, 16 November 2013

Yuuuuuks Belajar Program Visual Basic



Sebelum memulai pemograman VB.Net ini, ada baik nya jika kita terlebih dahulu menenangkan pikiran dulu Gan,,,karena di pelajaran VB.Net ini agak sedikit rumit,kalo lagi banyak pikiran saya jamin deh gak akan bisa mengerti dan memahami nya sampai kamu tua,, hehehe.. :)

Pasti pada penasarankan gimana bentuk programnya dan cara kerjanya....!!!!

  • Pertama desaign lah form Gaji Pegawai seperti di bawah ini :
 

  • Kemudian double klik di sembarang tempat pada form tersebut, kemudian isikan perintahnya seperti di bawah 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

  • Lalu double klik pada combobox Nik, Lalu isikan perintahnya seperti 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 = "Lidiawati Simanjuntak"
            Case "PS111"
                nama.Text = "Cici Dian"
            Case "KU101"
                nama.Text = "Nuri Monika"
            Case "GD100"
                nama.Text = "Maya Lestari"
            Case Else
                nama.Text = "Edho Chua"
        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

  • Setelah itu double klik pada combobox jabatan, lalu isikan 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 combobox status, lalu isikan 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

  • Lalu double klik combobox jumlah anak, lalu isikan 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

  • Setelah itu double klik button hapus, lalu isikan 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 button keluar, lalu isikan 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 Gan.....!!!










Naaah ne yang kedua Gan......!!!

  • Pertama desaign lah form Mencari_Nilai seperti di bawah ini :

 

  • Kemudian double klik di sembarang tempat pada form tersebut, kemudian isikan perintahnya seperti di bawah ini :
Public Class Mencari_Nilai

    Private Sub Mencari_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110443")
        npm.Items.Add("12110048")
        npm.Items.Add("12110331")
        npm.Items.Add("12110884")

        kd_dosen.Items.Add("MS001")
        kd_dosen.Items.Add("KS002")
        kd_dosen.Items.Add("TL003")

        kd_matakuliah.Items.Add("VB")
        kd_matakuliah.Items.Add("Html")
        kd_matakuliah.Items.Add("BD")

        Dim N As Integer
        For N = 100 To 1 Step -5
            n_kehadiran.Items.Add(N)
            n_tugas.Items.Add(N)
            n_uts.Items.Add(N)
            n_uas.Items.Add(N)
        Next
    End Sub

  •  Lalu double klik pada combobox Npm, Lalu isikan perintahnya seperti dibawah ini :
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110443"
                nama.Text = "Lidiawati Simanjuntak"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "12110048"
                nama.Text = "Edho Chua"
                jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110331"
                nama.Text = "Nurhasanah"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "12110884"
                nama.Text = "Wati"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
        End Select
    End Sub

  •   Lalu double klik pada combobox Kode dosen, Lalu isikan perintahnya seperti dibawah ini :
Private Sub kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_dosen.SelectedIndexChanged
        Select Case kd_dosen.Text
            Case "MS001"
                nm_dosen.Text = "Mesran,M.Kom S.Kom"
            Case "KS002"
                nm_dosen.Text = "Jhon Gulo S.Kom"
            Case "TL003"
                nm_dosen.Text = "Toni Limbong,M.Kom"
        End Select
    End Sub
 
  •   Lalu double klik pada combobox Kode Matakuliah, Lalu isikan perintahnya seperti dibawah ini :
 Private Sub kd_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_matakuliah.SelectedIndexChanged
        Select Case kd_matakuliah.Text
            Case "VB"
                matakuliah.Text = "Visual Basic"
            Case "PH"
                matakuliah.Text = "Pemograman HTML"
            Case "SDB"
                matakuliah.Text = "Sistem Basis Data"
        End Select
    End Sub

  •   Lalu double klik pada button proses, Lalu isikan perintahnya seperti dibawah ini :
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If n_akhir.Text = "" Then
            n_akhir.Text = 0.1 * n_kehadiran.Text + 0.15 * n_tugas.Text + 0.3 * n_uts.Text + 0.45 * n_uas.Text
            n_akhir.Focus()
        End If
        If n_akhir.Text >= 50 Then
            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "Gagal"
        End If
        If n_akhir.Text >= 80 Then
            n_huruf.Text = "A"
        ElseIf n_akhir.Text >= 70 Then
            n_huruf.Text = "B"
        ElseIf n_akhir.Text >= 60 Then
            n_huruf.Text = "C"
        ElseIf n_akhir.Text >= 50 Then
            n_huruf.Text = "D"
        Else
            n_huruf.Text = "E"
        End If
    End Sub

  •  Lalu double klik pada button Hapus, Lalu isikan perintahnya seperti dibawah ini :
 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 = ""
        kd_dosen.Text = ""
        nm_dosen.Text = ""
        kd_matakuliah.Text = ""
        matakuliah.Text = ""
        n_kehadiran.Text = ""
        n_tugas.Text = ""
        n_uts.Text = ""
        n_uas.Text = ""
        n_akhir.Text = ""
        n_huruf.Text = ""
        keterangan.Text = ""
    End Sub

  •  Lalu double klik pada button Keluar, Lalu isikan perintahnya seperti 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

Naah hasilnya seperti ini Gan.....!!!!


 

Hanya itu lah yang dapat saya sampaikan,,,
Buat para Gan yang ingin mencobanya silahkan...
semoga berhasil yaaah :)


 
Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)