PureBasic

Code : Tout sélectionner

Procedure.b CompareMemoryWithMask(*MemoryId1.i, *MemoryId2.i, *Mask.i, Longueur.l) ; Compare les buffers en tenant compte du mask, retourne 0 si = et sinon, l'index du premier octet <>
	Protected index.l
	Longueur - 1
	
	For index = 0 To Longueur
		; 		Debug "#####"
		; 		Debug index
		; 		Debug ""
		; 		Debug RSet(Bin(PeekB(*MemoryId1 + index), #PB_Byte), 32, "0")
		; 		Debug RSet(Bin(PeekB(*Mask + index), #PB_Byte), 32, "0")
		; 		Debug RSet(Bin(PeekB(*MemoryId1 + index) & PeekB(*Mask + index), #PB_Byte), 32, "0")
		; 		Debug ""
		; 		Debug RSet(Bin(PeekB(*MemoryId2 + index), #PB_Byte), 32, "0")
		
		
		If PeekB(*MemoryId1 + index) & PeekB(*Mask + index) <> PeekB(*MemoryId2 + index) & PeekB(*Mask + index)
			ProcedureReturn index + 1
		EndIf
	Next
	
	ProcedureReturn 0
EndProcedure


; TEST


Procedure WriteDataFromSection(*MemoryId1.i, *adr_data.i, Longueur.l)
	Protected index.l
	Longueur - 1
	
		Debug ""
	
	For index = 0 To Longueur
		PokeB(*MemoryId1 + index, PeekB(*adr_data + index))
		
				Debug Hex(PeekB(*adr_data + index), #PB_Byte)
	Next
	
	
		Debug ""
		Debug "FIN"
EndProcedure

DataSection
	ORI:
	Data.b	$0F, $FB, $72, $07, $E6
	SCH:
	Data.b	$0F, $FB, $72, $03, $E6
	MASK:
	Data.b	$FF, $FF, $FF, $F0, $FF
EndDataSection


DataSize.l = 5

*buffer_1.i = AllocateMemory(DataSize)
*buffer_2.i = AllocateMemory(DataSize)

*Mask.i = AllocateMemory(DataSize)



WriteDataFromSection(*buffer_1, ?ORI, DataSize)
WriteDataFromSection(*buffer_2, ?SCH, DataSize)
WriteDataFromSection(*Mask, ?MASK, DataSize)


res = CompareMemoryWithMask(*buffer_1, *buffer_2, *Mask, DataSize)
If res = 0
	Debug "Les Buffers sont egaux en tenant compte du mask"
Else
	Debug "Différence au " + Str(res) + " octet"
EndIf


; Test de vitesse :

limit = 1000000

;{ CompareMemory

t = ElapsedMilliseconds()
DisableDebugger

For a = 0 To limit
	CompareMemory(*buffer_1, *buffer_2, DataSize)
Next

t = ElapsedMilliseconds() - t

EnableDebugger
Debug "CompareMemory time = " + Str(t)

;}

;{ CompareMemoryWithMask

t = ElapsedMilliseconds()
DisableDebugger

For a = 0 To limit
	CompareMemoryWithMask(*buffer_1, *buffer_2, *Mask, DataSize)
Next

t = ElapsedMilliseconds() - t

EnableDebugger
Debug "CompareMemoryWithMask time = " + Str(t)

;}

;{ CompareMemoryWithMask sans procedure
t = ElapsedMilliseconds()
DisableDebugger


For a = 0 To limit
	
	IS_equal.b = #True
	
	For tmp_index = 0 To DataSize
		If PeekB(*buffer_1 + tmp_index) & PeekB(*Mask + tmp_index) <> PeekB(*buffer_2 + tmp_index) & PeekB(*Mask + tmp_index)
			IS_equal = #False
			Break
		EndIf
	Next
Next

t = ElapsedMilliseconds() - t

EnableDebugger
Debug "CompareMemoryWithMask sans procedure time = " + Str(t)

;}

Code : Tout sélectionner

Procedure.i IsSearchedFrame(*Original, chaine$)
	Size=Len(chaine$)/2
	*B = AllocateMemory(size)
	*Copy = AllocateMemory(size)
	CopyMemory(*Original, *Copy, size)                      ; work on a copy !
	y = 0
	For i=1 To Len(chaine$) Step 2                         ; creating mask and search buffer
		a$ = Mid(chaine$,i,2)                                 ; 1 byte is 2 car (ie. $E5)
		x = Val("$"+Left(a$,1))*16 + Val("$"+Right(a$,1))     ; 
		PokeA(*B+y,x)
		position = FindString(a$,"*")                               ; mask copy value if wildcard met
		If position
			If a$="**" Or a$="??"
				PokeA(*Copy+y,0)
			ElseIf position=1
				PokeA(*Copy+y,$0F & PeekA(*Copy+y))
			Else
				PokeA(*Copy+y,$F0 & PeekA(*Copy+y))
			EndIf
		EndIf
		y+1
	Next i
	Debug ReadMsg(*B, size)
	Debug ReadMsg(*Copy, size)
	
	res = CompareMemory(*B, *Copy, size)                     ; after that, just compare value
	E=FreeMemory(*B)
	E=FreeMemory(*Copy)
	ProcedureReturn res
EndProcedure

Code : Tout sélectionner

G:\VelbusCmd>velbuscmd.exe server:192.168.168.250 port:8080 ERREUR:$06-1 TEMP:$76-1 TEMP:$82-1

VelbusCmd [1.4] Sending to [192.168.168.250-8080]
----------------------------------------------------------
$06 ;0;0;0; (TX-RX-BOFF)
$76 ;16.5;13.5;23.5; (Tcur-Tmin-Tmax)
$82 ;Timeout; (Tcur-Tmin-Tmax)
----------------------------------------------------------