Difference between revisions of "NO/Documentation/BASIC Guide/Branching"
(Created page with '{{DISPLAYTITLE:Flytkontroll}} {{NO/Documentation/BASICGuideTOC/v2 |ShowPrevNext=block |ShowPrevPage=block |PrevPage=NO/Documentation/BASIC Guide/Operators |NextPage=NO/Documentat…') |
|||
| Line 27: | Line 27: | ||
</source> | </source> | ||
Resultatet blir det samme. | Resultatet blir det samme. | ||
| − | + | Mer kompakt kode er mulig: | |
| + | <source lang="oobas"> | ||
| + | If alder < 18 Then barneTrygd = True | ||
| + | </source> | ||
| + | |||
| + | Hvis en har flere enn to mulige blokker brukes | ||
| + | ElseIf, så mange en vil: | ||
<source lang="oobas"> | <source lang="oobas"> | ||
If inntekt < 200000 Then | If inntekt < 200000 Then | ||
| Line 33: | Line 39: | ||
ElseIf inntekt < 300000 Then | ElseIf inntekt < 300000 Then | ||
skatteProsent = 0.25 | skatteProsent = 0.25 | ||
| − | Else | + | ElseIf inntekt < 400000 Then |
| − | skatteProsent = 0. | + | skatteProsent = 0.31 |
| + | Else | ||
| + | skatteProsent = 0.39 | ||
End If | End If | ||
</source> | </source> | ||
| − | + | Noen foretrekker her bruk av Select: | |
<source lang="oobas"> | <source lang="oobas"> | ||
| − | + | Select Case inntekt | |
| + | Case < 200000: | ||
| + | skatteProsent = 0.2 | ||
| + | Case < 300000: | ||
| + | skatteProsent = 0.25 | ||
| + | Case < 400000 | ||
| + | skatteProsent = 0.31 | ||
| + | Else | ||
| + | skatteProsent = 0.39 | ||
| + | End Select | ||
</source> | </source> | ||
| − | |||
Resultatet av et uttrykk (Case-variabelen) blir sjekket mot en rekke | Resultatet av et uttrykk (Case-variabelen) blir sjekket mot en rekke | ||
ulike verdier og verdirom. Første treff blir så utført, eventuelt | ulike verdier og verdirom. Første treff blir så utført, eventuelt | ||
hvis ingen treff, blir intet utført. | hvis ingen treff, blir intet utført. | ||
| − | |||
<source lang="oobas"> | <source lang="oobas"> | ||
Select Case weekDay | Select Case weekDay | ||
| Line 65: | Line 80: | ||
End Select | End Select | ||
</source> | </source> | ||
| − | + | Mere komplekse verdirom angis med operatorer og lister: | |
<source lang="oobas"> | <source lang="oobas"> | ||
Select Case antallVarer | Select Case antallVarer | ||
Latest revision as of 04:42, 15 December 2009
Programmet deles inn i kodeblokker. For å styre interpreteren til rett blokk brukes logiske tester som gir boolsk resultat (True eller False). I det enkle eksempel:
barneTrygd = False If alder < 18 Then barneTrygd = True End If
vil barneTrygd kun bli sann hvis alder er under 18. Det kunne vært formulert slik:
If alder < 18 Then barneTrygd = True Else barneTrygd = False End If
Resultatet blir det samme. Mer kompakt kode er mulig:
If alder < 18 Then barneTrygd = True
Hvis en har flere enn to mulige blokker brukes ElseIf, så mange en vil:
If inntekt < 200000 Then skatteProsent = 0.2 ElseIf inntekt < 300000 Then skatteProsent = 0.25 ElseIf inntekt < 400000 Then skatteProsent = 0.31 Else skatteProsent = 0.39 End If
Noen foretrekker her bruk av Select:
Select Case inntekt Case < 200000: skatteProsent = 0.2 Case < 300000: skatteProsent = 0.25 Case < 400000 skatteProsent = 0.31 Else skatteProsent = 0.39 End Select
Resultatet av et uttrykk (Case-variabelen) blir sjekket mot en rekke ulike verdier og verdirom. Første treff blir så utført, eventuelt hvis ingen treff, blir intet utført.
Select Case weekDay Case 1: NameOfWeekday = "Sunday" Case 2: NameOfWeekday = "Monday" Case 3: NameOfWeekday = "Tuesday" Case 4: NameOfWeekday = "Wednesday" Case 5: NameOfWeekday = "Thursday" Case 6: NameOfWeekday = "Friday" Case 7: NameOfWeekday = "Saturday" End Select
Mere komplekse verdirom angis med operatorer og lister:
Select Case antallVarer Case 1 To 5 ' ... verdiene 1, 2, 3, 4 og 5 Case > 100 ' ... verdier over (ikke inkludert) 100 Case 6, 7, 8 ' ... verdiene 6, 7 eller 8 Case 6, 7, 8, > 15, < 0 ' ... verdiene 6, 7 og 8, samt alt under 0 og alt over 15. Case Else ' ... hvis ingen treff over kan (valgfritt) Else angis End Select
Eksempel på feil og typeblanding er hvis en angir et logisk uttrykk som testverdi:
Select Case alder Case alder = 8 ' ... utføres bare hvis alder er lik (alder = 8) Case Else ' ... all other instances End Select
Her blir "alder" sammenlignet med "alder = 8", som er boolsk. "alder = 8" er True hvis "alder" er 8, False ellers. Når "alder" sammenlignes med boolsk blir True omgjort til -1 og False til 0. Derfor sammenlignes "alder" med 0 eller -1.
| Content on this page is licensed under the Public Documentation License (PDL). |
