|
Nama
Control |
Properti |
Value |
|
TextBox |
Name
Teks |
txtHasil
- |
|
Module |
Name |
Module1 |
|
CommandButton |
Name |
cmdStop |
Copy & paste-kan listing dibawah ini ke
Form pada code editor :
Dim stopMatrix as Boolean
Private Sub Form_Load()
stopMatrix = False
Matrix
End sub
Public Sub Matrix()
Dim BarPos
Dim LText
Dim Line
Dim I as Integer
LText = 2
I = 31
Me.WindowState = vbMaximized
Do
DoEvents
txtL.BackColor = &H0&
Delay 10
Tmr = Tmr + 1
txtHasil.Text = txtHasil.Text & Chr(13) + Chr(10)
txtHasil.SelText = Space(Tmr * Tmr) & Chr(I)
txtHasil.SelText = Space(Tmr * 13) & Chr(I + 2)
txtHasil.SelText = Space(Tmr * I) & Chr(I + 3)
I = I + 1
If I >= 60 Then
txtHasil.SelStart = (txtHasil.Width / I) * 4.6 - 14
txtHasil.SelLength = Len(txtHasil.Text)
txtHasil.SelText = "HellNet Copyright (c) 2004 by HellScream" & vbCrLf &
Space(37) & "HellPad versi 1.0 (Free)"
txtHasil.BackColor = &HE0E0E0
Delay 80
I = 31
End If
If Len(txtHasil.Text) >= 30000 Then
Tmr = 0
txtHasil.Text = ""
End If
if stopMatrix = True then
exit do
txtHasil.Text = ""
End If
Loop
Tmr = 0
I = 0
End Sub
Private Sub cmdStop_Click()
stopMarix = True
End Sub
Buatlah module lalu copy & paste-kan listing dibawah ini ke
dalam module :
Option Explicit
Declare Function GetTickCount Lib "kernel32" () As Long
'Fungsi ini menggantikan Timer control
Public Function Delay(wait As Long)
Dim lasttick, currenttick As Long
lasttick = GetTickCount
Do
currenttick = GetTickCount
DoEvents
Loop Until (currenttick - lasttick) > wait
End Function
|