Pelajaran Awal VisualBasic.Net

Contoh Program Form Nilai Mahasiswa


algoritmanya sederhana saja.

—————————
input
—————————
nama mahasiswa    : textbox
mata kuliah            : Combobox
nilai quiz                : Textbox, nilai tidak boleh lebih dari 100 (0…100)
nilai UTS               : Textbox
nilai UAS              : textbox
————————–
proses
————————–
nilai akhir    : textbox —> 20% dari nilai quiz + 30% dari UTS + 50% dari UAS
————————–
output
————————–
nilai huruf    : textbox
jika nilai akhir >= 80 maka nilai huruf = “A”
jika nilai akhir >= 70 maka nilai huruf = “B”
jika nilai akhir >= 60 maka nilai huruf = “C”
jika nilai akhir < 60 maka nilai huruf = “D”

---

jadi… skrip yang aku buat adalah: Public Class Form1
Dim kuis As Single
Dim uts As Single
Dim uas As Single
Dim nilai_akhir As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txt_nQuiz.Text > 100 Then
MsgBox(“Tidak Boleh Melebihi dari 100″)
txt_nQuiz.Text = “”
txt_nQuiz.Focus()
Else : kuis = txt_nQuiz.Text
End If
If txt_nUts.Text > 100 Then
MsgBox(“Tidak Boleh Melebihi dari 100″)
txt_nUts.Text = “”
txt_nUts.Focus()
Else : uts = txt_nUts.Text
End If
If txt_nUas.Text > 100 Then
MsgBox(“Tidak Boleh Melebihi dari 100″)
txt_nUas.Text = “”
txt_nUas.Focus()
Else : uas = txt_nUas.Text
End If
nilai_akhir = ((kuis * (20 / 100)) + (uts * (30 / 100)) + (uas * (50 / 100)))
txt_nAkhir.Text = nilai_akhir
If nilai_akhir >= 80 Then
lbl_nhuruf.Text = “A”
ElseIf nilai_akhir >= 70 Then
lbl_nhuruf.Text = “B”
ElseIf nilai_akhir >= 60 Then
lbl_nhuruf.Text = “C”
Else
lbl_nhuruf.Text = “D”
End If
End Sub
End Class

---

ya begitulah. silakan kembangkan sendiri.haha… tampilan akhirnya begini :
ada yang kurang? mau protes? silakan isi pada kolom komentar. hehe… ^^v mari kita sama-sama belajar. yang udah mahir ajarin yang belum mahir, yang belum mahir, jangan malu bertanya pada yang sudah mahir. jadi, bagaimana pak/bu mahir? mau ajari saya???