Jumat, 27 Mei 2011

Latihan Visual Basic


Private Sub Command1_Click()
List1.Clear
For i = 1 To 100
List1.AddItem "Angka" & i
Next i
End Sub

Private Sub Command2_Click()
List1.Clear
For i = 100 To 1 Step -1
List1.AddItem "Angka" & i
If i = 0 Then
Exit For
End If
Next i
End Sub

Private Sub Command3_Click()
List1.Clear
i = 65
Do Until i = (91)
List1.AddItem "Huruf" & Chr(i)
i = i + 1
Loop
End Sub

Private Sub Command4_Click()
List1.Clear
i = 90
Do While i > 64
List1.AddItem "Huruf" & Chr(i)
i = i - 1
Loop
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 2) + Left(Label1.Caption, 2)
End Sub

Private Sub Command5_Click()
List1.Clear
For i = 65 To 90
List1.AddItem "Huruf" & Chr$(i)
Next i
End Sub

output:






Tidak ada komentar:

Posting Komentar