スロットプログラム

プログラムの概要

スタートボタンをクリックすると３個のピクチャボック スの絵が、一定間隔で、５種類の絵柄の中から、ランダム に変化する。 次にストップボタンをクリックすると３個のピクチャボ ックスの絵が止まり、３個の絵柄が総て揃えば『あたり』 ２個の絵柄が揃えば『おしい』、総ての絵柄が異なれば『は ずれ』と表示される。 タイトルバーの『閉じる』ボタンをクリックすると、タイ マーが稼動して居れば、其れを停止し、プログラムをメモ リから消去して終了する。

スロットプログラム

VB 2005 ⑥ □ 定数の宣言（Const） □ 単純変数の宣言（Dim） □ 配列変数の宣言（Private） □ 標準コントロールの利用（Label、Picture、Button、Timer、Panel） □ プロパティの値の取得と設定（Text、BackColor、Enabled、Image、Cancel） □ イベントの利用（Load、FormClosing、Click、Tick） □ メソッドの利用（CreateGraphics、DrawImage、Dispose） □ ステートメントの利用（End、Randomize） □ 組込関数の利用（UBound、Rnd、Int） □ 演算子（代入演算子、論理演算子、算術演算子） □ 制御構造構文（条件分岐、ループ処理） 今回の課題項目 □ タイマーの利用（一定時間間隔でのイベントの発生）

□ If 文に依る条件分岐（If ～ Then … ElseIf … Else … End If） □ For 文に依るループ処理（For counter=start To end: … :Next counter） □ 乱数系列の初期化と乱数の発生（Randomize、Rnd）

今回の重点項目

□ 各絵柄を個別に停止する事が出来る様にする。 □ 各絵柄を一定の順番で回転させる様にする。

■ オブジェクト・プロパティ一覧 ■ コントロールの種類 プロパティ プロパティの設定値 フォーム Name slot FormBorderStyle FixedSingle BackColor 128, 255, 255（左記の通り直接入力） Icon Lupin.ico（アイコンファイル） MaximizeBox False StartPosition CenterScreen Text ルパンⅢ世のスロット ラベル１ Name lblTitle Font HG 創英角ﾎﾟｯﾌﾟ体、太字、１８ Text ルパンⅢ世のスロット ラベル２ Name lblMes AutoSize False BackColor Blue ForeColor White Font ＭＳ明朝、太字、１４ Text 空白 TextAlign MiddleCenter パネル Name pnlSlot BackgroundImage ブルーリング.bmp BorderStyle FixedSingle タイマー Name tmrGame ボタン１ ピクチャー４ ラベル１ ラベル２ ピクチャー１ タイマー ボタン２ ピクチャー２ ピクチャー３ ピクチャー５ ピクチャー６ ピクチャー７ ピクチャー８ パネル

コントロールの種類 プロパティ プロパティの設定値 ピクチャーボックス１～３ Name picBoard0, picBoard1, picBoard2

Image Lupin.ico SizeMode CenterImage

ピクチャーボックス４～８ Name picSlot0, picSlot1, … , picSlot3, picSlot4 BorderStyle FixedSingle

Image picSlot0 ：Fujiko_1.ico picSlot1 ：Fujiko_2.ico picSlot2 ：Goemon.ico picSlot3 ：Jigen.ico picSlot4 ：Lupin.ico Size 32,32 Visible False ボタン１ Name btnStart Font ＭＳ明朝、太字、１２ BackColor Blue ForeColor White Image Lupin.ico ImageAlign TopCenter Text スタート TextAlign BottomCenter ボタン２ Name btnStop Font ＭＳ明朝、太字、１２ BackColor Blue ForeColor White Image Lupin.ico ImageAlign TopCenter Text ストップ TextAlign BottomCenter ラベル テキストを表示するコントロール。此のテキストは、ユーザーが直接入力したり変更したりす る事は出来ない。 ボタン ユーザーが選択したコマンド（命令）や操作を実行するコントロール。ＯＫボタンや実行ボタ ン等、処理の開始や中断・終了の合図に用いられ、最も良く利用されるコントロールで有る。 ボタンが押し下げられた様に外観が変わる為、プッシュボタンとも謂う。 ピクチャボックス ビットマップ、アイコン、メタファイル、ＪＰＥＧファイル、ＧＩＦファイル等の画像を表示 するコントロール。従来のバージョン（VB 6.0）の様に、描画メソッドを用いて描画する事 や、内部に他のコントロールを配置してコンテナと仕て使用する事はは出来ない。 パネル 他のコントロールをグループ化する為のコンテナと成るコントロールで有る。通常は、機能別 にフォームを細分化する為に使用する。亦、BackgroundImage プロパティを設定すると、コ ントロールの背景にイメージが表示される。 タイマー 一定の時間間隔でイベントが発生する様にするコントロール。一定時間毎にプログラムを実行 したい時に使用する。此のコントロールは、実行時には表示されない。

■ プログラムリスト ■

Public Class slot

' フォームレベルでグローバルな定数の宣言 Private Const NP As Integer = 5 ' フォームレベルでグローバルな変数の宣言 Private BD(2) As Integer

Private DI(2) As Graphics Private SI(4) As Bitmap

' フォームが読み込まれた時の処理

Private Sub slot_Load( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles Me.Load Dim I As Integer ' 仮想画面（スロットの目）の初期化 For I = 0 To UBound( BD ) BD( I ) = 0 Next ' 描画用 Graphics オブジェクトの生成 DI(0) = picBoard0.CreateGraphics( ) DI(1) = picBoard1.CreateGraphics( ) DI(2) = picBoard2.CreateGraphics( ) ' 表示用 Bitmap オブジェクトの生成 SI(0) = New Bitmap( picSlot0.Image ) SI(1) = New Bitmap( picSlot1.Image ) SI(2) = New Bitmap( picSlot2.Image ) SI(3) = New Bitmap( picSlot3.Image ) SI(4) = New Bitmap( picSlot4.Image ) ' 乱数系列の初期化

Randomize( ) End Sub

' フォームが閉じられ様と仕た時の処理

Private Sub slot_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) _

Handles Me.FormClosing

If MsgBox( "終了しますか？", MsgBoxStyle.YesNo, "確認" ) = MsgBoxResult.Yes Then If tmrGame.Enabled = True Then

tmrGame.Enabled = False End If Me.Dispose( ) : End Else e.Cancel = True End If End Sub 此処で宣言した変数は同じフォー ム内の総てのサブプロシージャで 値の参照と設定を行う事が出来 る。 此処で宣言した変数は宣言したサ ブプロシージャ内でしか値の参照 と設定を行う事が出来ない。 乱数系列を初期化する場合に乱数 の種（シード）を引数として与え る事も出来るが、引数を省略した 時は、システムタイマーから取得 した値が新しいシード値と仕て使 用される。 ループ処理ではカウンターI の値 を０から配列BD の添字の最大値 迄、順次１ずつ変化（インクリメ ント）させて、Next 迄の処理を繰 り返し行う。 描画先と成る Graphics オブジェ クトと、描画元と成るBitmap オ ブジェクトを、ピクチャボックス より生成する。 終了する場合、タイマーが稼動し て居れば停止し、プログラムをメ モリから消去して終了する。 Cancel プロパティを True に設定 する事に依り、終了操作をキャン セルする事が出来る。

' ボタン（スタート）がクリックされた時の処理

Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles btnStart.Click ' メッセージ欄の初期化 lblMes.Text = "" lblMes.BackColor = Color.Blue ' タイマーの有効化 tmrGame.Enabled = True End Sub ' タイマーが一定間隔で行う処理

Private Sub tmrGame_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles tmrGame.Tick Dim I As Integer ' スロットの各目の設定 For I = 0 To UBound( BD ) ' 乱数で目を決定 BD( I ) = Int( Rnd( ) * NP ) ' 画像を貼付

DI( I ).DrawImage( SI( BD( I ) ), 6, 6 ) Next

End Sub

' ボタン（ストップ）がクリックされた時の処理

Private Sub btnStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles btnStop.Click ' タイマーの無効化 tmrGame.Enabled = False ' 当り判定 lblMes.BackColor = Color.Red If BD(0) = BD(1) And BD(1) = BD(2) Then lblMes.Text = "あたり" ElseIf BD(0) = BD(1) Or BD(1) = BD(2) Or BD(2) = BD(0) Then lblMes.Text = "おしい" Else lblMes.Text = "はずれ" End If End Sub End Class 此処で宣言した変数は宣言したサ ブプロシージャ内でしか値の参照 と設定を行う事が出来ない。 ダブルコーテーションの間に何も 記述せず２個連続して記述する と、長さ０の文字列（ヌルストリ ング）を意味し、文字列の消去等 に利用する。 Int 関数は、引数を超えない最大 の整数を返す関数で有るが、正の 値を指定する時には、単に整数部 分を返す関数と考えて支障無い。 条件判定に、比較演算子を使用し て居る。 A = B : ＡとＢは等しい 此の場合のイコール（＝）記号は、 代入演算子で有り、右辺の値を左 辺に代入する働きをする。

And 演算子と Or 演算子に依る複数の条件に依る条件分岐 複数の条件判断を行う演算子 ① If 条件式１ And 条件式２ Then ② If 条件式１ Or 条件式２ Then And 演算子と Or 演算子は、論理値の演算を行う論理演算子で有る。 上記①では、条件式１と条件式２が、共に真（True）で有る場合に、真と成る。And 演算子は、論理積 と呼ばれる論理演算子で、『且つ』を意味する。 条件式１の値 条件式２の値 結果の値

True True True

True False False

False True False

False False False

上記②では、条件式１か条件式の孰れかが、真（True）で有る場合に、真と成る。Or 演算子は、論理 和と呼ばれる論理演算子で、『又は』を意味する。

条件式１の値 条件式２の値 結果の値

True True True

True False True

False True True

False False False

３個以上の条件式が有る場合は、２個の条件式の結果と３個目の条件式が評価されると謂う様に、常に ２個宛の条件式が、順次評価されて行く。

猶、And 演算子と Or 演算子が混在する場合は、And 演算子の方が、優先順位が高い為、And 演算子で 比較される条件式の方が、先に評価される。優先順位を変更するには、括弧を付ける事に依り、優先順 位を制御する事が出来る。コードを見易くする為にも、括弧を使用して、優先順位を明示する事が望ま しい。猶、優先順位が同じ場合は、演算子の結合規則に依り、演算の実行順序が決定されるが、二項演 算子の結合規則は総て左から右で有り、演算（評価）は左から右に実行される

亦、Boolean 型には、AndAlso 演算子と OrElse 演算子も使用可能で、此等は、ショートサーキット評 価を実行する。即ち、特定の状況では、２番目の条件式は実行時に評価されない。

詰まり、AndAlso 演算子では、条件式が False に評価された時点で、式は False を返し、以降の条件式 は、評価されない。亦、OrElse 演算子では、条件式が True に評価された時点で、式は True を返し、 以降の条件式は、評価されない。 機 能 書 式 解 説 条件式１ Or 条件式２ Or 条件式３ 結果の値 結果の値

Const ステートメントに依る定数の宣言 定数の宣言を行うステートメント

[Public|Protected|Friend|Protected Friend|Private] Const As データ型 = 値

リテラル値の代わりに使用する定数を宣言する為に、モジュール、クラス、プロシージャ、 構造体、ブロックの各レベルで使用する。 Sub、Function、Property の各プロシージャ内で宣言した定数は、其のプロシージャ内でしか参照する 事が出来ないが、プロシージャの外で宣言された定数は、宣言されたクラス、モジュール、又は、構造 体の何処ででも参照する事が出来る。 リテラル値を直接コードに記述するのでは無く、コードの可読性を高める為、内容を類推し易い名前を 付けた定数を使用する事を推奨する。特に、数値を直接コードに記述した場合、マジックナンバー（不 思議な数）と呼ばれ、其れが何を意味して居るのか容易に類推出来ない事が多く、可読性を著しく低下 させる恐れが有り、メンテナンス面でもデメリットが多い。 UBound 関数に依る配列の最大要素番号の取得 配列の最大要素番号を返す関数 UBound(配列名, [次元]) 配列の指定された次元で使用可能な要素番号（添字）の最大値を返す。 引数の配列名には、或る次元で使用可能な要素番号（添字）の最大値を調べる対象と成る任意のデータ 型の配列を指定し、必ず指定する。 引数の次元には、使用可能な要素番号（添字）の最大値を取得する次元をInteger 型の値で指定し、省 略可能で有る。最初の次元なら1、２番目の次元なら 2 と謂う様に指定する。省略すると、1 が使用さ れる。 配列の次元とUBound 関数が返す値の関係を下記に示す。

Dim A(100, 5, 4) As Byte の場合

UBound(A, 1) → 100 が返される。 UBound(A, 2) → 5 が返される。 UBound(A, 3) → 4 が返される。 猶、配列の添字は0 から始まる為、次元の長さ（個数）は、其の次元で使用可能な要素番号（添字）の 最大値より１丈大きい数値に成る。 亦、配列の指定された次元で使用可能な要素番号（添字）の最小値を返すLbound 関数も有るが、此れ は、Visual Basic 6.0 以前では、配列の要素の下限を任意に設定する事が出来たので、有効で有ったが Visual Basic.NET 以降では、配列の要素番号（添字）は 0 から始まる為、各次元で使用可能な要素番 号（添字）の最小値は常に0 で有り、意味を為さない関数と成った。 機 能 書 式 解 説 機 能 書 式 解 説

MsgBox 関数に依るダイアログメッセージの表示 メッセージボックスを表示する関数 MsgBox(プロンプト, ボタン, タイトル) ダイアログボックスにメッセージを表示し、ボタンがクリックされるのを待って、何のボタ ンがクリックされたのかを示す整数型（Integer）の値を返す。 引数のプロンプトには、ダイアログボックス内にメッセージと仕て表示する文字列を指定し、必ず指定 する。 引数のボタンには、表示されるボタンの種類と個数、使用するアイコンのスタイル、標準ボタン、メッ セージボックスがモーダルか何うか等、其等を表す値の合計値を示す数式を MsgBoxStyle 列挙型の値 で指定し、省略可能で有る。省略すると、既定値は0 に成る。 下記に代表的なMsgBoxStyle 列挙型の値を示す。 列挙型 値 説明 OKOnly 0 [OK] ボタン而巳を表示する。 OKCancel 1 [OK] ボタンと [キャンセル] ボタンを表示する。 AbortRetryIgnore 2 [中止]、[再試行]、及び [無視] の３個のボタンを表示する。 YesNoCancel 3 [はい]、[いいえ]、及び [キャンセル] の３個のボタンを表示する。 YesNo 4 [はい] ボタンと [いいえ] ボタンを表示する。 RetryCancel 5 [再試行] ボタンと [キャンセル] ボタンを表示する。 Critical 16 警告メッセージアイコンを表示する。 Question 32 問合メッセージアイコンを表示する。 Exclamation 48 注意メッセージアイコンを表示する。 Information 64 情報メッセージアイコンを表示する。 例えば、[はい] と [いいえ] ボタンを表示し、問合メッセージアイコンを表示する場合は、引数のボタ ンの個所に、MsgBoxStyle. YesNo + MsgBoxStyle. Question と記述する。猶、エディタでコードを入 力する際には、上記は、インテリセンスで表示されるので、特に覚える必要は無い。 引数のタイトルには、ダイアログボックスのタイトルバーに表示する文字列を指定し、省略可能で有る。 省略すると、タイトルバーにはアプリケーション名が表示される。 MsgBox 関数は、下記の MsgBoxResult 列挙型の値を返す。 メンバ 値 定数 説明 OK 1 vbOK [OK] ボタン Cancel 2 vbCancel [キャンセル] ボタン Abort 3 vbAbort [中止] ボタン Retry 4 vbRetry [再試行] ボタン Ignore 5 vbIgnore [無視] ボタン Yes 6 vbYes [はい] ボタン No 7 vbNo [いいえ] ボタン 機 能 書 式 解 説

CancelEventArgs の Cancel プロパティに依るプログラムの終了制御 イベントをキャンセルするか何うかを示す値を取得・設定するプロパティ CancelEventArgs.Cancel = 論理値 フォームの『閉じる』ボタンがクリックされた時に発生するClosing イベントをキャンセル するか何うかを決定する。 フォームの『閉じる』ボタンがクリックされた時に発生するClosing イベントで、プログラムの終了確 認や、未保存データの保存確認を行い、間違って同ボタンをクリックした時に、不用意にプログラムが 終了するのを防止する目的で使用される事が多い。 フォームを閉じる操作をキャンセルするには、イベントハンドラに渡される CancelEventArgs の Cancel プロパティを True に設定する。 Color 構造体に依る色の指定 ■ Color 構造体のプロパティを使用してシステム定義色を指定する方法 約 140 色が、システム定義色と仕て、Color 構造体のプロパティに定義されて居る。此れを使用して、 色を指定する書式は、下記の通りで有る。 書 式：[System.Drawing.]Color.プロパティ 記述例：[System.Drawing.]Color.Red ※ 猶、System.Drawing 名前空間は、既定で参照設定される為、特に名前の衝突が起こらない限り、 記述する必要は無い（以下同じ）。 ■ Color 構造体のメソッドを使用してユーザー定義色を指定する方法 ユーザ定義色を指定するFromArgb メソッドの書式は、下記の通りで有る。 書 式：[System.Drawing.]Color.FromArgb(アルファブレンド, 赤の要素, 緑の要素, 青の要素) 記述例：[System.Drawing.]Color.FromArgb(128, 255, 0, 0 ) 夫々れの引数には、０～２５５迄の整数の値を指定する。 アルファブレンドは、省略する事が可能で、省略した場合は255（不透明）を指定した事に成る。 上記以外にも、SystemColors クラスのプロパティを使用してシステムカラー（例えば、タイトルバー の色に設定されて居る色）を指定する方法やColorTranslator クラスの FromOLE メソッドを使用して 従来の方法で色を指定する方法が有る。

[System.Drawing.] SystemColors.ScrollBar

[System.Drawing.]ColorTranslator.FromOLE(VB6.QBColor(14) ) [System.Drawing.]ColorTranslator.FromOLE(VB6.RGB(255, 0, 0) ) [System.Drawing.]ColorTranslator.FromOLE(&HFF80FF) 一般に、Color 構造体のプロパティやメソッドを使用して色の指定を行う事が多い。 機 能 書 式 解 説

コントロールのCreateGraphics メソッドに依る Graphics オブジェクトの生成 コントロールのGraphics オブジェクトを作成するメソッド

Graphics オブジェクト変数 = Object.CreateGraphics( )

コントロールに画像を表示したり、グラフィックスや文字を描画する為に必要な Graphics オブジェクトを生成する。 生成された Graphics オブジェクトを通じて、コントロールに画像を表示したり、グラフィックスや文 字を描画する。従来のVisual Basic 6.0 以前の様に、フォームやピクチャボックスに、グラフィックス メソッドを使用して、直接描画を行う事は出来ない。 猶、Graphics オブジェクトは、不要に成れば、Dispose メソッドを呼び出して破棄する必要が有る。亦 Graphics オブジェクトは、現在のウィンドウのメッセージの存続期間丈有効で有る。 Bitmap コンストラクタに依る Bitmap オブジェクトの生成 Bitmap オブジェクトを作成するコンストラクタ

Bitmap オブジェクト変数 = New Bitmap(Object.Image)

コントロールのImage プロパティより、グラフィックスイメージのピクセルデータと其の属 性で構成されるGDI+ビットマップをカプセル化したデータを保持し、イメージを処理する 場合に使用するBitmap オブジェクトを生成する。 Bitmap コンストラクタには、上記以外にも、画像ファイルから生成したり、サイズ丈を指定して生成 したり、色々なオーバーロード（同一のスコープ内で同一の関数や演算子に複数の定義を与える事。即 ち、同じ名称で、引数の異なる形式）が存在する。 Graphics オブジェクトの DrawImage メソッドに依る画像の描画 指定した位置に元のサイズで指定したイメージを描画するメソッド GraphicsObject.DrawImage(イメージ, 横位置, 縦位置) イメージの左上隅を横位置と縦位置で指定された点に、イメージを元のサイズで描画する。 DrawImage メソッドには、上記以外にも、イメージの一部を切り取って描画したり、サイズを変更し て描画したり、色々なオーバーロード（同一のスコープ内で同一の関数や演算子に複数の定義を与える 事。即ち、同じ名称で、引数の異なる形式）が存在する。

イメージには、Image クラスから派生したオブジェクトを指定し、Bitmap オブジェクトや Metafile オ ブジェクトを指定する事が出来る。 機 能 書 式 解 説 機 能 書 式 解 説 機 能 書 式 解 説

.NET Framework 対応 ■ 乱数の発生

従来の記述法

.NET Framework の記述法

Private Rn As Random = New Random()

.NET Framework では、乱数を発生させるには、Rnd 関数ではなく、Random オブジェクトを使用す る（此処では、頻繁に使用するので、クラスのメンバ変数に仕て居る）。猶、クラスをインスタンス化 する時に、乱数系列の初期化が行われるので、Randomize 関数の実行は、不要と成る。 従来の記述法 BD(I) = Int(Rnd() * NP) .NET Framework の記述法 BD(I) = Rn.Next(0, NP) 上記では、0 以上 6 未満の整数値（Integer 型）が返される。猶、Rnd 関数の様に、0.0 以上 1.0 未満の 実数値（Double 型）を返す NextDouble メソッドも提供されて居る。 ■ 複合条件式の論理演算子 従来の記述法 If BD(0) = BD(1) And BD(1) = BD(2) Then ElseIf BD(0) = BD(1) Or BD(1) = BD(2) Or BD(2) = BD(0) Then .NET Framework の記述法 If BD(0) = BD(1) AndAlso BD(1) = BD(2) Then

ElseIf BD(0) = BD(1) OrElse BD(1) = BD(2) OrElse BD(2) = BD(0) Then

.NET Framework では、複合条件式の論理演算子には、Or 演算子（論理和）や And 演算子（論理積） ではなく、OrElse 演算子（又は）や AndAlso 演算子（且つ）を使用する。

Visual Basic 6.0 では、論理演算子に、ビット演算子で有る Or 演算子や And 演算子を流用して居た が、.NET Framework では、OrElse 演算子や AndAlso 演算子が追加されたので、今後は、複合条件式 の論理演算子には、此れを使用する可きで有る。 ■ タイマーの始動・停止 従来の記述法 tmrGame.Enabled = False tmrGame.Enabled = True .NET Framework の記述法 tmrGame.Stop() tmrGame.Start()

.NET Framework では、タイマーの始動・停止には、Start メソッドや Stop メソッドを使用するも出 来る（孰れも、結果は同じで有る）。

■ テキストボックス内の文字列のクリア

従来の記述法 txtSrc.Text = ""

.NET Framework の記述法 txtSrc.Clear()

.NET Framework では、テキストボックス内のテキストをクリアする手段と仕て、Clear メソッドも使 用する事が出来る（孰れでも、結果は同じ）。 ■ 配列の最大要素番号の取得 従来の記述法 For I = 0 To UBound(BD) .NET Framework の記述法 For I = 0 To BD.GetUpperBound(0) 又は For I = 0 To (BD.Length - 1)

.NET Framework では、配列の最大要素番号を取得するには、UBound 関数ではなく、Array クラス のGetUpperBound メソッドを使用する。 猶、GetUpperBound メソッドは、多次元配列の各次元の最大要素番号を取得する事が出来る為、引数 に次元番号を渡す必要が有る（一次元配列の場合は、常に0 と成る）。 亦、.NET Framework では、配列の最小要素番号は、0 に固定されて居るので、最大要素番号は、要素 数-1 で求める事が出来る。 ■ アプリケーションの終了 従来の記述法 Me.Dispose() : End .NET Framework の記述法 Me.Dispose() : Application.Exit() 現在実行して居るアプリケーションは、Application オブジェクトで表されるので、其の Exit メソッド を用いて、アプリケーションを終了する。 因みに、Dispose メソッドは、インスタンスをメモリから開放するメソッドで、唯一のフォームが、メ モリから開放されゝば、アプリケーションは終了するが、Application クラスの Exit メソッドで、アプ リケーションを終了する事が望ましい。