Program menghitung nilai siswa dengan vb 6.0

Assalamu'alaikum.....
Pada kali ini, saya ingin memberikan program sederhana bagi rekan-rekan yang sudah mengajar ditingkat SMP/SMA, agar tidak capek lagi menghitung nilai siswa dengan kalkulator atau tulis tangan. Untuk mencoba program menghitung nili siswa, silahkan download aplikasinya di sini

 cara buatnya, ikuti langkah-langkah berikut yaaaaaa....
1. Buka Visual Basic 6.0
2. Pilih Standar Exe dan klik OK

3. Kemudian buat tampilan form seperti ini


4. ktikan sintax sebagai berikut:
Private Sub cmdbaru_Click()
 txtketerangan.Text = ""
        txtmid.Text = ""
        txtnama.Text = ""
        txthuruf.Text = ""
        txtrata.Text = ""
        txttugas.Text = ""
        txtuas.Text = ""
txtnama.SetFocus
End Sub

Private Sub cmdhitung_Click()
Dim Nama As String
        Dim tugas As Double
        Dim mid As Double
        Dim uas As Double
        Dim rata As Double
        Dim huruf As String
        Dim ket As String
    Nama = txtnama.Text
    tugas = Val(txttugas.Text)
    mid = Val(txtmid.Text)
    uas = Val(txtuas.Text)
    rata = (tugas + mid + uas) / 3
    txtrata.Text = rata
 If rata <= 40 Then
            huruf = "E"
            keterangan = "Sangat Buruk dan 'ANDA GAGAL'"
        ElseIf rata <= 55 Then
            huruf = "D"
            keterangan = "Kurang dan 'BELAJAR LEBIH GIAT LAGI'"
        ElseIf rata <= 66 Then
            huruf = "C"
            keterangan = "Cukup dan 'TINGKATKAN'"
        ElseIf rata <= 80 Then
            huruf = "B"
            keterangan = "Baik  dan 'PERTAHANKAN'"
        ElseIf rata > 80 Then
            huruf = "A"
            keterangan = "Sangat Baik"
        End If
        txthuruf.Text = huruf
        txtketerangan.Text = keterangan
End Sub

Private Sub cmdkeluar_Click()
End
End Sub


Selamat mencoba.....