'PicBasic program za podrsku eksperimentalnom kolu
'sa mikrokontrolermo PIC18F2550
DEFINE OSC 8
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
Mislim da je greska u konfiguraciji osiguraca. Moze li mi neko pomoci?
Pozdrav
[Ovu poruku je menjao deniah dana 07.09.2008. u 00:02 GMT+1]