ab.com コミュニティ

コード: 全て選択

'DWord型変数のログを記録するクラス
/*
クラス：LogDWord
	Dim Obj As LogDWord( ログの記録最大数 )
	Obj.Record( ログに保存するDWord型の値 )  ※失敗するとFALSE、成功するとTRUE。普通は成功なので無視してオッケー。
	[DWord型変数のログが返る] = Obj.PlayLog( ログのインデックス )
	インデックスの範囲は、[古い：0～(最大記録数-1)：新しい]　になります。
*/
Class LogDWord
	pDWordArry As DWordPtr
	hHeap As HANDLE
	nIndex As DWord
	nMaxIndex As DWord
Public
	Sub LogDWord( nLog As DWord )
		hHeap = HeapCreate( NULL, 0, 0 )
		pDWordArry = HeapAlloc( hHeap, HEAP_ZERO_MEMORY, nLog*SizeOf(DWord) ) As DWordPtr
		nIndex = 0
		nMaxIndex = nLog
	End Sub
	Sub ~LogDWord()
		HeapDestroy( hHeap )
	End Sub

	Function Record( nDWord As DWord ) As Long
		Dim i As Long

		If( pDWordArry=NULL )Then
			Record = FALSE
			ExitFunction
		Else
			Record = TRUE
		End If

		If( nIndex<nMaxIndex )Then
			pDWordArry[ nIndex ] = nDWord
			nIndex += 1
		Else
			i = 1
			While( i<nIndex )
				pDWordArry[ i-1 ] = pDWordArry[ i ]
				i += 1
			Wend
			pDWordArry[ nIndex-1 ] = nDWord
		End If
	End Function

	Function PlayLog( nIndex As DWord ) As DWord
		If( nIndex<nMaxIndex )Then
			PlayLog = pDWordArry[ nIndex ]
		Else
			PlayLog = 0
		End If
	End Function
End Class



'QWord型への変換
Function MakeQWord( LowDWord As DWord, HighDWord As DWord ) As QWord
    Dim q As QWord
    q = HighDWord
    q = q << 32
    q = q + LowDWord
    MakeQWord = q
EndFunction

'DWord型への分解
Function HiDWord( q As QWord ) As DWord
    q = q and &HFFFFFFFF00000000
    q = q >> 32
    HiDWord = q
EndFunction
Function LoDWord( q As QWord ) As DWord
    LoDWord = q and &HFFFFFFFF
EndFunction