Torsdag 13/9: Gjenta lekser

Do lar oss gjenta noe vi ikke vet hvor ofte skal gjentas, mens For er bra hvis vi kjenner antallet (kap. 6). På boolsk vil det lettleselige EndOfStream() si om vi er ferdig (der boka foretrekker 80-tallets Peek). Evig gjentakelse fikk vi ikke med "For i = 11 to 5 Step 1" men med "Do While 0 < 5". Min temperaturhenter ble adaptiv (tilpasningsdyktig) med Do, men feiler (runtime "krasj") hvis temperaturene ikke fins.

 Sub Private hentTemperaturer()
   Dim readerTemp As StreamReader = File.OpenText("c:\temperaturer.txt")
   Do While Not readerTemp.endOfStream()
     strInn = readerTemp.readline() ' henter neste
   Loop
   readerTemp.close()
 End Sub