Ik heb een probleem met mijn code. Kunt u me alsjeblieft helpen. Hier is mijn code:
Alvast bedankt!:d
De code doet het niet, je krijgt helemaal andere getallen dan er moet.
Weet u misschien hoe het beter moet ??
Dim i, Power, Number, DecNum As Integer
Dim Digit As Single
Private Sub bin2dec_Click()
txtDec.Text = ""
Power = Len(txtBin.Text)
Number = Val(txtBin.Text)
For i = 0 To Len(txtBin.Text) - 1
DecNum = DecNum + Right(Number, 1) * 2 ^ i
Number = Left(Number, Len(Number) - 1)
Next i
txtDec.Text = DecNum
DecNum = 0
End Sub
Private Sub Dec2Bin_Click()
Number = Val(txtDec.Text)
Do While Number >= 2
Num = Num & Number Mod 2
Number = Int(Number / 2)
If Number = 1 Then
Num = Num & 1
ElseIf Number = 0 Then
Num = Num & 0
End If
Loop
For i = 0 To Len(Num) - 1
Binary = Right(Num, 1) & Binary
Num = Left(Num, Len(Num) - 1)
Next i
If Len(Binary) <= 8 Then
txtBin.Text = Format(Binary, "00000000")
ElseIf Len(Binary) > 8 Then
txtBin.Text = Format(Binary, "00000000 00000000")
End If
End Sub
Alvast bedankt!:d
De code doet het niet, je krijgt helemaal andere getallen dan er moet.
Weet u misschien hoe het beter moet ??
Laatst bewerkt: