home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / AAA_SNMP_O1997295282006.psc / BIN.bas < prev    next >
BASIC Source File  |  2006-02-26  |  738b  |  43 lines
  1. Attribute VB_Name = "ConvertBINARY"
  2. '***********************************
  3. ' Convert Long integers to binary
  4. '***********************************
  5. '  usage:   F$ = Bin(Number)
  6. '
  7. ' for MP3, MPG, AVI  encoding etc.
  8. '
  9. ' Written by Rizwan Tahir
  10. ' http://www.rizwantahir.8m.com
  11. '
  12. '----------------------------------------------
  13. Option Explicit
  14.  
  15. Public Function BIN(ByVal x As Long) As String
  16.  
  17. Dim temp As String
  18.  
  19. temp = ""
  20. 'start translation to binary
  21. Do
  22.  
  23.  
  24. ' Check whether it is 1 bit or 0 bit
  25. If x Mod 2 Then
  26.       temp = "1" + temp
  27. Else
  28.       temp = "0" + temp
  29. End If
  30.  
  31. x = x \ 2
  32. '  Normal division     7/2 = 3.5
  33. ' Integer division     7\2 = 3
  34. '
  35.  
  36. If x < 1 Then Exit Do
  37.  
  38. Loop '
  39. BIN = temp
  40.  
  41. End Function
  42.  
  43.