Ini merupakan Contoh Program Pegawai Yg Saya Buat ....
Yach.....
Hanya sedikit belajar2 saja ....
Berikut Listing Program ....
Yach.....
Hanya sedikit belajar2 saja ....
Berikut Listing Program ....
Dim x, y As String
Dim a As String
Dim c As String
Dim b As MsgBoxResult
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 8
cmb_nip.Items.Add("10123300" & i)
Next
End Sub
Sub seleksi()
a = "Pak"
c = "Gol"
x = Microsoft.VisualBasic.Right(cmb_nip.Text, 3)
Select Case x
Case "001" : Txt_nama.Text = a & " " & "Mesran" : cmb_gol.Items.Add(c & " " & "IVA")
Case "002" : Txt_nama.Text = a & " " & "Abdul" : cmb_gol.Items.Add(c & " " & "I")
Case "003" : Txt_nama.Text = a & " " & "Berto" : cmb_gol.Items.Add(c & " " & "I")
Case "004" : Txt_nama.Text = a & " " & "Paska" : cmb_gol.Items.Add(c & " " & "I")
Case "005" : Txt_nama.Text = a & " " & "Toni" : cmb_gol.Items.Add(c & " " & "IIIB")
Case "006" : Txt_nama.Text = a & " " & "Yasir" : cmb_gol.Items.Add(c & " " & "IIIC")
Case "007" : Txt_nama.Text = a & " " & "Fahmy" : cmb_gol.Items.Add(c & " " & "I")
Case "008" : Txt_nama.Text = a & " " & "Lambok" : cmb_gol.Items.Add(c & " " & "I")
End Select
End Sub
Private Sub cmb_nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_nip.SelectedIndexChanged
Call bersih()
Call seleksi()
End Sub
Sub bersih()
cmb_gol.Items.Clear()
cmb_gol.Text = ""
cmb_jabatan.Items.Clear()
cmb_jabatan.Text = ""
txt_tunjangan.Text = ""
txt_gaji.Text = ""
End Sub
Sub bersih(ByVal f As Form)
Dim x As Object
For Each x In f.Controls
If TypeOf x Is TextBox Then x.text = ""
If TypeOf x Is ComboBox Then x.text = ""
Next
End Sub
Private Sub Btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_bersih.Click
Call bersih()
Call bersih(Me)
End Sub
Private Sub cmb_gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_gol.SelectedIndexChanged
x = Microsoft.VisualBasic.Right(cmb_gol.Text, 1)
Select Case x
Case "A" : txt_gaji.Text = 5000000 : cmb_jabatan.Items.Add("Ketua")
Case "B" : txt_gaji.Text = 3500000 : cmb_jabatan.Items.Add("PuketI")
Case "C" : txt_gaji.Text = 2500000 : cmb_jabatan.Items.Add("PuketII")
Case "I" : txt_gaji.Text = 2000000 : cmb_jabatan.Items.Add("Dosen")
End Select
End Sub
Private Sub cmb_jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_jabatan.SelectedIndexChanged
y = Microsoft.VisualBasic.Left(cmb_jabatan.Text, 5)
Select Case y
Case "Ketua" : txt_tunjangan.Text = 1800000
Case "Puket" : txt_tunjangan.Text = 1400000
Case "Dosen" : txt_tunjangan.Text = 1000000
End Select
End Sub
Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
txt_tolgaji.Text = "Rp" & " " & Val(txt_gaji.Text) + Val(txt_tunjangan.Text)
End Sub
Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
b = MsgBox("Apa anda Yakin keluar dari program ini?", MsgBoxStyle.Question + _
MsgBoxStyle.YesNo, "Program Pegawai")
If b = MsgBoxResult.Yes Then
Close()
End If
End Sub
End Class
Ok ....
Semoga bermanfaat .....
Semoga bermanfaat .....
