semoga bermanfaat aja bagi yang membutuhkan ..
MEMBUAT APLIKASI MENGHITUNG NILAI DENGAN PROGRAM VISUAL BASIC 6
1. Membuat sebuah
aplikasi baru yang mempunyai fungsi menghitung hasil – hasil nilai mahasiwa.
2. Buatlah
properties masing-masing komponen seperti yang sudah tertera di bawah ini :
Objek
|
Propertis
|
Value
|
Form1
|
Caption
|
Nilai
akhir Mahasiswa
|
Label1
|
Name
|
Nilai
mahasiswa
|
Label2
|
Name
|
Nim
|
Label3
|
Name
|
Nilai
tugas
|
Label4
|
Name
|
Nilai
Quiz
|
Label5
|
Name
|
Nilai
uas
|
Label6
|
Name
|
Nilai
|
Textbox1
|
Text
nama
|
<kosong>
Txtnilaimahasiswa
|
Textbox2
|
Text
Nama
|
<kosong>
Txtnim
|
Textbox3
|
Text
Nama
|
<kosong>
Txtnilaitugas
|
Textbox4
|
Text
Nama
|
<kosong>
Txtnilaiquiz
|
Textbox5
|
Text
Name
|
<kosong>
Txtnilaiuas
|
Textbox6
|
Text
Name
|
<kosong>
Txtnilai
|
Textbox7
|
Text
Name
|
<kosong>
Txtnilaihuruf
|
Command1
|
Caption
|
Proses
|
Command2
|
Caption
|
Tampilan
|
Command3
|
Caption
|
Get
out
|
Sesuaikan dengan
layout di bawah ini yaaaaaa ::::
Untuk
tampilannya silahkan buat sendiri
Masukkan
code pada command1
TXTNILAIAKHIR.Text
= Val(txtnilaitugas.Text) * 0.1 + Val(txtnilaiquiz.Text) * 0.2 +
Val(txtnilaiuts.Text) * 0.3 + Val(txtnilaiuas.Text) * 0.4 +
Val(TXTNILAIAKHIR.Text)
txtnilai.Text
= TXTNILAIAKHIR.Text
End
Sub
Masukkan
code pada command2
MsgBox
" Nama Anda " & txtnamamahasiswa.Text &
" Nim " & txtnim.Text & " Dengan Nilai
" & TXTNILAIAKHIR.Text & " Nilai
" & txtnilai.Text & ""
End
Sub
Masukkan
code pada command3
End
End Sub
Masukkan code pada txtnilaiakhir
NilaiAkhir = (10 * tugas) + (20 * Quiz) +
(30 * UTS) + (40 * UAS)
End Sub
Masukkan
code pada txtnilai
If
TXTNILAIAKHIR.Text >= 85 Then
txtnilai.Text = "A"
ElseIf
TXTNILAIAKHIR.Text >= 70 Then
txtnilai.Text = "B"
ElseIf
TXTNILAIAKHIR.Text >= 60 Then
txtnilai.Text = "C"
ElseIf
TXTNILAIAKHIR.Text >= 50 Then
txtnilai.Text = "D"
ElseIf
TXTNILAIAKHIR.Text < 50 Then
txtnilai.Text = "E"
End
If
End
Sub
Hasil dari
program di atas seperti gambar di bawah ini..
Untuk
hasil dari tampilannya seperti pada gambar di bawah ini :
Oke selasai dah……..
Tidak terlalu susah kan……………
Selamat mencoba ……………………..
0 komentar:
Posting Komentar