Chicca Per Bari

[Pattydreams64]

Ciao vi posto un metodo Che da parecchie soddisfazioni Sulla Ruota di bari.
Purtroppo non so fare script e quindi uso ancora il famigerato excel, se qualcuno vuole puo' fare lo script con relative vincite.
Ora vengo al sistema .
Calcolo Ultima del mese
--------------------------------
Ruota di calcolo Cagliari
Ruota di Gioco Bari
1° Ca + 3° Ca + 06 1° Ambata
1° ca + 3° Ca + 25 2° Ambata
1° Ca + 3° Ca + 36 X terno
Vertibile della 1° Ambata
vertibile della 2° Ambata
--------------------------------
Esempio Estrazione di Sabato 31/12/2011
1° Ca 61 3° Ca 69 +06 =46
1° Ca 61 3° Ca 69 +25 =65
1° Ca 61 3° Ca 69 +36 =76
Vertibile 46=64
vertibile 65=56
Esito
03° Colpo = 65
07° Colpo = 46 76
10° Colpo = 65
-----------------------------------------------
Le vincite nell'arco del mese sono multiple.
io le gioco cosi'
le 2 Ambate e poi gioco 3 Quaterne ,Ben accetto Consigli e Critiche

46
65
46 65 76 64
46 65 76 56
46 65 64 56
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Grazie A chi fara' script Per il Forum Sia x il Metodo Che x l'eventuali Vincite
Grazie

Patty@dreams 64

 

[trylli]

non ho capito come si calcola

 

[trylli]

questo mese le ambate son hia uscite resta in gioco 42-62-73-24
42-62-73-26
42-24-26-62
giusto? per ambo e terno chiaramente.

 

[Pattydreams64]

buonanotte,
le allego listato del metodo .
Salvo errori,controllare sempre.

   Sub Main()
    Scrivi"Chicca Per Bari ,di Patty@dreams 64 - http://forum.lottoced.com/f8/chicca-per-bari-105096/ - ",1
    Scrivi
    Dim n(2),am1(4),am2(4),am3(4),ruota(1)
    Dim posta(1),poste(2)
    posta(1) = 1
    poste(2) = 1
    ruota(1) = BA_
    k = 10
    Ini = EstrazioneIni + 8475
    fin = EstrazioneFin
    For es = Ini To fin
        Messaggio Es
        AvanzamentoElab Ini,fin,es
        If IsUltimaDelMese(es) Then
            casi = casi + 1
            Scrivi String(58,"-") & " caso n° " &(casi)
            n(1) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 06) '1° Ca + 3° Ca + 06 1° Ambata
            n(2) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 25) '1° ca + 3° Ca + 25 2° Ambata
            ImpostaGiocata 1,n,ruota,posta,k
            am1(1) = n(1) '1° Ambata
            am1(2) = n(2) '2° Ambata
            am1(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
            am1(4) = Vert(n(1)) 'Vertibile della 1° Ambata
            ImpostaGiocata 2,am1,ruota,poste,k,2
            am2(1) = n(1) '1° Ambata
            am2(2) = n(2) '2° Ambata
            am2(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
            am2(4) = Vert(n(2)) 'vertibile della 2° Ambata
            ImpostaGiocata 3,am2,ruota,poste,k,2
            am3(1) = n(1) '1° Ambata
            am3(2) = n(2) '2° Ambata
            am3(3) = Vert(n(1)) 'Vertibile della 1° Ambata
            am3(4) = Vert(n(2)) 'vertibile della 2° Ambata
            ImpostaGiocata 4,am3,ruota,poste,k,2
            Gioca es,True,,1
        End If
    Next
    ScriviResoconto
End Sub

Ciao disaronno,tante grazie.
il listato funziona alla perfezione.
pero' ti chiedo con calma oppure se mi spieghi come posso fare.
di fare il listato con tutte i 5 numeri e con tutte le 14 estrazioni, solo cosi' si rende reale il tutto, perche ci sono ambi e terni.
grazie lo stesso qualunque cosa deciderai.
mi stavo ppreoccupando in quanto il pc e' andato,l'ho dovuto riformattare .