skraceni kurs ucenja picbasica

[SKOLS]

imam problem okolu eden kod,koga sakam da go kompajliram mi vadi error.
Potocno imam programa za PIC18F2550 od Vojo Milanovic.Za LCD displej so PC preku USB
ako imal nekoj vakov problem i go popravil ve molam da mi kazete.
Bidejki kodot ne saka da se kompajlira

[sindja1204]

Postavi kod. Na disku koji ide uz knjigu imas i hex/

[SKOLS]

[*]DEFINE OSC 8


DEFINE LCD_DREG PORTB 'I/O port na kome se nalazi LCD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2 'Register select pin
DEFINE LCD_EREG PORTB
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 bafera
USBBufferSizeTX con 64 ' Ulazni
USBBufferSizeRX con 64 ' Izlazni

' USB baferi...
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 'veliicna RX bafera
USBService
USBIn 1, USBBuffer, USBBufferCount, DoUSBIn 'citanje podat.

If USBBuffer[0] = 253 and USBBuffer[1] = 1 Then
For i = 2 To 17
Red1[i-2] = Usbbuffer
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
Next
Lcdout $fe, $C0, STR Red2\16
Endif

return

' Slanje podataka sa USB-a
DoUSBOut:
USBBufferCount = USBBufferSizeTX ' Velicna TX bafera
USBService
USBOut 1, USBBuffer, USBBufferCount, DoUSBOut ' Slanje podataka
return[/*]

[pedja089]

To je kod za stari pbp. Ne radi sa verzijom 2.60.
Problem nije u programu, vec u fajlovima za podrsku.

[SKOLS]

ako moze togas pomos.
Sto treba da smenam?

[pedja089]

Ne znam. Pitaj na picbasc.co.uk

[SKOLS]

kako moze da kontaktiram so Vojo Milanovic?
Mozno e,dali nekoj isto taka go smenil kodot?

[andrejevica]

Da li mi moze neko pomoci.koristim pic18f2420 i pravim sa 20 LED tahometar tako da svaka pokazuje 500rpm,e sada koristim funkciju PULSIN portb.0,0,vreme_obrta i tu nastaju moji preblemi,koristim kristal od 8 mhz,kako sada za promenljivu vreme_obrta da znam koliko je obrtaja motor napravio u minuti,tj kako da znam koju ce vrednost promenljiva vreme_obrta imati za npr 5000rpm za kristal 8mhz.hvala

[TOMYDUSA]

kako sada mogu da skinem microcode studio,posto ovaj ne radi.ako moze neki link bilo bi super.nasao sam neki,ali ne mogu da ga instaliram kako treba,pa bi bilo od pomoci i neko uputstvo za instalaciju.na ovom sto imam ne radi kompajler.

[markocale]

Malo sam pratio "skraceni kurs ucenja picbasica", naučio upaliti,ugasiti led i..... sad me zanima
da li je moguće programirati pic 16f682 da uspoređuje napone na dva pina...poput lm393 i da upali ili ugasi led?

[pedja089]

Pogledaj datasheet i komparatore da li ima, i koji su registri vezani za njih...

[markocale]

16f628 ima dva analogna komparatora... Našao sam i registre u datasheet-u ali ne znam kako da napišem naredbu,



AN0 AN — Analog comparator input
AN1 AN — Analog comparator input
AN2 AN — Analog comparator input
AN3 AN — Analog comparator input
CMP1 — CMOS Comparator 1 output
CMP2 — OD Comparator 2 output

[pedja089]

U registre pises: ime_registra=xxx, npr portb=255.
Znaci moras naci sve registre vezane za komparatore, pogledati vrednosti koje treba da upises u njih, i zatim procitati stanje nekog registra gde se nalazi rezultat iz komparatora.

[markocale]

Hvala.....Budem probao nešto napraviti

[dava_2]

Jel netko zna kako putem dva pina(clock i reset) na nekom driveru, npr. 74HC574, kontrolirat 8 izlaza?

Što se tiće kursa, svaka vam čast na trudu, naručio sam PIC i kristal, čekam da dođe pa i ja krečem.

[pedja089]

Pogledaj shift out.

[buco-1]

U registre pises: ime_registra=xxx, npr portb=255.
Znaci moras naci sve registre vezane za komparatore, pogledati vrednosti koje treba da upises u njih, i zatim procitati stanje nekog registra gde se nalazi rezultat iz komparatora.

Kratkoi jasno, hoće reći da se poslužiš assemblerom!

Izvinite što upadam, a i možda će nekom ličit na off topic ali nije. Assembler je najbolji način pisanja programa za mikroračunala, HPL-i samo uz podršku i znanje assemblera. Sve ostalo je gubljenje vremena. Nikakav basic ili gcc neće puno pomoći.

Malo sam pratio "skraceni kurs ucenja picbasica", naučio upaliti,ugasiti led

Puno više i nečeš naučit ako se ne upoznaš sa internom arhitekturom mirkoračunala i stukturom naredbi, oli ti assemblerom.
Pozdrav

[Cipi-Cips]

nemoj ovde diskutirat sta je bolje a sta gore, imas temu SVE OSTALO i tamo diskutiraj, ovde samo pitaj ili ponudi ogdovor za pomoc vezano za kurs ili svoje projekte

[andrejevica]

da li neko moze da mi pomogne.programiram 12f629 i kada treba da se kompajlila pokazuje

Code: Select all

FATAL ERROR: Too many errors. (21)
ERROR Line 9: Syntax error. (migavci.pbp)
ERROR Line 13: Bad expression. (migavci.pbp)
ERROR Line 19: Bad expression. (migavci.pbp)
ERROR Line 20: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 22: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 28: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 30: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 35: Bad expression. (migavci.pbp)
ERROR Line 36: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 38: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 40: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 42: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 44: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 46: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 48: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 50: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 54: Bad expression. (migavci.pbp)
ERROR Line 55: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 56: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 58: Redefiniton of LABEL PORTP. (migavci.pbp)
ERROR Line 59: Redefiniton of LABEL PORTP. (migavci.pbp)

ne znam sta nije u redu

[bob4]

SVE. piše u prvom redu