Başlangıç > Kodlar > VB.NET ile basit bir şaka programı yapmak

VB.NET ile basit bir şaka programı yapmak


Basit,küçük bir şaka programıdır.ama bir ilham verebilir.kapanırkende solarak kapanıyor.(vb.net ile yapıldı.)

formunuza 1 adet tımer 1 adet progressbar koyun.progressbarın properties ayarından value yi 100 yapın.timerin interval özelliğini 1000 yapın.
enabled özelliğinide ture yapın.1 adet label koyup içine "bilgisayarınız 10 sn.sonra kaydedilen bütün bilgileri silecektir" yazın ve aşağıdaki kodu
kopyalayın.



Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
If ProgressBar1.Value > 20 Then
ProgressBar1.Value = ProgressBar1.Value - 10
Else
Timer1.Enabled = False
MsgBox("AHA!!!", MsgBoxStyle.OKOnly, "VİRÜS")
ProgressBar1.Value = 100 

End If
End Sub

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

MsgBox("Bu programı sonlandıramazsınız!!", MsgBoxStyle.OKOnly, "VİRÜS")

End Sub

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

MsgBox("Tamam,tamam korkma kapanıyor...", MsgBoxStyle.OKOnly, "VİRÜS")
Dim d As Double
For d = 1 To 0 + 0.02 Step -0.02
System.Threading.Thread.Sleep(50)
Application.DoEvents()
Me.Opacity = d
Me.Refresh()
Next d
Environment.Exit(0)
End Sub

Private Sub Form1_HelpRequested(ByVal sender As Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles MyBase.HelpRequested
MsgBox("Bunu yazan Serdar Şahin'dir.")
End Sub

End Class



TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: