• Home
 · 
• Miscellaneous
 · 
• CONVERTING A DECIMAL NUMBER INTO BINARY

CONVERTING A DECIMAL NUMBER INTO BINARY

CONVERTING A DECIMAL NUMBER INTO BINARY

API Declarations


Dim T(500) As String
Dim W(500) As String
Dim Y(500) As Integer
Dim NUM As String



Rate CONVERTING A DECIMAL NUMBER INTO BINARY

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

NUM = Text1.Text
L = Len(NUM)
For I = 1 To L
T(I) = Left(NUM, I)
Next I
For I = 1 To L
W(I) = Right(T(I), 1)
Next I
For I = 1 To L
Y(I) = Val(W(I))
Next I
Let S = 0
For I = L To 1 Step -1
S = S + Y(I) * (2 ^ (L - I))
Next I
Text2.Text = S
End Sub

Private Sub Cmdclear_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Cmdquit_Click()
Unload Me
End
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub