Buat temen-temen yang sedang bingung dengan tugas praktek vb, mungkin postingan kali ini sangat cocok buat kalian semua. Kenapa…? Ya karena pada postingan saya kali ini saya akan memberikan tutorial dan source code lengkap tentang bagaimana cara membuat program pencetak nilai mahasiswa yang mungkin berguna buat temen-temen dalam mempelajari VB.
Ok… daripada kita banyak basa-basi sampai pada lupa apa maksud tujuan kita kali ini coba kalian semua buat design programnya dulu…! Seperti yang telah saya buat dibawah ini.
Gimana… sudah belum…? Mungkin untuk designnya sendiri dapat dibuat sesukamu asal jangan asal-asalan ya…! Biar gak dibilang program ecek-ecek… .
Setelah itu pada masing-masing teksbox dan command button dapat diganti name controlnya sesuka kalian. Lalu setelah itu kamu catat source code di bawah ini.
‘==========================COPY HERE========================’
Private Sub Form_Load()
txtnilai.Enabled = False
txtgrade.Enabled = False
txtket.Enabled = False
End Sub
Private Sub ket()
If txtnilai >= 80 Then
txtket = "Lulus"
Else
If txtnilai >= 60 Then
txtket = "Lulus"
Else
If txtnilai >= 40 Then
txtket = "Lulus"
Else
If txtnilai >= 20 Then
txtket = "Gagal"
Else
txtket = "Gagal"
End If
End If
End If
End If
End Sub
Private Sub grade()
If txtnilai >= 80 Then
txtgrade = "A"
Else
If txtnilai >= 60 Then
txtgrade = "B"
Else
If txtnilai >= 40 Then
txtgrade = "C"
Else
If txtnilai >= 20 Then
txtgrade = "D"
Else
txtgrade = "E"
End If
End If
End If
End If
End Sub
Private Sub cmdbersih_Click()
txtnama = ""
txtnim = ""
txtabsen = ""
txttugas = ""
txtuas = ""
txtuts = ""
txtnilai = ""
txtgrade = ""
txtket = ""
txtnama.SetFocus
End Sub
Private Sub cmdhitung_Click()
If txtabsen = "" Then
MsgBox "Absensi harus diisi...!", vbInformation, "Error"
txtabsen.SetFocus
Else
If txttugas = "" Then
MsgBox "Tugas harus diisi...!", vbInformation, "Error"
txttugas.SetFocus
Else
If txtuts = "" Then
MsgBox "Nilai uts harus diisi...!", vbInformation, "Error"
txtuts.SetFocus
Else
If txtuas = "" Then
MsgBox "Nilai uas harus diisi...!", vbInformation, "Error"
txtuas.SetFocus
Else
txtnilai = Val(txtabsen) + Val(txttugas) + Val(txtuts) + Val(txtuas) / 4
End If
End If
End If
End If
Call ket
Call grade
End Sub
Private Sub keluar_Click()
pesan = MsgBox("Yakin Mau Keluar...?", vbQuestion + vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
End Sub
‘========================END HERE=========================’
Gimana mudah bukan…. Untuk temen-temen yang males nulis source code diatas bisa langsung download disini. Buat yang belum install vb bisa download vb protable disini. Bila di run program akan berjalan seperti ini
04Apr2009
04
Apr
2009
Program pencetak nilai mahasiswa
Diposting oleh I'm "tHe_iCe_cReaMer" di 04.50
0 komentar:
Posting Komentar