BASCOM: przewijanie tekstu z EEPROM na LCD Nokia (6x14) – jak zaimplementować?

Question

Witam. Mam do was Panowie prośbę. Pewnie powiecie ze nie moge oczekiwać gotowych rozwiązań.. ale zapewniam ze juz sie nad tym glowilem i nie wiem jak to napisać: Ale do rzeczy: W pamięci eeprom będę miał wprowadzony tekst ... ciąg bajtów... zawartość eepromu będzie przewijana na LCD od nokii (6...

radekgers · Answer

ja tego zupełnie nie rozumiem... co właściwie chcesz zrobić? piszesz wyświetl...z eepromu MNIEJ i więcej, ale mniej i więcej od czego?

djleeon603 · Answer

No to moze jeszcze raz... w inny sposob.. jak ująć w kod następującą rzecz:

If Adress = 10 And Command = 1 Then
Wyświetl na lcd komórki z zakresu 1-84 z zewnętrznego EEpromu.

ponowane Adress = 10 And command = 1 then
Wyświetl na lcd komórki z zakresu 85-169 z zewnętrznego EEpromu.

itd.

If Adress =10 and Command =2
Wyświetl na lcd komórki z zakresu 85-169 z zewnętrznego EEpromu.

ponownie If Adress =10 and Command =2
Wyświetl na lcd komórki z zakresu 1-84 z zewnętrznego EEpromu.
itd

chodzi o to ze w eepromie bede mial okolo 4000 komórek ze znakami i chce je po kolei wyświetlać na lcd (przewijać do przodu i do tyłu)

tylko niewiem jak to ująć w kod .. to moje początki wiec wiecie.

Dodano po 1 [minuty]:

dla sprostowania czemu akurat 84 komórki... a dla tego ze mam wyświetlacz od nokii3310 a ona ma 6 wierszy po 14 znaków (6*14=84)

jacobsek · Answer

Witam. Ten temat jest chyba podobny. Przejrzyj go. Pozdrawiam

djleeon603 · Answer

myslałem pol nocy i wymyslilem to:
Co o tym sadzicie???

Dim A As Byte
Dim B As Byte
Dim C As String
A = 1
B = 84

Do
If Adress = 10 and Comand = 1
Then
Temp1 = A + 84
Temp2 = B + 84
Read EEPROM C , From A to B (tylko niewiem czy sa funkcje from, to)
Cls_lcd
Waitus 50
Print C
End If

If Adress = 10 and Command = 2
Then
Temp1 = A - 84
Temp2 = B - 84
Read eeprom C , from A to B (tylko niewiem czy sa funkcje from, to)
Cls_lcd
waitus 50
Print C
End If

End

dturczak · Answer

jezeli rzeczywiscie to bedzie dzialac.. (przyznam sie ,nie wnikalem

to to from..zrob normalnie w petli for
albo odrazu wyswietlaj albo umieszczaj zmienna nie w 'C' tylko w jakiejs tablicy i potem wyswietlaj
for i=A to B
Read eeprom C , i
next i

djleeon603 · Answer

a mozna tak?:
Dim A As Byte
Dim B As Byte
Dim C As String
A = 1
B = 84

Do
If Adress = 10 and Comand = 1
Then
Temp1 = A + 84
Temp2 = B + 84
Read EEPROM C , A to B
Cls_lcd
Waitus 50
Print C
End If

If Adress = 10 and Command = 2
Then
Temp1 = A - 84
Temp2 = B - 84
Read eeprom C , A to B
Cls_lcd
waitus 50
Print C
End If

End

ta metoda wydaje mi sie bardziej przejzysta....

pixel7 · Answer

Tak nie będzie działać.
Sprobuj poniższego kodu:

do
If Adress = 10 and Comand = 1 Then
I=1' zaczynamy od 1 bajtu
Do
Readeeprom C , I
Waitus 50
Print C
incr I
loop untill I=84' petla az do 84 bajtu
End If

If Adress = 10 and Comand = 1 Then
I=85' zaczynamy od 85 bajtu
Do
Readeeprom C , I
Waitus 50
Print C
incr I
loop untill I=169' petla az do 169 bajtu
End If
loop
End

Powinno działać, z tym że musisz rozwiązać problem wyboru kolejnego bloku zawartości eeproma (jeśli chcesz używać 1 przycisku)

Promuję tematy:
13.02.2024 Tania kamera IP - uwolnienie od chmury
28.07.2022 mikroLuna, tym razem egde AI w liczniku prądu.
17.07.2022 Luna - Sztuczna Inteligencja i zarządzanie energią elekryczną

djleeon603 · Answer

1 przycisk up 2 przycisk down a czemu moj kod nie bedzie działał?

pixel7 · Answer

Bo A to B w bascom można używać tylko z komendą FOR FOR I=1 to 20 print I next I W przykładzie który podałem Ci w poprzednim poście I jest zwiększane komendą incr, a pętla do..loop jest wykonywana aż I osiągnie żądaną wartość. jeśli chcesz używać 2 przycisków możesz zmienić comand w drugim IF na np 2. Wtedy po naciśnięciu 1 pojawi się pierwsza część a po naciśnięciu 2 druga część tekstu z eeprom.

BASCOM: przewijanie tekstu z EEPROM na LCD Nokia (6x14) – jak zaimplementować?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Podsumowanie tematu