Menghitung Nilai Akademik [Visual Basic 6]

Contoh Program sederhana Menghitung Nilai Akademik Mahasiswa yang dibuat pada Bahasa Pemograman Microsoft Visual Basic 6 , dimana item-item-Nya terdiri dari Nama, STB , Jurusan , Fakultas dan Mata Kuliah. Untuk pengolahan nilainya terdiri dari Nilai Tugas, Nilai Mid, Nilai Ujian Semester dan Nilai rata-rata.

Untuk contoh Form-Nya lihat gambar dibawah :



Untuk Listingnya :

Private Sub Command1_Click()

Text1 = Clear

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text5 = Clear

Text6 = Clear

Combo1 = Clear

Combo2 = Clear

Combo3 = Clear

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text6.Text = (Text3.Text * 10 / 100) + (Text4.Text * 30 / 100) + (Text5 * 60 / 100) / 3

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem "SISTEM INFORMASI"

Combo1.AddItem "PERTAMBANGAN"

Combo1.AddItem "SIPIL"

Combo1.AddItem "BAHASA INDONESIA"

Combo1.AddItem "MATEMATIKA"

Combo1.AddItem "BHASA INGGRIS"

Combo1.AddItem "FISIKA"

Combo2.AddItem "TEKNIK"

Combo2.AddItem "TEKNOLOGI INFORMASI"

Combo2.AddItem "FKIP"

Combo2.AddItem "FAPERTA"

Combo2.AddItem "HUKUM"

Combo3.AddItem "VISULA BASIC"

Combo3.AddItem "ECCOMERCE"

Combo3.AddItem "MENGGAMBAR"

End Sub

Semoga bermanfaat....tinggalkan komentar untuk krtik dan saranya.....