Novità

Aiuto script per Salvo.Ambo diametrale in decina su 2 ruote.

J

Juri

Super Member >GOLD<
Ciao a tutti.

In allegato si vede il metodo.Ho visto che puo' funzionare con ogni ambo distanza 5 anche 59-64 o 56-61.Poi vedo se tirarli via.Ovviamente in tutte le posizione vanno bene.

Questo è un metodo del 1997 e dai casi che ho visto l'ambata va bene anche l'ambo ogni tanto.


Si puo' anche mettere i casi solo su 1 ruota e basta?


Il 15 non su mi uniti 13-8 e su pa 11-16 uniti.(Non da tecnica ma vedo).Ambata 48 con 21-26-27-22.Ambo 48-26 pres base ve.A colpo 48 pa.

Il 17 nov non da tecnica su ro 59-64 e su ve 56-61.Ambata 60 con 33-38-27-22.Al 5° c 33-22 ve.

Il 20 nov su ba 48-43 e su na 17-12 (ruote diam).Ambata 30 con 1-6-29-24.Al 3° c 6-24 na.

Il 22 nov su ca 88-83 e su pa 4-9.Ambata 9 con 81-86-13-18.Al 2° c 9 pa.

Poi su ca 88-83 e su naz 48-43 uniti.Ambata 87 con 81-86-1-6.

Il 27 nov su fi 81-86 e su ge 21-26.Ambata 29 con 77-72-47-42.



Grazie mille.

Statemi bene.
 

Allegati

  • 20181202_103319.jpg
    20181202_103319.jpg
    57,1 KB · Visite: 2
  • 20181202_103325.jpg
    20181202_103325.jpg
    55,7 KB · Visite: 2
Ciao a Tutti.

Codice: 
'PROGETTO - Chiesto da Juri - Ambo Diametrale in Decina su Due Ruote
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Clp1,Ini,A,B,C,D,A1,B1,C1,D1
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim Sac,Sbd,Sad,Sbc,AA
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambata(1)
   Dim Ruote(2),Posta(5),Poste(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)'da 6628 a 6683 periodo di gioco nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare ambata e ambi?",,8)
   Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               If A1 = DiametraleD(B1) Then
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C1 = Estratto(Es,R2,P3)
                           D1 = Estratto(Es,R2,P4)
                           If C1 = DiametraleD(D1) Then
                              A = Fuori90(A1 + B1)
                              B = DiametraleD(A)
                              C = Fuori90(C1 + D1)
                              D = DiametraleD(C)
                              Sac = Fuori90(A + C)
                              Sbd = Fuori90(B + D)
                              Sad = Fuori90(A + D)
                              Sbc = Fuori90(B + C)
                              If Sac = Sbd Or Sad = Sbc Then
                                 If Sac = Sbd Then AA = Sac Else AA = Sad
                                 Ambata(1) = AA
                                 Ruote(1) = R1 : Ruote(2) = R2
                                 If SerieFreq(Es - 5,Es,Ambata,Ruote,1) = False Then
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 2
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P = 1 To 5
                                       E1 = Estratto(Es,R1,P)
                                       If E1 = A1 Or E1 = B1 Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es,R2,PP)
                                       If E2 = C1 Or E2 = D1 Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi "  Somme        Diametrali"
                                    Scrivi " Orizzon.      in Decina " & Space(6) & " Somme Vert." & Space(10) & " Somme Diag.",1
                                    Scrivi "   " & Format2(A) & Space(13) & Format2(B) & Space(16) & Format2(Sac) & Space(19) & Format2(Sad),1
                                    Scrivi "   " & Format2(C) & Space(13) & Format2(D) & Space(16) & Format2(Sbd) & Space(19) & Format2(Sbc),1
                                    Scrivi
                                    ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
                                    Ambo1(1) = AA : Ambo1(2) = A
                                    ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp1
                                    Ambo2(1) = AA : Ambo2(2) = B
                                    ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp1
                                    Ambo3(1) = AA : Ambo3(2) = C
                                    ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp1
                                    Ambo4(1) = AA : Ambo4(2) = D
                                    ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp1
                                    Gioca Es
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ne posto un'altro con la modifica


Codice: 
 'PROGETTO - Chiesto da Juri - Ambo Diametrale in Decina su Due Ruote - versione 2
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Clp1,Ini,A,B,C,D,A1,B1,C1,D1
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim Sac,Sbd,Sad,Sbc,AA,Clp2,Eseg_Control,SF
   Dim Ambata(1),Num(5),Salvo50
   Dim Ruote(2),Posta(5),Poste(5)
   FIn = EstrazioneFin
   Eseg_Control = CInt(InputBox(" Vuoi fare il controllo? - (SI = 1) - (NO un qualsiasi altro numero) ",Salvo50,2))
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9100)'da 6628 a 6683 periodo di gioco nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la cinquina?",,8)
   Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   ' Poste(4) = 1
   ' Poste(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               If A1 = DiametraleD(B1) Then
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C1 = Estratto(Es,R2,P3)
                           D1 = Estratto(Es,R2,P4)
                           If C1 = DiametraleD(D1) Then
                              A = Fuori90(A1 + B1)
                              B = DiametraleD(A)
                              C = Fuori90(C1 + D1)
                              D = DiametraleD(C)
                              Sac = Fuori90(A + C)
                              Sbd = Fuori90(B + D)
                              Sad = Fuori90(A + D)
                              Sbc = Fuori90(B + C)
                              If Sac = Sbd Or Sad = Sbc Then
                                 If Sac = Sbd Then AA = Sac Else AA = Sad
                                 Ambata(1) = AA
                                 Ruote(1) = R1 : Ruote(2) = R2
                                 SF = 0
                                 If Eseg_Control = 1 Then
                                    SF = SerieFreq(Es - 5,Es,Ambata,Ruote,1)
                                 End If
                                 If SF = 0 Then
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 2
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P = 1 To 5
                                       E1 = Estratto(Es,R1,P)
                                       If E1 = A1 Or E1 = B1 Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es,R2,PP)
                                       If E2 = C1 Or E2 = D1 Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi "  Somme        Diametrali"
                                    Scrivi " Orizzon.      in Decina " & Space(6) & " Somme Vert." & Space(10) & " Somme Diag.",1
                                    Scrivi "   " & Format2(A) & Space(13) & Format2(B) & Space(16) & Format2(Sac) & Space(19) & Format2(Sad),1
                                    Scrivi "   " & Format2(C) & Space(13) & Format2(D) & Space(16) & Format2(Sbd) & Space(19) & Format2(Sbc),1
                                    Scrivi
                                    ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
                                    Num(1) = AA : Num(2) = A : Num(3) = B : Num(4) = C : Num(5) = D
                                    ImpostaGiocata 2,Num,Ruote,Poste,Clp2
                                    Gioca Es
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Facendo questo script ho potuto constatare che è molto difficile che si verificano le condizioni imposte, cioè avere 2 ambi con diametrale in decina nella stessa ruota, infatti in 562 estrazioni, sono risultati giocabili solo 11 casi, praticamente uno ogni 51 concorsi


Codice: 
 'PROGETTO - Chiesto da Juri - 2 Ambi Diametrali in Decina su una Ruota - versione 3
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Clp1,Ini,A,B,C,D,A1,B1,C1,D1
   Dim R1,Caso,Casi,P1,P2,P3,P4,P,E1,OK,SF
   Dim S1,S2,S3,S4,AA,Clp2,Riga1,Riga2
   Dim DiA1,DiB1,DiC1,DiD1,Eseg_Control
   Dim Ambata(1),Num(5)
   Dim Ruote(1),Posta(5),Poste(5)
   FIn = EstrazioneFin
   Eseg_Control = CInt(InputBox(" Vuoi fare il controllo? - (SI = 1) - (NO un qualsiasi altro numero) ",,2))

   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
   Clp1 = InputBox("Per quanti colpi vuoi giocare ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la cinquina?",,8)
   Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   ' Poste(4) = 1
   ' Poste(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 2
            For P2 = P1 + 1 To 3
               For P3 = P2 + 1 To 4
                  For P4 = P3 + 1 To 5
                     A1 = Estratto(Es,R1,P1)
                     B1 = Estratto(Es,R1,P2)
                     C1 = Estratto(Es,R1,P3)
                     D1 = Estratto(Es,R1,P4)
                     DiA1 = DiametraleD(A1) : DiB1 = DiametraleD(B1) : DiC1 = DiametraleD(C1) : DiD1 = DiametraleD(D1)
                     If(A1 = DiB1 And C1 = DiD1) Or(A1 = DiC1 And B1 = DiD1) Or(A1 = DiD1 And B1 = DiC1) Then
                        If A1 = DiB1 And C1 = DiD1 Then
                           A = Fuori90(A1 + B1)
                           B = DiametraleD(A)
                           C = Fuori90(C1 + D1)
                           D = DiametraleD(C)
                           Riga1 = Format2(A1) & " " & Format2(B1)
                           Riga2 = Format2(C1) & " " & Format2(D1)
                           Call Somme(A,B,C,D,S1,S2,S3,S4)
                        End If
                        '
                        If A1 = DiC1 And B1 = DiD1 Then
                           A = Fuori90(A1 + C1)
                           B = DiametraleD(A)
                           C = Fuori90(B1 + D1)
                           D = DiametraleD(C)
                           Riga1 = Format2(A1) & " " & Format2(C1)
                           Riga2 = Format2(B1) & " " & Format2(D1)
                           Call Somme(A,B,C,D,S1,S2,S3,S4)
                        End If
                        '
                        If A1 = DiD1 And B1 = DiC1 Then
                           A = Fuori90(A1 + D1)
                           B = DiametraleD(A)
                           C = Fuori90(B1 + C1)
                           D = DiametraleD(C)
                           Riga1 = Format2(A1) & " " & Format2(D1)
                           Riga2 = Format2(B1) & " " & Format2(C1)
                           Call Somme(A,B,C,D,S1,S2,S3,S4)
                        End If
                        If S1 = S2 Or S3 = S4 Then
                           If S1 = S2 Then AA = S1 Else AA = S3
                           Ambata(1) = AA
                           Ruote(1) = R1
                           SF = 0
                           If Eseg_Control = 1 Then
                           SF = SerieFreq(Es - 5,Es,Ambata,Ruote,1)
                           End If
                           If SF = 0 Then
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 2
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 1
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P = 1 To 5
                                 E1 = Estratto(Es,R1,P)
                                 If E1 = A1 Or E1 = B1 Or E1 = C1 Or E1 = D1 Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi "Coppie Diam.        Somme        Diametrali",1
                              Scrivi " in Decina         Orizzon.      in Decina " & Space(6) & " Somme Vert." & Space(6) & " Somme Diag.",1
                              Scrivi Space(3) & Riga1 & Space(13) & Format2(A) & Space(13) & Format2(B),1,0
                              Scrivi Space(16) & Format2(S1) & Space(15) & Format2(S3),1
                              Scrivi Space(3) & Riga2 & Space(13) & Format2(C) & Space(13) & Format2(D),1,0
                              Scrivi Space(16) & Format2(S2) & Space(15) & Format2(S4),1
                              Scrivi
                              ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
                              Num(1) = AA : Num(2) = A : Num(3) = B : Num(4) = C : Num(5) = D
                              ImpostaGiocata 2,Num,Ruote,Poste,Clp2
                              Gioca Es
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Somme(A,B,C,D,S1,S2,S3,S4)
   S1 = Fuori90(A + C)
   S2 = Fuori90(B + D)
   S3 = Fuori90(A + D)
   S4 = Fuori90(B + C)
End Function
 
Ultima modifica:
Come mai questi casi non le vede?Salta molte previsioni normali a 2 ruote.

Grazie.



Il 22 nov su ca 88-83 e su pa 4-9.Ambata 9 con 81-86-13-18.Al 2° c 9 pa.

Poi su ca 88-83 e su naz 48-43 uniti.Ambata 87 con 81-86-1-6.

Il 27 nov su fi 81-86 e su ge 21-26.Ambata 29 con 77-72-47-42.
 
Juri;n2143205 ha scritto:
Come mai questi casi non le vede?Salta molte previsioni normali a 2 ruote.

Grazie.



Il 22 nov su ca 88-83 e su pa 4-9.Ambata 9 con 81-86-13-18.Al 2° c 9 pa.

Poi su ca 88-83 e su naz 48-43 uniti.Ambata 87 con 81-86-1-6.

Il 27 nov su fi 81-86 e su ge 21-26.Ambata 29 con 77-72-47-42.
Clicca per espandere...

Ciao Juri, perche l'articolo dice di non mettere la previsione se nelle 4-5 estrazioni indietro è uscita l'ambata, io nel limite del possibile cerco sempre di rispettare i parametri dei metodi, salvo errori o dimenticanze
 
Ciao a Tutti.

Negli script dei post 4 e 8 ho inserito la scelta del controllo se andare o no indietro per controllare se è uscita l'ambata, praticamente alla prima domanda, se si inserisce il numero 1, fa il controllo nelle cinque estrazioni indietro per vedere se è uscita l'ambata, con un qualsiasi altro numero il controllo non lo fà, quindi gli script sono da riprendere
 
Grazie mille.

Vedo cosa succede nei 2 casi.L'ho controllato dal 1871 ed è costante con il controllo che dici.Sicuramente incidono molti metodi se l'ambata è già uscita.
 
Ciao a Tutti

Su 9561 estrazioni, iniziando dall'estrazione numero 1 su 2 ruote, a me sono risultati

senza controllo
4845 casi
------------------
con controllo
2383 casi

praticamente meno della metà

Quindi incide di moltissimo se c'è o non c'è il controllo

Con una ruota

senza controllo
170 casi

con controllo
117 casi
 
salvo50;n2143181 ha scritto:
Facendo questo script ho potuto constatare che è molto difficile che si verificano le condizioni imposte, cioè avere 2 ambi con diametrale in decina nella stessa ruota, infatti in 562 estrazioni, sono risultati giocabili solo 11 casi, praticamente uno ogni 51 concorsi


Codice: 
'PROGETTO - Chiesto da Juri - 2 Ambi Diametrali in Decina su una Ruota - versione 3
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim FIn,Es,Clp1,Ini,A,B,C,D,A1,B1,C1,D1
Dim R1,Caso,Casi,P1,P2,P3,P4,P,E1,OK,SF
Dim S1,S2,S3,S4,AA,Clp2,Riga1,Riga2
Dim DiA1,DiB1,DiC1,DiD1,Eseg_Control
Dim Ambata(1),Num(5)
Dim Ruote(1),Posta(5),Poste(5)
FIn = EstrazioneFin
Eseg_Control = CInt(InputBox(" Vuoi fare il controllo? - (SI = 1) - (NO un qualsiasi altro numero) ",,2))

Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
Clp1 = InputBox("Per quanti colpi vuoi giocare ambata?",,8)
Clp2 = InputBox("Per quanti colpi vuoi giocare la cinquina?",,8)
Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
Posta(1) = 1
Poste(2) = 1
Poste(3) = 1
' Poste(4) = 1
' Poste(5) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 2
For P2 = P1 + 1 To 3
For P3 = P2 + 1 To 4
For P4 = P3 + 1 To 5
A1 = Estratto(Es,R1,P1)
B1 = Estratto(Es,R1,P2)
C1 = Estratto(Es,R1,P3)
D1 = Estratto(Es,R1,P4)
DiA1 = DiametraleD(A1) : DiB1 = DiametraleD(B1) : DiC1 = DiametraleD(C1) : DiD1 = DiametraleD(D1)
If(A1 = DiB1 And C1 = DiD1) Or(A1 = DiC1 And B1 = DiD1) Or(A1 = DiD1 And B1 = DiC1) Then
If A1 = DiB1 And C1 = DiD1 Then
A = Fuori90(A1 + B1)
B = DiametraleD(A)
C = Fuori90(C1 + D1)
D = DiametraleD(C)
Riga1 = Format2(A1) & " " & Format2(B1)
Riga2 = Format2(C1) & " " & Format2(D1)
Call Somme(A,B,C,D,S1,S2,S3,S4)
End If
'
If A1 = DiC1 And B1 = DiD1 Then
A = Fuori90(A1 + C1)
B = DiametraleD(A)
C = Fuori90(B1 + D1)
D = DiametraleD(C)
Riga1 = Format2(A1) & " " & Format2(C1)
Riga2 = Format2(B1) & " " & Format2(D1)
Call Somme(A,B,C,D,S1,S2,S3,S4)
End If
'
If A1 = DiD1 And B1 = DiC1 Then
A = Fuori90(A1 + D1)
B = DiametraleD(A)
C = Fuori90(B1 + C1)
D = DiametraleD(C)
Riga1 = Format2(A1) & " " & Format2(D1)
Riga2 = Format2(B1) & " " & Format2(C1)
Call Somme(A,B,C,D,S1,S2,S3,S4)
End If
If S1 = S2 Or S3 = S4 Then
If S1 = S2 Then AA = S1 Else AA = S3
Ambata(1) = AA
Ruote(1) = R1
SF = 0
If Eseg_Control = 1 Then
SF = SerieFreq(Es - 5,Es,Ambata,Ruote,1)
End If
If SF = 0 Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P = 1 To 5
E1 = Estratto(Es,R1,P)
If E1 = A1 Or E1 = B1 Or E1 = C1 Or E1 = D1 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi "Coppie Diam. Somme Diametrali",1
Scrivi " in Decina Orizzon. in Decina " & Space(6) & " Somme Vert." & Space(6) & " Somme Diag.",1
Scrivi Space(3) & Riga1 & Space(13) & Format2(A) & Space(13) & Format2(B),1,0
Scrivi Space(16) & Format2(S1) & Space(15) & Format2(S3),1
Scrivi Space(3) & Riga2 & Space(13) & Format2(C) & Space(13) & Format2(D),1,0
Scrivi Space(16) & Format2(S2) & Space(15) & Format2(S4),1
Scrivi
ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
Num(1) = AA : Num(2) = A : Num(3) = B : Num(4) = C : Num(5) = D
ImpostaGiocata 2,Num,Ruote,Poste,Clp2
Gioca Es
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Function Somme(A,B,C,D,S1,S2,S3,S4)
S1 = Fuori90(A + C)
S2 = Fuori90(B + D)
S3 = Fuori90(A + D)
S4 = Fuori90(B + C)
End Function
Clicca per espandere...


Mi sono accorto che non vanno bene i pronostici.Vanno fatti in 2 estrazioni e non una.

Ambo 41 46 in una volta e 52-52 altra estrazione consecutive e basta.

Grazie.
 
PROGETTO - Chiesto da Juri - Ambo Diametrale in Decina su una ruota in Estrazioni consecutive - versione 4

Codice: 
'PROGETTO - Chiesto da Juri - Ambo Diametrale in Decina su una ruota in Estrazioni consecutive - versione 4
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Clp1,Ini,A,B,C,D,A1,B1,C1,D1
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim Sac,Sbd,Sad,Sbc,AA,Clp2,Eseg_Control,SF
   Dim Ambata(1),Num(5),Salvo50
   Dim Ruote(2),Posta(5),Poste(5)
   FIn = EstrazioneFin
   Eseg_Control = CInt(InputBox(" Vuoi fare il controllo? - (SI = 1) - (NO un qualsiasi altro numero) ",Salvo50,2))
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9100)'da 6628 a 6683 periodo di gioco nell'articolo
   Clp1 = InputBox("Per quanti colpi vuoi giocare ambata?",,1)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la cinquina?",,1)
   Call ScegliRange(EstrazioneIni,EstrazioneFin,Ini,FIn)
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   ' Poste(4) = 1
   ' Poste(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               If A1 = DiametraleD(B1) Then
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C1 = Estratto(Es + 1,R1,P3)
                        D1 = Estratto(Es + 1,R1,P4)
                        If C1 = DiametraleD(D1) Then
                           A = Fuori90(A1 + B1)
                           B = DiametraleD(A)
                           C = Fuori90(C1 + D1)
                           D = DiametraleD(C)
                           Sac = Fuori90(A + C)
                           Sbd = Fuori90(B + D)
                           Sad = Fuori90(A + D)
                           Sbc = Fuori90(B + C)
                           If Sac = Sbd Or Sad = Sbc Then
                              If Sac = Sbd Then AA = Sac Else AA = Sad
                              Ambata(1) = AA
                              Ruote(1) = R1 : Ruote(2) = R2
                              SF = 0
                              If Eseg_Control = 1 Then
                                 SF = SerieFreq(Es - 5,Es,Ambata,Ruote,1)
                              End If
                              If SF = 0 Then
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 2
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P = 1 To 5
                                    E1 = Estratto(Es,R1,P)
                                    If E1 = A1 Or E1 = B1 Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For PP = 1 To 5
                                    E2 = Estratto(Es + 1,R1,PP)
                                    If E2 = C1 Or E2 = D1 Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi "  Somme        Diametrali"
                                 Scrivi " Orizzon.      in Decina " & Space(6) & " Somme Vert." & Space(10) & " Somme Diag.",1
                                 Scrivi "   " & Format2(A) & Space(13) & Format2(B) & Space(16) & Format2(Sac) & Space(19) & Format2(Sad),1
                                 Scrivi "   " & Format2(C) & Space(13) & Format2(D) & Space(16) & Format2(Sbd) & Space(19) & Format2(Sbc),1
                                 Scrivi
                                 ImpostaGiocata 1,Ambata,Ruote,Posta,Clp1
                                 Num(1) = AA : Num(2) = A : Num(3) = B : Num(4) = C : Num(5) = D
                                 ImpostaGiocata 2,Num,Ruote,Poste,Clp2
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto