Basit bir saka program - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > visual basic.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 17:20   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Basit bir saka program

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
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Ortalama hesaplayan program tamerr89 C++ 0 29 March 2008 17:50
Küçük bir stok program tamerr89 C++ 0 29 March 2008 17:38
Yeni Bir Program Hanım 1.0 tamerr89 Gülmece 0 25 March 2008 22:23
FULL PROGRAM ARŞİVİ agasar Programlar ve Anlatımlar 0 11 November 2006 23:24

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.