Mikrobasic, nybörjarfrågor...

[Lidning]

Har köpt mig easypic2 från mikroelektronika.
Har blinkat lite med dioder och vill nu lära mig att styra dom via
knapparna, har suttit halva dagen utan att få pic´n att reagera på knapptryckingar.
Någon som har ett enkelt exempel som funkar i mikrobasic?
vill alltså kunna läsa av någon av ingångarna...

Kanske verkar busenkelt, men jag får inte det att fungera...
:oops:

//Dan

[$tiff]

Har du konsulterat den stora manualen till att börja med?

Principen är att du sätter den pinne som knappen är inkopplad till som ingång, sedan läser du av pinnen i en programloop och hoppar till olika programsnuttar beroende på om pinnen är hög eller låg. När du kopplar inte en knapp måste detta kombineras med ett pullup/-down-motstånd för att definiera ett spänningstillstånd när knappen inte är nedtryckt.

Berätta/visa hur du kopplat och vilken kod du försökt använda så kan vi försöka rätta till det som är fel!

Vill du läsa på egen hand så verkar den här boken väldigt bra.

[Lidning]

Detta är en variant jag provat, men det blinkar hela tiden...
Uppkopplingen är ju redan klar, använder Easypic2, pull down motstånden aktiverade.


program Led_blinking

main:
TRISA = 255
TRISB = 0
clearbit (PORTA,1)
IF testbit (PORTA,1) =1 THen GOTO blink
goto main
end if
blink:

PORTB = %11111111 ' turn ON diodes on portb
delay_ms(1000) ' wait for 1 second
PORTB = %00000000 ' turn OFF diodes on portb
delay_ms(1000) ' wait for 1 second
goto main ' endless loop
end.

[Robert Nielsen]

Så här hade jag nog gjort:

Kod: Markera allt

TRISA = 255 
TRISB = 0 
cmcon = 7     ' Stäng av komparator om du har en pic med inbyg komparator.

main: 
IF PortA.1 = 1 Then
Goto blink 
Else 
Goto main
end if 

blink: 
PORTB = %11111111
delay_ms(1000) ' wait for 1 second 
PORTB = %00000000
delay_ms(1000) ' wait for 1 second 
goto main
end.

[Lidning]

Provade detta, och det fungerade inte, alla dioder lyser på utgång B, utan att blinka. reagerar inte på knapptryckningar på ingång A. hmm. måste man ändra nåt på kortet, eller är det min 16F877A som gett sig? alla exemplen som följer med i Mikrobasic fungerar. Så detta borde ju fungera...

//Dan

[cykze]

Har du ställt in vilken frekvens du kör PIC:en på?

[Lidning]

hmm.. när jag bränner programet,så väljer jag HS på Oscillatorn, antar att den snurrar på i 4 Mhz på extern kristall.

Eftersom alla färdiga exempel fungear som dom ska så borde det inte vara
problemet eller??

Eller är det något jag missat??

//Dan

[cykze]

delay-rutiner kräver att frekvensen är korrekt inställd för att fungera. Om frekvensen inte är korrekt inställd så kan det hända att delay-rutinerna avslutas så snabbt att man inte hinner se att lysdioderna blinkar. Jag är nästan säker på att du måste ange klockfrekvensen i siffror på något sätt.

[Lidning]

Ok, tror jag förstår vad du menar....

Tar jag bort input delen och kör "blink delen" för sig så fungerar det som det ska, det är bara det att jag inte kan få den att reagera på knapptryckningar...

//Dan

[cyr]

Nu vet jag inget om mikrobasic, men däremot har jag för mig att PORTA.1 även är en analog ingång, och är konfigurerad så som standard. Om du inte ändrat det (eller om mikrobasic gör det automatiskt) så kommer du inte att kunna använda pinnen som vanlig ingång...

[Lidning]

hittade en snutt som fungerar som på/av, men jag fattar inte riktigt hur det
fungerar....

Får mixtra lite till å se vad som händer...

program Test

dim oldstate as byte

main:

TRISB = 255
TRISD = 0

while true
if Button(PORTB, 0, 1, 1) then
oldstate = 255
end if
if oldstate and Button(PORTB, 0, 1, 0) then
PORTD = not(PORTD)
oldstate = 0
end if
wend
goto main
End.

//Dan