TUGAS Visual Basic (Tugas 2)

Membuat Label, klik di menu Tool box.

Membuat Text Box.

Membuat 2 Cummond Button

Membuat warna dengan pada objek dan  pilih  'back color'.

Coding :

Private Sub Command1_Click()
Dim Nilai As Integer
Dim Ket As String
Nilai = Text1.Text
Select Case Nilai
Case 81 To 100
Ket = "A"
Case 65 To 80
Ket = "B"
Case 56 To 65
Ket = "C"
Case 40 To 55
Ket = "D"
Case 0 To 40
Ket = "E"
End Select
Text2 = Ket
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub



Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then KeyAscii = 0 MsgBox "Hanya Boleh angka saja" End If End Sub

Hasil Coding :