[VBS]簡単な乱数発生ソフトを作る(電子サイコロ)

最もシンプルなやり方

もっとも簡単な乱数の発生スクリプトは以下のようになります。
1~6の数字を発生させる、サイコロです。

Option Explicit

'変数設定
Dim MyValue, Response
minvalue = 1
maxvalue = 6

’乱数を初期化
Randomize

'乱数を生成して表示
MyValue = Int((Rnd*maxvalue) + minvalue)     
MsgBox (MyValue)

上記のコードをメモ帳にコピペして、拡張子.vbsで保存するだけで動きます。
※VBSを使う理由はこちら

機能を追加するには

数字の範囲を変更するには

minvalue と maxvalueで数字の範囲を変更できます。
例えば以下のように変更すると100~199の範囲になります。

Option Explicit

'変数設定
Dim MyValue, Response
minvalue = 100
maxvalue = 199

’乱数を初期化
Randomize

'乱数を生成して表示
MyValue = Int((Rnd*maxvalue) + minvalue)     
MsgBox (MyValue)

連続してサイコロを振れるようにする

メッセージボックスのyesを押すたびにサイコロを振りなおすようにしました。

Dim MyValue, Response
'変数設定
minvalue = 1
maxvalue = 6

’乱数を初期化
Randomize

'乱数を生成して表示、NOが押されるまでループする
Do until Response = vbNo
   MyValue = Int((Rnd*maxvalue) + minvalue)     
   Response = MsgBox ("   "&MyValue & vbcrlf & vbcrlf& vbcrlf& vbcrlf&"続行...", vbYesNo)
Loop

 

 参考価格

これくらいの シンプルさ、難易度であれば、カシコでは5000円程度で作成できます。
※処理の追加が必要な場合は、その難易度や数によって金額が上がります。

お気軽にお見積りお待ちしております。

This site is protected by reCAPTCHA and the GooglePrivacy Policy and Terms of Service apply.