Keskustelu: Koodit: QB: Datataulukon pituuden selvittäminen

Tämä ohjelma selvittää Data-taulukon pituuden. En ole varma tarvitseeko kukaan tätä, mutta laitan sen silti tänne..

Niin, ohjelma lukee siis nykyisestä datanlukukohdasta datataulukoiden loppuun, joten tällä voi myös selvittää kaikkien taulukoiden pituuden yhteensä.

Toiminta on yksinkertainen: Data-taulukkoa selataan nykyisestä kohdasta eteenpäin, kunnes tapahtuu virhe numero 4 (out of data), jolloin lukeminen lopetetaan.

ON ERROR GOTO virhe 'virheen sattuessa hypätään virheenkäsittelijään
CLS

RESTORE luettavaa 'asetetaan kohta, josta luetaan dataa
ofd% = 0 'onko datavirhe tapahtunut (ks. virheenkäsittelijä)
howmuch% = 0 'nollataan laskuri

DO
  READ v 'luetaan kappale dataa
  IF ofd% = 1 THEN EXIT DO 'jos tapahtui virhe, hypätään pois
  howmuch% = howmuch% + 1 'kasvatetaan laskuria
LOOP

PRINT "Datataulukon pituus:"; howmuch%

END
virhe: 'tähän hypätään, kun virhe on tapahtunut
IF ERR = 4 THEN
  'virhe numero 4 (Out of data) kertoo, että dataa yritetään lukea, vaikka sitä ei ole enempää
  ofd% = 1 'tämä muuttuja kertoo, että datavirhe on jo tapahtunut
ELSE
  'tässä käsitellään kaikki muut virheet
  PRINT "Tapahtui odottamaton virhe, ja ohjelma on suljettava.": END
END IF
RESUME NEXT 'hypätään takaisin ohjelmaan

luettavaa:
DATA 4144,6563,115,4,0,11

Vinkissä on ainesta, mutta se pitäisi esittää hieman paremmin. Voisit muokata vinkkiäsi sen verran, että kertoisit, mistä on kyse ja mitä mikäkin rivi tekee (ei tietenkään tavallisia IF-lauseita, mutta virheenkäsittelyt ja datan lukemiset ainakin). Näin vinkistä voisi hyvin oppia esimerkiksi juuri datataulukoiden käytön ja virheenkäsittelyn. Voisit myös rivittää ja sisentää koodia vielä hieman selkeämmin.

Sisennykset ym. ja kommentit lisätty. :)