[L4K4C1N]

Öncelikle Sorunum Su yaptigim Projede 1.bölüm Çalişiyor Resimdeki gibi
- Resim Silinmiş.

Ama Ben bunu daha Çok Fazla Bir Şelilde Yapmak İstiyorum Fakat bu sefer diger Diger Bölmelere süreleri yaziyorum start diorum Hiç Bir Şey olmuyor ve çalişmiyor Resimdeki Gibi
- Resim Silinmiş.

Ve 1.Projenin Çalişmasi icin Grkli Codeler

Private Sub Command1_Click()

If Timer1.Enabled = True Then
Timer1.Enabled = False
Command1.Caption = "BAŞLA"
Else
If txsaat = "" Then txsaat = "00"
If txdakika = "" Then txdakika = "00"
If Len(txsaat) = 1 Then txsaat = "0" & txsaat
If Len(txdakika) = 1 Then txdakika = "0" & txdakika
If Len(txsaniye) = 1 Then txsaniye = "0" & txsaniye

Timer1.Enabled = True
Command1.Caption = "DURDUR"
End If


End Sub


Private Sub Timer1_Timer()

If txsaniye > 0 Then
txsaniye = txsaniye - 1
If Len(txsaniye) = 1 Then txsaniye = "0" & txsaniye
Else
txsaniye = 59
If txdakika > 0 Then
txdakika = txdakika - 1
If Len(txdakika) = 1 Then txdakika = "0" & txdakika
Else
txdakika = 59
If txsaat > 0 Then
txsaat = txsaat - 1
If Len(txsaat) = 1 Then txsaat = "0" & txsaat
Else
txsaat = "00": txsaniye = "00": txdakika = "00"
MsgBox "Bitti"
Timer1.Enabled = False
End If
End If

End If

End Sub

Ben Digerlerinin İçlerinide Ayni Bu şekilde dolduruyorum Commad ve timer isimlerini degistiriorum Çakışmasinlar die ama
Çakişiorlar
sadece 1. bölüm çalişiyor 2, 3,, çalişmiyor digerlerininde
1. bölümdeki gibi calişmasi icin ne yapmam gerekiyor yardim ederseniz cok sevinirim ...
ÇOK ACELE LAZİM LÜTFEN YARDİM EDERMİSİNİZ...?????????

 

[L4K4C1N]

Yok mu yardim edebilicek bir kisi yha of :S

 

[destroyer1]

kaç timer kullanıyorsun