Aplikasi Raport dengan VB. 6.0

Membuat Aplikasi Penilaian Raport

Kali ini saya akan memposting tentang Nilai raport dengan menggunakan visual basic 6.0 yang saya pelajari di sekolah saya. Sambil belajar saya juga berbagi limu di sini. Langsung saja kita ke intinya.

Pertama kita jalankan program visual basic 6.0

Kita akan menggunakan 2 Form. Form Pertama membutuhkan : 2 Label, 2 TextBox, 1 CommandButton

Atur form pertama seperti ini :

Lengkapi propertinya seperti ini:

Objek	Properties	Value
Form1	Caption StartUpPosition	Raport Siswa 2 – CenterSreen
Label1	Caption	NIS :
Label2	Caption	Nama :
Text 1-2	Text	- -
Command1	Caption Default	Masuk Treu

Lengkapi kodenya sebagai berikut:

Private Sub Command1_Click()

Dim NIS As String, Nama As String

Text1.Text = NIS

Text2.Text = Nama

Form1.Hide

Form2.Show

End Sub

Setelah Form pertama selesai, selanjutnya atur Form kedua. Form kedua membutuhkan : 6 Label, 5 TextBox, 2 CommandButton.

Atur Form Kedua seperti Ini:

Lengkapi properti seperti ini :

Objek	Properties	Value
Form2	Caption Default	Nilai Akhir True
Label1	Caption	Tugas :
Label2	Caption	Ulangan :
Label3	Caption	UTS :
Label4	Caption	UAS :
Label5	Caption	Nilai Akhir :
Label6	Caption	-
Text 1-5	Text	- - - - -
Command1	Caption Default	Nilai Akhir True
Command2	Caption	Ulangi

Lengkapi kodenya sebagai berikut :

Private Sub Command1_Click()

Dim Tugas As Single

Dim Ulangan As Single

Dim UTS As Single

Dim UAS As Single

Dim Nilai_Akhir As Single

Dim nilaiHuruf As String

Tugas = Val(Text3.Text)

Ulangan = Val(Text4.Text)

UTS = Val(Text5.Text)

UAS = Val(Text6.Text)

Nilai_Akhir = (0.1 * Tugas) + (0.2 * Ulangan) + (0.3 * UTS) + (0.4 * UAS)

If Nilai_Akhir >= 85 Then

nilaiHuruf = "A"

ElseIf Nilai_Akhir >= 70 Then

nilaiHuruf = "B"

ElseIf Nilai_Akhir >= 60 Then

nilaiHuruf = "C"

ElseIf Nilai_Akhir >= 50 Then

nilaiHuruf = "D"

ElseIf Nilai_Akhir < 50 Then

nilaiHuruf = "E"

End If

Text1.Text = Nilai_Akhir

Label2.Caption = nilaiHuruf

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Label2.Caption = ""

End Sub

Setelah selesai dan dicoba, hasilnya seperti berikut :

Sekian dari saya mudah-mudah berguna untuk agan-agan semua, apabila ada kekurangan mohon maaf karena kesempurnaan milik tuhan semata.