Minor problems with keeping score records in mini games

wmzhen

rt
Made a small game, the score record only saved the top three
The player saves the score after the end of the round. If the score reaches the top three records, the original record is overwritten. The problem now is to restart the game after the .exe file is generated.

siyonggang

Where did you keep your records?

File
2. Database

wmzhen

I saved it to a file

siyonggang

Then you must read from the file
1. Check your function for reading files
2. Is the path you read the file right

You don't generate exe, everything goes well when you tune it in the environment? Is it correct to re-run the read data after each change of data?

rockyoung

Dim n1, n2, n3 'test it
Private Sub Form_Load () 'read points
If Dir ("c:\a.txt") = "" Then Exit Sub
    Open "c:\a.txt" For Input As 1
        Input # 1, n1, n2, n3
    Close
    Text1 = n1: Text2 = n2: Text3 = n3
End Sub

Private Sub Form_Unload (Cancel As Integer) '
    Open "c:\a.txt" For Output As 1
        Write # 1, Text1, Text2, Text3
    Close
End Sub

四不像君

Did you delete the record in the file every time? ?

彻底复仇

Check the file, if the file is written and not closed after the file is opened, the file will be emptied

aylaomi

Not bad learned