Highscore

How would i get a high score table, that records the name of the player and their score, then save it into a file named "score.ini" located in the application's path?

Then, be able to look at the highscore table and see all the names and scores there by loading the scores in "score.ini"?

Heres for the reading and writing of an INI file

http://www.vbforums.com/showthread.php?t=349993

for the recording of score, we will need to see more code, or more info on the program

Err... Would it be shorter if i wrote it into another file, say a .txt file or another extension that could be made up?

More info:
The two variables i need to record are "name" and "efficiency". At the end of a game, a screen will pop up asking for their name. After pressing ok, another screen will pop up, showing the top ten scorers and their names.

I was thinking maybe using this code and a listbox:

VB Code:

dim full as string
full = efficiency & " " & name
list1.additem format(full,"")

Would this work?

Declare the variables in a global module...

Public Full as string,

but im not to sure about the list of scores, *whistle* here dg, hack, joacim etc, here boy!

Maybe the big boys can help you, no pun intended

You can just read and write a file:

VB Code:

'include Microsoft Scripting Runtime
Public fsObj As FileSystemObject
 
'in form load
Set fsObj = New FileSystemObject
 
Public Sub SaveScore(Name As String, Score As Integer)
   Dim ts As TextStream
   Set ts = fsObj.OpenTextFile(App.Path & "\score.ini", ForAppending)
   ts.WriteLine (Name & " = " & Score)
   ts.Close
   Set ts = Nothing
End Sub
 
 
Public Sub LoadScore(Name As String, Score As Integer)
    Dim ts As TextStream
    Listbox1.Clear
    If fsObj.FileExists(App.Path & "\score.ini") Then
        Set ts = fsObj.OpenTextFile(App.Path & "\score.ini", ForReading)
        Do While Not ts.AtEndOfStream
           Listbox1.Add ts.ReadLine
        Loop
        ts.Close
        Set ts = Nothing
    Else
        MsgBox "No high scores yet"
    End If
End Sub

Of course this doesn't actually check if a score belongs in the high score list, nor does it sort them by score.

Quote:

---

Originally Posted by umilmi81

VB Code:

'include Microsoft Scripting Runtime
Public fsObj As FileSystemObject

---

1)When i put this anywhere on the form, it comes up with an error of "user defined type not defined". Where do i put it?

2) How would i sort the rest of the code?

You need to add Microsoft Scripting Runtime, Scrrun.dll to your References. :ehh:

Public fsObj As FileSystemObject

Put it at the top of the Form code window or in a Module if more than one Form uses it.

Attached is the code to a small VB game. It contains a class called CHighscore that you can use in your program to save highscores, however it saves to the registry instead of a file. You can use the game as an example on how to use the class. Please don't comment to much about the game itself, it doesn't use any back buffering so it's kind of flickery. I made it in a couple of hours just to show my brother that you can use VB to create simple games in a very short time.

score.ini? in pure text? I would think you might want to encrypt it and call is data.ini so people want cahnge it to 999,999,999 unless its your own small game and you need no use to cheat... :)

Quote:

---

Originally Posted by ajames

1)When i put this anywhere on the form, it comes up with an error of "user defined type not defined". Where do i put it?

---

lol!

Come on man, look at the comment right above the statement :)

'Include Microsoft Scripting Runtime

Go to the "Project" menu, and click "References". Scroll down the list until you get to Microsoft Scripting Runtime. Then check the box, and say ok.