小游戏中得分纪录保存的小问题

wmzhen

rt
做了个小游戏，分数纪录只保存了前三名
玩家结束一局后保存分数，如果分数达到前三纪录则冲掉原来纪录，现在的问题是生成.exe文件后，重起游戏，记录总是0 0 0，大虾们，帮小弟一把

siyonggang

你把纪录存到哪了？

1.文件
2.数据库

wmzhen

我存到文件里了

siyonggang

那你肯定要从文件中读取的
1.检查你读文件的函数
2.你读取文件的路径是不是对的

你不生成exe，在环境中调的时候一切顺利？每次更改数据后重新运行所读出来的数据还是对的？

rockyoung

Dim n1, n2, n3'测试一下
Private Sub Form_Load()'读积分
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

四不像君

是不是每次你把文件里的记录给删除了？？

彻底复仇

检查下文件,如果打开文件后写入完毕不关闭的话,文件会被清空的

aylaomi

不错　学习了