AutoIt Français

Code : Tout sélectionner

Dim $tab_zone[6][2]=[["F",1000],["E",500],["D",200],["C",100],["B",50],["A",10]]

$zoneret=indentify_zone(1250)
$err=@error
MsgBox(0,"découpage de zone de 1250 : ",$zoneret&" erreur="&$err)

$zoneret=indentify_zone(1255)
$err=@error
MsgBox(0,"découpage de zone de 1255 : ",$zoneret&" erreur="&$err)



Func indentify_zone($val)
    Local $zone=""
    Local $first_ind=0
    While ($val >= 10)
        For $ind=$first_ind to 6
            If ($tab_zone[$ind][1]<=$val) Then
                $val-=$tab_zone[$ind][1]
                $first_ind=$ind
                $zone&=$tab_zone[$ind][0]&"+"
                ExitLoop
            EndIf
        Next
    WEnd
    ;on supprime le dernier "+" en fin de chaîne
    $zone=StringRegExpReplace($zone,"\+\Z","")
    If ($val<> 0) Then
        SetError(1)
        Return $zone
    EndIf
    SetError(0)
    Return $zone
EndFunc


 

Code : Tout sélectionner

#include <Array.au3>
dim $chiffre[4] = [60,360,810,1100]
Dim $aArray[6] = [10, 50, 100, 200, 500, 1000]
Dim $bArray[6] = ["A","B","C","D","E","F"]
$Array = Combinaison_plus($aArray, $bArray)
_ArrayDisplay($Array)
For $i=0 to 3
    MsgBox(0,"", $chiffre[$i] & " = " & $Array[_ArraySearch($Array,$chiffre[$i],1)][1])
Next


Func Combinaison_plus($aArray, $bArray)
    If UBound($aArray) <> UBound($bArray) Then Return SetError(1)
    Dim $Array_final[1][2]
    For $i = 1 To UBound($aArray)
        $aArrayCombo = _ArrayCombinations($aArray, $i, "+")
        For $ii = 1 to $aArrayCombo[0]
            $Array_final[0][0] += 1
            ReDim $Array_final[$Array_final[0][0]+1][2]
            $Array_final[$Array_final[0][0]][1] = $aArrayCombo[$ii]
        Next
    Next
    For $i=1 To $Array_final[0][0]
        $Array_final[$i][0] = Execute($Array_final[$i][1])
        For $ii=0 To UBound($aArray)-1
            $Array_final[$i][1] = StringRegExpReplace($Array_final[$i][1], "\A("  & $aArray[$ii] & ")\z", $bArray[$ii])
            $Array_final[$i][1] = StringRegExpReplace($Array_final[$i][1], "\+("  & $aArray[$ii] & ")\+", "+" & $bArray[$ii] & "+")
            $Array_final[$i][1] = StringRegExpReplace($Array_final[$i][1], "\+("  & $aArray[$ii] & ")\z", "+" & $bArray[$ii])
            $Array_final[$i][1] = StringRegExpReplace($Array_final[$i][1], "\A("  & $aArray[$ii] & ")\+", $bArray[$ii] & "+")
        Next
    Next
    _ArraySort($Array_final,0,1)
    Return $Array_final
EndFunc