Video: How I Made My Own iPhone - in China 2025
PBASIC subrutiner er uvurderlige i dine elektronikprojekter ved hjælp af en BASIC Stamp-processor. En subrutine er en sektion af et program, der kan kaldes fra ethvert sted i programmet. Når subrutinen er færdig, hopper styringen af programmet tilbage til det sted, hvorfra subrutinen blev kaldt.
Underrutiner er nyttige, fordi de lader dig adskille lange dele af dit program fra programmets hovedløjfe, hvilket forenkler hovedprogramsløjfen for at gøre det lettere at forstå. En anden fordel ved subrutiner er, at de kan gøre dit program mindre.
Antag at du skriver et program, der skal udføre kompliceret beregning flere gange. Hvis du placerer den komplicerede beregning i en underrutine, kan du ringe underrutinen fra flere steder i programmet. På den måde skriver du koden, der udfører den komplicerede beregning, kun én gang.
For at oprette og bruge underrutiner skal du bruge to PBASIC-kommandoer. Den første er GOSUB, som kalder underrutinen. Du bruger typisk GOSUB-kommandoen i dit programs primære loop, når du vil ringe til underrutinen. Den anden kommando er RETURN, som altid er den sidste kommando i underrutinen.
For at oprette en underrutine starter du med en etiket og slutter med en RETURN-kommando. Mellem dem skriver du uanset kommandoer, du vil udføre, når underrutinen hedder.
Her er et eksempel på en subrutine, der genererer et tilfældigt tal mellem 1 og 999 og gemmer det i en variabel ved navn Rnd:
GetRandom: RANDOM Rnd Rnd = Rnd // 999 + 1 RETURN
For at kalde denne subrutine, ville du simpelthen bruge en GOSUB-kommando som denne:
GOSUB GetRandom
Denne GOSUB-kommando overfører kontrol til GetRandom-etiketten. Så når GetRandom-subrutinen når sin RETURN-kommando, hopper styringen tilbage til kommandoen straks efter GOSUB-kommandoen.
Her er et komplet program, der bruger en subrutine til at få et tilfældigt tal mellem 1 og 1, 000 og bruger tilfældigt tal for at få LED'en på knap 0 til at blinke med tilfældige intervaller. Du kan køre dette program på ethvert Basic Stamp-kredsløb, der har en LED på pin 0.
'LED Blinker Program' Doug Lowe '10. juli 2011 "Dette program blinker LED'en på stift 0 tilfældigt.' {$ STAMP BS2} '{$ PBASIC 2. 5} Rnd VAR Word Led1 PIN 0 GOSUB GetRandom HIGH Led1 PAUSE Rnd LOW Led1 PAUSE 100 LOOP GetRandom: RANDOM Rnd Rnd = Rnd // 999 + 1 RETURN
Når du bruger en subrutine, er det afgørende at du forhindrer dit program fra et uheld at "falde i" din subrutine og udføre det, når du ikke har til hensigt at udføre det.Antag for eksempel at programmet i liste 3-5 anvendte en FOR-NEXT-loop i stedet for en DO-loop, fordi du kun ønskede at blinke LED'en kun 100 gange. Her er et eksempel på, hvordan ikke skriver dette program:
FOR Counter = 1 TIL 100 GOSUB GetRandom HIGH Led1 PAUSE RND LOW Led1 PAUSE 100 NEXT GetRandom: RANDOM Rnd Rnd = Rnd // 999 + 1 RETURN
Kan du se hvorfor? Når FOR-NEXT-sløjfen blinker LED'en 100 gange, fortsætter programmet med den næste kommando efter FOR-NEXT-sløjfen, som er underrutinen!
For at forhindre det, kan du bruge endnu en PBASIC-kommando, END, som blot fortæller det BASIC Stamp, du har nået til slutningen af dit program, så det bør stoppe udførelsen af kommandoer. Du vil placere kommandoen END efter kommandoen NEXT, som denne:
FOR Counter = 1 TIL 100 GOSUB GetRandom HIGH Led1 PAUSE Rnd LOW Led1 PAUSE 100 NÆSTE END GetRandom: RANDOM Rnd Rnd = Rnd // 999 + 1 RETURN > Derefter stopper programmet efter FOR-NEXT loop-afslutningen.
