sebelum memulai, ada baiknya jika kita mengucap "Bismillah" . biar belajar pemograman nya berkah, *cie^^
Bismillahirahmanirahim :)
oke, langsung aja yah .....
nah yang pertama itu contoh program penggajian pegawai,
Desainlah Form seperti di bawah ini :
kemudian double klik di sembarang tempat pada form tersebut, lalu isikan perintahnya seperti di bawah ini:
Public Class Gaji_pegawai
Private Sub Gaji_pegawai_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")
Dim h As Integer
For h = 1 To 4
jumlahanak.Items.Add(h)
Next h
End Sub
Kemudian Double klik pada combobox Nik lalu isikan perintah 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 = "Maya Lestari"
Case "PS111"
nama.Text = "Stela Cornelia Winarto"
Case "KU101"
nama.Text = "Shania Junianatha"
Case "GD100"
nama.Text = "Sonya Pndarmawan"
Case Else
nama.Text = "Thalia"
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 isikan perintah di bawah 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"
gpokok.Text = "5000000"
pajak.Text = 0.1 * gpokok.Text
Case "Staff"
gpokok.Text = "2000000"
pajak.Text = 0.1 * gpokok.Text
Case "Wakil Kepala"
gpokok.Text = "3500000"
pajak.Text = 0.1 * gpokok.Text
End Select
End Sub
kemudian double klik pada combobox status, lalu isikan perintah seperti di bawah ini:
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Select Case status.Text
Case "Menikah"
tunjangankeluarga.Text = 0.15 * gpokok.Text
Case "Belum Menikah"
tunjangankeluarga.Text = 0 * gpokok.Text
End Select
End Sub
Kemudian double klik combobox Jumlah anak, lalu isikan perintah seperti ini:
Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahanak.SelectedIndexChanged
If jumlahanak.Text = "1" Then
tunjangananak.Text = 0.05 * gpokok.Text
ElseIf jumlahanak.Text = "2" Then
tunjangananak.Text = 0.1 * gpokok.Text
Else
tunjangananak.Text = 0
End If
totalgaji.Text = Val(gpokok.Text) + Val(tunjangankeluarga.Text) + Val(tunjangananak.Text) - Val(pajak.Text)
End Sub
Kemudian double klik pada button Hapus, lalu isikan perintah seperti 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 = ""
gpokok.Text = ""
pajak.Text = ""
status.Text = ""
jumlahanak.Text = ""
tunjangankeluarga.Text = ""
tunjangananak.Text = ""
totalgaji.Text = ""
End Sub
Kemudian double klik pada button keluar, lalu isikan perintah seperti di bawah 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
Nah... kemudian yang kedua "PENILAIAN MAHASISWA"
Desain form nya seperti di bawah ini;
Public Class penilaian
Private Sub penilaian_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")
kdosen.Items.Add("MS001")
kdosen.Items.Add("KS002")
kdosen.Items.Add("TL003")
kmatakuliah.Items.Add("VB")
kmatakuliah.Items.Add("PH")
kmatakuliah.Items.Add("SDB")
Dim N As Integer
For N = 100 To 1 Step -5
nkehadiran.Items.Add(N)
ntugas.Items.Add(N)
nuts.Items.Add(N)
nuas.Items.Add(N)
Next
End Sub
Kemudian double klik pada combobox Npm, lalu isikan perintah seperti di bawah 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 = "Maya Lestari"
jenjang.Text = "S1"
jurusan.Text = "Sistem Informasi"
Case "12110048"
nama.Text = "Stella Cornelia Winarto"
jenjang.Text = "S1"
jurusan.Text = "Teknik Informatika"
Case "12110331"
nama.Text = "Shania Junianatha"
jenjang.Text = "S1"
jurusan.Text = "Sistem Informasi"
Case "12110884"
nama.Text = "Sonya Pandarmawan"
jenjang.Text = "D3"
jurusan.Text = "Manajemen Informatika"
End Select
End Sub
Double klik Pada Combobox kode dosen, lalu isikan perintah seperti di bawah ini:
Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
Select kdosen.Text
Case "MS001"
ndosen.Text = "Mesran,M.Kom"
Case "KS002"
ndosen.Text = "Kristian Siregar M.kom"
Case "TL003"
ndosen.Text = "Toni Limbong,M.Kom"
End Select
End Sub
Double klik pada combobox kode matakuliah, lalu isikan perintah seperti di bawah ini :
Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged
Select Case kmatakuliah.Text
Case "VB"
mkuliah.Text = "Visual Basic"
Case "PH"
mkuliah.Text = "Pemograman HTML"
Case "SDB"
mkuliah.Text = "Sistem Basis Data"
End Select
End Sub
Double klik button proses, lalu isikan perintahnya seperti di bawah ini:
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If nakhir.Text = "" Then
nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
nakhir.Focus()
End If
If nakhir.Text >= 50 Then
ket.Text = "Lulus"
Else
ket.Text = "Gagal"
End If
If nakhir.Text >= 80 Then
nhuruf.Text = "A"
ElseIf nakhir.Text >= 70 Then
nhuruf.Text = "B"
ElseIf nakhir.Text >= 60 Then
nhuruf.Text = "C"
ElseIf nakhir.Text >= 50 Then
nhuruf.Text = "D"
Else
nhuruf.Text = "E"
End If
End Sub
Double klik button hapus lalu isikan perintahnya seperti di bawah 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 = ""
kdosen.Text = ""
ndosen.Text = ""
kmatakuliah.Text = ""
mkuliah.Text = ""
nkehadiran.Text = ""
ntugas.Text = ""
nuts.Text = ""
nuas.Text = ""
nakhir.Text = ""
nhuruf.Text = ""
ket.Text = ""
End Sub
Double klik button keluar, lalu isikan perintah di bawah 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
Terimah kasih....... ^_^
Assalamualaikum :')
0 komentar:
Posting Komentar