hej nie mogę sobie poradzić z wyświetleniem Daty na lcd bez użycia Wait, dlatego zwracam się o pomoc do Was. Chodzi mi o coś działającego w tym stylu, gdy jestem na Ekranie_1 i nacisnę OK wyświetli mi się data na kilka sekund.
Kod: text
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Wysw_ekran:
do
incr czaswyswietlania
If Wyswietlanie = 1 Then
'--------------Ekran 1--------------------------------------
If Poz_ekran = 1 Then
'Cls
Locate 1 , 1
Lcd "11 aaaaaa"
End If
'--------------Ekran 5--------------------------------------
If Poz_ekran = 5 Then
'Cls
Locate 1 , 1
Lcd "55 eeeeee"
End If
'-----------------------------------------------------------
End If
waitms 100
loop until czaswyswietlania = 50
czaswyswietlania = 0
Return
arktik1 napisał:Nie trzeba stosować TIMERów.
Można zrobić też tak:Wysw_ekran: do incr czaswyswietlania If Wyswietlanie = 1 Then '--------------Ekran 1-------------------------------------- If Poz_ekran = 1 Then 'Cls Locate 1 , 1 Lcd "11 aaaaaa" End If '--------------Ekran 5-------------------------------------- If Poz_ekran = 5 Then 'Cls Locate 1 , 1 Lcd "55 eeeeee" End If '----------------------------------------------------------- End If waitms 100 loop until czaswyswietlania = 50 czaswyswietlania = 0 Return
Tu będzie czas ok 5sekund
do
if coś tam then czaswyswietlania =1
if czaswyswietlania > 0 then
incr czaswyswietlania
If Wyswietlanie = 1 Then
'--------------Ekran 1--------------------------------------
If Poz_ekran = 1 Then
'Cls
Locate 1 , 1
Lcd "11 aaaaaa"
End If
'--------------Ekran 5--------------------------------------
If Poz_ekran = 5 Then
'Cls
Locate 1 , 1
Lcd "55 eeeeee"
End If
'-----------------------------------------------------------
End If
if czaswyswietlania >= 50 then czaswyswietlania = 0
endif
waitms 100
loop