Program "Menghitung Nilai"

Program ini sy buat sebagai tugas... dan tidak ada salahnya saya berbagi pada kawan2 yang tertarik pada pemrograman menggunakan Visual Basic 6, hususnya bagi para pemula, karena ini program test maka nama di commandbuttonnya bercampur baur. Program ini sudah berjalan sesuai dengan "inputan". kcuali tombol "PRINT" tidak berfungsi.




Ket: Type.text: (tanda = berarti nama dari type.text)
Nama Mahasiswa =NamaMahasiswa
Semester =Semester
Mata Kuliah =MataKuliah
Jurusan =Jurusan (tipe combotext)
Nilai Tugas =NilaiTugas
Nilai UTS =NilaiUTS
Nilai Praktek =NilaiPraktek
Nilai UAS =NilaiUAS
Absensi =Absensi
Mahasiswa Bernama =MahasiswaBernama
Semester =SemesterAgain
Mata Kuliah =MataKuliahAgain
Dinyatakan =Dinyatakan
Nilai Akhir =NilaiAkhir
Nilai Huruf =NilaiHuruf

Type CommandButton:
Hasil =Command1
Listing =Command2
Input Again =Command3
Print =Command4
Exit =Command5

Scriptnya sbb:

Private Sub Command1_Click()
NilaiAkhir = ((NilaiTugas * 1) + (NilaiUTS * 1) + (NilaiPraktek * 1) + (NilaiUAS * 1) + (Absensi * 1)) / 5

If NilaiAkhir >= 90 Then
NilaiHuruf = "A"
Dinyatakan = "Lulus"
MahasiswaBernama = NamaMahasiswa
SemesterAgain = Semester
MataKuliahAgain = MataKuliah

ElseIf NilaiAkhir >= 80 Then
NilaiHuruf = "B"
Dinyatakan = "Lulus"
MahasiswaBernama = NamaMahasiswa
SemesterAgain = Semester
MataKuliahAgain = MataKuliah

ElseIf NilaiAkhir >= 70 Then
NilaiHuruf = "C"
Dinyatakan = "Lulus"
MahasiswaBernama = NamaMahasiswa
SemesterAgain = Semester
MataKuliahAgain = MataKuliah

Else
NilaiHuruf = "D"
Dinyatakan = "Tidak Lulus"
MahasiswaBernama = NamaMahasiswa
SemesterAgain = Semester
MataKuliahAgain = MataKuliah
End If
End Sub

Private Sub Command2_Click()
On Error Resume Next
With Adodc1.Recordset
.AddNew
!NamaMahasiswa = NamaMahasiswa
!Jurusan = Jurusan
!Semester = Semester
!MataKuliah = MataKuliah
!NilaiAkhir = NilaiAkhir
!NilaiHuruf = NilaiHuruf
!Dinyatakan = Dinyatakan
.Update
End With
End Sub

Private Sub Command3_Click()
MsgBox "Mau Input Lagi?", vbYesNo + vbQuestion, "Input Lagi"
NamaMahasiswa = ""
Semester = ""
MataKuliah = ""
Jurusan = ""
NilaiTugas = ""
NilaiUTS = ""
NilaiUAS = ""
NilaiPraktek = ""
Absensi = ""
MahasiswaBernama = ""
SemesterAgain = ""
MataKuliahAgain = ""
Dinyatakan = ""
NilaiAkhir = ""
NilaiHuruf = ""
End Sub

Private Sub Command4_Click()
Hapus = MsgBox("Anda Yakin Akan Menghapus List?", vbYesNo + vbQuestion, "Delete List")
If Hapus = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
Else
MsgBox "List Tidak Jadi Dihapus", vbQuestion, "Batal Menghapus"
End If
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.MataKuliah.AddItem "Statistik"
Me.MataKuliah.AddItem "Visual Basic 2"
Me.MataKuliah.AddItem "Teori Organisasi"
Me.MataKuliah.AddItem "Teori Bahasa dan Automata"
Me.MataKuliah.AddItem "Pemrograman HTML"
Me.MataKuliah.AddItem "Analisis Sistem Informasi"
Me.MataKuliah.AddItem "General English"
Me.MataKuliah.AddItem "Akuntansi Dasar"
Me.MataKuliah.AddItem "Aljabar Linear"

Label1.Caption = "PROGRAM MENGHITUNG NILAI MAHASISWA IKMI RISKINA"
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub