Membuat Program Penghitung Nilai Rata Dengan VB By So' Alen

Cara membuatnya, ikuti langkah-langkah berikut ini Sangmane ... !
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.....