Odpowiedz 
 
Ocena wątku:
  • 0 Głosów - 0 Średnio
  • 1
  • 2
  • 3
  • 4
  • 5
Bascom AVR
SQ2EER Offline
Jacek sk
***

Liczba postów: 182
Dołączył: 17-06-2009
Post: #38
RE: Bascom AVR
Witam - ok może być cały wiersz tylko że część tego 1 wiersza pojawia mi się w 3 linii

Kod:
'************* Konfiguracja uC *****************
'***********************************************
$regfile = "m644pdef.dat"
$crystal = 16000000


Config Lcdpin = Pin , Db4 = Porta.5 , Db5 = Porta.4 , Db6 = Porta.3 , Db7 = Porta.2 , E = Porta.0 , Rs = Porta.1       'tu zmien na odpowiednie piny
Config Lcd = 16 * 4

Deflcdchar 1 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 4               ' replace ? with number (0-7)
Deflcdchar 2 , 31 , 32 , 32 , 32 , 32 , 32 , 32 , 32        ' replace ? with number (0-7)
Deflcdchar 3 , 31 , 4 , 4 , 4 , 4 , 32 , 32 , 32            ' replace ? with number (0-7)
Deflcdchar 4 , 4 , 4 , 4 , 4 , 14 , 14 , 31 , 31            ' replace ? with number (0-7)

Config Portd.0 = Input
Config Portd.1 = Input
Config Portd.2 = Input

Set Portd.0
Set Portd.1
Set Portd.2

Dim A As Byte


Cursor Off


Cls

Do

For A = 1 To 10

  Shiftlcd Right

Waitms 250                                                  

Next

Lcd Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(2)

Lowerline
Lcd " 261   " ; Chr(4) ; "   305  "

Thirdline

Lcd "Line 3"

Fourthline

Lcd "Line 4"

Home Third                                                  

Home Fourth


Loop

2, 3 oraz 4 też się przesuwają a ma tylko 1 - w lewo lub prawo - pozdrawiam Jacek.
18-03-2011 23:03
Znajdź wszystkie posty użytkownika Odpowiedz cytując ten post
Odpowiedz 


Wiadomości w tym wątku
Bascom AVR - SP5FCS - 15-08-2010, 22:43
RE: Bascom AVR - SP3SWJ - 06-10-2010, 21:56
RE: Bascom AVR - SQ2EER - 25-10-2010, 21:07
RE: Bascom AVR - SP3SWJ - 25-10-2010, 21:17
RE: Bascom AVR - SQ2EER - 25-10-2010, 21:23
RE: Bascom AVR - SP3SWJ - 25-10-2010, 21:35
RE: Bascom AVR - SQ2EER - 25-10-2010, 21:39
RE: Bascom AVR - SP3SWJ - 25-10-2010, 22:05
RE: Bascom AVR - SQ2EER - 25-10-2010, 22:28
RE: Bascom AVR - SP3SWJ - 27-10-2010, 1:49
RE: Bascom AVR - SQ2EER - 18-03-2011, 21:39
RE: Bascom AVR - SP3SWJ - 18-03-2011, 22:02
RE: Bascom AVR - SQ2EER - 18-03-2011, 22:22
RE: Bascom AVR - SQ9MDD - 18-03-2011, 22:31
RE: Bascom AVR - SQ2EER - 18-03-2011 23:03
RE: Bascom AVR - SP3SWJ - 18-03-2011, 23:05
RE: Bascom AVR - SQ2EER - 18-03-2011, 23:15
RE: Bascom AVR - SQ2EER - 04-09-2011, 22:04
RE: Bascom AVR - SP3SWJ - 04-09-2011, 22:09
RE: Bascom AVR - SQ2EER - 04-09-2011, 22:22
RE: Bascom AVR - SP3SWJ - 04-09-2011, 22:36
RE: Bascom AVR - SQ9MDD - 06-05-2012, 16:10
RE: Bascom AVR - SP3SWJ - 06-05-2012, 16:10
RE: Bascom AVR - SQ9MDD - 06-05-2012, 16:21
RE: Bascom AVR - SP3SWJ - 06-05-2012, 16:34
RE: Bascom AVR - SQ9MDD - 06-05-2012, 16:41
RE: Bascom AVR - SP3SWJ - 06-05-2012, 16:41

Skocz do:


Użytkownicy przeglądający ten wątek: 1 gości