ルーレットプログラム

Size: px

Start display at page:

Download "ルーレットプログラム"

うたろういとえ
4 years ago
Views:

ルーレットプログラム VB 2005 4 プログラムの概要カジノの代表的なゲームルーレットを作成する先ず GO!

1 ルーレットプログラム VB プログラムの概要カジノの代表的なゲームルーレットを作成する先ず GO! ボタンをクリックするとルーレット盤上をボールが回転し一定時間経過するとボールが止まり出目を表示するプログラムを作成する出目を 1~16 大小偶数奇数の内から予想して予め設定した持ち点の範囲内で賭け点を決め賭け点と出目に依り 1 点賭けの場合は 16 倍其他は 2 倍の配当が得られる此処ではゲームプログラムを作成する事に依り楽しみ乍らプログラムの制作手順を習得する事を目的として居る制作手順としては実際の作業過程に従い段階的に機能を追加する方法を採用して居る此のプログラムを土台に更に各自で機能を追加して行く事が望まれる今回の課題項目アプリケーション画面のデザイン ( 標準コントロールの利用 ) プログラムの動作原理 ( イベント駆動型のプログラム ) プログラムの構成要素 ( オブジェクトとプロパティ ) 値の代入 ( 変数オブジェクトのプロパティ ) 値の演算 ( 算術演算子 ) 条件に応じた処理 (If 文の利用 ) 自動的に行われる処理 ( タイマーの利用 ) -1-

2 オブジェクトプロパティ一覧フォームラベル 1 シェイプパネルラベル 2 テキストボックスラベル 3 タイマーボタンコントロールの種類プロパティプロパティの設定値フォーム Name roulette FormBorderStyle FixedSingle StartPosition CenterScreen ルーレットパネル Name pnlroulette BackgroundImage roulette.gif Size 475, 301 シェイプ Name shpball FillColor Cyan FillStyle Solid Size 20, 20 ラベル1 Name lblnum AutoSize False BackColor Black ForeColor White Font MS 明朝太字 Align MiddleCenter -2-

3 コントロールの種類プロパティプロパティの設定値ラベル2 Name lblcall AutoSize False BackColor White ForeColor Red 空白 Align MiddleCenter ラベル3 Name lblscr AutoSize False BackColor White ForeColor Black 空白 Align MiddleRight テキストボックス Name txtbet 1 Align Right ボタン Name btngo GO! タイマー Name tmrgo Interval 100 使用コントロールフォームアプリケーションウィンドウ又はダイアログボックスと成るウィンドウの事を謂うフォームにはコントロールを配置しフォームとコントロールに関連したプロパティを設定したりコードを記述するパネル他のコントロールを内包するコンテナに成る事が出来るコントロールコントロールのグループ分けする場合等に使用するシェイプ ( オーバル ) フォーム上に直線長方形正方形楕円円角丸長方形角丸正方形等の基本的な図形を表示するグラフィカルコントロール此のコントロールはコンテナと仕て利用する事は出来ず亦イベントは発生しないがグラフィックスメソッドと異なりデザイン時に視覚的に確認する事が出来る此のコントロールを使用する為には Visual Basic 2005 では Power Packs 2.0 以上を追加する必要が有るラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないテキストボックステキストの入力や表示を行うキャレットの移動や文字の削除等の入力に必要な機能を備えて居るボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるタイマー一定の時間間隔でイベントが発生する様にするコントロール一定時間毎にプログラムを実行したい時に使用する此のコントロールは実行時には表示されない -3-

4 プログラムリスト Public Class roulette ' フォームモジュールレベルでグローバルな定数の宣言 Private Const RAD As Single = / 180 Private Const DEG As Single = * RAD Private Const HLF As Single = DEG / 2 1 コード記述画面を表示して左記のコードを入力する ' フォームモジュールレベルでグローバルな変数の宣言 Private Num, Cnt As Integer Private Pos( ) As Integer = { 10, 7, 15, 3, 16, 1, 13, 9, 5, 11, 2, 8, 12, 4, 6, 14 } Private Scr As Integer = 10 ' フォームが読み込まれた時の処理 Private Sub roulette_load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load Randomize( ) 2 フォーム上のコントロール Call SetBallPos( 0 ) を配置して居ない処をダブルクリ shpball.visible = True ックしてコード記述画面を表示 lblscr. = Scr.ToString( ) し左記のコードを入力する ' パネルがクリックされた時の処理 Private Sub pnlroulette_mouseup( ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs ) Handles pnlroulette.mouseup If e.x < 320 Or e.x > 459 Then Exit Sub If e.y < 85 Or e.y > 198 Then Exit Sub If tmrgo.enabled Then Exit Sub Dim S As String = "" If e.y < 161 Then S = (( e.x ) 35 + (( e.y - 85 ) 19 ) * ).ToString( ) ElseIf e.y < 180 Then S = IIf( e.x < 390, "LOW", "HIGH" ) Else S = IIf( e.x < 390, "ODD", "EVEN" ) End If lblcall. = S ' コマンドボタン (GO!) がクリックされた時の処理 Private Sub btngo_click( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles btngo.click Dim B As Long = Val( txtbet. ) If B < 1 Or B > Scr Then Exit Sub Num = Int( Rnd( ) * ): Cnt = 0 btngo.enabled = False: tmrgo.enabled = True デザイン画面でイベント画面に切り替える其の後 KeyDown の項目をダブルクリックしてコード記述画面を表示し下記のコードを入力するデザイン画面でボタンをダブルクリックしてコード記述画面を表示し左記のコードを入力する

5 ' タイマーが一定間隔で行う処理 Private Sub tmrgo_tick( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles tmrgo.tick Call SetBallPos( Cnt ) Cnt += 1 If Cnt > Num Then tmrgo.enabled = False btngo.enabled = True Dim S As String = lblcall. Dim B As Long = Val( txtbet. ) Dim N As Integer = Val( S ) Dim M As Integer = Val( lblnum. ) Scr -= B If N > 0 Then If N = M Then Scr += B * 16 ElseIf S = "LOW" And M < 9 Then ElseIf S = "HIGH" And M > 8 Then ElseIf S = "ODD" And ( M Mod 2 = 1 ) Then ElseIf S = "EVEN" And ( M Mod 2 = 0 ) Then End If lblscr. = Scr.ToString( ) End If ' ボールの位置を設定するジェネラルサブププロシージャ Private Sub SetBallPos( ByVal N As Integer ) Dim X As Single = Math.Sin( N * DEG + HLF ) * 140 Dim Y As Single = Math.Cos( N * DEG + HLF ) * 140 shpball.top = Y shpball.left = X lblnum. = Pos( N Mod 16 ) End Class 5 デザイン画面でタイマーをダブルクリックしてコード記述画面を表示する 6 コード記述画面を表示して左記のコードを入力する -5-

ダブルクリックする事でもコントロールをフォームに配置する事が出来る此の場合には既定のサイズのコントロールが

6 ワンポイントアドバイスコントロールの配置フォームに配置するコントロールをツールボックスより選択 ( クリック ) しフォーム上でドラッグする此の方法だとコントロールの位置とサイズを決めて配置する事が出来るツールボックスのコントロールをダブルクリックする事でもコントロールをフォームに配置する事が出来る此の場合には既定のサイズのコントロールがフォームに配置される不可視のコントロール ( タイマー等 ) は仮令フォーム上でドラッグしてもフォーム上に配置される事は無くデザイナ画面の下部に表示される -6-

ブロック　パニック

ブロック　パニックブロックパニック VB 2005 9 プログラムの概要壁が迫り来る不思議な空間のオリジナルゲームブロックパニックを作成するスタートボタンをクリックし上下左右の矢印キーで白猿を移動させるスペースキーを押すと向いて居る方向の壁が後退する左右の壁が合わさるとゲームは終了する一般的に実用プログラムに比較するとゲームプログラムは高度なテクニックを要求される事が多い此処ではゲームプログラムを作成する事に依り