The D’Alembert roulette system is a simple progression system. After each win, you subtract a unit and after a loss, you add a unit. You can start at one unit or sometimes 5 to 10 times the minimum. In our example, we will start at 5 units.

Bet NumberUnits betResultRunning Total
15loss-5
26win+1
35loss-4
46win+2
55win+7
64lose+3

The D’Alembert, like most betting systems, uses the even money bets (red/ black/ odd/ even/ high/ low) to cut down on variance. In the example above, there are 3 wins and 3 losses. When the wins and losses are even, the gains are just the number of wins. Due to the 0 in roulette, you can expect to win 18 times and lose 19 times out of 37 spins.

Basically, as with most progressive systems, they work in the short term. A long streak will bankrupt you though. Its no where near as aggressive as the

Code for roulette Xtreme, it's in the built-in system files too.

Copy Code 


system "D'Alembert_System"

{D'Alembert System
 is one of the oldest money management plans there are, for "even chances"
 betting, all having in common that you add and subtract a fixed
 amount to your bet, after a loss or win.
}
method "main"
begin
    While Starting a New Session
    begin
        Clear All Records;
        Clear Record "Initial Bet" data;
        Clear Record "Current Layout to Bet" data;
        Put 5 on Record "Initial Bet" data;
        Call "Setup Layout";
        call "Make Bets";
        Exit;
    end

    While Record "Current Layout to Bet" layout has lost each time
    begin
        Add 1 on Record "Initial Bet" data;
    end
    
    While Record "Current Layout to Bet" layout has won each time
    begin
        Subtract 1 on Record "Initial Bet" data;
    end
    
    While Record "Initial Bet" data = 0
    begin
        Put 1 on Record "Initial Bet" data;
    end

    call "Make Bets";
end

method "Make Bets"
begin
    Put 100 % of Record "Initial Bet" data on Record "Current Layout to Bet" layout;
end

method "Setup Layout"
begin
    Input Dropdown "Make a Layout Selection

              1:=Even
              2:=Odd
              3:=Red
              4:=Black
              5:=High (19-36)
              6:=Low (0-18)" to Record "Layout Selection" data;

    While Record "Layout Selection" data = 1
    begin
        Copy Even to the Record "Current Layout to Bet" layout;
    end
    Else
    begin
        While Record "Layout Selection" data = 2
        begin
            Copy Odd to the Record "Current Layout to Bet" layout;
        end
        Else
        begin
            While Record "Layout Selection" data = 3
            begin
                Copy Red to the Record "Current Layout to Bet" layout;
            end
            Else
            begin
                While Record "Layout Selection" data = 4
                begin
                    Copy Black to the Record "Current Layout to Bet" layout;
                end
                Else
                begin
                    While Record "Layout Selection" data = 5
                    begin
                        Copy high to the Record "Current Layout to Bet" layout;
                    end
                    Else
                    begin
                        While Record "Layout Selection" data = 6
                        begin
                            Copy low to the Record "Current Layout to Bet" layout;
                        end
                    end
                end
            end
        end
    end
end