OriosのActiveBasic講座(1-5):やってみようの答え(1-5)

#console
' 変数名等は適当に
Dim true_ans As Integer
Dim user_ans As Integer
Open "LetsTry1-5-1.txt" For Output As #1
' このようにユーザに何をやるかを表示すると分かりやすいと思います。
' 書かなくても構いません。
Print "今からコンピューターが0〜3の中のどれかを選ぶのでそれを当ててください。"
'乱数を使う場合これを入れておいた方がいいです。
Randomize
While -1
    true_ans = Fix(Rnd() * 4)
    Input user_ans
    ' 数字・コンマの間にスペースを入れないようにするにはこの方法がベストです。
    Print #1, true_ans;
    Print #1, ",";
    Print #1, user_ans
    If true_ans = user_ans Then
        Exit While
    Else
        ' 書く必要はありませんが書いたほうがユーザに分かりやすいです。
        Print "ハズレ"
    End If
WEnd
Close #1
Exec "LetsTry1-5-1.txt"
End

' 今回は入力や表示が無いので#consoleはなくても構いません。
#console
' 変数名等は適当に
Dim temp[11] As Single '温度は小数なのでSingleかDoubleを推奨
Dim i As Integer
Dim ave As Single
Open "LetsTry1-5-2.txt" For Input As #1
' 各月のデータだと最初から分かっているのでForループで0〜11を使って読み込むなどしても構いません。
Do
    Input #1, temp[i]
    i = i + 1
Loop Until Eof(1) = -1 '「Loop Until Eof(1)」でも構いません。
Close #1
' 平均の求め方はこれ以外にもいろいろ方法はあると思います。
For i = 0 To 11
    ave = ave + temp[i]
Next
ave = ave / 12
Open "LetsTry1-5-2.txt" For Append As #1
Print #1, ave
Close #1
Exec "LetsTry1-5-2.txt"
End

#console

' 変数の宣言 (変数名などは自由)
Dim data As String
Dim usr_win As Integer
Dim usr_loose As Integer
Dim true_ans As Integer
Dim usr_ans As Integer
Dim continue_yn As String
Dim new_data As String

' 対戦結果ファイルを読み出す
Open "LetsTry1-5-3.txt" As #1
Field #1, Lof(1)
Get #1, 1, data
' ファイルがなかったときはdata[1]がエラーになる可能性があるので、
'  ファイルがあるときだけ読み込んだデータを代入する
If Lof(1) <> 0 Then
    usr_win = data[0]
    usr_loose = data[1]
End If
Close #1

' 今までの記録を表示
Print "今までの対戦結果:"; usr_win; "勝"; usr_loose; "敗"

' ゲーム本体
Randomize
Do
    ' 正解の数字は乱数で
    true_ans = Fix(Rnd() * 3) + 1
    Input "数を当ててください(1〜3)", usr_ans
    If true_ans = usr_ans Then
        Print "当たり"
        usr_win = usr_win + 1
    Else
        Print "はずれ"
        usr_loose = usr_loose + 1
    End If
    Input "続けますか？[Y/N]", continue_yn
Loop Until continue_yn = "N" or continue_yn = "n"

' 対戦結果の更新 (文字列変数「data」に上書きしても可)
new_data = String$(2, Chr$(0))
new_data[0] = usr_win
new_data[1] = usr_loose
Print "累計対戦結果:"; usr_win; "勝"; usr_loose; "敗"

' 対戦結果をファイルに保存
' ファイルサイズが同じなのでKillはしてもしなくても可
Kill "LetsTry1-5-3.txt"
Open "LetsTry1-5-3.txt" As #1
Field #1, Len(new_data)
Put #1, 1, new_data
Close #1

Sleep(3000)

End