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
593
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
- 2024208
SDP haluaa 40 000 nettomaahanmuuttajaa
SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah1463768Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen
No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat823126Hienoa! Eduskunta luopui käteisen käytöstä
Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.431579Ikävä sinua mies
Vuosia kuluu, mutta tunteet ei ole hävinnyt. Tasoittuneet toki, kun ei olla nähty. Järki palannut päähän kuitenkin. Se i191418Sulla on avaimet ja keinot
Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi241360Mikä tämä henkilö mahtaa touhuta Parkanossa
Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58321357Orpo loukkaantui fasismiin viittaavasta sanavalinnasta
Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk271341Kiinnostaa - ei kiinnosta - kiinnostaapas
Selittäkää hämmentyneelle miksi miehiä ei ikinä kiinnosta silloin, kun sitä olisi itsekin kiinnostunut? Sitten kun siirt1151128Martina haluaa Marbellaan
Martinan tekisi mieli ottaa lennot Marbellaan, jossa näkisisi kauniita ja hyväntuulisia ihmisiä. No sitten pitää matkust2151053