62歳パソコン教師の日記 NO.088 (2000.3.23)


No.73 と No.75 で [Windows Scripting Host] を勉強しましたが、 今日はその3回目です。今度は簡単なゲームを作ってみましょう。次ぎにランダムに表示される数字が、質問の数字より大きいか小さいかを当てるというたわいのないゲームですが、プログラミングをやっているんだという気分を少しは味わえるでしょう。

下記のスクリプトはインデントされていませんので、[表示] →[ソース] とクリック、→[メモ帖] のスクリプトをコピーしてメモ帳に貼り付けてください。貼り付けたら、各行末の <BR> を除いて保存します。 [ファイル] →[名前を付けて保存] とクリック、[ファイルの種類] 欄を [すべてのファイル] を指定 →[ファイル名] 欄にはお好きな名前を付け、拡張子は [.vbs] を付けて保存します。これで完成です。

保存した [xxxxx.vbs] ファイルをダブルクリックして下さい。

********************************************************************

Randomize

com1 = Int(10*Rnd+1) com2 = Int(10*Rnd+1) win = 0 lose = 0

MsgRt = MsgBox("次ぎの数字は " & com1 & " より大きい?",3+32,"GAME")

Do

If MsgRt = 2 Then WScript.Quit

If com2 > com1 Then
If MsgRt = 6 Then
win = win + 1
msg = "おめでとうございます。"
Else
lose = lose + 1
msg = "次ぎは頑張ってくださいね。"
End If
Else
If MsgRt =6 Then
lose = + 1
msg = "残念、負けちゃいました"
Else
win = win + 1
msg = "当たり!"
End If
End If

MsgRt = MsgBox(com2 & vbCR & vbCR & msg & win & "勝" & lose & "敗です。" & _ vbCR & vbCR & "次ぎの数字は " & com2 & " より大きい?",3+32,"GAME")

com1 = com2

com2 = Int(10*Rnd+1)

Loop