Morjens, voisikohan joku auttaa tämmöisen ongelman kanssa:
Sovellus on muuten valmis mutta tarvitsisi saada 2 muuttujaa (Nimi & Pisteet) tallennettua esim. tekstitiedostoon ja tuotua formille takaisin parhausjärjestyksessä.
Apuja, neuvoja, ideoita otetaan vastaan, kiitos! :)
"Top-score toteutus"
2
601
Vastaukset
- Newbi3
Ja tämä sovellus on siis tehty Visual Basic 2005:lla.
- jokuvaa
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Nainen kokki autossa kammottavan kuoleman sähköauto-Teslan syttyessä tuleen.
https://www.is.fi/autot/art-2000011652873.html Näin vaarallisia sähköautopalot voivat olla.755023Persuja ei aluevaltuustoissa näy
Ei tunnu persuja paljon paikalliset asiat kiinnostavan, vaan ainoastaan ulkomaalaiset, joku Israel ja Trumpin fanitus.163403Päivän Riikka: Uudenkaupungin autotehdas hiljeni
Näin ne 100 000 uutta pysyvää ei-tempputyötä yksityiselle sektorille tämän hallituksen ansiosta syntyy. Työntekijöille j242710Kerro kaivattusi nimi tai nimikirjaimet
🌠 Tähdenlento! Kirjoittamalla kaivattusi nimen tai nimikirjaimet tähän, saattaa toiveesi toteutua.581760- 471576
Tämmönen höpsö
Höpönassu mä olen. En mikään erikoinen…hölötän välillä ihan levottomia. Tykkäisit varmasti jos olisin siellä sun vieress441346- 941342
Alkuvuodesta poistuu työttömyyskorvaus kaikilta joilla on säästössä rahaa
Tippuu korvaukselta iso määrä työttömiä.2351243Hiljaisuus
Tarkoittaa välinpitämättömyyttä, henkistä väkivaltaa ja kiusaamista. Olet valinnut hiljaisuuden.711025IS Viikonloppu 29.-30.11.2025
Antti Skytältä 3-tasoinen ristikko. Pääkuvassa on harhauttava elementti, mikä saattaa hidastaa myös muiden kuin minun ra54912