Sida 1 av 1
Varför fungerar inte detta?
Postat: 15 mars 2005, 11:59:47
av Mutiaz
Varför fungerar inte detta? (Det är Pic Basic och funktionen är att tända en LED med en knapp)
Kod: Markera allt
loop:
PORTB.4 = 0
PORTB.5 = 0
TRISB.5 = 1
IF PORTB.5 = 1 Then
PORTB.4 = 1
EndIF
GoTo loop
End
Postat: 15 mars 2005, 12:13:28
av Icecap
Du upprepar ju hela tiden att PORTB.4 ska vara 0, sen kollar du om den ska tända och sen släcker den direkt igen. Flytta 'loop' till strax före 'if PORTB.5...'
Postat: 15 mars 2005, 12:17:12
av Mutiaz
Hurdå?
Såhär?
Kod: Markera allt
PORTB.4 = 0
loop:
PORTB.5 = 0
TRISB.5 = 1
IF PORTB.5 = 1 Then
PORTB.4 = 1
EndIF
GoTo loop
End
Postat: 15 mars 2005, 12:20:22
av Icecap
Men hallåååå?
'Strax före' betyder på raden omedelbart innan eller hur
Kod: Markera allt
PORTB.4 = 0
PORTB.5 = 0
TRISB.5 = 1
loop:
IF PORTB.5 = 1 Then
PORTB.4 = 1
EndIF
GoTo loop
End
Postat: 15 mars 2005, 12:24:55
av karlstedt
Inte för att jag vet vad detta är för språk men jag tycker inte koden verkar speciellt användbar?
Det går väl bara att tända dioden en gång och sedan är den tänd?
Postat: 15 mars 2005, 12:25:34
av Mutiaz
Jo det vet jag hehe.. Men det funkade inte..
Vad är fel?
Postat: 15 mars 2005, 14:57:06
av Mutiaz
Nu vet jag... Behövdes ett pulldownmotsånd sen funkade det kalas!
Postat: 15 mars 2005, 17:19:23
av Mutiaz
Hur gör man för att skifta mellan två texter med en knapp?
Alltså ex: ett tryck "Hej", två tryck "Goddag" tre tryck "Hej" igen ocksåvidare..
Kod: Markera allt
loop:
IF knapp = 1 Then
LCDOut $FE, 1
LCDOut "Diplomat"
Pause 500
EndIF
IF knapp = 1 +1 Then
LCDOut $FE, 1
LCDOut "Yazoo"
Pause 500
EndIF
GoTo loop
END
Detta funkar verkligen inte.. Man måste ha någon slags räknare tror jag..
Postat: 15 mars 2005, 22:44:22
av Mutiaz
Är det ingen som har ett exempel på en lätt räknare som vid ett tryck är 1 och vid nästa tryck är 2 och vid nästa 1 osv i picbasic?
Postat: 15 mars 2005, 22:54:30
av jack
Kolla upp BUTTON-funktionen.
Postat: 15 mars 2005, 22:58:50
av Mutiaz
Ja det har jag men jag fattar inte särskilt mkt av den...
Postat: 16 mars 2005, 11:15:56
av Mutiaz
Detta funkade annars utmärkt!
Tack mullemeck för hjälpen!
Kod: Markera allt
IF knapp = 1 Then
IF tmp = 1 Then
tmp = 2
Else
tmp = 1
EndIF
EndIF