1 réponse
-------------------------------
Réponse au message :
-------------------------------
Private Sub calcul_Click()
Dim tbin(50) As Variant
Dim result As String
i = 0
result = ""
valcon = txtsaisie
'''''''''''''''''''''entier''''''''''''''''''''''
If Combo1.Text = "entier" Then
If option2.Value = True Then
Do Until valcon < 1
tbin(i) = valcon Mod 2
valcon = valcon / 2
valcon = Int(valcon)
i = i + 1
Loop
For c = i To 0 Step -1
result = result & tbin(c)
Next c
End If
End If
Réponse au message :
-------------------------------
Private Sub calcul_Click()
Dim tbin(50) As Variant
Dim result As String
i = 0
result = ""
valcon = txtsaisie
'''''''''''''''''''''entier''''''''''''''''''''''
If Combo1.Text = "entier" Then
If option2.Value = True Then
Do Until valcon < 1
tbin(i) = valcon Mod 2
valcon = valcon / 2
valcon = Int(valcon)
i = i + 1
Loop
For c = i To 0 Step -1
result = result & tbin(c)
Next c
End If
End If
