"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

618

    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. Hiihtäjä Vilma Nissisen kommentit aiheutti paniikkia

      ja hernettä vedettiin nenään. Nissinen kertoi torstaina haastattelussa, kun häneltä kysyttiin, että tykkääkö hän hiihtä
      Maailman menoa
      26
      4266
    2. S-kauppa nosti hintoja, K-kauppa laski

      Elintarvikkeiden arvonlisävero laski vuodenvaihteessa 13,5 prosenttiin. S-kauppa siirsi alennuksen suoraan katteisiin pi
      Maailman menoa
      14
      4084
    3. Vilma Nissinen pyytää anteeksi rasistisia lausuntojaan

      Nöyrtyi kuten persut yleensäkin. On kyllä noloa tuollainen vätystely, kun ei ole miestä seisoa omien lausuntojensa takan
      Maailman menoa
      243
      3858
    4. Riikka Purra: "Kokoomus haluaa leikata pienituloisten etuuksista - Se ei meille käy"

      Näin vakuutti persujen Purra edellisten eduskunta vaalien alla,. https://www.ku.fi/artikkeli/4910942-kun-uudessa-videos
      Maailman menoa
      64
      2369
    5. Sandels tölkin hinta nousi 1,29 eurosta 1,32 euroon

      Mitähän järkeä valtiolla on verottaa tuotakin elintarviketta niin kovasti, että on järkevämpää käydä hakemassa ulkomailt
      Köyhyys
      42
      1796
    6. Lindtmanin pääministeriys lähenee päivä päivältä

      Suomen kansan kissanpäivät alkavat siitä hetkestä, kun presidentti Stubb on tehnyt nimityksen. Ainoastaan ylin tulodesi
      Maailman menoa
      71
      1680
    7. Ovatko Perussuomalaiset kommunisteja?

      Toiset sanovat että ovat, toiset sanovat että eivät. Ainakin heillä on paljon sen aatteen piirteitä, koska haluavat kont
      Maailman menoa
      1
      1498
    8. Oon kyllä välillä ollut susta

      Nainen huolissani, en oo niin sydämetön mitä tunnut ajattelevan
      Ikävä
      105
      1407
    9. Ikävä uutinen uudesta Unelmia Italiassa kaudesta - Iso pettymys tv-katsojille!

      Unelmia Italiassa -sarja kertoo Ellen Jokikunnaksen perheen elämästä Suomessa ja Italiassa. Nyt Ellen on kertonut tuleva
      Tv-sarjat
      11
      1301
    10. Tuntuuko sinusta mies

      että olet jossain, mutta sydämessäsi haluat olla muualla. Suunnittelet kaikkea kivaa ja olet innolla mukana, mutta silti
      Ikävä
      22
      1265
    Aihe