３Ｄ回転体プログラム

Size: px

Start display at page:

Download "３Ｄ回転体プログラム"

しげじろうながおか
5 years ago
Views:

3D 回転体プログラム VB 2005 4 プログラムの概要入力画面でマウスを用いて側面より見た平面図を描きますマウスの左ボタンをクリックする事で連続線を描き右ボタンをクリックすると新しい線を描く事が出来る側面図が完成すると回転の基本角度を設定して確定ボタンをクリックすると平面図を立体図に座標変換する各軸の回転角度を設定して表示ボタンをクリックすると立体図が表示される

1 3D 回転体プログラム VB プログラムの概要入力画面でマウスを用いて側面より見た平面図を描きますマウスの左ボタンをクリックする事で連続線を描き右ボタンをクリックすると新しい線を描く事が出来る側面図が完成すると回転の基本角度を設定して確定ボタンをクリックすると平面図を立体図に座標変換する各軸の回転角度を設定して表示ボタンをクリックすると立体図が表示される各軸の回転角度を変更して表示ボタンをクリックすると色々な角度から立体図を見る事が出来る今回の課題項目単純変数の宣言 (Private) 標準コントロールの利用 (Picture GroupBox RadioButton Label Text Button) プロパティの値の取得と設定 (Image Button X Y Enabled) イベントの利用 (Load Click MouseDown) メソッドの利用 (FromImage BringToFront Dispose) メソッドの利用 (Clear DrawLine Refresh) ステートメントの利用 (Call End) 演算子 ( 代入演算子算術演算子比較演算子結合演算子 ) 制御構造構文 ( 条件分岐ループ処理 ) サブルーチン ( 新規プロシージャ引数 ) 今回の重点項目マウスイベントに依るマウス座標の取得 (MouseDown) 描画メソッドに依るグラフィックスの描画 (Clear DrawLine Refresh) 今回の応用項目視点と物体物体と表示面の距離を自由に設定出来る様にする作成した立体画像をファイルに記録出来る様にする -1-

オブジェクトプロパティ一覧ピクチャーボックスの 1 と 2 は同じ場所に重ねて貼り付けるピクチャーボックス 1 ピクチャーボックス 2 グループ 1 グループ 2 ラジオボタン 1~8 ボタン 1 ボタン 2 ボタン 3 ボタン 4 ラベル 1 テキスト 1 ラベル 2 テキスト 2 ラベル 3 テキスト 3 コントロールの種類プロパティプロパティの設定値フォーム Name

2 オブジェクトプロパティ一覧ピクチャーボックスの 1 と 2 は同じ場所に重ねて貼り付けるピクチャーボックス 1 ピクチャーボックス 2 グループ 1 グループ 2 ラジオボタン 1~8 ボタン 1 ボタン 2 ボタン 3 ボタン 4 ラベル 1 テキスト 1 ラベル 2 テキスト 2 ラベル 3 テキスト 3 コントロールの種類プロパティプロパティの設定値フォーム Name kaitentai Text 3D 回転体ピクチャーボックス1 Name picinput BackColor White Size 640, 400 ピクチャーボックス2 Name picdisp BackColor White Size 640, 400 グループボックス1 Name grpbasedegree Text Font 回転の基本角度 (MS 明朝, 標準,9) グループボックス2 Name grpaxisdegree Text Font 各軸の回転角度 (MS 明朝, 標準,9) ラジオボタン1 Name radbasedegree10 Text 10 ラジオボタン2 Name radbasedegree20 Text 20 ラジオボタン3 Name radbasedegree30 Text 30 Checked True -2-

3 コントロールの種類プロパティプロパティの設定値ラジオボタン4 Name radbasedegree40 Text 40 ラジオボタン5 Name radbasedegree45 Text 45 ラジオボタン6 Name radbasedegree60 Text 60 ラジオボタン7 Name radbasedegree90 Text 90 ラジオボタン8 Name radbasedegree120 Text 120 ラベル1 Name lblaxisdegreex Caption X 軸ラベル2 Name lblaxisdegy Caption Y 軸ラベル3 Name lblaxisdegz Caption Z 軸テキストボックス1 Name txtaxisdegx TextAlign Right Text 30 テキストボックス2 Name txtaxisdegy TextAlign Right Text 0 テキストボックス3 Name txtaxisdegz TextAlign Right Text 0 ボタン1 Name btninput Text Font 入力 (MS 明朝, 太字,11) ボタン2 Name btnfix Text Font 確定 (MS 明朝, 太字,11) ボタン3 Name btndisp Text Font 表示 (MS 明朝, 太字,11) ボタン4 Name btnfinish Text Font 終了 (MS 明朝, 太字,11) -3-

サブメニューから既存項目の追加を選択する猶因みに新規に標準モジュールを作成する場合はモジュールの追加を選択する

4 既存の標準モジュールの追加プロジェクトに既存の標準モジュールを追加するにはソリューションエクスプローラでプロジェクトを右クリックして表示されるポップアップメニューで追加をクリックし更にサブメニューから既存項目の追加を選択する猶因みに新規に標準モジュールを作成する場合はモジュールの追加を選択する次に既存項目を指定する為のダイアログが表示されるので既存の標準モジュールを選択し開くボタンをクリックする以上でプロジェクトに既存の標準モジュールが組み込まれる -4-

5 プログラムリスト ( フォームモジュール部分 ) Public Class kaitentai Private G As Graphics 此処で宣言した変数は同じフォーム内の総てのサブプロシージャで値の参照と設定を行う事が出来る ' フォームが読み込まれた時の処理 Private Sub kaitentai_load( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles Me.Load ' 視点 ~ 物体 ~ 表示面の距離の設定 D2D = 500 D2E = 500 ' 使用可能なボタンの制限 btnfix.enabled = False btndisp.enabled = False ' Graphics オブジェクトの生成 With picinput.image = New Bitmap(.Width,.Height ) End With G = Graphics.FromImage( picinput.image ) 此の値を変更する事に依り拡大率等を変更する事が出来るピクチャボックスの Imege プロパティに描画を行うキャンバスの役目をする Bitmap オブジェクトを生成して居る実際に描画を行う Graphics オブジェクトをピクチャボックスの Image から生成して居る ' ボタン ( 入力 ) がクリックされた時の処理 Private Sub btninput_click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles btninput.click ' 入力画面の表示と初期化 picinput.bringtofront( ) G.Clear( Color.White ) G.DrawLine( Pens.Blue, 0, 200, 639, 200 ) G.DrawLine( Pens.Blue, 320, 0, 320, 399 ) Flag = False Cnt = 0 ' 使用可能なボタンの制限 btnfix.enabled = False btndisp.enabled = False 同じ位置に2 枚重ねたピクチャーボックスを BringToFront メソッドに依り表示するピクチャーボックスを切り替えて居る入力画面のクリアとX 軸 Y 軸の描画を行う Enabled プロパティを False に設定する事に依り使用出来るボタンを制限して居る ' ボタン ( 終了 ) がクリックされた時の処理 Private Sub btnfinish_click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles btnfinish.click アプリケーションを終了する場 Me.Dispose( ) End -5- 合 Dispose メソッドに依り正しくプログラムをメモリから消去して終了する事が望ましい

6 ' ボタン ( 確定 ) がクリックされた時の処理 Private Sub btnfix_click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles btnfix.click Call は Sub プロシージャ等に制 ' 計算ジェネラルプロシージャの呼出 Call Calculation( ) ' 使用可能なボタンの制限 btnfix.enabled = False btndisp.enabled = True 御を渡すステートメントで有る其の時点で使用出来るボタンを Enabled プロパティに依り使用可と使用不可に切り替える事で誤操作を防ぐ事が出来る ' ボタン ( 表示 ) がクリックされた時の処理 Private Sub btndisp_click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles btndisp.click ' 表示画面の表示 picdisp.bringtofront( ) ' 表示ジェネラルプロシージャの呼出 Call Display( ) 同じ位置に2 枚重ねたピクチャーボックスを BringToFront メソッドに依り表示するピクチャーボックスを切り替えて居る ' 入力画面でマウスボタンが押し下げられた時の処理 Private Sub picinput_mousedown( ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs ) Handles picinput.mousedown If e.button = Windows.Forms.MouseButtons.Left Then ' 左ボタンが押し下げられた場合 If Not Flag Then Xa = e.x : Ya = e.y G.DrawLine( Pens.Red, Xa, Ya, Xa, Ya ) Flag = True Else Xb = e.x : Yb = e.y G.DrawLine( Pens.Red, Xa, Ya, Xb, Yb ) X1(Cnt) = Xa : Y1(Cnt) = -(Ya - 200) : Z1(Cnt) = 0 X2(Cnt) = Xb : Y2(Cnt) = -(Yb - 200) : Z2(Cnt) = 0 Cnt += 1 Xa = Xb : Ya = Yb If Not btnfix.enabled Then btnfix.enabled = True picinput.refresh( ) ElseIf e.button = Windows.Forms.MouseButtons.Right Then ' 右ボタンが押し下げられた場合 Flag = False End Class 引数の e にはマウスイベントに関する情報 ( マウスボタンの種類やマウスポインタの位置 ) が格納されて居る赤いペンで直線を描画して居る描画後は Refresh メソッドで再描画しないと描画結果が反映されないマウスの右ボタンがクリックされた場合は描画フラグを False に設定し非描画モードにする此処ではマウスイベントに依るマウス座標の取得と描画メソッドに依るグラフィックスの描画を主題として居る為平面座標を立体座標に変換する等の部分は標準モジュール kaitentai_mod.vb に既に入力された物を組み込んで使用する標準モジュールは通常アプリケーションの他のモジュールで共通に使う為の宣言やプロシージャを記述する為に使用する -6-

7 プログラムリスト ( 標準モジュール部分 ) Module kaitentai_mod ' グローバルな定数の宣言 Public Const MAX As Integer = 1000 Public Const DEG As Single = / 180 此処で Public 宣言した定数は総てのクラスの総てのプロシージャで参照する事が出来る ' グローバルな変数の宣言 Public X1( MAX ), X2( MAX ), Y1( MAX ), Y2( MAX ), Z1( MAX ), Z2(MAX) As Single Public CosX, CosY, CosZ As Single 配列の要素数は将来の変更に備 Public SinX, SinY, SinZ As Single えて定数や変数で指定する事が Public Xa, Xb, Xn As Integer 望ましい此の場合定数 MAX の Public Ya, Yb, Yn As Integer 値を変更するだけで簡単に総て Public Cnt, D2D, D2E As Integer の要素数を変更する事が出来る Public Flag As Boolean ' 3D 回転体を表示するジェネラルサブプロシージャ Public Sub Display( ) ' サブプロシージャレベルでローカルな変数の宣言 Dim I As Integer Dim F As New Kaitentai( ) Dim G As Graphics ' アクティブなフォームの設定 F = Kaitentai.ActiveForm ' Graphics オブジェクトの生成 F.picDisp.Image = New Bitmap(.Width,.Height ) G = Graphics.FromImage(F.picDisp.Image) ' 表示画面のクリア G.Clear( Color.White ) ' 各軸の回転角度の基本値の計算 CosX = Math.Cos( Val( F.txtAxisDegX.Text ) * DEG ) CosY = Math.Cos( Val( F.txtAxisDegY.Text ) * DEG ) CosZ = Math.Cos( Val( F.txtAxisDegZ.Text ) * DEG ) SinX = Math.Sin( Val( F.txtAxisDegX.Text ) * DEG ) SinY = Math.Sin( Val( F.txtAxisDegY.Text ) * DEG ) SinZ = Math.Sin( Val( F.txtAxisDegZ.Text ) * DEG ) ' 各座標を変換して表示 For I = 0 To Cnt Call Convert( X1( I ), Y1( I ), Z1( I ) ) : Xa = Xn : Ya = Yn Call Convert( X2( I ), Y2( I ), Z2( I )) : Xb = Xn : Yb = Yn G.DrawLine( Pens.Blue, Xa, Ya, Xb, Yb ) Next I 此処で Public 宣言した変数は総てのクラスの総てのプロシージャで値の参照と設定を行う事が出来る此処で宣言した変数は宣言したプロシージャ内でしか値の参照と設定を行う事が出来ない標準モジュールからフォームモジュールを操作する為の変数を設定して居る回転体を描画する為のピクチャボックスを基に Graphics オブジェクトを生成して居る何度も使用される値は其の都度計算するのではなく予め計算した結果を変数に格納して置くと実行速度を上げる事が出来る特にループ内で複雑な計算を行うと実行速度が下がるので注意を要する Call は Sub プロシージャ等に制御を渡すステートメント引数が必要なプロシージャを呼び出す場合は引数リストを括弧で囲む必要が有る -7-

8 ' 平面座標を立体座標に変換するジェネラルサブプロシージャ Public Sub Calculation( ) ' サブプロシージャレベルでローカルな変数の宣言 Dim C As Single Dim D As Integer Dim I As Integer Dim J As Integer Dim K As Integer Dim N As Integer Dim S As Single Dim T As Integer Dim F As New Kaitentai( ) Dim R As Control ' アクティブなフォームの設定 F = Kaitentai.ActiveForm 此処で宣言した変数は宣言したプロシージャ内でしか値の参照と設定を行う事が出来ないフォームやコントロールもデータ型と仕て指定する事が出来る標準モジュールからフォームモジュールを操作する為の変数を設定して居る ' 平面座標を立体座標に変換 T = Cnt For Each R In F.grpBaseDegree.Controls If TypeName( R ) = "RadioButton" Then 此処では, 何のラジオボタンが選 If CType( R, RadioButton ).Checked = True Then 択されて居るかを判定して居る K = Val( R.Text ) が判定が付けば残りの判定は Exit For 不要なので Exit For でループから強制脱出して居る Next For I = 1 To ( 360 / K 1 ) D = K * I : S = Math.Sin( D * DEG ) : C = Math.Cos( D * DEG ) For J = 0 To ( T 1 ) Sin や Cos 等の算術関数は Math N = T * I + J クラスで定義されて居る If N > MAX Then MsgBox( " データが大き過ぎます!" & vbnewline & _ " 回転の基本角度を変えて遣り直して下さい " ) Exit Sub X1( N ) = Z1( J ) * S + X1( J ) * C 此処では2 種類の算術演算子が使 Y1( N ) = Y1( J ) 用されて居る Z1( N ) = Z1( J ) * C - X1( J ) * S +: 加算 ( 足す ) X2( N ) = Z2( J ) * S + X2( J ) * C *: 乗算 ( 掛ける ) Y2( N ) = Y2( J ) 優先順位は数学と同じく乗算が Z2( N ) = Z2( J ) * C - X2( J ) * S 加算よりも高く先に計算される Next J Next I Cnt = N + 1 For I = 0 To ( 360 / K 1 ) For J = 0 To T N = ( T + 1 ) * I + J + Cnt -8-

9 If J = T Then X1( N ) = X2( T * I + J 1 ) 配列の要素番号 ( 添字 ) には変数 Y1( N ) = Y2( T * I + J 1 ) だけでなく変数を含む計算式も Z1( N ) = Z2( T * I + J 1 ) 指定出来る If I = 360 / K - 1 Then X2( N ) = X2( J 1 ) : Y2( N ) = Y2( J 1 ) : Z2( N ) = Z2( J 1 ) Else X2( N ) = X2( T * ( I + 1 ) + J 1 ) Y2( N ) = Y2( T * ( I + 1 ) + J 1 ) Z2( N ) = Z2( T * ( I + 1 ) + J 1 ) Else X1( N ) = X1( T * I + J ) Y1( N ) = Y1( T * I + J ) Z1( N ) = Z1( T * I + J ) X2( N ) = X1( T * ( I + 1 ) + J ) Y2( N ) = Y1( T * ( I + 1 ) + J ) Z2( N ) = Z1( T * ( I + 1 ) + J ) Next J Next I Cnt = N ' 座標を変換するジェネラルサブプロシージャ Public Sub Convert( ByVal X As Single, ByVal Y As Single, ByVal Z As Single ) ' サブプロシージャレベルでローカルな変数の宣言 Dim X3 As Single 点 P(x,y,z) をX 軸の周りに角度 α Dim X4 As Single だけ回転させた時の点 P (x,y,z ) Dim Y3 As Single は三角関数を用いて下記の様に表 Dim Y4 As Single す事が出来る Dim Z3 As Single x = x Dim Z4 As Single y = ycosα - zsinα Dim TT As Single z = ysinα + zcosα ' 各座標の変換 X3 = ( Y * SinX + Z * CosX ) * SinY + X * CosY Y3 = ( Y * CosX - Z * SinX ) Z3 = ( Y * SinX + Z * CosX ) * CosY - X * SinY X4 = X3 * CosZ - Y3 * SinZ Y4 = X3 * SinZ + Y3 * CosZ Z4 = Z3 TT = ( D2D - Z4 ) / ( Z4 - D2D - D2E ) Xn = Int( ( TT + 1 ) * X ) : Yn = Int( ( TT + 1 ) * Y ) Xn = Xn : Yn = Yn End Module Int 関数は引数を超えない最大の整数を返す関数で有るが正の値を指定する時には単に整数部分を返す関数と考えて差し支え無い -9-

10 イベントハンドラの sender 引数と e 引数各イベントハンドラのメソッド宣言 ( 旧称 : イベントプロシージャ ) には共通して sender と e の 2 個の同じ引数が渡されるイベントハンドラのメソッドの第 1 引数 sender にはイベントの発生源で有るコントロールのインスタンス ( イベント発生源のオブジェクト ) への参照が格納されて居るイベントハンドラのメソッドの第 2 引数は System.EventArgs クラス又は其れを継承したクラスが指定されて居りイベントに関連する補足情報が格納されて居る引数 e には特に付加情報の無い Click イベント等は基本と成る System.EventArgs クラスが引き渡されるが付加情報が有る場合は付加情報を含むクラスを System.EventArgs クラスを継承して作成した物が引き渡される例えば MouseDown イベントや MouseMove イベントや MouseUp イベントの場合 System.Windows.Forms.MouseEventArgs クラスが其れに該当する此のクラスは System.EventArgs クラスを継承して居てマウスイベントに固有の情報を表現する能力を有して居りマウスポインタの座標値を表す X や Y マウスボタンの状態を表す Button 等が定義されて居る例えば入力画面でマウスボタンが押し下げられた時の処理を記述したイベントハンドラのメソッド宣言では下記の様に定義されて居る Private Sub picinput_mousedown( ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs ) Handles picinput.mousedown 上記の sender はイベント発生源のオブジェクト即ち picinput を表し亦 e は MouseDown イベントに関連する補足情報 ( マウスポインタの座標値を表す X や Y マウスボタンの状態を表す Button 等 ) をプロパティと仕て持つオブジェクトを表す従って MouseDown イベントが発生した時のマウスポインタの座標は e.x と e.y で知る事が出来亦マウスボタンの状態は e.button で知る事が出来る -10-

３Ｄ回転体プログラム

３Ｄ回転体プログラム 3D 回転体プログラム C# 2005 4 プログラムの概要入力画面でマウスを用いて側面より見た平面図を描きますマウスの左ボタンをクリックする事で連続線を描き右ボタンをクリックすると新しい線を描く事が出来る側面図が完成すると回転の基本角度を設定して確定ボタンをクリックすると平面図を立体図に座標変換する各軸の回転角度を設定して表示ボタンをクリックすると立体図が表示される各軸の回転角度を変更して