Basit bir saka program

[tamerr89]

Basit bir saka program

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.basit bir şaka programıdır belki bir işinize yarayabilir.kolay gelsin..







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&quot

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&quot



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&quot

End Sub