| View previous topic :: View next topic |
| Author |
Message |
Andir
Centurion
Joined: 21 Dec 2003
Posts: 184
Location: Chicago Area
|
 Posted: Aug 23rd, 2004 12:03 PM Post subject: |
 |
|
It says file not found...
Here is what I use to get the binary representation of a number.
[vb:1:8a3b74bc3f]
Private Function Bin(ByVal x As Long) As String
Dim temp As String
temp = ""
Do
If x Mod 2 Then
temp = "1" + temp
Else
temp = "0" + temp
End If
x = x / 2
Loop until x < 1
Bin = temp
End Function
[/vb:1:8a3b74bc3f]
_________________
If you happen to see little people sitting on your desk...don't tell anyone or they might think your crazy too. |
|
| Back to top |
|
P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
| Posted: Aug 24th, 2004 09:25 AM Post subject: |
|
|
I guess in one of the updates/changes it got lost... Here it is again...
Although your version is simpler >  I did make this as my 3rd project or something so... 
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
| Back to top |
|
|
