ekran sever

ByToluidin

ByToluidin

Özel Üye
27 Ocak 2007
3,176
1
578
forma bir adet picture yerleştirin adı picture1 olarak kalsın 6 adet timer ekleyin picturenin left ve top ını '0'
yapın ve bu kodları yapıştırın hepsi bu

Dim asol1, asol2, bsol1, bsol2, cap1, cap2, kontrol As Integer
Dim aust1, aust2, bust1, bust2, aalt1, aalt2, balt1, balt2, asag1, asag2, bsag1, bsag2, formul As Integer

Private Sub Form_Activate()



Picture1.Width = Form1.Width - 100
Picture1.Height = Form1.Height - 420
bust1 = Picture1.Width

aalt2 = Picture1.Height
balt1 = Picture1.Width
balt2 = Picture1.Height

asag1 = Picture1.Width
bsag1 = Picture1.Width
bsag2 = Picture1.Height
asol2 = Picture1.Height

formul = Int((Picture1.Width / 2) / (Picture1.Height / 2)) * 10
End Sub

Private Sub Form_Load()
Picture1.Width = Form1.Width - 100
Picture1.Height = Form1.Height - 420
bust1 = Picture1.Width

aalt2 = Picture1.Height
balt1 = Picture1.Width
balt2 = Picture1.Height

asag1 = Picture1.Width
bsag1 = Picture1.Width
bsag2 = Picture1.Height
asol2 = Picture1.Height

formul = Int((Picture1.Width / 2) / (Picture1.Height / 2)) * 10

End Sub

Private Sub Form_Resize()
Picture1.Width = Form1.Width - 100
Picture1.Height = Form1.Height
End Sub

Private Sub Timer1_Timer()

Picture1.DrawWidth = 5
aust1 = aust1 + 10
aust2 = aust2 + 10
bust1 = bust1 - 10
bust2 = bust2 + 10


aalt1 = aalt1 + 10
aalt2 = aalt2 - 10
balt1 = balt1 - 10
balt2 = balt2 - 10


asag1 = asag1 - 10
asag2 = asag2 + 10
bsag1 = bsag1 - 10
bsag2 = bsag2 - 10


asol1 = asol1 + 10
asol2 = asol2 - 10
bsol1 = bsol1 + 10
bsol2 = bsol2 + 10

Picture1.ForeColor = RGB(0, Rnd * 255, 0)
Picture1.Line (aust1, aust2)-(bust1, bust2)
Picture1.ForeColor = RGB(0, Rnd * 255, 0)
Picture1.Line (aalt1, aalt2)-(balt1, balt2)
Picture1.ForeColor = RGB(Rnd * 255, 0, 0)
Picture1.Line (asag1, asag2)-(bsag1, bsag2)
Picture1.ForeColor = RGB(Rnd * 255, 0, 0)
Picture1.Line (asol1, asol2)-(bsol1, bsol2)
If aalt1 >= (Picture1.Width / 3) * 2 Then
Timer1.Enabled = False
Timer2.Enabled = 1
aust1 = 0
aust2 = 0
bust1 = Picture1.Width
bust2 = 0
aalt2 = Picture1.Height
aalt1 = 0
balt1 = Picture1.Width
balt2 = Picture1.Height
asag2 = 0
asag1 = Picture1.Width
bsag1 = Picture1.Width
bsag2 = Picture1.Height
asol2 = Picture1.Height
asol1 = 0
bsol1 = 0
bsol2 = 0
End If
End Sub

Private Sub Timer2_Timer()
Picture1.DrawWidth = 5
cap1 = cap1 + 10

Picture1.ForeColor = RGB(0, Rnd * 255, 0)
Picture1.Circle (0, Picture1.Height / 2), cap1
Picture1.ForeColor = RGB(0, Rnd * 255, 0)
Picture1.Circle (Picture1.Width, Picture1.Height / 2), cap1

Picture1.ForeColor = RGB(0, Rnd * 255, 0)
Picture1.Circle (Picture1.Width / 2, 0), cap1
Picture1.ForeColor = RGB(0, Rnd * 255, 0)
Picture1.Circle (Picture1.Width / 2, Picture1.Height), cap1

If cap1 >= Picture1.Width / 2 Then
Timer2.Enabled = False
Timer3.Enabled = 1
cap1 = 0
End If
End Sub

Private Sub Timer3_Timer()

Picture1.DrawWidth = 5
cap1 = cap1 + 10

Picture1.ForeColor = RGB(Rnd * 255, 0, 0)

Picture1.Circle (Picture1.Width / 2, (Picture1.Height / 2)), cap1
Picture1.Circle (Picture1.Width / 2, (Picture1.Height / 2) + 1500), cap1
Picture1.Circle (Picture1.Width / 2, (Picture1.Height / 2) - 1500), cap1

Picture1.Circle ((Picture1.Width / 2) - 1500, Picture1.Height / 2), cap1
Picture1.Circle ((Picture1.Width / 2) + 1500, Picture1.Height / 2), cap1


Picture1.Circle ((Picture1.Width / 2) - 1500, (Picture1.Height / 2) - 1500), cap1
Picture1.Circle ((Picture1.Width / 2) + 1500, (Picture1.Height / 2) + 1500), cap1


Picture1.Circle ((Picture1.Width / 2) + 1500, (Picture1.Height / 2) - 1500), cap1
Picture1.Circle ((Picture1.Width / 2) - 1500, (Picture1.Height / 2) + 1500), cap1
If cap1 >= Picture1.Width / 4 Then
Timer3.Enabled = False
Timer6.Enabled = 1
cap1 = Picture1.Width / 3
End If
End Sub

Private Sub Timer4_Timer()
Picture1.DrawWidth = 5
cap1 = cap1 - 10

Picture1.ForeColor = RGB(0, 100, Rnd * 255)

Picture1.Circle (Int(Picture1.Width / 6), Int(Picture1.Height / 4)), cap1
Picture1.Circle (Int(Picture1.Width / 2), Int(Picture1.Height / 4)), cap1
Picture1.Circle (Int(Picture1.Width / 6) * 5, Int(Picture1.Height / 4)), cap1

Picture1.Circle (Int(Picture1.Width / 6), Int(Picture1.Height / 4) * 3), cap1
Picture1.Circle (Int(Picture1.Width / 2), Int(Picture1.Height / 4) * 3), cap1
Picture1.Circle (Int(Picture1.Width / 6) * 5, Int(Picture1.Height / 4) * 3), cap1

If cap1 <= Picture1.Width / 6 Then
Timer4.Enabled = False
Timer5.Enabled = 1
cap1 = 0
kontrol = 0
End If

End Sub

Private Sub Timer5_Timer()
Picture1.DrawWidth = 5
cap1 = cap1 + 10
If kontrol = 0 Then
Picture1.ForeColor = RGB(0, 0, 0)
kontrol = 1
Else
Picture1.ForeColor = RGB(255, 255, 255)
kontrol = 0
End If
Picture1.Circle (Int(Picture1.Width / 6), Int(Picture1.Height / 4)), cap1
Picture1.Circle (Int(Picture1.Width / 2), Int(Picture1.Height / 4)), cap1
Picture1.Circle (Int(Picture1.Width / 6) * 5, Int(Picture1.Height / 4)), cap1

Picture1.Circle (Int(Picture1.Width / 6), Int(Picture1.Height / 4) * 3), cap1
Picture1.Circle (Int(Picture1.Width / 2), Int(Picture1.Height / 4) * 3), cap1
Picture1.Circle (Int(Picture1.Width / 6) * 5, Int(Picture1.Height / 4) * 3), cap1
If cap1 >= Picture1.Width / 6 Then
Timer5.Enabled = False
Timer1.Enabled = 1
cap1 = 0

End If
End Sub

Private Sub Timer6_Timer()
Timer6.Enabled = False
Timer4.Enabled = True
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.