Membuat program nilai mahasiswa sederhana dengan VB 6.0

Design form seperti di bawah ini

lalu setting  seperti ini

 

kemudian ketikkan kode berikut

Dim a, t, ut, ua, r As Integer
Dim nh, p As String

Private Sub Command1_Click()
txtnim.Text = " "
txtnama.Text = " "
ckelas.Text = ""
cmatkul.Text = ""
cdosen.Text = ""
txtabsen.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtrata.Text = ""
txtnh.Text = ""
txtpredikat.Text = ""
txtnim.SetFocus

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
a = txtabsen.Text
t = txttugas.Text
ut = txtuts.Text
ua = txtuas.Text

r = (a * 0.2) + (t * 0.2) + (ut * 0.25) + (ua * 0.35)
If r >= 80 Then
    nh = "A"
    p = "Sangat Baik"
ElseIf r >= 70 Then
    nh = "B"
    p = "Baik"
ElseIf r >= 60 Then
    nh = "C"
    p = "Cukup"
ElseIf r >= 50 Then
    nh = "D"
    p = "Kurang"
Else
    nh = "E"
    p = "Sangat Kurang"
    End If
txtrata.Text = r
txtnh.Text = nh
txtpredikat.Text = p
End Sub

Private Sub Form_Load()
ckelas.AddItem "MI11-01"
ckelas.AddItem "MI11-02"
ckelas.AddItem "MI11-03"
ckelas.AddItem "MI11-04"
ckelas.AddItem "MI11-05"
ckelas.AddItem "MI11-06"
ckelas.AddItem "MI11-07"
ckelas.AddItem "MI11-08"
ckelas.AddItem "MI11-09"
ckelas.AddItem "MI11-10"
cmatkul.AddItem " Struktur Data "
cmatkul.AddItem " HTM L"
cmatkul.AddItem " VB 1 "
cdosen.AddItem "Solikhun,M.com"
cdosen.AddItem "Dedy Hartama.S.T.M.com"
cdosen.AddItem "Poningsih M.com"
txtrata.Enabled = False
txtnh.Enabled = False
txtpredikat.Enabled = False

End Sub