Tutorial ini menjelaskan perintah untuk mengontrol program dengan Select Case, pada contoh ini terdiri dari 5 pilihan.
Buatlak Layout berikut :
Lakukan pengeditan sehingga menjadi tampilan dibawah ini :
Ketikkan program dibawah ini untuk memilih kategori nilai dari nilai ulangan yang dimasukan
Dim Nilai As Integer
Private Sub Command1_Click()
Nilai = Val(Text1.Text)
Select Case Nilai
Case 0 To 29
Label3.Caption = "E"
Case 30 To 49
Label3.Caption = "D"
Case 50 To 69
Label3.Caption = "C"
Case 70 To 89
Label3.Caption = "B"
Case 90 To 100
Label3.Caption = "A"
End Select
End Sub
Selamat Berlatih ...!
<< Tutorial 3 Tutorial 5 >>
10 komentar:
trims codingnx.......it's working
pa udah bisa tutorial 4
# saeful rahmat & asep usman
X Rpl 3
pak udah bisa tutorial 4.
maesa agustin X RPL 3 :)
Asep sopandi
Xrpl3
Tutor 4
pak saya udah bisa tutor 4
dend
rpl3
;)
pak saya sudah bisa tutorial 4
rizal abdillah
Xrpl 3
Nama:rini anggraeni
Kelas:X rpl 3
tutorial 4(sudah di kerjakan)
nama sony umbara
kelas x rpl 3
saya bisa walau sedikit pusing
nama:resa ruhimat
kelas: 10 rpl 3
Lebih gampang dari tutorial 3 ..
Hazrina nadia X rpl 3 ..
Posting Komentar