source: trunk/bin/SubOperation/dx/main_exe_directx.abp@ 384

Last change on this file since 384 was 364, checked in by イグトランス (egtra), 17 years ago

FormatFloatFを実装

File size: 2.4 KB
Line 
1#include "#name#.idx"
2
3
4Dim ScreenX = 640 As Long 'ディスプレイの幅 (ピクセル単位)
5Dim ScreenY = 480 As Long 'ディスプレイの高さ(ピクセル単位)
6
7' TODO: この位置にグローバル変数を定義してください。
8
9
10Function InitProc() As Boolean
11 'DirectXを初期化
12 If dx_Init(hMainWnd, ScreenX, ScreenY, FALSE)=0 Then
13 InitProc=False
14 Exit Function
15 End If
16
17 'マウスカーソルを非表示にする
18 ShowCursor(FALSE)
19
20 ' TODO: この位置にアプリケーションの初期化コードを記述してください。
21
22 InitProc = True
23End Function
24
25Sub QuitProc()
26 ' TODO: この位置にアプリケーションの終了処理を記述してください。
27
28 'DirectXの終了処理
29 dx_Quit()
30End Sub
31
32Sub InputActionProc()
33 ' TODO: この位置に入力に関するコードを記述してください。
34 ' (キーボード、マウス、ジョイパッド、ジョイスティックなどによる入力)
35
36 ' メモ - キャラクタの移動など、状況進行(アクション)を意味するコードを
37 ' 記述することもできます。
38
39End Sub
40
41Sub RenderProc()
42 ' TODO: この位置に描画に関するコードを記述してください。
43
44End Sub
45
46
47'------------------------------------------------
48' 初期化処理
49'------------------------------------------------
50
51If InitProc() = False Then
52 MessageBox(0,"初期化に失敗しました。","Error",MB_OK or MB_ICONEXCLAMATION)
53 ExitProcess(0)
54End If
55
56
57'------------------------------------------------
58' メインループ
59'------------------------------------------------
60Dim msgMain As MSG, iResult As Long
61Dim bDeviceLost As Long
62Do
63 If PeekMessage(msgMain,0,0,0,PM_REMOVE) Then
64 '----------------------------------
65 ' メインウィンドウのメッセージ処理
66 '----------------------------------
67
68 If msgMain.message=WM_QUIT Then Exit Do
69 TranslateMessage(msgMain)
70 DispatchMessage(msgMain)
71 Else
72 '---------------------------
73 ' DirectXによる入力及び描画
74 '---------------------------
75
76 If bDeviceLost Then
77 'デバイスが消失しているとき
78 If dx_RestoreDevice()=D3D_OK Then
79 bDeviceLost=FALSE
80 Else
81 Continue
82 End If
83 End If
84
85 InputActionProc() '入力
86
87 dx_BeginScene() '描画を開始
88 dx_Clear() '画面をクリア
89 RenderProc() 'レンダリング(描画)
90 dx_EndScene() '描画を終了
91
92 '画面を更新
93 If Not(dx_Present()=D3D_OK) Then
94 'デバイスの消失が確認されたとき
95 bDeviceLost=TRUE
96 End If
97 End If
98Loop
99
100
101'------------------------------------------------
102' 終了処理
103'------------------------------------------------
104
105QuitProc()
106System.Environment.ExitCode = msgMain.wParam As Long
107End
Note: See TracBrowser for help on using the repository browser.