Jak wyświetlić długi tekst na LCD 16x2 z Atmega8 w Bascom?

Question

Witam serdecznie wszystkich uzytkownikow serwisu Elektroda.pl:) Chciałbym kolegow prosic o rozjasnienie moich mysli,mianowicie zacząłem bawic sie w Bascomie, chcę swojej dziewczynie zrobic taki skromny upominek,w ksztalcie ramki na zdjecie,logo + wysiwetlacz LCD z atmega8 ktory ma pokazywac...

dawid512 · Answer

W twoim kodzie znaki ktore wpiszesz beda sie przesowac o 100 miejsc w lewo. Sproboj wyswietlic jakis napis nastepnie go przesunac wyczyscic ekran dac kolejne znaki i znowu przesunac.

Jak wyżej. Tak trudno napisać krótką wypowiedź stosując "ogonki"?

M. S. · Answer

Jak będziesz czyścił LCD to napis będzie migotał.
Przesuwaj tekst na wyświetlaczu i dopisuj kolejny znak zmiennej (lub stałej) Tekst.

Wyswietlanie_tekstu:
For I = 1 To 100 ' Sto znaków!
Litera = Mid(Tekst , I , 1)
Lcd Litera;
If I > 16 Then Shiftlcd Left ' 16 - ilość znaków w jednej linii
Waitms 23
Next I
Return

Promuję tematy:
22.11.2020 Emulator czujników TPMS dla Opla.

rzeziu · Answer

Witam:) i dziękuje bardzo za zainteresowanie i pomoc:) Kolego M,S mogłbys rozwinac ten kod? jestem bardzo poczatkujacym uzytkownikiem bascom'a zrobilem to tak i nie chce mi skompilowac:/


Cls
Dim I As Byte
Dim Tekst As Byte
Dim Litera As Byte

For I = 1 To 100 ' Sto znaków!
Litera = Mid(Tekst , I , 1)
Lcd Litera;
If I > 16 Then Shiftlcd Left ' 16 - ilość znaków w jednej linii
Waitms 23
Next I
Return

gdzie mam wrzucic ten moj tekst? proszę o wytłumaczenie:)

a tak ma to wyglądac:)

Jak wyświetlić długi tekst na LCD 16x2 z Atmega8 w Bascom?

Promuję tematy:
21.11.2012 Jak zbudować wzmacniacz na UL1402, UL1403 i UL1405 na domówkę?

rzeziu · Answer

Witam serdecznie:) rozmawiałem dziś z moim nauczycielem ze specjalizacji,dowiedzialem się,ze nie mozna uzyc wiecej znakow niz 40sci,jezeli bedzie wiecej to przerzuci mi na drugą linie wyswietlacza..

Moje rozwiazanie nad ktorym wczoraj siedzialem,dosc prymitywne ,ale w miare takie jakie chcalem:) oto kawalek kodu:)


Cls
Lcd "*Adam Mickiewicz*"
Lowerline
Lcd "*Tak w kazdym miejscu i o kazdej dobie,"
For A = 0 To 22
Shiftlcd Left
Waitms 16
Next A
Cls
Lowerline
Lcd "GdziemZTobaPlakal,gdziemSieZTobaBawil"
For A = 0 To 22
Shiftlcd Left
Waitms 16
Next A
Cls
Lowerline
Lcd "Wszedzie i zawsze bede ja przy Tobie,"
For A = 0 To 22
Shiftlcd Left
Waitms 16
Next A
Cls
Lowerline
Lcd "Bom wszedzie czastke mej duszy zostawil."
For A = 0 To 23
Shiftlcd Left
Waitms 16
Next A
Cls

i mam tak zrobione dla reszty tekstu:)
wyswietla tekst-> shiftlcd -> cls i drugie zdanie znow shift lcd i tak w kolko,jezeli zdanie dluze niz 40znakow to je dziele jak napisalem,prosto i dzialajaco:)

Promuję tematy:
21.11.2012 Jak zbudować wzmacniacz na UL1402, UL1403 i UL1405 na domówkę?

Jak wyświetlić długi tekst na LCD 16x2 z Atmega8 w Bascom?

Post #1

Post #2

Post #3

Post #4

Post #5