"Top-score toteutus"

Ja tämä sovellus on siis tehty Visual Basic 2005:lla.

Ensinnäkin, tietojen tallennus tiedostoon.

Esimerkiksi Nimi muuttujana nimi(x) ja pisteet muuttujana pisteet(x)

jossa siis tuo x on muuttujan indeksiluku, ensimmäistä tietoa lisättäessä se on 1, toista 2 jne.

Open App.Path & "\testitiedosto1.txt" For Append As #1
Write #1, nimi(x), pisteet(x)
Close #1

Jolloin tiedot tallentuvat riveittäin ja nimi ja pisteet erotetaan pilkulla.
"Nimi1",22
"Nimi2",21
"Nimi3",20
"Nimi4",18
"Nimi5",22

Ja tiedostosta lukemisen ja Formilla esittämisen voisi tehdä näin.
Projektiin lisätä MS Hierarchical Flex Grid -kontrolli ja sille nimeksi vaikka FG1

Option Explicit
Dim nimi(1000) As String
Dim pisteet(1000) As Double
Dim rivi As Integer
Dim riveja As Integer

Function Fgi(r As Integer, c As Integer) As Integer
Fgi = c FG1.Cols * r
End Function

Sub DoSort()
FG1.Col = 1
FG1.ColSel = FG1.Cols - 1
FG1.Sort = 2 ' 1 = nouseva, 2 = laskeva järjestys
End Sub



Private Sub Command1_Click()

rivi = 0
riveja = 0

FG1.Col = 0
FG1.Row = 0
FG1.Text = "NIMI"
FG1.Col = 1
FG1.Text = "PISTEET"

Open App.Path & "\testitiedosto1.txt" For Input As #1

Do While Not EOF(1)
rivi = rivi 1

Input #1, nimi(rivi), pisteet(rivi)
riveja = riveja 1
Loop
Close #1

FG1.Rows = riveja 1

For rivi = 1 To riveja
FG1.Col = 0
FG1.Row = rivi
FG1.Text = nimi(rivi)
Next rivi

For rivi = 1 To riveja
FG1.Col = 1
FG1.Row = rivi
FG1.Text = pisteet(rivi)
Next rivi


MousePointer = vbDefault
FG1.Redraw = False
DoSort
FG1.Redraw = True

End Sub