"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

608

    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. Persujen mukaan rasismi on huumoria

      Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀
      Maailman menoa
      104
      4440
    2. BOIKOTOIN - Ei mitään Suomi.fi postilaatikoita käyttöön

      Ainakaan minulle! Vai että pitäisi alkaa siellä käyädä katselemassa tammikuusta 2026 siis periaatteessa päivittäin että
      Maailman menoa
      200
      3657
    3. 202
      2991
    4. Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta

      Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome
      Maailman menoa
      72
      2832
    5. Hallitus on kaadettava ja Orpon on erottava

      Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main
      Maailman menoa
      60
      2737
    6. Lasse Lehtonen palasi ambulanssilennolla Suomeen

      Nyt on syytä lopettaa irvailu.
      Maailman menoa
      83
      1371
    7. 60
      1246
    8. Aitolehti Capital

      HehkuB on myynnissä, kovalla työllä saavutettu unelma joka sekin lässähti kuten kaikki mihin ryhtyy! Nyt Sewen asialle
      Kotimaiset julkkisjuorut
      238
      1082
    9. Missä kuussa

      Rakkaasi on syntynyt?
      Ikävä
      60
      988
    10. MOT: Työmarkkinatori on olemattomien työpaikkojen hakupaikka

      Työpaikkojen tietoja ei tarkisteta, ja ainakin noin noin 10% on olemattomia työpaikkoja ja sen lisäksi eri rekryfirmat t
      Maailman menoa
      120
      983
    Aihe