通信対戦プログラム

Size: px

Start display at page:

Download "通信対戦プログラム"

みがねけいれい
5 years ago
Views:

通信対戦プログラムプログラムの概要 Winsock コントロールを使用するとリモートコンピュータに接続しデータを交換出来る事を利用して通信対戦ゲームを作成するゲームに関する処理は既に標準モジュールにグローバルなプロシージャとして入力されて居るので此れを追加して使用する ( ファイル名は othello.

1 通信対戦プログラムプログラムの概要 Winsock コントロールを使用するとリモートコンピュータに接続しデータを交換出来る事を利用して通信対戦ゲームを作成するゲームに関する処理は既に標準モジュールにグローバルなプロシージャとして入力されて居るので此れを追加して使用する ( ファイル名は othello.bas で有る ) 相手のアドレス (IP アドレス又はコンピュータ名 ) と双方のポート ( 互いに逆に設定 ) を指定して設定ボタンをクリックすると通信が確立しメッセージ欄の指示に従いゲームを開始する事が出来る今回の課題項目単純変数の宣言 (Public Dim) 配列変数の宣言 (Public) 標準コントロールの利用 (Label Picture Command Text Frame) プロパティの値の取得と設定 (Standard: BackColor Text Caption Image) プロパティの値の取得と設定 (Winsock: State RemoteHost RemotePort LocalIP) メソッドの利用 (Line PaintPicture Close Bind SendData GetData) イベントの利用 (Load Click MouseDown DataArrival) 組込関数の利用 (Val Abs Left Mid Right RGB MsgBox) 演算子 ( 代入演算子算術演算子比較演算子結合演算子論理演算子 ) 制御構造構文 ( 条件分岐ループ処理 ) サブルーチン ( 新規プロシージャ引数 ) 標準モジュールの追加 ( プロジェクト標準モジュールの追加既存のファイル ) ActiveX コントロールの利用 ( プロジェクトコンポーネントコントロール ) 今回の重点項目標準モジュールの利用 ( 共通のコード :Public 変数 Public プロシージャ ) Winsock コンポーネントの利用 (Protocol RemoteHost RemotePort Bind 等 ) 今回の応用項目対戦中にオプションボタンをクリック出来ない様にする (Fool Proof) コンピュータの思考ルーチンを強化する TCP を利用して一対複数の通信対戦ゲームを考えて見る -1-

オブジェクトプロパティ一覧ラベル 1 Winsock ラベル 7 ピクチャーボックスラベル 6 ラベル7 ラベル8 ラベル2 テキスト1 ラベル 3 テキスト 2 オプションボタンフレーム 1 ラベル 4 テキスト 3 ラベル 5 テキスト 4 フレーム 2 コマンドボタン 3 コマンドボタン 2 コマンドボタン 1 コントロールの種類プロパティプロパティの設定値フォーム

2 オブジェクトプロパティ一覧ラベル 1 Winsock ラベル 7 ピクチャーボックスラベル 6 ラベル7 ラベル8 ラベル2 テキスト1 ラベル 3 テキスト 2 オプションボタンフレーム 1 ラベル 4 テキスト 3 ラベル 5 テキスト 4 フレーム 2 コマンドボタン 3 コマンドボタン 2 コマンドボタン 1 コントロールの種類プロパティプロパティの設定値フォームオブジェクト名 Form1 Caption 通信対戦ゲーム ScaleMode 3 ピクセルピクチャーボックスオブジェクト名 picboard ScaleMode 3 ピクセル Appearance 0 フラット AutoRedraw True Height 320 Width 322 BackColor &h0000c000&( 濃緑 ) フレーム1 オブジェクト名 fracommunication Caption 空白フレーム2 オブジェクト名 frarival Caption 対戦相手オプションボタンオブジェクト名 optrival Index 0~1( コントロール配列 ) Caption 人間 (0) 電脳(1) Value True(0) ラベル1 オブジェクト名 lbltitle Caption 通信対戦チェッカー Font HG 創英角ポップ体標準 26-2-

3 コントロールの種類プロパティプロパティの設定値ラベル2 オブジェクト名 lbladdressr Caption Font 相手のアドレス (MSゴシック太字 11) ラベル3 オブジェクト名 lbladdressl Caption Font 自分のアドレス (MSゴシック太字 11) ラベル4 オブジェクト名 lblportr Caption Font 相手のポート (MSゴシック太字 11) ラベル5 オブジェクト名 lblportl Caption Font 自分のポート (MSゴシック太字 11) ラベル6 オブジェクト名 lblmessage Caption Font 空白 (MSゴシック太字 12) Alignment 2 中央揃えラベル7 オブジェクト名 lblscore Caption Font 0(MSゴシック太字 16) Alignment 1 右揃え Index 0~1( コントロール配列 ) ForeColor 白 (0) 黒 (1) BackColor 黒 (0) 白 (1) ラベル8 オブジェクト名 lblstate Caption Font 未受信 (MSゴシック太字 14) Alignment 2 中央揃え BorderStyle 1 実線 ForeColor &H00FFFFFF&( 白 ) BackColor &H000000FF&( 赤 ) テキストボックス1 オブジェクト名 txtaddressr Text (MSゴシック太字 11) テキストボックス2 オブジェクト名 txtaddressl Text (MSゴシック太字 11) テキストボックス3 オブジェクト名 txtportr Text 1001(MSゴシック太字 11) テキストボックス4 オブジェクト名 txtportl Text 1002(MSゴシック太字 11) コマンドボタン1 オブジェクト名 cmdset Caption Font 設定 (MSゴシック, 太字,14) コマンドボタン2 オブジェクト名 cmdfinish Caption Font 終了 (MSゴシック, 太字,14) コマンドボタン3 オブジェクト名 cmdpass Caption Font パス (MSゴシック, 太字,14) ソケットオブジェクト名 sckcom Protocol 1 - sckudpprotocol -3-

4 ピクチャーボックスビットマップアイコンメタファイル JPEG ファイル GIF フィル等の画像を表示するコントロール描画メソッドを用いて円や直線等のグラフィックを描画する事も出来る亦他のコントロールを内包するコンテナに成る事も出来るフレーム他のコントロールをグループ化するコントロール通常チェックボックスやオプションボタンと共に使用しフレーム自体は特定の機能を持たないラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないテキストボックステキストの入力や表示を行うコントロール此のテキストはユーザーが直接入力したり変更したりする事が出来るコマンドボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるコントロールですソケット (Winsock) TCP ネットワークサービス及び UDP ネットワークサービスへアクセスする機能を提供する ActiveX コントロール此のコントロールを使用すると TCP 又は UDP を使用してリモートコンピュータに接続し送受信双方向のデータ交換を行う事が出来る孰れのプロトコルでもクライアント及びサーバーアプリケーションを作成出来る中央のサーバーに送るユーザー情報を集めるクライアントアプリケーションの作成複数のユーザーから集めたデータの中央コレクションポイントとして機能するサーバーアプリケーションの作成チャットアプリケーションの作成等に利用される TCP(Transmission Control Protocol) TCP プロトコルはコネクション型のプロトコルで有り電話に例える事が出来るユーザーは接続を確立してから処理を行う必要が有る亦一旦接続が確立すると TCP プロトコルでは接続が持続され非常に大きなファイル等でもデータの完全性が保証されるが多くのリソースが使用される UDP(User Datagram Protocol) UDP プロトコルはコネクションレス型のプロトコルで有りメモ伝言に例える事が出来る 1 台のコンピュータから別のコンピュータにメッセージが送られるが両者は明示的に接続されて居ない亦各送信データの最大サイズはネットワークに依り決まる此処では UDP プロトコルを用いた双方向通信を主題として居る為ゲーム部分は標準モジュール othello.bas に既に入力された物を組み込んで使用する標準モジュールをプロジェクトに追加するにはメニューバーのプロジェクトより標準モジュールの追加を選択しダイアログボックスの既存のファイルタブから当該ファイルを指定する標準モジュールは通常アプリケーションの他のモジュールで共通に使う為の宣言やプロシージャを記述する為に使用する -4-

5 プログラムリスト ( フォームモジュール部分 ) Option Explicit ' フォームが読み込まれた時の処理 Private Sub Form_Load() ' 盤面データを設定する Call GetData ' 盤面を初期化する Call GameInit Call TurnDisp Call BoardInit ' 自機の IP アドレスを取得する txtaddressl.text = sckcom.localip ' コマンドボタン ( 終了 ) がクリックされた時の処理 Private Sub cmdfinish_click() ' ソケットを閉じる sckcom.close ' プログラムをメモリから消去して終了する Unload Me End ' コマンドボタン ( 設定 ) がクリックされた時の処理 Private Sub cmdset_click() ' ソケットが閉じて居ない場合は一旦閉じる If sckcom.state <> sckclosed Then sckcom.close ' リモートホスト ( 相手 ) を設定する sckcom.remotehost = txtaddressr.text ' リモートポート ( 相手 ) に整数を設定する sckcom.remoteport = Val(txtPortR.Text) ' ローカルポート ( 自分 ) に結合する sckcom.bind Val(txtPortL.Text) ' 送信する sckcom.senddata "OK" ' 盤面でマウスボタンが押し下げられた時の処理 Private Sub picboard_mousedown(button As Integer, Shift As Integer, X As Single, Y As Single) ' 着目座標を求める CX = X 40: CY = Y 40 ' 駒の置く位置を指定する Call PointPlace ' 終了判定を行う If Not ED < 0 Then Call GameOver -5- Call は Sub プロシージャ等に制御を渡すステートメント引数が必要なプロシージャを呼び出す場合は引数リストを括弧で囲む必要が有るアプリケーションを終了する場合ソケットは閉じ正しくプログラムをメモリから消去して終了する事が望ましい RemoteHost プロパティには接続するコンピュータの名前か IP アドレスを指定する RemotePort プロパティには接続するポートを指定する Bind メソッドはポート番号にコントロールに結合してローカルポートを使用出来る様に予約する SendData メソッドはデータをリモートコンピュータに送信する左右孰れかのマウスボタンを押すと MouseDown イベントが発生するマウスボタンが押された時のマウスの当該オブジェクト内での座標は引数 X と Y に格納されて居る

6 ' パスがクリックされた時の処理 Private Sub cmdpass_click() ' パス処理を行う Call PassTurn ' 終了判定を行う If Not ED < 0 Then Call GameOver ' 通信データを受信した時の処理 Private Sub sckcom_dataarrival(byval bytestotal As Long) ' サブプロシージャレベルでローカルな変数を宣言する Dim S As String Dim D As Boolean ' 現在のデータブロックを取得する sckcom.getdata S ' 接続データの場合の処理を行う If lblstate.caption = " 未受信 " Then If S = "OK" Then Call FirstDisp(0) TN = 0 sckcom.senddata "RV" Call FirstDisp(1) TN = 1 ' 対戦データの場合の処理を行う If Left$(S, 7) = "OTHELLO" Then If Mid$(S, 8, 1) = "P" Then Call PassDisp CX = Val(Mid$(S, 8, 1)): CY = Val(Right$(S, 1)) D = JudgePlace Call ScoreDisp If Not ED < 0 Then Call GameOver BA = BA Xor 1 Call TurnDisp If Left$(S, 5) = "AGAIN" Then If Mid$(S, 7) = "YES" Then Call GameInit Call TurnDisp Call BoardInit Call は Sub プロシージャ等に制御を渡すステートメント引数が必要なプロシージャを呼び出す場合は引数リストを括弧で囲む必要が有る DataArrival イベントは新しいデータが送信されて来た時に発生する GetData メソッドは現在のデータブロック ( 受信データ ) を取得し其れを変数に格納する此の場合のイコール (=) 記号は比較演算子で有る A=B : AとBは等しい此等の場合のイコール (=) 記号は代入演算子で有り右辺の値を左辺に代入する働きをする此の様に複数のステートメントをコロン (:) で区切り 1 行に複数記述する事も出来るユーザーが Function プロシージャで定義した関数は組込関数と同様に使用する事が出来る Function プロシージャは Sub プロシージャと異なり戻り値を利用する事が出来る此の場合の Xor はビット演算子で 1 と排他的論理和を取る事に依り 1 は 0 に 0 は 1 に成る -6-

7 Call FirstDisp(1) TN = 1 sckcom.close Unload Me End ' 終了処理を行うジェネラルサブプロシージャ Private Sub GameOver() ' サブプロシージャレベルでローカルな変数を宣言する Dim I As Integer Dim J As Integer Dim K As Integer アプリケーションを終了する場合ソケットは閉じ正しくプログラムをメモリから消去して終了する事が望ましい此の様に条件分岐等が多重にネストして居る時は正しくインデントを付けて対応を明確にして置く事が望ましい此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない lblmessage.caption = PR If Not TN = ED Then K = MsgBox(" もう一度?", vbyesno + vbquestion, " 通信対戦ゲーム ") If K = vbyes Then Call GameInit Call TurnDisp Call BoardInit Call FirstDisp(0) TN = 0 If optrival(0).value = True Then sckcom.senddata "AGAIN:YES" If optrival(0).value = True Then sckcom.senddata "AGAIN:NO" sckcom.close Unload Me End MsgBox 関数の第 2 引数はビット処理が行われる為複数の値を加える事で複数の効果を与える事が出来る送信データの先頭に識別の為の文字列を付加する事に依り受信したデータの種類を判別し易くして居るプログラムと同じフォルダに素材の標準モジュール (othello.bas) とデータファイル (othello.dat) を格納して置く必要が有る -7-

8 Close メソッドに依るソケットのクローズ (Winsock) 機能書式解説ソケットをクローズするメソッド Object.Close TCP 接続又は接続要求を受け付けて居るソケットを閉じるクライアントアプリケーションでもサーバーアプリケーションでも使用出来るオブジェクトには Winsock コントロールを指定する Bind メソッドに依るポートの結合 (Winsock) 機能書式解説ポートを結合するメソッド Object.Bind 引数 1, 引数 2 TCP 接続に使用するローカルポート及びローカル IP を指定するオブジェクトには Winsock コントロールを指定する引数 1 には接続に使用するポートを指定し必ず指定する引数 2 には接続に使用するローカルインターネットアドレスを指定し省略する事が出来る他のアプリケーションが当該ポートを使用出来ない様にする時に便利で有る SendData メソッドに依るデータの送信 (Winsock) 機能書式解説データをリモートコンピュータに送信するメソッド Object.SendData 引数引数で指定したデータをリモートコンピュータに送信するオブジェクトには Winsock コントロールを指定する引数には送信するデータ ( 数値又は文字列 ) を指定し必ず指定する GetData メソッドに依るデータの受信 (Winsock) 機能書式解説現在のデータブロックを取得し変数に格納するメソッド Object.Bind 引数 1, 引数 2, 引数 3 リモートコンピュータより受信したデータを引数 1 で指定した変数に格納するオブジェクトには Winsock コントロールを指定する引数 1 には取得したデータを格納する変数を指定し必ず指定する引数 2 には取得するデータの型を指定し省略する事が出来る引数 3 には取得するデータのサイズを指定し省略する事が出来る -8-

9 Winsock メソッド Accept 送信されて来た接続要求の受入 (TCPサーバーアプリケーション而巳) Bind ポートの結合 Close ソケットのクローズ Listen ソケットの作成と接続要求受付モードへの移行 (TCP 接続而巳 ) PeekData データブロックの取得 ( 入力キューからデータを削除しない ) SendData データの送信 GetData データブロックの取得 ( 入力キューからデータを削除する ) Winsock イベント Close ConnectionRequest DataArrival SendComplete SendProgress Error Connect リモートコンピュータが接続を閉じた時に発生リモートコンピュータが接続を要求して来た時に発生新しいデータが送られて来た時に発生送信処理が完了した時に発生データの送信中に発生バックグラウンド処理でエラーが発生した時に発生接続処理が完了した時に発生 Winsock プロパティ BytesReceived 受信したデータのサイズ LocalHostName ローカルコンピュータのホスト名 LocalIP ローカルコンピュータのIPアドレス LocalPort 接続するローカルポート RemoteHost リモートコンピュータのホスト名 ( ホスト名 IPアドレスの孰れも可 ) RemoteHostIP リモートコンピュータのIPアドレス RemotePort 接続するリモートポート State コントロールの状態 Protocol 使用するプロトコル (TCPかUDP) 算術演算子比較演算子論理演算子 1.^ 冪乗 1.= 等しい 1.Not 否定 2.- 負数 2.<> 等しくない 2.And 論理積 3.* / 乗算と除算 3.< より小さい 3.Or 論理和 4. 整数除算 4.> より大きい 4.Xor 排他的論理和 5.Mod 剰余 5.<= 以下 5.Eqv 同値加算と減算 6.>= 以上 6.Imp 包合算術演算子と論理演算子では複数の演算子が使用されて居る場合には頭に付けた番号の順序で演算が行われる ( 上に書かれて居る演算子程優先順位が高い ) -9-

10 Line メソッドに依る直線の描画機能書式解説直線又は, 矩形を描画するメソッド Line Step( 引数 1, 引数 2)- Step( 引数 3, 引数 4), 引数 5, 引数 6 フォーム, ピクチャーボックス, プリンタの各オブジェクトに対して, 指定した 2 点間を結ぶ直線又は, 矩形 ( 四角形 ) を描く引数 1 には直線 / 矩形が描画されるオブジェクト内の始点の X 座標を指定し省略する事が出来る引数 2 には直線 / 矩形が描画されるオブジェクト内の始点の Y 座標を指定し省略する事が出来る引数 3 には直線 / 矩形が描画されるオブジェクト内の終点の X 座標を指定し必ず指定する引数 4 には直線 / 矩形が描画されるオブジェクト内の終点の Y 座標を指定し必ず指定する引数 6 には描画色を指定し省略する事が出来る引数 7 にはオプション ( 矩形 :B 塗り潰し矩形 :BF) を指定し省略する事が出来る Step は描画位置を相対位置で指定する場合に使用し省略する事が出来る始点を省略した場合は CurrentX 及び CurrentY に依り示される位置が描画の開始点に成る Line メソッドが実行されると CurrentX 及び CurrentY プロパティは引数に依り指定された終点に設定される此れを利用して始点を省略し連続線を描く事が出来るグラフィックメソッド Cls グラフィックのクリア PSet 点の描画 ( ピクセル単位での色の設定 ) Point 色の取得 ( 指定したピクセルの色の値の取得 ) Line 線の描画 ( 線矩形塗り潰し矩形の描画 ) Circle 円の描画 ( 円楕円円弧の描画 ) PaintPicture 任意位置へのグラフィックの描画 ) 描画用プロパティ DrawWidth グラフィックメソッドで描画する線の太さや点の大きさを設定する DrawStyle グラフィックメソッドで描画する線のパターンを設定する DrawMode グラフィックを重ねる時の描画方法を設定する BorderWidth ラインコントロールやシェイプコントロールの外形線の太さを設定する BorderStyle ラインコントロールやシェイプコントロールの外形線のパターンを設定する -10-

通信対戦プログラム

通信対戦プログラムチャット VB5 プログラムの概要 Winsock コントロールを使用するとリモートコンピュータに接続しデータを交換出来る事を利用してチャット ( 通信雑談システム ) を作成するサーバークライアント共に背景色が黄色のテキストボックスに必要項目を入力し設定ボタンをクリックすると通信が確立しチャットを開始する事が出来る送信用テキストボックスに送信文を入力して送信ボタンをクリックすると