[es] - LCD display 2x16 znakova preko USB porta

Pulapola
Pula

Član broj: 28152
Poruke: 52
*.adsl.net.t-com.hr.

Profil

LCD display 2x16 znakova preko USB porta

^{10.08.2009. u 11:32 - pre 179 meseci}

Poštovani,
Nov sam u programiranju mikrokontrolera te vas molim za pomoć.
Kupio sam EasyPIC5 i mikroBasic. Pokusavam po uputama iz knjige PC Interfejsi
autora V. Milanović napraviti LCD display 2x16 redova preko USB porta.
Pločicu sam napravio po shemi g. V. Milanovića i pokušavam ubaciti kod iz knjige
u PIC18F4550.

Kad u mikroBasic-u pokrenem Build prijavi mi grešku
u 2. redu: Identifier '8' was not declared
i u zadnjem redu:
Syntax error: Expected 'end' but '' found
Syntax error: Expected '.' but '' found

Code:

'Program za LCD display na USB portu
         DEFINE OSC 8
         DEFINE LCD_DREG   PORTD    'I/O port gdje je LCD
         DEFINE LCD_DBIT   4
         DEFINE LCD_RSREG  PORTD
         DEFINE LCD_RSBIT  2        'Register select pin
         DEFINE LCD_EREG   PORTD
         DEFINE LCD_EBIT   3        'Enable pin
         DEFINE LCD_BITS   4        '4-bitni data bus
         DEFINE LCD_LINES  2        'LCD ima dva reda karaktera
USBBufferSizeMax con 64    'Maksimalna velicina bufera
USBBufferSizeTX  con 64    'Ulazni
USBBufferSizeRX  con 64    'Izlazni

'USB buferi...
USBBuffer          Var Byte[USBBufferSizeMax]
USBBufferCount     Var Byte
i Var byte
Red1 Var byte[16]
Red2 Var byte[16]
         TRISB = $00       'Port B je izlazni
         ADCON1 = 15       'Svi pinovi su digitalni
usbinit  'Inicijalizacija USB-a...
ProgramStart:
             gosub DoUSBIn
             goto ProgramStart
'Prijem podataka sa USB basa
DoUSBIn:
        USBBufferCount = USBBufferSizeRX            'Velicina RX buffera
        USBService
        USBIn 1, USBBuffer, USBBufferCount, DoUSBIn 'Citanje podataka

        If USBBuffer[0] = 253 and USBBuffer[1] = 1 Then
        For i = 2 To 17
        Red1 [i-2] = Usbbuffer[i]
        Next
        Lcdout $fe, 1, STR Red1\16
        EndIf

        If USBBuffer[0] = 253 and USBBuffer[1] = 2 Then
        For i = 2 To 17
        Red2 [i-2] = Usbbuffer[i]
        Next
        Lcdout $fe, $C0, STR Red2\16
        EndIf

        return

'Slanje podataka sa USB-a
DoUSBOut:
         USBBufferCount = USBBufferSizeTX              'Velicina TX buffera
         USBService
         USBOut 1, USBBuffer, USBBufferCount, DoUSBOut 'Slanje podataka
         Return

Unaprijed HVALA.

Odgovor na temu

Seme
Miroslav Bozic
Nis
Elektronski fakultet
Nis, Zajecar

Član broj: 43158
Poruke: 390
*.rcub.bg.ac.rs.

Sajt: www.ebuyelektronika.co.cc

+5 Profil

Re: LCD display 2x16 znakova preko USB porta

^{10.08.2009. u 14:53 - pre 179 meseci}

Kod iz knjige, tj. kod koji si postavio na forumu je pisan za PICBasic kompajler a ne za MicroBasic. Instaliraj PICBasic i probaj da onda kompajliras program. POzz

Odgovor na temu

Pulapola
Pula

Član broj: 28152
Poruke: 52
*.adsl.net.t-com.hr.

Profil

Re: LCD display 2x16 znakova preko USB porta

^{18.08.2009. u 16:00 - pre 178 meseci}

Pozdrav svima,

HVALA Miroslav na uputama.

I dalje prisutni problemi...
Instalirao sam MicroCode Studio V.3.0.0.5
i Compiler PICBASIC PRO 2.50B

Upisao sam program i kad pokrenem Compile prijavi mi:
ERROR: Macro USBINIT? not found in macro file.
ERROR: Macro USBSERVICE? not found in macro file.
ERROR: Macro USBIN?CBBL not found in macro file.
ERROR: Macro USBOUT?CBBL not found in macro file.

U Compile and Program Options, Compiler je na: C:\pbp
a Assembler je na: c:\mcc18\mpasm i uključena je kvačica
na Use MPASM. Svi Radio buttons uključeni su na INHX8M.

Instalirao sam i MPLAB-C18-Full-v3_10 i dalje ne mogu pronaći grešku.

Molim za pomoć.

Hvala i pozdrav svima.

Odgovor na temu

Pulapola
Pula

Član broj: 28152
Poruke: 52
*.adsl.net.t-com.hr.

Profil

Re: LCD display 2x16 znakova preko USB porta

^{19.08.2009. u 17:03 - pre 178 meseci}

Pozdrav svima,

Nakon ne prospavane noći proradio je PicBasic PRO. Zapisao sam podatke u PIC
i postavio ga u pločicu Eksperimentalno kolo (autor: V. Milanović).
PC je prepoznao Eksperimentalno kolo kao HID-Compliant device.
Kad pokrenem program u VB-u za ispis teksta u dva reda na display-u ne dođe ništa.
Ako trimer 5K okrenem do kraja u prvom redu display-a pojave se crni kvadrati
do kraja reda a u drugom redu ništa.

Obzirom da nisam uspio nabaviti display D16217SYH (koji preporučuje autor),
nabavio sam display 162D-BA-BC.

Sumnjam da nisam dobro spojio display na pločicu.
Pin Assignment za D16217SYH je:
1. Vss; 2. Vdd; 3. Vo; 4. RS; 5. R/W; 6. E; 7. DB0; 8. DB1; 9. DB2; 10. DB3;
11. DB4; 12. DB5; 13. DB6; 14. DB7

Pin Assignment za 162D-BA-BC je:
1. DB7; 2. DB6; 3. DB5; 4. DB4; 5. DB3; 6. DB2; 7. DB1; 8. DB0; 9. E; 10. R/W;
11. RS; 12. Vo; 13. Vss; 14. Vdd

Uspoređujući pin assignment prvog i drugog display-a spojio sam 1 na 13; 2 na 14 itd.

Molim iskusnije za pomoć kako da spojim display?

Pozdrav svima i hvala unaprijed.

Odgovor na temu