Yazılar aşagıdoğru düşsün mü istiyorsunuz gelin böyle... :=)
Form üzerinde:
1: Label
Name = a
AutoSize = True
BackStyle = 0
Index = 0
ForeColor = 0
Top = 0
Left = 0
2: Timer
Enabled = False
Interval = 1
3: Label
Forecolor = &H0000FF00&
Bu nesneleri Form üzerine yerleştirin
Yukarıdaki ayarları eksiksiz yapmanız gerekir
General Declarations kısmına
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(
= "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
Form üzerinde:
1: Label
Name = a
AutoSize = True
BackStyle = 0
Index = 0
ForeColor = 0
Top = 0
Left = 0
2: Timer
Enabled = False
Interval = 1
3: Label
Forecolor = &H0000FF00&
Bu nesneleri Form üzerine yerleştirin
Yukarıdaki ayarları eksiksiz yapmanız gerekir
General Declarations kısmına
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(
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
