PUISSANCE DE 2 : CALCUL

Dim resP(1 To 11) As Integer

Private Sub cmdCalc_Click()
lstPuiss.Clear
'ok = False
mavar = CInt(Text1.Text)
incr = 1024
temp = 0
i = 11
lblRes.Caption = "Resultat : "
Do
    If incr <= mavar Then
    temp = mavar \ incr
    mavar = mavar - incr
    End If
    resP(i) = temp
    lstPuiss.AddItem ("2^" & i - 1 & ":" & CBool(temp))
    temp = 0
    incr = incr / 2
    i = i - 1
Loop While incr >= 1

For i = UBound(resP) To LBound(resP) Step -1
    If resP(i) <> 0 Then lblRes.Caption = lblRes.Caption & " + 2^" & i - 1
Next i
End Sub
   

Télécharger le zip