Torsdag 20/9: Godkjenning av brukere

Vi fortsetter fra mandagens problemer. Brukerne er derfor lest inn og ligger som "Bruker"-strukturer i array "brukere", og "antBrukere" er korrekt opptelt. Vi tok i dag HIPOens "Sjekk navn og passord". Det som er nytt av i dag ble:

Dim innlogget as Boolean = False

Sub OK_click () Handles OK.click
   If godkjent (txtNavn.Text, txtPassord.Text) Then
      innlogget = True
      lblMelding.Text = "Godkjent - du er innlogget!"
   Else
      lblMelding.Text = "Ikke godkjent - du er ikke innlogget!"
   End If
End Sub

Function godkjent (n, p) As Boolean
   Dim i as Integer = 0
   Do While brukere(i).navn <> n And i < antBrukere 
      i++
   Loop
   If i < antBrukere Then
      If brukere(i).passord = p Then
         Return True
      End If
   End If
   Return False
End Function