Un Ambo Secco a Tutte!!! 4

« Older   Newer »
 
  Share  
.
  1.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    Salve a Tutti,ecco un metodo che ricava un solo Ambo secco da giocare su Tutte.Procedimento semplice,eccolo:

    Ottava Estrazione del Mese



    Sommare al Quarto Estratto di Palermo i fissi 7 e 17



    Ecco Statistica del Metodo:


    CITAZIONE
    ============================================================
    gio 17.03.2022 [10056]
    G 1: AT 38.48 Tu 10/10
    A 48.38 su Tu (Ba) 1° colpo [10057/19.03.2022]

    ============================================================
    mar 19.04.2022 [10070]
    G 1: AT 37.47 Tu 10/10
    A 47.37 su Tu (Mi) 7° colpo [10077/05.05.2022]

    ============================================================
    gio 19.05.2022 [10083]
    G 1: AT 88.08 Tu 10/10
    A 88.08 su Tu (Na) 1° colpo [10084/21.05.2022]
    A 88.08 su Tu (Pa) 10° colpo [10093/11.06.2022]

    ============================================================
    sab 18.06.2022 [10096]
    G 1: AT 57.67 Tu 10/10
    A 57.67 su Tu (Ca) 2° colpo [10098/23.06.2022]

    ============================================================
    mar 19.07.2022 [10109]
    G 1: AT 14.24 Tu 10/10
    A 14.24 su Tu (Ba) 5° colpo [10114/30.07.2022]
    A 24.14 su Tu (To) 6° colpo [10115/02.08.2022]

    ============================================================
    gio 18.08.2022 [10122]
    G 1: AT 88.08 Tu 10/10
    A 08.88 su Tu (To) 6° colpo [10128/01.09.2022]

    ============================================================
    sab 17.09.2022 [10135]
    G 1: AT 22.32 Tu 10/10
    A 22.32 su Tu (Ba) 7° colpo [10142/04.10.2022]

    ============================================================
    mar 18.10.2022 [10148]
    G 1: AT 84.04 Tu 1/10
    in corso (1° su 10)

    Quindi la Previsione in corso dal 18.10.2022 e' la seguente:

    TUTTE



    04-84

    per Ambo Secco



    Qui' trovate il listato l8+:



    Sub main()
    Dim rt(2),pt(3)
    Dim n1(4),n2(4),n3(4),n4(4)
    pt(2)=1
    pt(3)=1
    clp=10 'colpi di gioco
    rt(1)=11 '1a ruota di gioco
    'rt(2)=9 '2a ruota di gioco

    ini=EstrazioneFin -100
    fin=EstrazioneFin
    co=0
    For es=ini To fin
    Messaggio (es)
    If IndiceMensile (es)= 8 Then
    Scrivi String (60,"=")
    co=co+1
    a=Estratto (es,7,4)





    '------------------------------Terzina (o Quartina)
    n1(1)=Fuori90 (a+7)
    n1(2)=Fuori90 (a+17)
    'n1(3)=Fuori90 (a+67)
    'n1(4)=Fuori90 (a+67) 'per giocare quartina togliere apice ' davanti a n1
    ImpostaGiocata 1,n1,rt,pt,clp

    Gioca es
    End If
    Next
    Scrivi : Scrivi "Casi Rilevati "& CInt (co)
    ScriviResoconto
    End Sub


    Saluti,sean69!!!

    banner69



    Edited by sean69 - 21/10/2022, 15:57
     
    Top
    .
  2.  
    .
    Avatar

    Advanced Member

    Group
    Member
    Posts
    2,689
    Location
    umbria

    Status
    Offline
    :2hh3czb:
     
    Top
    .
1 replies since 21/10/2022, 09:18   179 views
  Share  
.