"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

614

    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. Miten Eerolan silmäkuvat voivat levitä muutamassa tunnissa ympäri maailmaa?

      Seuraako koko maailma persujen ja erityisesti Eerolan somea reaaliajassa? Edes kansanedustajan itsemurha eduskuntatalos
      Maailman menoa
      428
      6179
    2. Suomen kansa haluaa Antti Lindtmanista pääministerin

      Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http
      Maailman menoa
      116
      3520
    3. Vain 21% kannattaa Lindtmania pääministeriksi

      se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?
      Maailman menoa
      88
      2406
    4. Miten löydän sinut

      Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit
      Ikävä
      25
      1879
    5. Moraaliköyhä S-ryhmä

      S-ryhmä on kehystänyt Israel-boikottipäätöksen “ihmisoikeuslinjaukseksi”, mutta toteutus paljastaa sen onttouden: valiko
      Tampere
      109
      1135
    6. Yöllinen autolla kaahari Heinolan seudulla

      Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?
      Heinola
      94
      1103
    7. Minkä biisin omisit sun kaivatulle?

      Pieni perustelu olisi kiva. ❤️
      Ikävä
      63
      1045
    8. Onko kaivattusi

      seksuaalisesti vetovoimaisin ihminen jonka olet ikinä tavannut?
      Ikävä
      61
      1025
    9. Milloin kaivatullasi

      .. on nimipäivä?
      Ikävä
      42
      922
    10. Vaikea tilanne

      Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te
      Ikävä
      77
      919
    Aihe