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.
Tags:
Artikel