Contoh Program Nilai Mahasiswa dengan menggunakan Visual Basic 6.0

Baik kali ini saya akan membagi sedikit ilmu yang sekiranya dapat membantu kawan-kawan yang sedang mengerjakan tugas yang berhubungan dengan bahasa pemrograman ini. Tanpa banyak bicara berikut tampilan program Nilai Mahasiswa tersebut :

Keterangan dalam program ini :

Dalam program sederhana ini belum mempunyai database apapun, sehingga dalam menginputkan nama ataupun NPM bisa secara bebas karena hanya sebagai gambaran saja. Untuk lebih lanjutnya mungkin kawan-kawan bisa mengembangkannya dengan menghubungkan ke database.

Data nilai yang diinputkan dalam program ini adalah Nilai Tugas, Nilai Quiz, Nilai UTS, dan Nilai UAS.

Nilai Tugas 10%

Nilai Quiz 20%

Nilai UTS 30%

Nilai UAS 40%

Dan untuk menentukan mahasiswa tersebut lulus atau tidak lulus maka prosedur nya adalah sebagai berikut :

jika nilai akhir lebih dari 85 maka nilai huruf = "A", keterangan = "LULUS"

jika nilai akhir lebih dari 75 maka nilai huruf = "B", keterangan = "LULUS"

jika nilai akhir lebih dari 55 dan kurang dari 65 maka nilai mutu = "D", keterangan = "TIDAK LULUS"

jika nilai kurang dari 55 maka nilai mutu=”E”, keterangan = “TIDAK LULUS”

Objek	Properties	Value
Form1	Caption	Nilai Akhir Mahasiswa
Label1	Caption	NPM
Label2	Caption	Nama
Label3	Caption	Nilai Tugas
Label4	Caption	Nilai Quiz
Label5	Caption	Nilai UTS
Label6	Caption	Nilai UAS
Label7	Caption	Nilai Akhir
Label8	Caption	Nilai Mutu
Label9	Caption	Keterangan
Textbox1	Name Text	txtnpm “kosongkan”
Textbox2	Name Text	txtnama “kosongkan”
Textbox3	Name Text	txttugas “kosongkan”
Textbox4	Name Text	txtquiz “kosongkan”
Textbox5	Name Text	txtuts “kosongkan”
Textbox6	Name Text	txtuas “kosongkan”
Textbox7	Name Text	txthasil “kosongkan”
Textbox8	Name Text	txtmutu “kosongkan”
Textbox9	Name Text	txtketerangan “kosongkan”
Command1	Name Caption	cmdhasil HASIL
Command2	Name Caption	cmdmutu MUTU
Command3	Name Caption	cmdexit EXIT

 

Oke langsung aja ke syntax nya :

Command1 (HASIL)

Private Sub cmdhasil_Click()
txthasil.Text = (0.1 * txttugas.Text) + (0.2 * txtquiz.Text) + (0.3 * txtuts.Text) + (0.4 * txtuas.Text)
End Sub

Command2 (MUTU)

Private Sub cmdmutu_Click()
txthasil.Text = 0.1 * txttugas.Text + 0.2 * txtquiz.Text + 0.3 * txtuts.Text + 0.4 * txtuas.Text

        If txthasil.Text >= 85 Then
            txtmutu.Text = "A"
        ElseIf txthasil.Text >= 75 Then
            txtmutu.Text = "B"
        ElseIf txthasil.Text >= 65 Then
            txtmutu.Text = "C"
        ElseIf txthasil.Text >= 55 Then
            txtmutu.Text = "D"
        Else
            txtmutu.Text = "E"
        End If
       
        If txthasil.Text >= 65 Then
            txtketerangan.Text = "LULUS"
        Else
            txtketerangan.Text = "TIDAK LULUS"
        End If
End Sub

Command3 (EXIT)

Private Sub cmdkeluar_Click()
End
End Sub

maka hasilnya akan seperti ini :

sekian dari saya semoga bermanfaat :)