1. Mendesain Form terlebih dahulu
Dibawah ini merupakan tampilan desain program yang memiliki
label (Nama,Tugas,UTS,UAS,Nilai Akhir,Nilai Huruf), textbox, 2 buah combobox dan
Button Hitung .
2. Coding setiap button
dengan source code seperti di bawah ini
Public Class Program
Private Sub
btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click
Dim Tugas,
UTS, UAS, NA As Double
Dim NH,
Nama As String
Nama = txtNama.Text
NA =
Val(txtNA.Text)
Tugas =
Val(txtTugas.Text)
UTS =
Val(txtUTS.Text)
UAS =
Val(txtUAS.Text)
NA = (0.2 *
Tugas + 0.3 * UTS + 0.5 * UAS)
txtNH.Text
= NH
If NA <=
40 Then
NH = "E"
ElseIf NA
<= 50 Then
NH = "D"
ElseIf NA
<= 60 Then
NH = "C"
ElseIf NA
<= 70 Then
NH = "B"
ElseIf NA
>= 80 Then
NH = "A"
End If
txtNA.Text
= NA
txtNH.Text
= NH
End Sub
End Class
3. Setelah Selesai Jalankan atau Running Program
Tidak ada komentar:
Posting Komentar