Keskustelu: Ohjelmointikysymykset: VB6: Parhaat -lista

Niin miten voisi tehdä sellaisen high scores listan peliin?

https://www.ohjelmointiputka.net/koodivinkit/23742-vb6-pelienkat-luokka
Olisko tuossa jotain? Kannattaa tarkistaa ensin hausta. :)

Edit: Vai tarttikko QB:hen?

tallennat tiedoston johonkin kansioon ja avaat sen sitten pelin aikana

edit:aina joku ehtii ensin

Se on suhteellisen helppoa:

Tallennat tiedostoon, vaikka näin:
Joku1
3000
Joku2
2000
Joku3
1000

Sitten luet rivi kerrallaan ja pistät listalle.

Uudet tulokset saa listalle, kun vertaat sitä kaikkiin tuloksiin korkeimmasta alkaen(vb koodina)

If UusiTulos > Tulokset(0) then
   Tulokset(2) = tulokset(1)
   Tulokset(1) = Tulokset(0)
   Tulokset(0) = UusiTulos
ElseIf UusiTulos > Tulokset(1) then
   Tulokset(2) = Tulokset(1)
   Tulokset(1) = UusiTulos
elseIf UusiTulos > Tulokset(0) then
   Tulokset(2) = UusiTulos
End If

Sitten vaan tallennat tiedostoon.
Näin minä sen tekisin.

Jos muuten noita tuloksia tulee enemmänkin kuin 3, niin tuo pekin systeemi on syytä totetuu silmukoilla, ettei tulee turhaa koodia.
Mutten olisi vähän sama kuin:

taulukko(1) = 1
taulukko(2) = 1
taulukko(3) = 1
taulukko(4) = 1
taulukko(5) = 1
taulukko(6) = 1

kun sen voisi yksinkertaistaa:

FOR a = 1 to 6
taulukko(a) = 1
NEXT a