iyi forumlar visual basic 2010 da mesela ben bir butona basınca msg box açılıyorya onun direk tıklayınca değil tıkladıntan 2 veya 3 sn sonra açılmasını istiyorum bunu nasıl ayarlayabilirim
Visual Basic 2010 MsgBox Süreli Açılsın
- Konuyu başlatan alibaris123
- Başlangıç tarihi
- Konuyu başlatan
- #4
Buton ve timer timer kullanımına bak bakalım biraz düşün bak mesela butona tıkladığımda timer süresi 3 saniye sonra msgbox çıksın. timer i araştır
Timer biliyorum ne yazıcam fakat timere 2 dknızı ayırıp yazıverin lütfen
- Konuyu başlatan
- #8
kodları denemedim sadece tahmin.
timer1.interval =4000 //4 saniye
timer1.start //timer başlasın
msgbox("Merhaba")
dediğim gibi denemedim yoldayım bilgisayarım yok
olmuyor ya olmuyor bu kodları timeremi yazıcam 3 sn sonra açılmasını istediğim butonamı
timer1.interval =4000 //4 saniye
timer1.start //timer başlasın
msgbox("Merhaba")
bu kodları butona yazdım ama fark etmiyor direk açılıyon yinede
isual basic'de timer, Windows sayacını temsil etmektedir. Sayaç çalışmaya başladığında, belirli bir süre aralığında Tick olayını gerçekleştirir. Timer kontrolünün Interval değeri, Tick olayının kaç milisaniyede bir gerçekleşeceğini belirlemektedir. Örneğin, Interval değerine 2000 verdiğimiz bir sayaçta, Tick olayında yazılan kodları iki saniyede bir çalıştırır. Dolayısıyla aynı işlemi 2 saniyede bir gerçekleştirir.
Sayacı başlatmak için Start, bitirmek için ise Stop özellikleri kullanılır. Ancak aktif olması için Enabled özelliğine dikkat edilmesi gerekir. Çoğunlukla vbnete yeni başlayan programlamacılar bu konuda yanılarak daha doğrusu bütün işlemleri yapıp aktif etmediği için sorunlar ile karşılaşırlar. Timerin enabled özelliği mutlaka kontrol edilmelidir. Aksi takdirde çalışmaz.
Örnek verecek olursak:
Private Sub btnBasla_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnBasla.Click
' sayacimiz 4 sn aralikla calisacak
Timer1.Interval = 4000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
MsgBox("Sayacımız şu anda çalışıyor...")
End Sub
Private Sub btnDur_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnDur.Click
Timer1.Stop()
End Sub
ALINTIDIR.
Sayacı başlatmak için Start, bitirmek için ise Stop özellikleri kullanılır. Ancak aktif olması için Enabled özelliğine dikkat edilmesi gerekir. Çoğunlukla vbnete yeni başlayan programlamacılar bu konuda yanılarak daha doğrusu bütün işlemleri yapıp aktif etmediği için sorunlar ile karşılaşırlar. Timerin enabled özelliği mutlaka kontrol edilmelidir. Aksi takdirde çalışmaz.
Örnek verecek olursak:
Private Sub btnBasla_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnBasla.Click
' sayacimiz 4 sn aralikla calisacak
Timer1.Interval = 4000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
MsgBox("Sayacımız şu anda çalışıyor...")
End Sub
Private Sub btnDur_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnDur.Click
Timer1.Stop()
End Sub
ALINTIDIR.
kodları timer'ı ekledikten sonra sol alt taraflarda timer yazar onun üstüne çift tıklayıp içine giriceksin bu kjodları butona koyarsa işlevi şu şekilde olur: Butona tıklandığı zaman timer 1 oluşturulsun ve 3 saniye saysın. bi işe yaramaz yani
