スロットプログラム

Size: px

Start display at page:

Download "スロットプログラム"

まとものしろ
5 years ago
Views:

スロットプログラム VB 2005 6 プログラムの概要スタートボタンをクリックすると 3 個のピクチャボックスの絵が一定間隔で 5 種類の絵柄の中からランダムに変化する次にストップボタンをクリックすると 3 個のピクチャボックスの絵が止まり 3 個の絵柄が総て揃えばあたり 2 個の絵柄が揃えばおしい総ての絵柄が異なればはずれと表示されるタイトルバーの閉じる

1 スロットプログラム VB プログラムの概要スタートボタンをクリックすると 3 個のピクチャボックスの絵が一定間隔で 5 種類の絵柄の中からランダムに変化する次にストップボタンをクリックすると 3 個のピクチャボックスの絵が止まり 3 個の絵柄が総て揃えばあたり 2 個の絵柄が揃えばおしい総ての絵柄が異なればはずれと表示されるタイトルバーの閉じるボタンをクリックするとタイマーが稼動して居れば其れを停止しプログラムをメモリから消去して終了する今回の課題項目定数の宣言 (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) 今回の応用項目各絵柄を個別に停止する事が出来る様にする各絵柄を一定の順番で回転させる様にする -1-

オブジェクトプロパティ一覧ラベル 1 ピクチャー 4 ラベル 2 ピクチャー 5 ピクチャー 6 ピクチャー 7 ピクチャー 1 ピクチャー 2 ピクチャー 3 パネルピクチャー 8 タイマーボタン1 ボタン2 コントロールの種類プロパティプロパティの設定値フォーム Name slot FormBorderStyle FixedSingle BackColor 128, 255,

2 オブジェクトプロパティ一覧ラベル 1 ピクチャー 4 ラベル 2 ピクチャー 5 ピクチャー 6 ピクチャー 7 ピクチャー 1 ピクチャー 2 ピクチャー 3 パネルピクチャー 8 タイマーボタン1 ボタン2 コントロールの種類プロパティプロパティの設定値フォーム Name slot FormBorderStyle FixedSingle BackColor 128, 255, 255( 左記の通り直接入力 ) Icon Lupin.ico( アイコンファイル ) MaximizeBox False StartPosition CenterScreen Text ルパンⅢ 世のスロットラベル1 Name lbltitle Font HG 創英角ホッフ体太字 18 Text ルパンⅢ 世のスロットラベル2 Name lblmes AutoSize False BackColor Blue ForeColor White Font MS 明朝太字 14 Text 空白 TextAlign MiddleCenter パネル Name pnlslot BackgroundImage ブルーリング.bmp BorderStyle FixedSingle タイマー Name tmrgame -2-

3 コントロールの種類プロパティプロパティの設定値ピクチャーボックス1~3 Name picboard0, picboard1, picboard2 Image Lupin.ico SizeMode CenterImage ピクチャーボックス4~8 Name picslot0, picslot1,, picslot3, picslot4 BorderStyle Image FixedSingle picslot0 :Fujiko_1.ico picslot1 :Fujiko_2.ico picslot2 :Goemon.ico picslot3 :Jigen.ico picslot4 :Lupin.ico Size 32,32 Visible False ボタン1 Name btnstart Font MS 明朝太字 12 BackColor Blue ForeColor White Image Lupin.ico ImageAlign TopCenter Text スタート TextAlign BottomCenter ボタン2 Name btnstop Font MS 明朝太字 12 BackColor Blue ForeColor White Image Lupin.ico ImageAlign TopCenter Text ストップ TextAlign BottomCenter ラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるコントロールで有るボタンが押し下げられた様に外観が変わる為プッシュボタンとも謂うピクチャボックスビットマップアイコンメタファイル JPEG ファイル GIF ファイル等の画像を表示するコントロール従来のバージョン (VB 6.0) の様に描画メソッドを用いて描画する事や内部に他のコントロールを配置してコンテナと仕て使用する事はは出来ないパネル他のコントロールをグループ化する為のコンテナと成るコントロールで有る通常は別にフォームを細分化する為に使用する亦 BackgroundImage プロパティを設定するとコントロールの背景にイメージが表示されるタイマー一定の時間間隔でイベントが発生する様にするコントロール一定時間毎にプログラムを実行したい時に使用する此のコントロールは実行時には表示されない -3-

4 プログラムリスト 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 Cancel プロパティを True に設定 End If する事に依り終了操作をキャン End Sub セルする事が出来る -4- ブプロシージャ内でしか値の参照と設定を行う事が出来ないループ処理ではカウンター I の値を 0 から配列 BD の添字の最大値迄順次 1 ずつ変化 ( インクリメント ) させて Next 迄の処理を繰り返し行う描画先と成る Graphics オブジェクトと描画元と成る Bitmap オブジェクトをピクチャボックスより生成する乱数系列を初期化する場合に乱数の種 ( シード ) を引数として与える事も出来るが引数を省略した時はシステムタイマーから取得した値が新しいシード値と仕て使

5 ' ボタン ( スタート ) がクリックされた時の処理 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 ダブルコーテーションの間に何も記述せず2 個連続して記述すると長さ0の文字列 ( ヌルストリング ) を意味し文字列の消去等に利用する ' タイマーが一定間隔で行う処理 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 Int 関数は引数を超えない最大の整数を返す関数で有るが正の値を指定する時には単に整数部分を返す関数と考えて支障無い ' ボタン ( ストップ ) がクリックされた時の処理 Private Sub btnstop_click(byval sender As Object, ByVal e As System.EventArgs) _ Handles btnstop.click ' タイマーの無効化 tmrgame.enabled = False 条件判定に比較演算子を使用し ' 当り判定て居る lblmes.backcolor = Color.Red A = B : AとBは等しい 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 -5-

6 And 演算子と Or 演算子に依る複数の条件に依る条件分岐複数の条件判断を行う演算子 1 If 条件式 1 And 条件式 2 Then 2 If 条件式 1 Or 条件式 2 Then And 演算子と Or 演算子は論理値の演算を行う論理演算子で有る上記 1 では条件式 1 と条件式 2 が共に真 (True) で有る場合に真と成る And 演算子は論理積と呼ばれる論理演算子で且つを意味する条件式 1の値条件式 2の値結果の値 True True True True False False False True False False False False 上記 2 では条件式 1 か条件式の孰れかが真 (True) で有る場合に真と成る Or 演算子は論理和と呼ばれる論理演算子で又はを意味する条件式 1 の値条件式 2 の値結果の値 True True True True False True False True True False False False 3 個以上の条件式が有る場合は 2 個の条件式の結果と 3 個目の条件式が評価されると謂う様に常に 2 個宛の条件式が順次評価されて行く条件式 1 Or 条件式 2 Or 条件式 3 結果の値結果の値猶 And 演算子と Or 演算子が混在する場合は And 演算子の方が優先順位が高い為 And 演算子で比較される条件式の方が先に評価される優先順位を変更するには括弧を付ける事に依り優先順位を制御する事が出来るコードを見易くする為にも括弧を使用して優先順位を明示する事が望ましい猶優先順位が同じ場合は演算子の結合規則に依り演算の実行順序が決定されるが二項演算子の結合規則は総て左から右で有り演算 ( 評価 ) は左から右に実行される亦 Boolean 型には AndAlso 演算子と OrElse 演算子も使用可能で此等はショートサーキット評価を実行する即ち特定の状況では 2 番目の条件式は実行時に評価されない詰まり AndAlso 演算子では条件式が False に評価された時点で式は False を返し以降の条件式は評価されない亦 OrElse 演算子では条件式が True に評価された時点で式は True を返し以降の条件式は評価されない -6-

7 Const ステートメントに依る定数の宣言定数の宣言を行うステートメント [Public Protected Friend Protected Friend Private] Const As データ型 = 値リテラル値の代わりに使用する定数を宣言する為にモジュールクラスプロシージャ構造体ブロックの各レベルで使用する Sub Function Property の各プロシージャ内で宣言した定数は其のプロシージャ内でしか参照する事が出来ないがプロシージャの外で宣言された定数は宣言されたクラスモジュール又は構造体の何処ででも参照する事が出来るリテラル値を直接コードに記述するのでは無くコードの可読性を高める為内容を類推し易い名前を付けた定数を使用する事を推奨する特に数値を直接コードに記述した場合マジックナンバー ( 不思議な数 ) と呼ばれ其れが何を意味して居るのか容易に類推出来ない事が多く可読性を著しく低下させる恐れが有りメンテナンス面でもデメリットが多い UBound 関数に依る配列の最大要素番号の取得配列の最大要素番号を返す関数 UBound( 配列名, [ 次元 ]) 配列の指定された次元で使用可能な要素番号 ( 添字 ) の最大値を返す引数の配列名には或る次元で使用可能な要素番号 ( 添字 ) の最大値を調べる対象と成る任意のデータ型の配列を指定し必ず指定する引数の次元には使用可能な要素番号 ( 添字 ) の最大値を取得する次元を Integer 型の値で指定し省略可能で有る最初の次元なら 1 2 番目の次元なら 2 と謂う様に指定する省略すると 1 が使用される配列の次元と UBound 関数が返す値の関係を下記に示す Dim A(100, 5, 4) As Byte の場合 UBound(A, 1) UBound(A, 2) UBound(A, 3) 100 が返される 5 が返される 4 が返される猶配列の添字は 0 から始まる為次元の長さ ( 個数 ) は其の次元で使用可能な要素番号 ( 添字 ) の最大値より 1 丈大きい数値に成る亦配列の指定された次元で使用可能な要素番号 ( 添字 ) の最小値を返す Lbound 関数も有るが此れは Visual Basic 6.0 以前では配列の要素の下限を任意に設定する事が出来たので有効で有ったが Visual Basic.NET 以降では配列の要素番号 ( 添字 ) は 0 から始まる為各次元で使用可能な要素番号 ( 添字 ) の最小値は常に 0 で有り意味を為さない関数と成った -7-

8 MsgBox 関数に依るダイアログメッセージの表示メッセージボックスを表示する関数 MsgBox( プロンプト, ボタン, タイトル ) ダイアログボックスにメッセージを表示しボタンがクリックされるのを待って何のボタンがクリックされたのかを示す整数型 (Integer) の値を返す引数のプロンプトにはダイアログボックス内にメッセージと仕て表示する文字列を指定し必ず指定する引数のボタンには表示されるボタンの種類と個数使用するアイコンのスタイル標準ボタンメッセージボックスがモーダルか何うか等其等を表す値の合計値を示す数式を MsgBoxStyle 列挙型の値で指定し省略可能で有る省略すると既定値は 0 に成る下記に代表的な MsgBoxStyle 列挙型の値を示す列挙型値説明 OKOnly 0 [OK] ボタン而巳を表示する OKCancel 1 [OK] ボタンと [ キャンセル ] ボタンを表示する AbortRetryIgnore 2 [ 中止 ] [ 再試行 ] 及び [ 無視 ] の3 個のボタンを表示する YesNoCancel 3 [ はい ] [ いいえ ] 及び [ キャンセル ] の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 [ いいえ ] ボタン -8-

9 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 ) 夫々れの引数には 0~255 迄の整数の値を指定するアルファブレンドは省略する事が可能で省略した場合は 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 構造体のプロパティやメソッドを使用して色の指定を行う事が多い -9-

10 コントロールの 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 オブジェクトを指定する事が出来る -10-

11 .NET Framework 対応乱数の発生 Private Rn As Random = New Random().NET Framework では乱数を発生させるには Rnd 関数ではなく Random オブジェクトを使用する ( 此処では頻繁に使用するのでクラスのメンバ変数に仕て居る ) 猶クラスをインスタンス化する時に乱数系列の初期化が行われるので Randomize 関数の実行は不要と成る BD(I) = Int(Rnd() * NP) 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 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 tmrgame.stop() tmrgame.start().net Framework ではタイマーの始動停止には Start メソッドや Stop メソッドを使用するも出来る ( 孰れも結果は同じで有る ) -11-

12 テキストボックス内の文字列のクリア txtsrc.text = "" txtsrc.clear().net Framework ではテキストボックス内のテキストをクリアする手段と仕て Clear メソッドも使用する事が出来る ( 孰れでも結果は同じ ) 配列の最大要素番号の取得 For I = 0 To UBound(BD) 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 Me.Dispose() : Application.Exit() 現在実行して居るアプリケーションは Application オブジェクトで表されるので其の Exit メソッドを用いてアプリケーションを終了する因みに Dispose メソッドはインスタンスをメモリから開放するメソッドで唯一のフォームがメモリから開放されゝばアプリケーションは終了するが Application クラスの Exit メソッドでアプリケーションを終了する事が望ましい -12-

回文作成支援プログラム

回文作成支援プログラムスロットプログラムプログラムの概要スタートボタンをクリックすると 3 個のピクチャーボックスの絵がランダムに変化する次にストップボタンをクリックすると 3 個のピクチャーボックスの絵が止まり 3 個の絵柄が総て揃えばあたり 2 個の絵柄が揃えばおしい総ての絵柄が異なればはずれと表示される終了ボタンをクリックするとプログラムをメモリから消去して終了する今回の課題項目定数の宣言