sp_arifin

Langkah pertama

Langkah ke 2

Pilih menu label pada menu tool box

klik label dan drag pada jendela from

klik frame dan drag pada jendela from

klik command botton drag pada jendela from

klik text dan drag pada jendela from 

ex=>untuk membuat text sebanyak 2x seprti gambar di bawah ini

Langkah ke 3

Membuat 2 command botton dengan cara mengeklik command botton di menu tooll box

Seperti gambar di  bawah ini

Langkah ke 4

Memodifikasi table-tabel tersebut

Memodifikasinya d menu properties dan pilih menu fount

di sebelah kiri form seprti gambar tersebut

Setelah membuat objek sekarangt saya akan memberi tau pengkodeanya ini diya kodex

Di simak baik2 yooo plenddd…

Cara masukan kodenya anda bisa ngeklik 2x pada tabel-tabelnya

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Dim nilai As Integer

Dim hasil As String

nilai = Text1.Text

Select Case nilai

Case 66 To 80

hasil = "A"

Case 65 To 79

hasil = "B"

Case 55 To 64

hasil = "C"

Case 40 To 54

hasil = "D"

Case 0 To 39

hasil = "E"

End Select

Text2.Text = hasil

End Sub