━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■        まぐまぐID : 0000022784
■■      ６２歳パソコン教師の日記 NO.88        2000.03.23
■■■    Home Page : http://plaza27.mbn.or.jp/~nishikubo/
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

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


下記のスクリプトをコピーしてメモ帳に貼り付けてください。貼り付けたら
保存します。 [ファイル] →[名前を付けて保存] とクリック、[ファイルの
種類] 欄を [すべてのファイル] を指定 →[ファイル名] 欄にはお好きな名
前を付け、拡張子は [.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

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

※【バックナンバー】は、下記のホームページの左下に [MAGMAG] のボタン
  がありますので、これをクリックして「まぐまぐ」のページへ行き、ダウ
  ンロードをしてご利用ください。

※【掲示板】をご利用ください。このメールマガジンの読者の方が対象です。
  パソコンに関する質問その他を書き込んでください。質問には読者の方々
  の中でご存知の方がいらっしゃいましたら、回答を書き込んでください。
  下記のホームページの左下に [BBS] のボタンがありますので、 これをク
  リックして「掲示板」のページへ入ります。

   掲示板は初めての方も、練習のつもりでお気軽に書き込んでください。

   http://plaza27.mbn.or.jp/~nishikubo/

※【ヘミングメイト】このマガジンの読者の方が参加できるメールサークル
   です。参加者数は２３０人を超えました。 参加申込みは  1.お名前（ハ
   ンドルでも結構です） 2.メールアドレス  3.都道府県  4.自己紹介文  
   を書いて、徳さんへ送信してください。

   fukuichi@po1.dti2.ne.jp

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■       まぐまぐID : 0000022784  発行責任者 : 西久保 希光    
■■     ６２歳パソコン教師の日記 NO.88        2000.03.23
■■■   Home Page : http://plaza27.mbn.or.jp/~nishikubo/          
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
※ このメールマガジンの読者登録解除は下記のホームページで出来ます。
   http://plaza27.mbn.or.jp/~nishikubo/mag.html

※ ご意見・ご感想・ご質問は bzq12755@bd.mbn.or.jpまでお寄せください。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して
発行しています。( http://www.mag2.com/ ) 
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━