onsdag 12. juni 2013

Visual Basic Ja, men hva hvis? Del 2

Heisann!

Eg startet for en tid tilbake å snakke om hva hvis i forbindelse med programmeringsspråket Visual Basic. I dag tenker eg at vi tar skrittet litt videre.

Det første innlegget finner du her:
http://bamsehiet.blogspot.no/2013/05/visual-basic-ja-men-hva-hvis.html

Vi tok der utgangspunkt i en veldig enkel Hvis-setning:

        If mittTall >= 5 Then
            melding = "Tallet er 5 eller større!"
        Else
            melding = "Tallet er mindre enn 5!"
        End If

Der har vi en enten eller setning.
Av og til trenger vi flere, kanskje 3 mulige valg, som skal valideres. Da kan vi benytte en IF-THEN-ELSEIF-ELSE setning.

Som dette:

If mittTall >=2 Then
melding = "Tallet er 2 eller større!"
ElseIf mittTall = 1 Then
melding = "Tallet er 1!"
Else
melding = "Tallet er 0"
End If

Dette er et veldig banalt eksempel, men det viser poenget.

Men hva hvis... Du skal ha enda flere valg?
Man kan selvsagt skrive flere Hvis-setninger, men det blir etterhvert veldig mye kode og vanskelig å vedlikeholde.

Der finnes en metode vi kan bruke istedet.
SELECT CASE

Dim ukedag As Integer
ukedag = InputBox("Skriv inn tallet for din favoritt-ukedag 1-7")
Select Case ukedag  
Case 1 : MsgBox("Mandag")  
Case 2 : MsgBox("Tirsdag")  
Case 3 : MsgBox("Onsdag"
Case 4 : MsgBox("Torsdag")  
Case 5 : MsgBox("Fredag")
Case Else       MsgBox("Enten er det lørdag eller så er det søndag.")
End Select

Du ser kanskje at om det skulle blitt flere valg så ville det vært enkelt å legge det til istedet for å lage flere Hvis-setninger.

Har en video med i dag og, som noen sikkert ser så er det en liten forskjell på denne videoen og på min forklaring. Begge deler er Visual Basic, prinsippet er det samme, men thenewboston viser i et CLI vindu, mens eg viser på en form som vi selv lager.


Neste blogginnlegg tenker eg at vi skal se på enda litt mer kompliserte Hvis setninger. Nøstede. Det vil si at det er en Hvis setning inni en Hvis-setning.

Om eg ikke blir brutt opp i bits eller inntar en binær form så vil det snart komme en ny blogg med nye erfaringer fra Mitt IT-eventyr!