Varför fungerar inte detta?

Mutiaz · Inlägg av **Mutiaz** » 15 mars 2005, 11:59:47

Varför fungerar inte detta? (Det är Pic Basic och funktionen är att tända en LED med en knapp)

loop:

PORTB.4 = 0
PORTB.5 = 0
TRISB.5 = 1



IF PORTB.5 = 1 Then
PORTB.4 = 1
EndIF

GoTo loop

End

Icecap · Inlägg av **Icecap** » 15 mars 2005, 12:13:28

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...'

Mutiaz · Inlägg av **Mutiaz** » 15 mars 2005, 12:17:12

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

Icecap · Inlägg av **Icecap** » 15 mars 2005, 12:20:22

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

karlstedt · Inlägg av **karlstedt** » 15 mars 2005, 12:24:55

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?

Mutiaz · Inlägg av **Mutiaz** » 15 mars 2005, 12:25:34

Jo det vet jag hehe.. Men det funkade inte..

Vad är fel?

Mutiaz · Inlägg av **Mutiaz** » 15 mars 2005, 14:57:06

Nu vet jag... Behövdes ett pulldownmotsånd sen funkade det kalas!

Mutiaz · Inlägg av **Mutiaz** » 15 mars 2005, 17:19:23

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..

Mutiaz · Inlägg av **Mutiaz** » 15 mars 2005, 22:44:22

Ä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?

jack · Inlägg av **jack** » 15 mars 2005, 22:54:30

Kolla upp BUTTON-funktionen.

Mutiaz · Inlägg av **Mutiaz** » 15 mars 2005, 22:58:50

Ja det har jag men jag fattar inte särskilt mkt av den...

Mutiaz · Inlägg av **Mutiaz** » 16 mars 2005, 11:15:56

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