Convert Number To Binary

• Download source files - 8 Kb
• Download demo project - 4 Kb

Introduction

Convert Number To Binary

-------------------------

Private Sub Covert_Click()
 Dim mBNumber As Long
 Dim mDNumber As Long
 Dim mKey As Long
 
 If Me.Text1 < 2 Then
  Exit Sub
 End If
 
 mDNumber = Me.Text1
 Me.Label5.Caption = " "

 Do While True
  mBNumber = Int(mDNumber / 2)
  If mDNumber = 2 Then
   mKey = mDNumber - (mBNumber * 2)
   Me.Label5.Caption = "0" & Me.Label5
  Else
   mKey = mDNumber - (mBNumber * 2)
   Me.Label5.Caption = mKey & Me.Label5
  End If
  mDNumber = mBNumber
  If mDNumber = 1 Then
   Me.Label5.Caption = "1" & Me.Label5
   Exit Do
  End If
Loop

End Sub

------------------------------------------------------

Private Sub Text1_Click()
 Me.Label5.Caption = " "
End Sub

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here