delphi -> Vb

[cajsoft]

Hi,
Does anyone know of any apps or source that I can use to convert some delphi source code into vb as I know nothing about delphi... and dont intend to..

Regards.

[IROY55]

cajsoft,
you cannot convert it - you will have to write your own code instead.

Roy

[cajsoft]

Ok.

so what is the VB function or statement to shift bits left or right?

in delphi SHL and SHR are used... same as assembly.

[Cander]

there is no bitshift in VB
here is a function to emulate it

Public Enum ShiftDirections
	SHIFT_left = 0
	SHIFT_right = 1
End Enum

Public Function BitShift(lValue As Long, _
		     ByVal lDir As ShiftDirections, _
		     ByVal iBitCount As Integer) As Long
		     
	Dim iBitsToShift As Integer
	
	' negative powers of 2 will produce a division
	' (right shift)
	iBitsToShift = IIf(lDir = SHIFT_right, -iBitCount, iBitCount)

                On Error GoTo ShiftErrHandler
	BitShift = Fix(lValue * 2 ^ iBitsToShift)
	
	Exit Function

                ShiftErrHandler:
	' overflow or other invalid error occurred
	MsgBox Err.Description
End Function

[cajsoft]

Thanks for that.. worked a treat.