zawsze to samo na 2ch liniach LCD 4x20

[sliver]

zrobilem komputerek do auta(spalanie, przebieg, temp itp.) na Atmedze32. program napisany jest w bascomie pod wyswietlacz lcd 2x8 i proboje go przerobic tak, zeby dzialal pod wyswietlaczem 4x20 z tym, ze na dwoch pierwszych linijkach chce, zeby zawsze to samo sie wyswietlalo(godzina, temperatura) a na dolnych to co bylo poprzednio na 2x8, czyli takie przelaczane menu z roznymi funkcami.
jak to rozwiazac??
za bardzo nie znam sie na bascomie i probowalem to zrobic w ten sposob, ze na poczatku programu dalem kawalki kodu odpowiedzialne za wyswietlanie godziny i temperatury:

Kod: Zaznacz cały

'-----ZEGAR------ Gosub Clock If G < 10 Then Locate 1 , 1 Lcd "0" ; G Else Lcd G End If If M < 10 Then Locate 1 , 3 Lcd ":0" ; M Else Lcd ":" ; M End If --------TEMP--------- Gosub Temp Locate 1 , 8 Lcd Pom_t1 ; " " ; Chr(3) Locate 1 , 15 Lcd Pom_t2 ; " " ; Chr(3)

a w dalszej czesci programu daje wyswietlanie poszczegolnych opcji menu tylko, ze deklaruje w ktorej maja byc linijce(tj. 3 i 4) np.

Kod: Zaznacz cały

If Item = 1 Then Cls Locate 3 , 1 Lcd "PREDKOSC: " ; Predkosc Locate 3 , 17 Lcd "km/h" Locate 4 , 1 Lcd "PRZEBIEG: " ; Licznik_km_str Locate 4 , 17 Lcd "km" End If

ale cos to nie dziala za dobrze - zegarek miga, temperatura sie wogole nie wyswietla, predkosc i przebieg jest ok. pomaga usuniecie komendy Cls z tej drugiej czesci kodu ale wtedy sa klopoty z odswiezaniem...
jak sobie poradzic z tym problemem??

[shadow82]

Można to zrobić w taki sposób:

Kod: Zaznacz cały

'-----ZEGAR------ Call Clock Locate 1 , 1 If G < 10 Then Lcd "0" Lcd G ; ":" If M < 10 Then Lcd "0" Lcd M '--------TEMP--------- Call Temp Locate 1 , 8 Lcd Pom_t1 ; " " ; Chr(3) Locate 1 , 15 Lcd Pom_t2 ; " " ; Chr(3) ********************* If Item = 1 Then Locate 3 , 1 Lcd "PREDKOSC: " ; Predkosc ; " " Locate 3 , 17 Lcd "km/h" Locate 4 , 1 Lcd "PRZEBIEG: " ; Licznik_km_str ; " " Locate 4 , 17 Lcd "km" End If