vb.2003

Private Sub cmdproses_Click()

If Ratarata.Text <= 90 Then

    Keterangan.Caption = "Sangat sempurna"

End If

If Ratarata.Text <= 80 Then

    Keterangan.Caption = "Sanat bagus"

End If

If Ratarata.Text <= 70 Then

    Keterangan.Caption = "Lumayan(cukup memuaskan)"

End If

If Ratarata.Text <= 60 Then

    Keterangan.Caption = "Cukup"

End If

If Ratarata.Text <= 50 Then

    Keterangan.Caption = "Anda Tidak lulus"

End If

End Sub

Private Sub Command_click()

x = MsgBox("apakah anda yakin ingin keluar dari program ini", vbquestiion + vbYesNo, "Konfirmasi")

If x = vbYes Then

    Unload Me

Else

    Exit Sub

 End If

End Sub

Private Sub Form_Load()

Nilai1.Text = ""

Nilai2.Text = ""

Ratarata.Text = ""

Keterangan.Caption = "Silahkan masukkan nilai anda????????....."

End Sub

Private Sub nilai2_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Ratarata.Text = (Val(Nilai1.Text) + Val(Nilai2.Text)) / 2

End If

End Sub