Keskustelu: Koodit: QB: TOP-lista

DECLARE FUNCTION yht! (sana$)
DECLARE SUB tulostalista (y!, x!)
DECLARE SUB tallennalista (nimi$)
DECLARE SUB lataalista (nimi$)
DECLARE SUB lisaauusi (nimi$, pisteet!)

TYPE top
  pisteet AS INTEGER
  nimi AS STRING * 11
END TYPE

' numeroiden määrä
DIM SHARED lista(1 TO 10) AS top
DIM SHARED jarjestys, jaannos AS INTEGER

jarjestys = 0 ' 0 = isoin ylemmäksi | 1 = pienin ylemmäksi
jaannos = 69  ' tällä katsotaan jakojäännös, voi ja kannattaakin vaihtaa

CLS ' tyhjentää ruudun

lataalista "top.sav" ' ladataan lista

' tekee listan
FOR i = 1 TO UBOUND(lista)
  lista(i).pisteet = 100 - 10 * (i - 1)
  lista(i).nimi = "nimetön"
NEXT

lisaauusi "snakari", 110   ' lisätään uusi arvo listaan
lisaauusi "hallitsee", 65  ' lisätään uusi arvo listaan

COLOR 10
LOCATE 9, 10: PRINT "TOP 10"
COLOR 2
tulostalista 10, 10' tulostetaan lista

tallennalista "top.sav" ' tallennetaan lista

SUB lataalista (nimi$)
a = FREEFILE
OPEN nimi$ FOR BINARY AS a
FOR i = 1 TO UBOUND(lista)
  GET a, , lista(i)
  tarkistus = tarkistus + yht(lista(i).nimi) + yht(STR$(lista(i).pisteet))
NEXT
GET a, , tarkista
IF NOT tarkista = tarkistus MOD jaannos THEN
  PRINT "top-listaa on muunneltu!"
  SLEEP
  END
END IF
CLOSE a
END SUB

SUB lisaauusi (nimi$, pisteet)
IF jarjestys = 0 THEN
  FOR kohta = 1 TO UBOUND(lista)
    IF pisteet > lista(kohta).pisteet THEN
      FOR i = 0 TO UBOUND(lista) - kohta - 1
        lista(UBOUND(lista) - i).pisteet = lista(UBOUND(lista) - i - 1).pisteet
        lista(UBOUND(lista) - i).nimi = lista(UBOUND(lista) - i - 1).nimi
      NEXT
      lista(kohta).pisteet = pisteet
      lista(kohta).nimi = nimi$
      EXIT FOR
    END IF
  NEXT
  ELSEIF jarjestys = 1 THEN
  FOR kohta = 1 TO UBOUND(lista)
    IF pisteet < lista(kohta).pisteet THEN
      FOR i = 0 TO UBOUND(lista) - kohta - 1
        lista(UBOUND(lista) - i).pisteet = lista(UBOUND(lista) - i - 1).pisteet
        lista(UBOUND(lista) - i).nimi = lista(UBOUND(lista) - i - 1).nimi
      NEXT
      lista(kohta).pisteet = pisteet
      lista(kohta).nimi = nimi$
      EXIT FOR
    END IF
  NEXT
END IF
END SUB

SUB tallennalista (nimi$)
a = FREEFILE
OPEN nimi$ FOR BINARY AS a
FOR i = 1 TO UBOUND(lista)
  PUT a, , lista(i)
  tarkistus = tarkistus + yht(lista(i).nimi) + yht(STR$(lista(i).pisteet))
NEXT
tarkista = tarkistus MOD jaannos
PUT a, , tarkista
CLOSE a
END SUB

SUB tulostalista (y, x)
FOR i = 1 TO UBOUND(lista)
  LOCATE y + i - 1, x: PRINT lista(i).nimi; ":"; lista(i).pisteet
NEXT
END SUB

FUNCTION yht (sana$)
' tarvitaan vain jakojäännöksen laskemiseen
FOR i = 1 TO LEN(sana$)
  arvo = arvo + ASC(MID$(sana$, i, 1))
NEXT
yht = arvo
END FUNCTION