Gambar tampilam program hitung Na dan Nm
Cara membuat program Hitung Nilai Akhir dan Nilai Mutu
dengan ketentuan sbb:
Nilai akhir = absen+tugas+quis+UTS+UAS
Absen = 10 %
Tugas = 20 %
Quis = 15 %
UTS = 25 %
UAS = 35%
Nilai Mutu :
A = 80 -100
B = 70 - 79,99
C = 60 - 69,99
D = 50 - 59,99
E = <= 49,99
Buat label pada
gambar dengan tombol panah merah sebanyak 11
Label
Label
|
Propertis -> Caption*
|
Propertis ->Name(bebas)**
|
Label 1
|
Program hitung NA dst..
|
|
Label 2
|
NPM
|
|
Label 3
|
Kehadiran
|
|
Label 4
|
Kuis
|
|
Label 5
|
Tugas
|
|
Label 6
|
UTS
|
|
Label 7
|
UAS
|
|
Label 8
|
Nilai Akhir
|
|
Label 9
|
Nilai Mutu
|
|
Label 10
|
LblNA
|
|
Label 11
|
LblNM
|
Pada label 10 dan 11 ubah di propertis cari borderstyle ubah menjadi 1-fixed single
Buat TexBox pada
gambar dengan tombol panah Hijau sebanyak 6 TexBox
TexBox
|
Propertis ->Name (bebas)**
|
Text1
|
txNPM
|
Text2
|
txhadir
|
Text3
|
txKuis
|
Text4
|
txTugas
|
Text5
|
txUTS
|
Text6
|
txUAS
|
Buat ComboBox pada
gambar dengan tombol panah Biru 3
ComboBox
ComboBox
|
Propertis -> Caption*
|
Propertis ->Name (bebas)**
|
ComboBox1
|
Proses
|
cmdProses
|
ComboBox2
|
Ulang
|
cmdUlang
|
ComboBox3
|
Keluar
|
cmdKeluar
|
Codingnya
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdProsses_Click()
Dim hadir, NA As Double
hadir = TXHadir /
16 * 100
NA = (hadir * 10 /
100) + (Txkuis.Text * 15 / 100) + (TxTugas.Text * 20 / 100) + (TxUas.Text * 30
/ 100) + (Txuts.Text * 25 / 100)
LbNA.Caption = NA
A = LbNA.Caption
If A >= 80 Then
LbNM.Caption =
"A"
ElseIf A >=
70 Then
LbNM.Caption =
"B"
ElseIf A
>= 60 Then
LbNM.Caption = "C"
ElseIf
A >= 50 Then
LbNM.Caption = "D"
Else
LbNM.Caption = "E"
End If
End Sub
Private Sub CmdUlang_Click()
TXHadir.Text =
""
Txkuis.Text =
""
TxNPM.Text =
""
TxTugas.Text =
""
TxUas.Text =
""
Txuts.Text =
""
LbNA.Caption =
""
LbNM.Caption =
""
TxNPM.SetFocus
End Sub
Private Sub Form_Load()
TXHadir.Text = ""
Txkuis.Text = ""
TxNPM.Text = ""
TxTugas.Text = ""
TxUas.Text = ""
Txuts.Text = ""
LbNA.Caption = ""
LbNM.Caption = ""
End Sub
hasilnya :
hasilnya :
Note:
* ada pada bagian
propertis kemudian ubah pada bagian Caption terserah yang anda inginkan
** ada pada bagian propertis kemudian ubah pada bagian Name
terserah yang anda inginkan
Buat temen temen yang mau program udah jadi bisa di ambil di sini link unduh melalui google drive ...
buat temen temen yang belum punya program Visual Basic 6.0 donload di Visual Basic 6.0
mohon maaf link donload vb nya sudah di hapus.
Buat temen temen yang mau program udah jadi bisa di ambil di sini link unduh melalui google drive ...
buat temen temen yang belum punya program Visual Basic 6.0 donload di Visual Basic 6.0
mohon maaf link donload vb nya sudah di hapus.
