Torsdag 30/8: Typekasting og valg

Time 1: "Inn med teskje" tenkte nok enkelte da vi viste overgangen mellom tekst (i UI-objekt) og tall (i beregningene):

  Sub Private btnXYZ_Click (...) Handles btnXYZ.Click
    Dim antall as Integer
    Dim enhetspris as Integer = 11
    Dim total as Integer
    antall = CInt (Textbox1.Text)
    total = antall * enhetspris
    Textbox2.Text = CStr (total) & " kr."
  End Sub

Dette kan skrives enklere: Finn to feil i koden under:

  Sub Private btnXYZ_Click (...) Handles btnXYZ.Click
    Textbox2.Text = CStr ( Cint ( Textbox1.Text ) * 
               enhetspris ) ) & " kr."
  End Sub

Time 2: Kap. 5 decisions innledes med rabatteksempel:

  If antall > 100 Then enhetspris = 10 Else enhetspris = 11 End If

kan skrives

  enhetspris = 11  ' skjer hver gang
  If antall > 100 Then enhetspris = 10 End If

Har vi flere rabattmuligheter snevres mulighetene inn nedenfra

  If antall < 100 Then enhetspris = 11
  Elseif antall < 200 Then enhetspris = 10
  Elseif antall < 1000 Then enhetspris = 9
  Else enhetspris = 8 EndIf

(eller ovenfra). Forslag: Skriv reserverte ord i boka (permen) eller notisbok med "lure triks"