Intermediate

[PhoenixXL]

Hello I pass a Parameter to a function, I dont know how does it change

Thanks for your help

Code:

Func Message($sPwm)
  ConsoleWrite($sPwm&@CR)
EndFunc
ConsoleWrite(Message(011000101010101011111000000001)&@CR)

[water]

I get the following result:

>Running:(3.3.8.1):C:Program Files (x86)AutoIt3autoit3.exe "C:Temptest2.au3"   
9223372036854775807
0
+>10:33:40 AutoIT3.exe ended.rc:0
>Exit code: 0    Time: 1.652

0 is the value returned by function Message.

[PhoenixXL]

no i wanted to know why 9223372036854775807 is getting printed, it should be 011000101010101011111000000001

[PhoenixXL]

well my mistake this should be the code

Func Message($sPwm)
ConsoleWrite($sPwm&@CR)
EndFunc
Message(011000101010101011111000000001)

[water]

The parameter you pass is interpreted as a number and therefore converted to integer before being printed.

[PhoenixXL]

is there a way to avoid that

I meant is there a way to get the result which is passed

[water]

Pass it as a string?

[PhoenixXL]

yeah that way works but i want to pass it as the number format

so can i carryout any sort of procedures inside the function that will return it back to the same format

[water]

Then pass it as a string and convert it to a number and use this for your calculations:

Func Message($sPwm)
    ConsoleWrite($sPwm & @CR)
    $Number = Number($sPwm)
    ConsoleWrite($Number & @CRLF)
EndFunc ;==>Message
Message("011000101010101011111000000001")

[PhoenixXL]

Thanks but isnt it possible to pass it as a number only

expandcollapse popup

#include <String.au3>
#include <C:UsersabhishekDesktopPresentationAbhishekSCriptsMathsEx.au3>

;ConsoleWrite(_BinStr(_StrBinary('hey there'))&@CR)
Func Message($sPwm)
ConsoleWrite($sPwm&@CR)
EndFunc
Message(011000101010101011111000000001)
Func _StrBinary($sString)
Local $Binary = ""
For $i = 1 To StringLen($sString)
$Binary &= _IntBinary(Asc(StringMid($sString, $i, 1)))
Next
Return $Binary
EndFunc

Func _BinStr($sBin)
ConsoleWrite('Bin:'&$sBin&@CR)
Local $sWidth=Ceiling(StringLen($sBin)/ 8)
ConsoleWrite($sWidth&@CRLF)
$sBin=StringFormat("%0"&$sWidth*8&"s", $sBin)
ConsoleWrite($sBin&@CR)
If IsInt(StringLen($sBin)/8)<>1 Then Return SetError(1,StringLen($sBin),-1)
Local $sOffset=StringLen($sBin)/8
Local $sBinString
Local $sString
For $i=1 To $sOffset
$sBinString=StringMid($sBin,(($i-1)*8)+1,8)
ConsoleWrite($sBinString&@CRLF)
$sString&=Chr(_BinInteger($sBinString))
Next
ConsoleWrite('---------'&@CR)
Return $sString
EndFunc

Func _IntBinary($sInteger)
If $sInteger <= 0 Then Return SetError(1,$sInteger,-1)
Local $sParameter
While $sInteger> 0
$sParameter &= Mod($sInteger, 2)
$sInteger = _Quotient($sInteger, 2)
WEnd
$sParameter = _StringOpposite($sParameter)
Return StringFormat("%08s", $sParameter)
EndFunc
ConsoleWrite(_StrBinary('blaasdasdwad')&@CR)
ConsoleWrite(Message(011000101010101011111000000001)&@CR)
Func _BinInteger($in)
Local $sInteger, $x, $i = 1, $aTmp = StringSplit(_StringOpposite($in), "")
For $x = 1 To $aTmp[0]
$sInteger += $aTmp[$x] * $i*(2^($x-1))
Next
$aTmp = 0
Return StringFormat('%d', $sInteger)
EndFunc

Func _StringOpposite($sString)
Local $sLen=StringLen($sString),$sReturn
For $i=$sLen To 1 Step -1
$sReturn&=StringMid($sString,$i,1)
Next
Return $sReturn
EndFunc

Basically that is the code Since the FuncName is _BinStr therefore i want to pass the parameter as a number and not as a string

Nothing More

Edited July 25, 2012 by PhoenixXL