ab.com コミュニティ

コード: 全て選択

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Declare Function pxtone_Ready Lib "pxtone.dll" (hWnd as HWND, channel_num as Long, sps as Long, bps as Long, buffer_sec as Single, bDirectSound as Long, pProc as Long) as Long
Declare Function pxtone_Tune_Load Lib "pxtone.dll" (hModule as Long, type_name as Long, file_name as BytePtr) as Long
Declare Function pxtone_Tune_Play Lib "pxtone.dll" (start_sample as Long, fade_msec as Long) as Long
Declare Function pxtone_Tune_Stop Lib "pxtone.dll" () as Long

Dim dmy0 as Long
Dim dmy1 as Long
Dim dmy2 as Long
Dim dmy3 as Long

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	dmy0 = pxtone_Ready(hMainWnd, 2, 44100, 16, 0.1, TRUE, NULL)
	SetWindowText(hMainWnd, Str$(dmy0))
End Sub

Sub MainWnd_Destroy()
	pxPlayer_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_CommandButton1_Click()
	dmy1 = pxtone_Tune_Play(0,0)
	SetWindowText(hMainWnd, Str$(dmy1))
End Sub

Sub MainWnd_CommandButton2_Click()
	dmy2 = pxtone_Tune_Stop()
End Sub

Sub MainWnd_CommandButton3_Click()
	Dim file_name as String
	file_name = "hoge.ptcop"
	dmy3 = pxtone_Tune_Load(NULL, NULL, StrPtr(file_name))
	SetWindowText(hMainWnd, Str$(dmy3))
End Sub

コード: 全て選択

#include "pxtone_use.idx"

Declare Function pxtone_Ready Lib "pxtone.dll" (hWnd as HWND, channel_num as Long, sps as Long, bps as Long, buffer_sec as Single, bDirectSound as Long, pProc as Long) as Long
Declare Function pxtone_Tune_Load Lib "pxtone.dll" (hModule as Long, type_name as Long, file_name as BytePtr) as Long
Declare Function pxtone_Tune_Play Lib "pxtone.dll" (start_sample as Long, fade_msec as Long) as Long
Declare Function pxtone_Tune_Stop Lib "pxtone.dll" () as Long
'-------------------------------------------------------------------
' メモ - このファイルには、DLLの構成要素を記述します。
'        （例：関数定義、グローバル変数、定数定義など）
'
'        エクスポートが必要な関数には、"Export" 修飾子を指定します。
'        （例：Function Export FuncName() As Long）
'-------------------------------------------------------------------

Function Export DllMain(hinstDLL As HINSTANCE, fdwReason As DWord, lpvReserved As VoidPtr) As Long
	'DLLエントリポイント
	Select Case fdwReason
		Case DLL_PROCESS_ATTACH
			'DLLがプロセス空間にロードされた時に実行されます。
			_System_StartupProgram()
			DllMain=1
	End Select
End Function

'ウインドウハンドル取得
Function Export GetWndVal(lpszArgs As BytePtr) As HWND
	GetWndVal = FindWindow(NULL, lpszArgs)
End Function

'初期化
Function Export PxtoneInit(hWnd As HWND) As Long
	'PxtoneInit = pxtone_Ready(hWnd, channel_num, sps, bps, buffer_sec, bDirectSound, NULL)
	PxtoneInit = pxtone_Ready(hWnd, 2, 44100, 16, 0.1, TRUE, NULL)
End Function

'データ読み込み
Function Export PxtoneDataLoad(file_name as BytePtr) as Long
'	PxtoneDataLoad = pxtone_Tune_Load(hModule, type_name, file_name)
	PxtoneDataLoad = pxtone_Tune_Load(NULL, NULL, file_name)
End Function

'再生
Function Export PxtonePlay(start_sample as Long, fade_msec as Long) as Long
	PxtonePlay = pxtone_Tune_Play(start_sample, fade_msec)
End Function

'停止
Function Export PxtoneStop() as Long
	PxtoneStop = pxtone_Tune_Stop()
End Function