vb 6 da yardım

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
A

adrenalin2

Katılımcı Üye
27 Eyl 2011
750
0
Ankara
Kim 1 milyon tl ister ? tarzı bir program yapıcam can sıkıntısından :D çoğunluğunu yaptım . Ama sağda sürenin 30 dan geriye doğru saymasını istiyorum . Visual basic te Nasıl yapabilirim ?
 
Son düzenleme:
Tarihe göre sırala Oylara göre sırala
L

LyVio

Uzman üye
30 Ağu 2010
1,369
1
Andromeda
Kod: 
Private Sub Form_Load() 
Timer1.Enabled = True 'Timer 1 çalışacak 
Timer1.Interval = 1000 'her 1 SN de  
Label1.Caption = "60" 'hangi sayıdan geri sayacaksak o rakamı yazıyoruz 
End Sub 

Private Sub Timer1_Timer() 
Label1.Caption = Val(Label1.Caption) - 1'timer her SN çalıştığı için label 1 de yazarn RAKAM dan 1 çıkaracak  güzel mantık 
If Label1.Caption = "0" Then label1 0 olduğunda msgbox ile bizi uyaracak 
 MsgBox "Süre Doldu" 
 Timer1.Enabled = False 
End If 
End Sub

Buyur :)
 
Oyla 0 Downvote
A

adrenalin2

Katılımcı Üye
27 Eyl 2011
750
0
Ankara
LyVio' Alıntı:
Kod: 
Private Sub Form_Load() 
Timer1.Enabled = True 'Timer 1 çalışacak 
Timer1.Interval = 1000 'her 1 SN de  
Label1.Caption = "60" 'hangi sayıdan geri sayacaksak o rakamı yazıyoruz 
End Sub 

Private Sub Timer1_Timer() 
Label1.Caption = Val(Label1.Caption) - 1'timer her SN çalıştığı için label 1 de yazarn RAKAM dan 1 çıkaracak  güzel mantık 
If Label1.Caption = "0" Then label1 0 olduğunda msgbox ile bizi uyaracak 
 MsgBox "Süre Doldu" 
 Timer1.Enabled = False 
End If 
End Sub

Buyur :)
Genişletmek için tıkla ...

bunlar işte
 
Oyla 0 Downvote
A

adrenalin2

Katılımcı Üye
27 Eyl 2011
750
0
Ankara
buldum . Yukarıdaki arkadaşımızın verdiği kodlarda hata var . Timer1.Enabled = False bunun yerine Timer1.Enabled = True yazdım saymaya başladı
 
Oyla 0 Downvote
L

LyVio

Uzman üye
30 Ağu 2010
1,369
1
Andromeda
Kardeşim sanırım sizde sorun var kodlar gayet güzel çalışıyor. Ayrıca projenizde bir çok timer varsa kodu ekledikten sonra timerin doğru olduğunuda kontrol etmenizde fayda var.


Ben direk kodlar kopyala yapıştır yaptım sorun çıkmadı ? Neyse konuyu bildiriyorum çözüldüyse :)
 
Oyla 0 Downvote
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.