sub procedure sw1 ' Här blir det fel If PortA.0 = 1 Then goto effect1 else return End If end sub Här e den. tanken är att jag bara ska lägga in sw1 i en loop istället för hela if formeln så om jag trycker på någon knapp ska loopen avbrytas och en annan ska på börgas. Vill du ha mer av koden så bara ...

Jo men till och börja med handlade det om ifall get gick. sedan handlade det om hur. givet vis har jag kollat manualen och testat. Men det funkar fortfarande inte.

Ursäckta mig då. Men jag hade missat det annars har jag kollat. vill ju inte besvära någon i onödan.

Ungefär hur ser en sådan ut?

Kan man registrera en hel If funktion så man bara kallar den typ "sw1" i en loop. Istället för att skriva in hela if formeln på flera ställen i loopen?

UNDERBART!!! Nu funkar det. Tack för all hjälp

Jag har kollat det redan.

Hojta till om du får det att funka

Nej det funkar inte heller. Ingen som har nåt kod exempel att dela med sig

jag kopierade exeplet från manualen

Funkar inte. du har rätt i att det är basic. Programmet jag kör är mikrobasic

Jag får bara detta medelande var gång jag försöker
UNDECLARED IDENTIFIER 'i'
Har jag missuppfattat nåt?

Någon som kan förklara?
I = 0

do
I = I + 1 ' execute these 2 statements
PORTB = I ' until i equals 10 (ten)
loop until I = 10

main: cmcon = 7 ' Stäng av komparator TrisA = 255 ' PortA är input TrisB = 0 ' PortB är Output loop: If PortA.0 = 1 Then ' Ifall PortA.0 är hög. goto test End If If PortA.1 = 1 Then goto test1 else goto loop End If goto loop test: PortB = %100000 delay_ms (100) PortB = %110000 delay_ms (100) PortB =...

jag kopierade svaret du fick och sedan funkade det. testa ett skapa ett nytt program och lklistra in hela koden så funkar det nog. Har du testat att använda do?