ZBasic Forum

Posted: **29 April 2008, 13:49 PM**

It would be nice to have a CStrBin(var) to convert a variable to a binary string.

Posted: **29 April 2008, 20:59 PM**

A binary ASCII string like "10101111" ?
pretty simple to code a function to do it.

rarely used?

Posted: **03 May 2008, 9:15 AM**

stevech wrote:pretty simple to code a function to do it.

Here's an example for Byte values that is written to be easily modified to handle 16-bit or 32-bit values.

Function CStrBinByte&#40;ByVal val as Byte&#41; as String
	Const bitCnt as Integer = SizeOf&#40;val&#41; * 8
	Dim buf&#40;1 to bitCnt&#41; as Byte
	Dim i as Integer
	For i = bitCnt to 1 Step -1
		buf&#40;i&#41; = IIF&#40;CBool&#40;LoByte&#40;val&#41; And 1&#41;, Asc&#40;"1"&#41;, Asc&#40;"0"&#41;&#41;
		val = Shr&#40;val, 1&#41;
	Next i
	CStrBinByte = MakeString&#40;buf.DataAddress, bitCnt&#41;
End Function

Modified to handle Integer values:

Code: Select all

Function CStrBinInt&#40;ByVal val as Integer&#41; as String
	Const bitCnt as Integer = SizeOf&#40;val&#41; * 8
	Dim buf&#40;1 to bitCnt&#41; as Byte
	Dim i as Integer
	For i = bitCnt to 1 Step -1
		buf&#40;i&#41; = IIF&#40;CBool&#40;LoByte&#40;val&#41; And 1&#41;, Asc&#40;"1"&#41;, Asc&#40;"0"&#41;&#41;
		val = Shr&#40;val, 1&#41;
	Next i
	CStrBinInt = MakeString&#40;buf.DataAddress, bitCnt&#41;
End Function

ZBasic Forum

Yet another feature request

Yet another feature request