[vb] tes

Viewer

  1. Dim kalimat As String
  2. Dim panjang As Integer
  3. Dim jalan As Boolean
  4.  
  5. Private Sub Form_Load()
  6.     jalan = True
  7.     kalimat = " SELAMAT DATANG "
  8.     panjang = Len(kalimat)
  9.     Label1 = kalimat
  10.     Label1.Refresh
  11.     Timer1.Enabled = True
  12. End Sub
  13.  
  14. Private Sub Form_Unload(Cancel As Integer)
  15.     jalan = False
  16. End Sub
  17.  
  18. Private Sub Timer1_Timer()
  19.     If jalan Then
  20.         kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)
  21.         Label1 = kalimat
  22.         Label1.Refresh
  23.     Else
  24.         Timer1.Enabled = False
  25.     End If

Editor

You can edit this paste and save as new:


File Description
  • tes
  • Paste Code
  • 20 Sep-2021
  • 545 Bytes
You can Share it: