VB Mengetahui Nilai-nilai dan Indeks Prestasi Komulatif (IPK) Mahasiswa

Berikut adalah program untuk mengetahui Nilai-nilai dan Indeks Prestasi Komulatif (IPK) Mahasiswa dengan menggunakan Bahasa Pemrograman Visual Basic 6.

Di Form menu utama terdapat 3menu, dimana sub menu File adalah sub menu Login dan sub menu Exit. Sub menu Login dipergunakan user agar dapat, mengakses program tersebut. Didalam menu Form ada sub menu Kelulusan dan Indeks Prestasi Komulatif (IPK).  Sub menu Kelulusan digunakan untuk mengetahui lulus atau tidaknya suatu nilai. Sub menu Predikat digunakan untuk mengetahui Nilai Indeks Prestasi setelah dikomulatifkan dan mengetahui predikat yang disandang atas nilai tersebut. Didalam menu Help ada sub menu About Us.

1.    Tampilan Output

a.     Tampilan Output Form Menu Utama

 

 

b.     Tampilan Output Pembuatan Main Menu

 

c.      Tampilan Output Form Login

d.     Tampilan Output Form Loading

 

e.     Tampilan Output Form Sub Menu Kelulusan

 

f.      Tampilan Output Form Sub Menu Indeks Prestasi Komulatif (IPK)

 

g.     Tampilan Output Form Menu About Us

 

2.     Listing Program

a.    Listing Program Form Menu Utama

Private Sub mabout_Click() aboutus.Show End Sub Private Sub MDIForm_Load() Menu.mform.Enabled = False End Sub Private Sub mexit_Click() End End Sub Private Sub mkelulusan_Click() kelulusan.Show End Sub Private Sub mlogin_Click() Login.Show End Sub Private Sub mpredikat_Click() predikat.Show End Sub

b.    Listing Program Form Menu Login

Private Sub cmdlogin_Click() If txtuser.Text = "ipk" And txtpass.Text = "ipk" Then     loading.Show     Unload Me     Menu.mform.Enabled = True Else     MsgBox "password anda salah !", vbOKOnly, "WARNING" End If End Sub

c.    Listing Program Form Loading

Private Sub Timer1_Timer() bar.Value = bar.Value + 0.5 If bar.Value = 1 Then lblloading.Caption = "Loading 0%. . ." If bar.Value = 25 Then lblloading.Caption = "Loading 25%. . ." If bar.Value = 50 Then lblloading.Caption = "Loading 50%. . ." If bar.Value = 75 Then lblloading.Caption = "Waiting. . ." If bar.Value = 100 Then Menu.Show If Timer1.Interval >= 1 Then: Unload Me End If End Sub

d.    Listing Program Form Sub Menu Kelulusan

Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdproses_Click() If (txtnilai.Text >= 70) Then     txtket.Text = "LULUS" Else     txtket.Text = "TIDAK LULUS"     End If End Sub

e.    Listing Program Form Sub Menu Indeks Prestasi Komulatif (IPK)

Private Sub cmdproses_Click() Ipk = (Val(txtsm1.Text) + Val(txtsm2.Text) + Val(txtsm3.Text) + Val(txtsm4.Text) + Val(txtsm5.Text) + Val(txtsm6.Text) + Val(txtsm7.Text) + Val(txtsm8.Text)) / 8 txtakhir.Text = Ipk If (Ipk >= 3.51) Then     lblpredikat.Caption = "CUMLAUDE" ElseIf (Ipk >= 3.1 And Ipk <= 3.5) Then     lblpredikat.Caption = "SANGAT MEMUASKAN" ElseIf (Ipk >= 2.5 And Ipk <= 3) Then     lblpredikat.Caption = "MEMUASKAN" Else     lblpredikat.Caption = "SILAHKAN MENGULANG" End If End Sub Private Sub cmdexit_Click() Unload Me End Sub

3.     Propertis

a.      Propertis Form Menu Utama

Object Name	Caption/Text	Name
Form1	Menu Utama	Form1
Menu Editor	File	mfile
	----- Login	mlogin
	----- Exit	mexit
	Form	mform
	----- Kelulusan	mkelulusan
	----- Indeks Prestasi Komulatif	mpredikat
	Help	mhelp
	----- About Us	mabout

b.     Propertis Form Sub Menu Login

Object Name	Caption/Text	Name
Form1	Login	Form1
Label1	Username	Label1
Label2	Password	Label2
Textbox1	-	txtuser
Textbox2	-	Txtpass
Commandbutton1	Login	Cmdlogin

c.      Propertis Form Loading

Object Name	Caption/Text	Name
Form1	Loading	Form1
Label1	-	Lblloading
Timer	-	Timer1
Progressbar	-	Bar

d.      Propertis Form Sub Menu Kelulusan

Object Name	Caption/Text	Name
Form1	Kelulusan	Form1
Label1	Nilai	Label1
Label2	Keterangan	Label2
Textbox1	-	txtnilai
Textbox2	-	txtket
Commandbutton1	Proses	cmdproses
Commandbutton2	Exit	cmdexit

e.      Propertis Form Sub Menu Indeks Prestasi Komulatif (IPK)

Object Name	Caption/Text	Name
Form1	Indeks Prestasi Mahasiswa	Form1
Label1	INDEKS PRESTASI MAHASISWA	Label1
Label2	IP Semester 1	Label2
Label3	IP Semester 2	Label3
Label4	IP Semester 3	Label4
Label5	IP Semester 4	Label5
Label6	IP Semester 5	Label6
Label7	IP Semester 6	Label7
Label8	IP Semester 7	Label8
Label9	IP Semester 8	Label9
Label10	IP Akhir	Label10
Label11	-	Label11
Textbox1	-	txtsm1
Textbox2	-	txtsm2
Textbox3	-	txtsm3
Textbox4	-	txtsm4
Textbox5	-	txtsm5
Textbox6	-	txtsm6
Textbox7	-	txtsm7
Textbox8	-	txtsm8
Textbox9	-	txtakhir
Commandbutton1	Process	cmdproses
Commandbutton2	Exit	cmdexit

f.       Propertis Form Sub Menu About Us

Object Name	Caption/Text	Name
Form1	About Us	Form1
Label1	About Us	Label1
Label2	Microsoft Visual Basic 6	Label2
Label3	Indeks Prestasi Komulatif Mahasiswa	Label3
Label4	By Fahmi Maulani Fauziah	Label4