Menghitung Nilai Akademik [Visual Basic 6] - Internet Beritaku

Kamis, 15 September 2011

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 :

menghitung nilai akademik.JPG

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.....

Kunjungi juga channel video youtube saya : KLIK DISINI
atau Klik tombol Subscribe dibawah.
I.A.H Channel on Youtube
I.A.H Channel
Subscribe
Comments

6 komentar

om, saya mau minta tolong boleh ga

pak... ada coding untuk menyimpan tombol checklist vb 6.0 gag...?

contoh coding untuk minyimpan tombol checklist gag ada sob..

permisi om, mau tanya nih ane. misalkan kalo ane buat data seperti ini tapi bisa ke save di word atau ke pdf,. kodingnya sama seperti kita membuat di access gak??

Thanks banget nih ilmu nya,.sangat bermanfaat banget

kalau pakai database sob, kita membuatnya di access...codingnya sama aja....


EmoticonEmoticon