掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メモ帳への保存について (ID:145630)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ゲームの得点をテキストファイルに保存する処理を行っています。 H_ScoreにはベストスコアのテキストファイルをW_Scoreにはワーストスコアのテキストファイルを読み込んでいます。 ScoreLabelにゲームのスコアが入り、それをベストスコアとワーストスコアで比較し、当てはまるほうの処理を行いたいのですが、上手くいきません。 ベストスコアとワーストスコアの初期値は０です。 ゲームをクリアして、スコアが１００や２００でもワーストスコアに書き込みされます。 どうしてでしょうか？？ 教えてください。 よろしくお願いします。 Const H_Score As String = "HiScore.txt" Const W_Score As String = "WorstScore.txt" Dim filenum As Integer Dim readline As String If H_Score < ScoreLabel.Text Then MsgBox("Best Score!!") filenum = FreeFile() FileOpen(filenum, H_Score, OpenMode.Output) Print(filenum, ScoreLabel.Text) FileClose(filenum) End If If W_Score > ScoreLabel.Text Then MsgBox("Worst Score!!") filenum = FreeFile() FileOpen(filenum, W_Score, OpenMode.Output) Print(filenum, ScoreLabel.Text) FileClose(filenum) End If
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.