pic18f2550 problem

[zero-cool123]

Pozdrav ... ima jen problem imam na praksi zadatak da izradim sklop koji će brojati koliko put su se otvorila 4 vrata i to se mora prikazati na kompjuteru koji povezan usb-om s pic-om. Uzeo sam pic18f2550 izradio pločice sad mi treba mala pomoć u programiranju, znam nešto malo programirati u picbasic-u, i sad mi treba pomoć oko naredbi za picbasic i program za kompjuter.. ako može neko pomoć do sutra navečer hvala

[DaTi]

Pa mislim da, negde na forumu ima primer kako se koristi usb port sa PBP. Samo ti treba ocitavanje nekog porta npr PORTB i slati na USB, u VB napraviš proveru i ubacuješ vrednosti PORTB u brojače i prikazujes, pocni nešto pa cemo ti pomoci.. .

[zero-cool123]

Code: Select all

DEFINE OSC 12          

BROJ    var     byte      'Pomocna promenljiva  

USBBufferSizeMax   con 8  'Maksimalna velicina bafera
USBBufferSizeTX    con 8  'Ulaz 
USBBufferSizeRX    con 8  'Izlaz

' USB baferi
USBBuffer        Var Byte[USBBufferSizeMax] 
USBBufferCount   Var Byte 

   TRISB = $00    'Port B je izlazni
   TRISA = $FF    'Port A je ulazni
   ADCON1 = 15    'Svi pinovi su digitalni
   Pause 1000

usbinit 'inicijalizacija USB-a
ProgramStart: 
   gosub DoUSBIn
   gosub DoUSBOut
   goto ProgramStart  

'Podprogram za citanje podataka sa PC-a
DoUSBIn:
   USBBufferCount = USBBufferSizeRX              'Velicina RX  bafera
   USBService                                    'Odrzi konekciju
   USBIn 1, USBBuffer, USBBufferCount, DoUSBIn   'Procitja podatke
 
   If USBBuffer[0] = 250 Then
   Portb = USBBuffer[1]
   Endif
   
   Return

'Podprogram za upis podatana na PC-e
DoUSBOut:
   USBBufferCount = USBBufferSizeTX              'Velicina TX bafera
   USBService                                    'Odrzi konekciju
   USBBuffer[0]=251
   
   Broj = 0

   If porta.0 = 1 Then
   Broj=BROJ + 1
   Endif

   If porta.1 = 1 Then
   Broj=BROJ + 2
   Endif

   If porta.2 = 1 Then
   Broj=BROJ + 4
   Endif

   USBBuffer[1]=Broj
   USBOut 1, USBBuffer, USBBufferCount, DoUSBOut 'Posalji podatke
   Return
   

šta bi tu trebalo prepraviti? stavio sam da su ulazni portovi PORT A0, A1, A2 i A3..

[DaTi]

Code: Select all

DEFINE OSC 20         

BROJ    var     byte      

USBBufferSizeMax   con 8  
USBBufferSizeTX    con 8  

USBBuffer        Var Byte[USBBufferSizeMax]
USBBufferCount   Var Byte

TRISB    = $00    
TRISA    = $FF   
ADCON1   = 15    
Pause 1000

usbinit 

ProgramStart:
   USBBufferCount = USBBufferSizeTX       
   USBService                                 
   Broj = 0

   If PORTA.0 = 1 Then
        Broj = BROJ + 1
   Endif

   If PORTA.1 = 1 Then
        Broj = BROJ + 2
   Endif

   If PORTA.2 = 1 Then
        Broj = BROJ + 3
   Endif
   
   If PORTA.3 = 1 Then
        Broj = BROJ + 4
   Endif

   USBBuffer[1] = Broj
   
   USBOut 1, USBBuffer, USBBufferCount, DoUSBOut 
goto ProgramStart 

end

Eto malo prerpavljeno, kristal treba da bude na 20MHz, nisi imao proveru za porta.3 pa sam ti to dodao, ubacio sam da odma salje iz petlje da ne ide po podprogramima.... Ovo bi sada trebalo da radi..

[zero-cool123]

puno hvala a kako bi trebao izgledati program u visual basic-u? tu nisam nikad programirao

[DaTi]

Moraš iz microcode studia napraviti kompletan USB projekat, i tu dobijas izgradnjen kod za PBP i VB... pogledaj malo, zove se easyHID wizard

[zero-cool123]

imam problem s pbp-om neželi mi stvoriti hex. file.. instalirao sam verziju 2.5 s kompajlerom

[zero-cool123]

ERROR: Macro USBINIT? not found in macro file.
ERROR: Macro USBSERVICE? not found in macro file.
ERROR: Macro USBOUT?CBBL not found in macro file.
zašto mi se javljaju te greške?

[pedja089]

Mislim da treba da bude verzija 2.6, ali nisam siguran. Odavno nisam radio pa se ne secam.

[DaTi]

Mora biti 2.6 verzija PBP,a takodje i MPASM mora biti insaliran i ukljucen...