Novità

Script: 2 ambi isotopi composti da 4 numeri multipli

C

Cronos306090

Member
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.
 
Cronos306090 ha scritto:
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.
Clicca per espandere...
Ciao Cronos, in questo periodo sono impegnato con altro appena mi libero vedrò cosa posso fare
 
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.
 
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
 
salvo50 ha scritto:
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
Clicca per espandere...
...è 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.
 
Cronos306090 ha scritto:
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.
Clicca per espandere...
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:
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
 
salvo50 ha scritto:
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
Clicca per espandere...
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
 
Cronos306090 ha scritto:
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
Clicca per espandere...
o se ritieni piu facile, fare un altro script solo per queste combinazioni .
 
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
 
salvo50 ha scritto:
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
Clicca per espandere...
Salvo, grazie ancora per la pazienza. Lo script è ottimo!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto