Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Może ktoś znajdzie błąd
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004
Może ktoś znajdzie błąd

Private Sub Timer2_Timer()
Dim Czas As Integer
Const Limit = 5
'Pora dnia - przed południem
If Time < "120" Then
Label1.Caption = "Jest przed południem."
End If
Czas = Czas + 1
If Czas = Limit Then
Label1.Caption = ""
End If

'Pora dnia - południe
If Time = "120" Then
Label1.Caption = "Jest południe."
End If
Czas = Czas + 1
If Czas = Limit Then
Label1.Caption = ""
End If

'Pora dnia - popołudniu
If Time > "120" Then 'porównuje aktualny czas do godziny 12
Label1.Caption = "Jest po południu." ' jeśli większy to wyświetla napis
Czas = Czas + 1 'dodaje 1 sekundę do upłyniętego czasu
End If 'kończy pętlę porównania
If Czas = Limit Then 'jeśli czas jest równy limitowi 5 sekund
Label1.Caption = "" 'czyści napis
Timer2.Enabled = False
End If 'kończy pętlę
End Sub

Gdy uruchamiam program, napis się pojawia ale nie znika po upłynięciu limitu.

31-10-2004 19:56
Pokaż profil gibcio  Wyślij email do gibcio        1654622
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Dim Czas As Integer wstaw na samej górze modułu!


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

31-10-2004 21:12
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004

Powyższa poprawka nie działa
nie wiem co się dzieje

31-10-2004 21:17
Pokaż profil gibcio  Wyślij email do gibcio        1654622
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

No to już se przez gygy wyjaśniliśmy - Timer2 miał Enabled na False i Interval na 1 (mierzył on sekundy, także powinien być ustawiony na 1000)


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

31-10-2004 21:36
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1