SPIA 15 VENEZIA- AMBO SOMMA 15 BARI by DjNomade

« Older   Newer »
 
  Share  
.
  1.  
    .
    Avatar

    Senior Member

    Group
    Moderator
    Posts
    10,994
    Location
    MARCHE

    Status
    Offline

    2050139df6etbbeau

    METODO REALIZZATO CON IL PROGRAMMA LOTTOGEOS II

    Ruote di gioco: Ba.
    Colpi di gioco: 10
    Algoritmi/Numeri in gioco:
    ...
    Ambata: SommaPentagono 2 di Nz + 01 *
    Ambo: Complemento90 2 di Ca + 72 *
    Ambo: Diametrale 3 di Ba + 05 *
    Terno: SommaPentagono 2 di Fi + 50 *


    BARI

    Ambata

    41

    Abbinamenti per AMBO:

    27.32

    Abbinamento per TERNO:

    30




    Estratto-Qls-di-Ba-Estratto-Qls-di-Ba-Estratto-Qls-di-Ve-15

    Data inizio ricerca : gio 25.07.2013
    Data fine ricerca : gio 17.08.2023
    Indici mensili abilitati : 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.ultima
    Ruote di calcolo : BaCaFiGeMiNaPaRoToVeNz
    Estratti calcolo : 12345
    Tipo di ricerca : Estratto Qls di Ba + Estratto Qls di Ba = Estratto Qls di Ve = 15
    Ruote di gioco : Ba
    Colpi di gioco : 10
    Posizioni di gioco : 12345

    Ambate e/o capogioco :
    SommaPentagono 2 di Nz + 01 * (41)

    Abbinamenti x ambo :
    Complemento90 2 di Ca + 72 * (27)
    Diametrale 3 di Ba + 05 * (32)

    abbinamenti x terno :
    SommaPentagono 2 di Fi + 50 * (30)

    Previsioni totali : 10
    Previsioni positive : 9(90%)
    Previsioni negative : 0(0%)
    Previsioni in corso : 1(10%)

    Ambate : 13(130%)
    Ambi : 9(90%)
    Terni : 5(50%)


    Ruote di gioco: Ba.
    Colpi di gioco: 10
    Algoritmi/Numeri in gioco:
    ...
    Ambata: SommaPentagono 2 di Nz + 01 *
    Ambo: Complemento90 2 di Ca + 72 *
    Ambo: Diametrale 3 di Ba + 05 *
    Terno: SommaPentagono 2 di Fi + 50 *

    gio 25.07.2013
    Ambata 31
    Abbinamenti per ambo: 72.23.
    Abbinamenti per terno: 40.
    Esiti:
    gio 01.08.2013 al 3 colpo su Ba ambata 31
    gio 01.08.2013 al 3 colpo su Ba ambo 31 - 72

    gio 12.03.2015
    Ambata 11
    Abbinamenti per ambo: 72.33.
    Abbinamenti per terno: 65.
    Esiti:
    gio 19.03.2015 al 3 colpo su Ba ambata 11
    gio 19.03.2015 al 3 colpo su Ba ambo 11 - 72
    gio 19.03.2015 al 3 colpo su Ba terno 11 - 72 - 65

    gio 26.03.2015
    Ambata 16
    Abbinamenti per ambo: 83.6.
    Abbinamenti per terno: 40.
    Esiti:
    gio 02.04.2015 al 3 colpo su Ba ambata 16
    gio 02.04.2015 al 3 colpo su Ba ambo 16 - 6
    gio 02.04.2015 al 3 colpo su Ba terno 16 - 6 - 40

    mar 20.03.2018
    Ambata 36
    Abbinamenti per ambo: 31.60.
    Abbinamenti per terno: 45.
    Esiti:
    gio 12.04.2018 al 10 colpo su Ba ambata 36
    gio 12.04.2018 al 10 colpo su Ba ambo 36 - 60

    sab 25.08.2018
    Ambata 16
    Abbinamenti per ambo: 22.76.
    Abbinamenti per terno: 40.
    Esiti:
    sab 01.09.2018 al 3 colpo su Ba ambata 16
    gio 13.09.2018 al 8 colpo su Ba ambata 16
    gio 13.09.2018 al 8 colpo su Ba ambo 16 - 22
    gio 13.09.2018 al 8 colpo su Ba terno 16 - 22 - 40

    gio 24.10.2019
    Ambata 16
    Abbinamenti per ambo: 6.15.
    Abbinamenti per terno: 30.
    Esiti:
    mar 29.10.2019 al 2 colpo su Ba ambata 16
    mar 29.10.2019 al 2 colpo su Ba ambo 16 - 6
    mar 29.10.2019 al 2 colpo su Ba terno 16 - 6 - 30
    sab 16.11.2019 al 10 colpo su Ba ambata 16

    mar 25.02.2020
    Ambata 51
    Abbinamenti per ambo: 54.66.
    Abbinamenti per terno: 25.
    Esiti:
    sab 29.02.2020 al 2 colpo su Ba ambata 51
    sab 07.03.2020 al 5 colpo su Ba ambata 51
    sab 07.03.2020 al 5 colpo su Ba ambo 51 - 54

    sab 06.06.2020
    Ambata 51
    Abbinamenti per ambo: 20.87.
    Abbinamenti per terno: 5.
    Esiti:
    mar 23.06.2020 al 7 colpo su Ba ambata 51
    mar 23.06.2020 al 7 colpo su Ba ambo 51 - 20

    mar 20.12.2022
    Ambata 11
    Abbinamenti per ambo: 47.24.
    Abbinamenti per terno: 20.
    Esiti:
    gio 05.01.2023 al 7 colpo su Ba ambata 11
    sab 07.01.2023 al 8 colpo su Ba ambata 11
    sab 07.01.2023 al 8 colpo su Ba ambo 11 - 24
    sab 07.01.2023 al 8 colpo su Ba terno 11 - 24 - 20

    gio 17.08.2023
    Ambata 41
    Abbinamenti per ambo: 27.32.
    Abbinamenti per terno: 30.
    Esiti:
    IN CORSO ...

    Data inizio ricerca : gio 25.07.2013
    Data fine ricerca : gio 17.08.2023

    Casi esaminati : 10
    Casi positivi : 9
    Casi negativi : 0
    Casi in corso : 1
    Casi positivi per ambata : 9
    Casi positivi per ambo : 9
    Casi positivi per terno : 5

    Vincite totali nei colpi di gioco:

    Ambate : 13
    Ambi vinti : 9
    Terni vinti : 5

    Estratti in 1 posizione (0%)
    Estratti in 2 posizione (31%)
    Estratti in 3 posizione (15%)
    Estratti in 4 posizione (15%)
    Estratti in 5 posizione (38%)

    Vincite su Ba (100%)
     
    Top
    .
  2.  
    .
    Avatar

    Advanced Member

    Group
    Member
    Posts
    2,697
    Location
    umbria

    Status
    Offline
    ac7ff9102c1aa7e512a6a6fb094045c1abe9a20f
     
    Top
    .
  3.  
    .
    Avatar

    Member

    Group
    Member
    Posts
    543

    Status
    Offline
    Ciao, ti è possibile postare lo script , grazie.
     
    Top
    .
  4.  
    .
    Avatar

    Senior Member

    Group
    Moderator
    Posts
    10,994
    Location
    MARCHE

    Status
    Offline
    Eccolo,
    ma chissa' quando si ripetera una condizione simile
    :lol:

    ColoreTesto 1
    Scrivi "============================= SPIA 15 VENEZIA E AMBO SOMMA 15 BARI by DjNomade",1
    Scrivi
    Scrivi Date &_
    Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
    Scrivi String (2,Chr(11)): ColoreTesto 1
    ColoreTesto 0
    ColoreTesto 0
    Sub main()
    Dim posta(5)
    Dim poste(5),postee(5)
    Dim ruote(5)

    Dim am1(10),am(10),am3(10),cinq(10),nr(5)
    posta(1)=1
    poste(2)=1

    postee(2)=1
    postee(3)=1
    'postee(4)=0.5


    k=10
    casi=0
    fin=EstrazioneFin
    ini=8721

    For es=ini To fin
    NG=0

    For r=1 To 1
    For p1=1 To 4
    For p2=p1+1 To 5
    For r1=10 To 10
    For p3=1 To 5
    n1=Estratto (es,r,p1)
    n2=Estratto (es,r,p2)
    If Fuori90(n1+n2)=15 Then
    n3=Estratto (es,r1,p3)
    If n3=15 And Fuori90(n1+n2)=15 Then 'CONDIZIONE DA RILEVARE :



    casi=casi+1
    Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by DjNomade"

    Scrivi String (80,"=")&" Caso n° "&casi,1
    ColoreTesto 2:Scrivi "SPIA 15 VENEZIA E AMBO SOMMA 15 BARI by DjNomade",1

    Scrivi DataEstrazione(es)&" "&Left(NomeRuota(1),3)&" "&_
    StringaEstratti(es,1) &" -> "& Format2(n1)&" "& Format2(n2),True
    Scrivi DataEstrazione(es)&" "&Left(NomeRuota(2),3)&" "&_
    StringaEstratti(es,2) &" -> "& Format2(n1)&" "& Format2(n2),True


    'ColoreTesto 0: Scrivi String (80,"="),1

    co=co+1
    cont=cont+1

    nr(1)=Fuori90((Estratto (es,12,2)*5)+1)'OK

    nr(2)=Fuori90(90-Estratto (es,2,2)+72)
    nr(3)=Fuori90(Diametrale(Estratto (es,1,3))+5)

    nr(4)=Fuori90((Estratto (es,3,2)*5)+50)


    '**********************************************************


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(nr) Then
    rip = 1
    While NumeriRipetuti(nr)
    For x = 1 To 03 ' numeri totali 7-1=6
    For y = x + 1 To 4 ' 7 perche i numeri in totale sono 7
    If nr(X) = nr(y) Then nr(y) = Fuori90(nr(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula


    '*****************************************************


    ruote(1)=1
    ruote(2)=1 'si puo'aggiungere altre ruote


    am1(1)=nr(1)
    ImpostaGiocata 1,am1,ruote,posta,k
    am(1)=nr(1)
    am(2)=nr(2)
    ImpostaGiocata 2,am,ruote,poste,k
    am(1)=nr(1)
    am(2)=nr(3)
    ImpostaGiocata 3,am,ruote,poste,k
    am3(1)=nr(1)
    am3(2)=nr(2)
    am3(3)=nr(4)
    ImpostaGiocata 4,am3,ruote,postee,k
    am3(1)=nr(1)
    am3(2)=nr(3)
    am3(3)=nr(4)
    ImpostaGiocata 5,am3,ruote,postee,k



    Gioca es

    End If
    End If

    Next
    Next
    Next
    Next
    Next
    Next
    ScriviResoconto

    End Sub
     
    Top
    .
  5.  
    .
    Avatar

    Member

    Group
    Member
    Posts
    543

    Status
    Offline
    È hai ragione
     
    Top
    .
4 replies since 18/8/2023, 10:40   166 views
  Share  
.