ab.com コミュニティ

コード: 全て選択

'グローバル変数宣言
	Dim SoftNameVer As String					'ソフト名とバージョン
	Dim MIDIPath[MAX_PATH] As Byte				'MIDIファイルのパス
	Dim MIDIFolder[MAX_PATH] As Byte			'MIDIファイルが入ったフォルダ
	Dim MIDIFileName[MAX_PATH] As Byte			'MIDIファイルの名前
	Dim lpExt[10] As Byte						'MIDIファイルの拡張子
	Dim mop As MCI_OPEN_PARMS					'MCI_OPEN_PARMS構造体
	Dim IsPlayOrRecord As Long					'再生中か録音中かを識別するためのフラグ
	Dim OsVerInfo As OSVERSIONINFO				'OSの情報を格納する為の構造体
	Dim MIDILong As Double
	Dim MIDIM As Long, MIDIS As Long

	'ここから録音デバイスの変数
	Dim Play_Flag As DWord
	Dim Record_Flag As DWord
	Dim Stop_Flag As DWord

	Const NumOfBuffers = 5			'バッファ数
	Const BufferLength = 100*1024	'バッファ長

	Dim hWaveIn As HWAVEIN
	Dim hWaveOut As HWAVEOUT
	Dim WaveHdr[ELM(NumOfBuffers)] As WAVEHDR
	Dim WaveOutFormatEx As WAVEFORMATEX
	Dim WaveInFormatEx As WAVEFORMATEX

	Dim hMmio As HMMIO
	Dim MmioInfo As MMIOINFO
	Dim MmioCkInfo As MMCKINFO
	Dim MmioCkInfoSub As MMCKINFO

	Dim WaveData[ELM(NumOfBuffers)] As *Byte

	Dim WaveInCaps As WAVEINCAPS
	'ここまで

	Dim hCombo As DWord					'コンボボックスのハンドル
	Dim citem As COMBOBOXEXITEM			'コンボボックス内容追加のための構造体
'ここまで