Procedure shl(value,bit)
For x = 1 To bit
value * 2
Next
ProcedureReturn value
EndProcedure
Repeat ; debug window
a= shl (Random (10),2)
b= shl (5,8)
Delay (100)
ForEver
Procedure shl(value,bit)
For x = 1 To bit
value * 2
Next
ProcedureReturn value
EndProcedure
Repeat ; debug window
a= shl (Random (10),2)
b= shl (5,8)
Delay (100)
ForEver
Procedure shl(value,bit)
For x = 1 To bit
value * 2
Next
ProcedureReturn value
EndProcedure
Repeat ; debug window
a= shl (Random (10),2)
b= shl (5,8)
Delay (100)
ForEver
Restored from previous forum. Originally posted by fred.
And THE easier way:
a*2 ; this is like a << 1 or SAL a,2 or anything.
PureBasic is an Optimizing compiler, which mean than all operations (for example this multiplication) will be changed with faster command when possible.