Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Script: 2 ambi isotopi composti da 4 numeri multipli

Buonasera a tutto il forum, chiedo gentilmente a tutti gli scripter se è possibile realizzare il seguente:
ricercare nella medesima estrazione due ambi isotopi che che abbiano la caratteristica di essere composti da 4 numeri multipli tra di loro. Esempio: BARI x x x 10 40 CAGLIARI x x x 20 30 . L' ambata da mettere in gioco sara' la somma comune 50. Grazie fin d'ora per l attenzione.
 
Non cè nessun santone dello script come Salvo 50 che abbia nelle proprie librerie o abbia il tempo di realizzare questo listato? per la casistica (scarsa) di cui sono in possesso l esito dell ambata è buono, sarebbe stato interessante vedere una casistica ben approfondita.
 

salvo50

Advanced Member >PLATINUM PLUS<
Non cè nessun santone dello script come Salvo 50 che abbia nelle proprie librerie o abbia il tempo di realizzare questo listato? per la casistica (scarsa) di cui sono in possesso l esito dell ambata è buono, sarebbe stato interessante vedere una casistica ben approfondita.
Ciao Cronos, in questo periodo sono impegnato con altro appena mi libero vedrò cosa posso fare
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Cronos, nell'esempio che hai fatto gli estratti oltre a essere isotopi sono anche consecutivi nella giusta distanza per essere multipli, ed anche la stessa somma, nello script che ho fatto rispettando queste caratteristiche, di pronostici ce ne sono pochissimi in tutto l'archivio dall'estrazione numero 1 al 9877
solo 12 (pronostici), quindi ho pensato che forse non volevi farli consecutivi, ed ho fatto un'altro script dove gli estratti multipli non sono consecutivi, quindi ti ricordo che

1) Tutti gli estratti sono multipli di 1
2) Tutti gli estratti pari sono multipli di 2
3) Tutti gli estratti di figura 3, 6, 9 sono multipli di 3
4) Ecc...

Il secondo script i multipli li cerca dal numero 1 al numero 22, col numero 23 il quarto estratto è superiore a 90, ho messo un inputbox dove puoi decidere da quale multiplo iniziare la ricerca, per default lo messo a 3 quindi salta tutti i multipli di 1 e 2, se dovesse capitare che ci sono 2 o più pronostici uguali è normale perchè un gruppo di numeri, per esempio possono essere numeri di più multipli

Primo script multipli consecutivi

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Sp
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Salvo50
   Dim Caso,Casi,A,B,C,D,Som1,Som2
   Dim Posta(1),Ruote(2),Amba(1),M(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9300)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & " Multipli Consecutivi Isotopi - di Cronos306090   - Script by Salvo50" & Space(8),1,,4,,3,,1
   Posta(1) = 2
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     M(1) = A : M(2) = B : M(3) = C : M(4) = D
                     Call OrdinaMatrice(M,1)
                     If(M(2) = M(1) + M(1)) And(M(3) = M(2) + M(1)) And(M(4) = M(3) + M(1)) Then
                        Som1 = Fuori90(A + B) : Som2 = Fuori90(C + D)
                        If Som1 = Som2 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  somma = " & Format2(Som1),1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P4 = 1 To 5
                              E2 = Estratto(Es,R2,P4)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  somma = " & Format2(Som2),1
                           Scrivi
                           Scrivi Space(16) & StringaNumeri(M," ",True) & " - Estratti Multipli di " & Format2(M(1)),1
                           Ruote(1) = R1
                           Ruote(2) = R2
                           Amba(1) = Som1
                           ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                           Gioca Es
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso " & TempoTrascorso,1
End Sub

Secondo script multipli non consecutivi

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Sp,K,MM
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Salvo50
   Dim Caso,Casi,A,B,C,D,Som1,Som2
   Dim Posta(1),Ruote(2),Amba(1),M(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,3)
   MM = CInt(InputBox("Da Quale Multiplo Vuoi Iniziare la Ricerca Dei Multipli?",,3))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(13) & " Multipli Isotopi  - di Cronos306090  - Script by Salvo50" & Space(14),1,,4,,3,,1
   Posta(1) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     If A <> C And A <> D Then
                        For K = MM To 22
                           If((A Mod K) = 0)And((B Mod K) = 0) And((C Mod K) = 0)And((D Mod K) = 0)Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              Som1 = Fuori90(A + B) : Som2 = Fuori90(C + D)
                              If Som1 = Som2 Then
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P3 = 1 To 5
                                    E1 = Estratto(Es,R1,P3)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " <-- Evidenziati somma " & Format2(Som1),1,,,1
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P4 = 1 To 5
                                    E2 = Estratto(Es,R2,P4)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi " <-- Evidenziati somma " & Format2(Som2),1,,,1
                                 Scrivi
                                 Scrivi Space(16) & StringaNumeri(M," ",True) & " Estratti Multipli di " & Format2(K),1
                                 Scrivi
                                 Ruote(1) = R1
                                 Ruote(2) = R2
                                 Amba(1) = Som1
                                 ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                                 Gioca Es
                              End If
                           End If
                        Next
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso " & TempoTrascorso,1
End Sub
 
Ultima modifica:
ciao Salvo50, ti ringrazio molto per l impegno che ti sei preso con questo script, tuttavia credo di essermi spiegato male. Riporto degli esempi .10.png11.png
come vedi , per numeri multipli intendo come nel primo esempio 5-7-9-11 , ovvero 4 numeri distanti di 2 unita' uno dall altro, e non importa l ordine in cui vengono rintracciati , l importante è che rispettino la condizione di avere lo stesso passo (in questo caso di 2 unita') e che siano isotopi. Nel secondo esempio 7-13-19-25 i 4 numeri distano di 6 unita' l uno dall altro, ma poteva andar bene anche la sequenza 16-24-32-40 (8 unita' di distanza uno dall altro), oppure 30-40-50-60 (10 unita') e via di seguito. Ovviamente arrivando al massimo al passo 22 perche poi si andrebbe oltre il 90. Spero di essere stato chiaro nell esposizione.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao
Allora stessa distanza, non multipli,


Ambi Stessa Distanza Isotopi

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Sp
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Salvo50
   Dim Caso,Casi,A,B,C,D,Som1,Som2
   Dim DM12,DM23,DM34
   Dim Posta(1),Ruote(2),Amba(1),M(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & " Ambi Stessa distana Isotopi - di Cronos306090  - Script by Salvo50" & Space(10),1,,4,,3,,1
   Posta(1) = 2
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     M(1) = A : M(2) = B : M(3) = C : M(4) = D
                     Call OrdinaMatrice(M,1)
                     DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3)) : DM34 = Distanza(M(3),M(4))
                     If DM12 = DM23 And DM12 = DM34 Then
                        Som1 = Fuori90(A + B) : Som2 = Fuori90(C + D)
                        If Som1 = Som2 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi " <-- Evidenziati somma " & Format2(Som1),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P4 = 1 To 5
                              E2 = Estratto(Es,R2,P4)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi " <-- Evidenziati somma " & Format2(Som2),1,,,1
                           Scrivi
                           Scrivi Space(16) & " Estratti Stessa Distanza  " & StringaNumeri (M," ",True),1,0
                           Scrivi " Distanza " & Format2(DM12),1
                           Scrivi
                           Ruote(1) = R1
                           Ruote(2) = R2
                           Amba(1) = Som1
                           ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                           Gioca Es
                        End If
                     End If
                      
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso " & TempoTrascorso,1
End Sub
 
Ciao
Allora stessa distanza, non multipli,


Ambi Stessa Distanza Isotopi

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Sp
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Salvo50
   Dim Caso,Casi,A,B,C,D,Som1,Som2
   Dim DM12,DM23,DM34
   Dim Posta(1),Ruote(2),Amba(1),M(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & " Ambi Stessa distana Isotopi - di Cronos306090  - Script by Salvo50" & Space(10),1,,4,,3,,1
   Posta(1) = 2
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     M(1) = A : M(2) = B : M(3) = C : M(4) = D
                     Call OrdinaMatrice(M,1)
                     DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3)) : DM34 = Distanza(M(3),M(4))
                     If DM12 = DM23 And DM12 = DM34 Then
                        Som1 = Fuori90(A + B) : Som2 = Fuori90(C + D)
                        If Som1 = Som2 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi " <-- Evidenziati somma " & Format2(Som1),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P4 = 1 To 5
                              E2 = Estratto(Es,R2,P4)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi " <-- Evidenziati somma " & Format2(Som2),1,,,1
                           Scrivi
                           Scrivi Space(16) & " Estratti Stessa Distanza  " & StringaNumeri (M," ",True),1,0
                           Scrivi " Distanza " & Format2(DM12),1
                           Scrivi
                           Ruote(1) = R1
                           Ruote(2) = R2
                           Amba(1) = Som1
                           ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                           Gioca Es
                        End If
                     End If
                     
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso " & TempoTrascorso,1
End Sub
...è lui o non è lui.....? ....certo che è lui :) , grazie Salvo50! mi ero espresso male io nella spiegazione, grazie ancora!
 
Ho appena notato una cosa , controllando la funzionalita' dello script, che non mi registra i casi in cui le distanze dei due ambi sono uguali, ma solo gli altri casi. Ti allego un esempio10.png
questo caso non viene registrato, se noti la distanza di 12-60 è la stessa che intercorre tra 36-84. Ecco, tutti questi casi in cui le distanze tra i due ambi sono uguali, non vengono segnalati. Cè il modo di correggere questa cosa? Grazie fin d'ora.
 

salvo50

Advanced Member >PLATINUM PLUS<
Buonasera a tutto il forum, chiedo gentilmente a tutti gli scripter se è possibile realizzare il seguente:
ricercare nella medesima estrazione due ambi isotopi che che abbiano la caratteristica di essere composti da 4 numeri multipli tra di loro. Esempio: BARI x x x 10 40 CAGLIARI x x x 20 30 . L' ambata da mettere in gioco sara' la somma comune 50. Grazie fin d'ora per l attenzione.
Ciao a Tutti.

Ciao Cronos, come da tua richiesta iniziale

L'ambata da mettere in gioco sarà la somma comune

L'esempio da te riportato

FI 12 + 60 = 72
MI 36 + 84 = 30 col fuori 90

come vedi la somma comune non è uguale

quindi lo script scarta la combinazione

Scarta tutte le combinazioni che non hanno la somma comune
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Si potrebbe fare la somma delle 2 somme, diviso 2 risultato uguale Ambata
In questo modo verrebbe rispettata anche Ambata uguale somma comune
già fatto, se per te va bene lo posto
 
Ciao a Tutti.

Ciao Cronos, come da tua richiesta iniziale

L'ambata da mettere in gioco sarà la somma comune

L'esempio da te riportato

FI 12 + 60 = 72
MI 36 + 84 = 30 col fuori 90

come vedi la somma comune non è uguale

quindi lo script scarta la combinazione

Scarta tutte le combinazioni che non hanno la somma comune
ciao Salvo, si, lettera alla mano è come dici tu. Per somma comune intendevo anche per quelle combinazioni come quella citata dove essa si ritrova da un numero di un ambo piu un numero dall altro ambo (tra l altro sono le combinazioni piu forti). Ti chiedo gentilmente se avrai tempo di apportare la modifica per inglobare anche le suddette somme . Grazie fin d ora
 
ciao Salvo, si, lettera alla mano è come dici tu. Per somma comune intendevo anche per quelle combinazioni come quella citata dove essa si ritrova da un numero di un ambo piu un numero dall altro ambo (tra l altro sono le combinazioni piu forti). Ti chiedo gentilmente se avrai tempo di apportare la modifica per inglobare anche le suddette somme . Grazie fin d ora
o se ritieni piu facile, fare un altro script solo per queste combinazioni .
 

salvo50

Advanced Member >PLATINUM PLUS<
Questo pronostica l'ambata e gli eventuali ambi
Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Sp
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Salvo50
   Dim Caso,Casi,A,B,C,D,Som1,Som2
   Dim DM12,DM23,DM34
   Dim Posta(2),Ruote(2),Amba(2),M(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & " Ambi Stessa distana Isotopi 3 - di Cronos306090  - Script by Salvo50" & Space(10),1,,4,,3,,1
   Posta(1) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     M(1) = A : M(2) = B : M(3) = C : M(4) = D
                     Call OrdinaMatrice(M,1)
                     DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3)) : DM34 = Distanza(M(3),M(4))
                     If DM12 = DM23 And DM12 = DM34 And DM23 = DM34 Then
                        Som1 = Fuori90(A + B) : Som2 = Fuori90(C + D)
                        Amba(1) = Som1 : Amba(2) = Som2
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P3 = 1 To 5
                           E1 = Estratto(Es,R1,P3)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi " <-- Evidenziati somma " & Format2(Som1),1,,,1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                        For P4 = 1 To 5
                           E2 = Estratto(Es,R2,P4)
                           If E2 = C Or E2 = D Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi " <-- Evidenziati somma " & Format2(Som2),1,,,1
                        Scrivi
                        Scrivi Space(16) & " Estratti Stessa Distanza  " & StringaNumeri(M," ",True),1,0
                        Scrivi " Distanza " & Format2(DM12),1
                        Scrivi
                      
                        Scrivi
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Posta(2) = 0
                        If Som1 <> Som2 Then Posta(2) = 1
                        EliminaRipetuti Amba
                        ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                        Gioca Es
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso " & TempoTrascorso,1
End Sub
 
Questo pronostica l'ambata e gli eventuali ambi
Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Sp
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Salvo50
   Dim Caso,Casi,A,B,C,D,Som1,Som2
   Dim DM12,DM23,DM34
   Dim Posta(2),Ruote(2),Amba(2),M(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & " Ambi Stessa distana Isotopi 3 - di Cronos306090  - Script by Salvo50" & Space(10),1,,4,,3,,1
   Posta(1) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     M(1) = A : M(2) = B : M(3) = C : M(4) = D
                     Call OrdinaMatrice(M,1)
                     DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3)) : DM34 = Distanza(M(3),M(4))
                     If DM12 = DM23 And DM12 = DM34 And DM23 = DM34 Then
                        Som1 = Fuori90(A + B) : Som2 = Fuori90(C + D)
                        Amba(1) = Som1 : Amba(2) = Som2
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P3 = 1 To 5
                           E1 = Estratto(Es,R1,P3)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi " <-- Evidenziati somma " & Format2(Som1),1,,,1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                        For P4 = 1 To 5
                           E2 = Estratto(Es,R2,P4)
                           If E2 = C Or E2 = D Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi " <-- Evidenziati somma " & Format2(Som2),1,,,1
                        Scrivi
                        Scrivi Space(16) & " Estratti Stessa Distanza  " & StringaNumeri(M," ",True),1,0
                        Scrivi " Distanza " & Format2(DM12),1
                        Scrivi
                     
                        Scrivi
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Posta(2) = 0
                        If Som1 <> Som2 Then Posta(2) = 1
                        EliminaRipetuti Amba
                        ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                        Gioca Es
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso " & TempoTrascorso,1
End Sub
Salvo, grazie ancora per la pazienza. Lo script è ottimo!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 25 febbraio 2021
    Bari
    17
    74
    14
    27
    05
    Cagliari
    45
    35
    88
    47
    48
    Firenze
    58
    42
    19
    03
    88
    Genova
    42
    52
    19
    01
    51
    Milano
    31
    54
    70
    34
    61
    Napoli
    48
    47
    77
    17
    40
    Palermo
    26
    30
    23
    69
    03
    Roma
    52
    83
    82
    17
    16
    Torino
    62
    85
    88
    40
    43
    Venezia
    26
    68
    39
    63
    42
    Nazionale
    53
    40
    89
    33
    47
    Estrazione Simbolotto
    Cagliari
    13
    29
    12
    28
    37

Ultimi Messaggi

Alto