Membuat Tampilan Form VB 6.0 Gaya Matrix

Selamat pagi lagi teman - teman... Code ini saya dapat dari hasil browsing. Sebagai rasa hormat saya kepada Vijayakrishna penciptanya, saya akan menampilkan Code aslinya sebagai berikut :

Dim i, j, ini, t, m, w As Integer
Dim a(100, 100), N(100), peru As String
Dim x_count, y_count, letter_width, letter_height As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub

Private Sub Form_Load()
peru = InputBox("Any text", "Fake Matrix", "vijayakrishna")
For i = 0 To Len(peru) - 1
N(i) = Mid(peru, i + 1, 1)
Next i
For i = Len(peru) To 2 * Len(peru)
N(i) = ""
Next i
Timer1.Interval = 5
Form1.WindowState = 2
letter_width = 20 * Form1.FontSize
letter_height = 27 * Form1.FontSize
x_count = Int(Screen.Width / letter_width) 'define no. of characters per line using width of your screen
y_count = Int(Screen.Height / letter_height)

For i = 0 To x_count - 1
For j = 0 To y_count - 1
If j = 0 Then a(i, j) = N(Int(2 * Len(peru) * Rnd())) Else a(i, j) = ""
If j = 0 Then
PSet ((letter_width + 20) * i, (letter_height + 10) * (j + 1)), QBColor(0)
Print a(i, j)
End If
Next j
Next i
Form1.Caption = "press any key to stop-press any key to stop-press any key to stop-press any key to stop-press any key to stop-press any key to stop"
End Sub

Private Sub Timer1_Timer()
Dim p(50) As Integer
For t = 1 To 5
For i = y_count To 1 Step -1
For v = 1 To 29999
Next v
For m = 0 To 25 'only 25 columns will be active at a time
p(m) = Int(Rnd() * x_count)
Next m
For j = 25 To 0 Step -1 '25 is ,those randomly chosen 25 active columns
a(p(j), i) = a(p(j), i - 1)
PSet ((letter_width + 20) * p(j), (letter_height - 25) * i), QBColor(0)
Print a(p(j), i)
Next j
Next i

For x = 0 To 25 '25 is ,those randomly chosen 25 active columns
x = Int(x_count * Rnd())
a(x, 0) = N(Int(2 * Len(peru) * Rnd()))
Next x
Timer1.Interval = 10
Cls
Next t
End Sub


Code diatas saat dijalankan akan menampilkan InputBox untuk mengetikkan tulisan yang ingin ditampilkan. Gambarnya sebagai berikut :


Disini saya sedikit memanipulasi Codenya. Dimana pada saat dijalankan, InputBox tidak akan tampil. Melainkan langsung tulisanya. Bagaimana caranya?... Silahkan kamu lihat Code dibawah ini :

Dim i, j, ini, t, m, w As Integer
Dim a(100, 100), N(100) As String
Dim x_count, y_count, letter_width, letter_height As Integer
Dim Text As String
Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub

Private Sub Form_Load()
Text = "PUTRA QINCAY"
For i = 0 To Len(Text) - 1
N(i) = Mid(Text, i + 1, 1)
Next i
For i = Len(Text) To 2 * Len(Text)
N(i) = ""
Next i
Timer1.Interval = 5
Form1.WindowState = 2
letter_width = 20 * Form1.FontSize
letter_height = 27 * Form1.FontSize
x_count = Int(Screen.Width / letter_width)
y_count = Int(Screen.Height / letter_height)

For i = 0 To x_count - 1
For j = 0 To y_count - 1
If j = 0 Then a(i, j) = N(Int(2 * Len(Text) * Rnd())) Else a(i, j) = ""
If j = 0 Then
PSet ((letter_width + 20) * i, (letter_height + 10) * (j + 1)), QBColor(0)
Print a(i, j)
End If
Next j
Next i
End Sub

Private Sub Timer1_Timer()
Dim p(50) As Integer
For t = 1 To 5
For i = y_count To 1 Step -1
For v = 1 To 29999
Next v
For m = 0 To 25
p(m) = Int(Rnd() * x_count)
Next m
For j = 25 To 0 Step -1
a(p(j), i) = a(p(j), i - 1)
PSet ((letter_width + 20) * p(j), (letter_height - 25) * i), QBColor(0)
Print a(p(j), i)
Next j
Next i

For x = 0 To 25
x = Int(x_count * Rnd())
a(x, 0) = N(Int(2 * Len(Text) * Rnd()))
Next x
Timer1.Interval = 10
Cls
Next t
End Sub


Silahkan kamu gunakan Code diatas sesuai dengan selera kamu. Perhatian lagi Nich!!!Hehehe...
Pada Properties :
Border Style:0-None
Background : (Diganti Warna Hitam)
ForeColor : (Sesuai dengan selera kamu, Asalkan jangan warna hitam. Nanti tulisannya tidak keliahatan)
Font : Courier
Font Style : Bold
Font Size : 15
Kemudian ganti kata dalam Text = "PUTRA QINCAY" dan dirubah sesuai dengan tulisan yang ingin kamu tampilkan. Selamat mencoba....