Novità

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

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

salvo50

Advanced Member >PLATINUM PLUS<
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

salvo50

Advanced Member >PLATINUM PLUS<
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:

Juri

Super Member >GOLD<
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.
 

salvo50

Advanced Member >PLATINUM PLUS<
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.

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
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Juri

Super Member >GOLD<
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.
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Juri

Super Member >GOLD<
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


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.
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto