Matrix Tipi Yazı

Dim s, j, t, wid(1985), içi(10)
Sub YenilE(deg)
Static yk
'gelen değer deki stunu yenile
On Local Error Resume Next
For i = deg To deg + (t - 1)
a(i).FontSize = Int(Rnd * Width / 800)
Randomize Timer
a(i).Caption = " "
For dgfsa = 0 To Height * 0.6
DoEvents
'bydigi.net
Next
yk = yk + 1
If yk = 12 Then yk = 1
a(i).Caption = içi(yk - 1)
a(i).ForeColor = &HFF00&
Next
End Sub
Sub YüklE()
s = 0
Randomize Timer
a(0) = içi(Rnd * 10)
On Local Error Resume Next
'ekranı kaplayacak şekilde label üret
For j = 1 To Width / a(0).Width
For i = 1 To Height / a(0).Height
Randomize Timer
DoEvents
s = s + 1
Load a(s)
a(s).Visible = True
a(s).ForeColor = 0
a(s).Left = a(s - 1).Left
a(s).Top = a(s - 1).Top + a(s - 1).Height
a(s).FontSize = Int(Rnd * 20)
a(0) = içi(Rnd * 10)
t = i
Label1 = "Yükleniyor " & 100 - Int(((Width / a(0).Width) * (Height / a(0).Height)) / s * 100) / 10 + 10 & "%"
Next
a(s).Left = a(s - 1).Left + a(s - 1).Width + 10
a(s).Top = 0
wid(j) = s
Next

For i = 0 To s
a(i) = " "
a(i).ForeColor = &HFF00&
Label1 = "Yükleniyor " & 100 - Int(((Width / a(0).Width) * (Height / a(0).Height)) / i * 100) / 10 + 10 & "%"
Next
End Sub
Private Sub a_Click(Index As Integer) 'herhangi bir harfe tıklanınca çık
End
End Sub
Private Sub Form_Resize()
If WindowState <> 1 Then
On Local Error Resume Next
For i = 0 To s
a(i).Visible = False
Next
Label1.Top = Height / 2
Label1.Left = Width / 2 - Label1.Width / 2
Label1.Visible = True
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
'Buradaki içerikleri değiştirerek farklı yazı yazdırabilirsiniz
içi(0) = "B"
içi(1) = "y"
içi(2) = "d"
içi(3) = "i"
içi(4) = "g"
içi(5) = "i"
içi(6) = "."
içi(7) = "n"
içi(8) = "e"
içi(9) = "t"
içi(10) = " "
YüklE
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Label1.Visible = False
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
YenilE (wid(Rnd * j))
Timer1.Enabled = True
End Sub