Bin2() ja Hex2() siis palauttavat halutun pituisen merkkijonon halutusta arvosta.
Code: Select all
Function Bin2$(val,digits=32)
Return Right(Bin(val),Int(Max(1,Min(32,digits))))
End Function
Function Hex2$(val,digits=8)
Return Right(Hex(val),Int(Max(1,Min(8,digits))))
End Function
val% = Rand(-2000000000,2000000000)
Print Bin(val)
Print Bin2(val,16)
Print Bin2(val,64)
Print ""
Print Hex(val)
Print Hex2(val,4)
Print Hex2(val,800)
WaitKey