"Top-score toteutus"

Newbi3

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! :)

2

593

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Voiko normaali ihminen ryhtyä vasemmistolaiseksi?

      Tätä jäin pohdiskelemaan.
      Maailman menoa
      202
      4208
    2. SDP haluaa 40 000 nettomaahanmuuttajaa

      SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah
      Maailman menoa
      146
      3768
    3. Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen

      No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat
      Maailman menoa
      82
      3126
    4. Hienoa! 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.
      Maailman menoa
      43
      1579
    5. Ikä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 i
      Ikävä
      19
      1418
    6. Sulla on avaimet ja keinot

      Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi
      Ikävä
      24
      1360
    7. Mikä tämä henkilö mahtaa touhuta Parkanossa

      Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58
      Parkano
      32
      1357
    8. Orpo loukkaantui fasismiin viittaavasta sanavalinnasta

      Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk
      Maailman menoa
      27
      1341
    9. Kiinnostaa - ei kiinnosta - kiinnostaapas

      Selittäkää hämmentyneelle miksi miehiä ei ikinä kiinnosta silloin, kun sitä olisi itsekin kiinnostunut? Sitten kun siirt
      Sinkut
      115
      1128
    10. Martina haluaa Marbellaan

      Martinan tekisi mieli ottaa lennot Marbellaan, jossa näkisisi kauniita ja hyväntuulisia ihmisiä. No sitten pitää matkust
      Kotimaiset julkkisjuorut
      215
      1053
    Aihe