Per Salvo

[antonio65]

Buongiorno Salvo,come stai spero benissimo….in base allo script da me richiesto e da te eseguito
Diciamo che lavorandoci sopra è nata la tecnica….come base sperimentando ho usato la ruota di Venezia
I risultati non sono male per capire meglio e definire bisogna ricercare e verificare se ne vale la pena.
Ovviamente in seguito vorrei osservare le altre ruote ma successivamente.
Veniamo al dunque ho operato in questo modo: all’estrazione
Precisamente 9449 VE 06.02.15.84.49 Somma estratti = 156
9450 VE 89.23.36.08.62 Somma estratti = 218


Si presentava all’estrazione 9449 la somma 156
Estrazione successiva la somma 218 con differenza 62 che è presente appunto
All’estrazione successiva VE 89.23.36.08.62

Calcolo: ho moltiplicato il 62x4 ottenendo il risultato 248
ottenuto 248 ho sottratto 100 quindi 248-100=148 a seguire somma estratti 156-148=8 presente nell’estrazione successiva
Allo stesso modo ho moltiplicato la somma 156x4=ottenendo 624 Ho sommato il numero 248(ottenuto da 62x4) alla somma 156 ottenendo 248+156=404
Ho sottratto 624-404=220 ancora ho sottratto 100 al risultato quindi 220-100=120
Stessa sottrazione precedente : somma estratti 156-120=36 presente nella successiva estrazione.
Continuando il calcolo ho sommato i 3 estratti cioè 62+8+36=106
106 che ho diviso per 2 quindi 106:2=53 a cui ho aggiunto il 3° numero ricavato cioè 36
Quindi 53+36=89 presente nell’estrazione successiva.
Per finire come ultimo calcolo ho sommato estratti ricavati 8+36+89=133
Stesso calcolo sottrattivo somma estratti 156-133=23 presente nell’estrazione successiva.
Il tutto è strano ma affascinante bisogna sperimentare…quando hai tempo e puoi gradirei qualora tu lo voglia
Questa tecnica per verificare….grazie in anticipo Antonio.Ti allego lo script fatto da te…esegui come ruota venezia
E verifica estrazione 9449-9450.

Option Explicit
Sub Main
    Dim Fin,Es,Ini,R1,R2,A,B,P1
    Dim SommaA,SommaB,Diff,Casi
    Fin = EstrazioneFin - 1
    Ini = EstrazioneFin - 50
    For Es = Ini To Fin
        Messaggio Es
        AvanzamentoElab Ini,Fin,Es
        For R1 = 1 To 10
            For P1 = 1 To 5
                A = Estratto(Es,R1,P1)
                B = Estratto(Es + 1,R1,P1)
                SommaA = SommaEstratti(Es,R1)
                SommaB = SommaEstratti(Es + 1,R1)
                Diff = Differenza(SommaA,SommaB)
                Diff =(Diff)
                If Diff = A Or Diff = B Then
                    Casi = Casi + 1
                    ColoreTesto 1
                    Scrivi String(89,"-") & " Caso " & FormattaStringa(Casi,"0000")
                    ColoreTesto 0
                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                    Scrivi "  Somma estratti = " & Format2(SommaA),1
                    Scrivi Space(74) & " Differenza col Fuori90  ",1,0
                    ColoreTesto 2
                    Scrivi Format2(Diff),1
                    ColoreTesto 0
                    Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,0
                    Scrivi "  Somma estratti = " & Format2(SommaB),1
                End If
            Next
        Next
        If ScriptInterrotto Then Exit Sub
    Next
End Sub

 

[salvo50]

Ciao Antonio, a me sembra che questo sistema lo hai costruito su misura in base ai numeri usciti, perchè a colpo d'occhio non è che i calcoli sembrano tutti uguali, può darsi che mi sbaglio, comunque vedrò cosa posso fare, adesso prendo degli appunti ed inizio a fare qualcosa.

 

[antonio65]

Ciao Salvo, fai con calma,devo fare delle verifiche perche la cosa mi sembra alquanto strana e bella per essere vera...bisogna solo verificare..intanto grazie.

 

[salvo50]

Ciao a Tutti

Questo sistema come avevo previsto dato che è fatto su misura, è unico infatti in tutte le estrazioni dalla numero uno fino all'ultima estrazione c'è solo l'estrazione 4450 con le caratteristiche di questo sistema, con la ricerca di 4 numeri idem come con 5 numeri, con 3 numeri c'è qualcosina in più e con la ricerca di 2 numeri circa 150 estrazioni posto tutte e tre gli script

con la ricerca di 2 numeri

 'chiesto da Antonio65
'script by Sslvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,A,B1,B2,B3,B4,B5
   Dim SommaA,SommaB,Casi,SS1,P,E1
   Dim Di1,Xdi2,Di2,Xdi3,Di3,Di4,Di5
   Dim Xdi2M,Xdi3M
   Fin = EstrazioneFin - 1
   Ini = 1'EstrazioneFin - 11 '9449
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         B1 = Estratto(Es + 1,R1,1)
         B2 = Estratto(Es + 1,R1,2)
         B3 = Estratto(Es + 1,R1,3)
         B4 = Estratto(Es + 1,R1,4)
         B5 = Estratto(Es + 1,R1,5)
         SommaA = SommaEstratti(Es,R1)
         SommaB = SommaEstratti(Es + 1,R1)
         'Calcoli per Primo numero
         Di1 = Differenza(SommaA,SommaB)
         If Di1 = B1 Or Di1 = B2 Or Di1 = B3 Or Di1 = B4 Or Di1 = B5 Then
            'Calcoli per secondo numero
            Xdi2 =(Di1 * 4)
            Xdi2M = Xdi2 - 100
            Di2 = Differenza(SommaA,Xdi2M)
            Di2 = Fuori90(Di2)
            If Di2 = B1 Or Di2 = B2 Or Di2 = B3 Or Di2 = B4 Or Di2 = B5 Then
               If Di2 <> Di1 Then
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"-") & " Caso " & FormattaStringa(Casi,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                  Scrivi "   Somma estratti = " & Format2(SommaA),1
                  Scrivi Space(74) & " Differenza col Fuori90  ",1,0
                  ColoreTesto 2
                  Scrivi Format2(Di1),1
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P = 1 To 5
                     E1 = Estratto(Es + 1,R1,P)
                     If E1 = Di1 Or E1 = Di2 Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi "  Somma estratti = " & Format2(SommaB),1
                  Scrivi
                  Scrivi " Numeri trovati  ",1,0
                  ColoreTesto 2
                  Scrivi Format2(Di1) & " " & Format2(Di2)
                  ColoreTesto 0
                  'End If
               End If
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

con la ricerca di tre numeri

 'chiesto da Antonio65
'script by Sslvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,A,B1,B2,B3,B4,B5
   Dim SommaA,SommaB,Casi,SS1,P,E1
   Dim Di1,Xdi2,Di2,Xdi3,Di3,Di4,Di5
   Dim Xdi2M,Xdi3M
   Fin = EstrazioneFin - 1
   Ini = 1'9449 'EstrazioneFin - 11 '9449
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         B1 = Estratto(Es + 1,R1,1)
         B2 = Estratto(Es + 1,R1,2)
         B3 = Estratto(Es + 1,R1,3)
         B4 = Estratto(Es + 1,R1,4)
         B5 = Estratto(Es + 1,R1,5)
         SommaA = SommaEstratti(Es,R1) : If SommaA > 0 Then
         SommaB = SommaEstratti(Es + 1,R1)
         'Calcoli per primo numero
         Di1 = Differenza(SommaA,SommaB)
         If Di1 = B1 Or Di1 = B2 Or Di1 = B3 Or Di1 = B4 Or Di1 = B5 Then
            'Calcoli per secondo numero
            Xdi2 =(Di1 * 4)
            Xdi2M = Xdi2 - 100
            Di2 = Differenza(SommaA,Xdi2M)
            Di2 = Fuori90(Di2)
            If Di2 = B1 Or Di2 = B2 Or Di2 = B3 Or Di2 = B4 Or Di2 = B5 Then
               If Di2 <> Di1 Then
                  'Calcoli per terzo numero
                  Xdi3 =(SommaA * 4)
                  SS1 = SommaA + Xdi2
                  Xdi3 = Differenza(Xdi3,SS1)
                  Xdi3M = Xdi3 - 100
                  Di3 = Differenza(SommaA,Xdi3M)
                  Di3 = Fuori90(Di3)
                  If Di3 = B1 Or Di3 = B2 Or Di3 = B3 Or Di3 = B4 Or Di3 = B5 Then
                     If Di3 <> Di2 And Di3 <> Di1 Then
                        '----------------------------------------------------------------
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"-") & " Caso " & FormattaStringa(Casi,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                        Scrivi "  Somma estratti = " & Format2(SommaA),1
                        Scrivi Space(74) & " Differenza col Fuori90  ",1,0
                        ColoreTesto 2
                        Scrivi Format2(Di1),1
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P = 1 To 5
                           E1 = Estratto(Es + 1,R1,P)
                           If E1 = Di1 Or E1 = Di2 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Somma estratti = " & Format2(SommaB),1
                        Scrivi
                        Scrivi " Numeri trovati  ",1,0
                        ColoreTesto 2
                        Scrivi Format2(Di1) & " " & Format2(Di2) & " " & Format2(Di3),1
                        ColoreTesto 0
                     End If
                  End If
               End If
            End If
         End If
      End If
   Next
   If ScriptInterrotto Then Exit Sub
Next
End Sub

con la ricerca di tutti e cinque i numeri

 'chiesto da Antonio65
'script by Sslvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,A,B1,B2,B3,B4,B5
   Dim SommaA,SommaB,SommaC,Casi,SS1,SS2
   Dim Di1,Xdi2,Di2,Xdi3,Di3,Di4,Di5
   Dim Xdi2M,Xdi3M
   Fin = EstrazioneFin - 1
   Ini = 1'9449 'EstrazioneFin - 11 '9449
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         B1 = Estratto(Es + 1,R1,1)
         B2 = Estratto(Es + 1,R1,2)
         B3 = Estratto(Es + 1,R1,3)
         B4 = Estratto(Es + 1,R1,4)
         B5 = Estratto(Es + 1,R1,5)
         SommaA = SommaEstratti(Es,R1) : If SommaA > 0 Then
         SommaB = SommaEstratti(Es + 1,R1)
         'Calcoli per primo numero
         Di1 = Differenza(SommaA,SommaB)
         If Di1 = B1 Or Di1 = B2 Or Di1 = B3 Or Di1 = B4 Or Di1 = B5 Then
            'Calcoli per secondo numero
            Xdi2 =(Di1 * 4)
            Xdi2M = Xdi2 - 100
            Di2 = Differenza(SommaA,Xdi2M)
            Di2 = Fuori90(Di2)
            If Di2 = B1 Or Di2 = B2 Or Di2 = B3 Or Di2 = B4 Or Di2 = B5 Then
               If Di2 <> Di1 Then
                  'Calcoli per terzo numero
                  Xdi3 =(SommaA * 4)
                  SS1 = SommaA + Xdi2
                  Xdi3 = Differenza(Xdi3,SS1)
                  Xdi3M = Xdi3 - 100
                  Di3 = Differenza(SommaA,Xdi3M)
                  Di3 = Fuori90(Di3)
                  If Di3 = B1 Or Di3 = B2 Or Di3 = B3 Or Di3 = B4 Or Di3 = B5 Then
                     If Di3 <> Di1 And Di3 <> Di2 Then
                        'Calcoli per il quarto numero
                        SommaC = Di1 + Di2 + Di3
                        SommaC = SommaC / 2
                        Di4 =(SommaC + Di3)
                        Di4 = Fuori90(Di4)
                        If Di4 = B1 Or Di4 = B2 Or Di4 = B3 Or Di4 = B4 Or Di4 = B5 Then
                           If Di4 <> Di1 And Di4 <> Di2 And Di4 <> Di3 Then
                              'Calcoli per quinto numero
                              SS2 = Di2 + Di3 + Di4
                              Di5 = Differenza(SommaA,SS2)
                              Di5 = Fuori90(Di5)
                              If Di5 = B1 Or Di5 = B2 Or Di5 = B3 Or Di5 = B4 Or Di5 = B5 Then
                                 If Di5 <> Di1 And Di5 <> Di2 And Di5 <> Di3 And Di5 <> Di4 Then
                                    Casi = Casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"-") & " Caso " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                                    Scrivi "  Somma estratti = " & Format2(SommaA),1
                                    Scrivi Space(74) & " Differenza col Fuori90  ",1,0
                                    ColoreTesto 2
                                    Scrivi Format2(Di1),1
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,0
                                    Scrivi "  Somma estratti = " & Format2(SommaB),1
                                    Scrivi
                                    Scrivi " Numeri trovati  " & Format2(Di1) & " " & Format2(Di2) & " " & Format2(Di3) & " " & Format2(Di4) & " " & Format2(Di5)
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If
   Next
   If ScriptInterrotto Then Exit Sub
Next
End Sub

 

[antonio65]

Buongiorno e Buona Domenica Salvo,un immenso grazie per la disponibilita...ho dato una sbirciatina e per ambo non e male...devo fare delle variazioni ...ecco perche mi serviva lo script....ti volevo chiedere ma lo script prende solo i casi positivi )???oppure tutte le condizioni trovate sono positive? oppure quelle negative non le prende?.....adesso per concludere e lavorarci sopra per migliorarlo chiedo se e' possibile togliere la condizione e lasciare solo i calcoli....mi spiego meglio: al posto della condizione come 1 estratto metti un ciclo For 1 To 90 si puo fare?

 

[salvo50]

Buongiorno e Buona Domenica Salvo,un immenso grazie per la disponibilita...ho dato una sbirciatina e per ambo non e male...devo fare delle variazioni ...ecco perche mi serviva lo script....ti volevo chiedere ma lo script prende solo i casi positivi )???oppure tutte le condizioni trovate sono positive? oppure quelle negative non le prende?.....adesso per concludere e lavorarci sopra per migliorarlo chiedo se e' possibile togliere la condizione e lasciare solo i calcoli....mi spiego meglio: al posto della condizione come 1 estratto metti un ciclo For 1 To 90 si puo fare?

Lo script prende i casi che come hai chiesto tu, dopo i vari calcoli il risultato si trovi nell'estrazione dopo, se togli le condizioni, lo script restituisce tutte le estrazioni, sia quelle con i risultati dei calcoli che quelli con risultati sbagliati, cioè che il numero risultante non è nell'estrazione dopo, quella del ciclo for next non riesco ad inquadrarlo, non ho idea di come fare.

A titolo di esperimento ho tolto tutte le condizioni, ho lasciato solo i calcoli e poi i cinque numeri risultanti dai calcoli, li ho cercati per ambo e terno nelle 10 estrazioni successive, sulle ruote di calcolo e per tutte

 'chiesto da Antonio65
'script by Sslvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,A,B1,B2,B3,B4,B5
   Dim SommaA,SommaB,SommaC,Casi,SS1,SS2
   Dim Di1,Xdi2,Di2,Xdi3,Di3,Di4,Di5
   Dim Xdi2M,Xdi3M
   Dim Posta(3),Poste(3),Ruota(1),Ruote(1),Num(5)
   Posta(2) = 1
   Posta(3) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin - 1
   Ini = 9449 'EstrazioneFin - 11 '9449
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         B1 = Estratto(Es + 1,R1,1)
         B2 = Estratto(Es + 1,R1,2)
         B3 = Estratto(Es + 1,R1,3)
         B4 = Estratto(Es + 1,R1,4)
         B5 = Estratto(Es + 1,R1,5)
         SommaA = SommaEstratti(Es,R1) : If SommaA > 0 Then
         SommaB = SommaEstratti(Es + 1,R1)
         'Calcoli per primo numero
         Di1 = Differenza(SommaA,SommaB)
         Di1 = Fuori90(Di1)
         'If Di1 = B1 Or Di1 = B2 Or Di1 = B3 Or Di1 = B4 Or Di1 = B5 Then
         'Calcoli per secondo numero
         Xdi2 =(Di1 * 4)
         Xdi2M = Xdi2 - 100
         Di2 = Differenza(SommaA,Xdi2M)
         Di2 = Fuori90(Di2)
         'If Di2 = B1 Or Di2 = B2 Or Di2 = B3 Or Di2 = B4 Or Di2 = B5 Then
         If Di2 <> Di1 Then
            'Calcoli per terzo numero
            Xdi3 =(SommaA * 4)
            SS1 = SommaA + Xdi2
            Xdi3 = Differenza(Xdi3,SS1)
            Xdi3M = Xdi3 - 100
            Di3 = Differenza(SommaA,Xdi3M)
            Di3 = Fuori90(Di3)
            'If Di3 = B1 Or Di3 = B2 Or Di3 = B3 Or Di3 = B4 Or Di3 = B5 Then
            If Di3 <> Di1 And Di3 <> Di2 Then
               'Calcoli per il quarto numero
               SommaC = Di1 + Di2 + Di3
               SommaC = SommaC / 2
               Di4 =(SommaC + Di3)
               Di4 = Fuori90(Di4)
               'If Di4 = B1 Or Di4 = B2 Or Di4 = B3 Or Di4 = B4 Or Di4 = B5 Then
               If Di4 <> Di1 And Di4 <> Di2 And Di4 <> Di3 Then
                  'Calcoli per quinto numero
                  SS2 = Di2 + Di3 + Di4
                  Di5 = Differenza(SommaA,SS2)
                  Di5 = Fuori90(Di5)
                  'If Di5 = B1 Or Di5 = B2 Or Di5 = B3 Or Di5 = B4 Or Di5 = B5 Then
                  If Di5 <> Di1 And Di5 <> Di2 And Di5 <> Di3 And Di5 <> Di4 Then
                     Casi = Casi + 1
                     ColoreTesto 1
                     Scrivi String(89,"-") & " Caso " & FormattaStringa(Casi,"0000")
                     ColoreTesto 0
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                     Scrivi "  Somma estratti = " & Format2(SommaA),1
                     Scrivi Space(74) & " Differenza col Fuori90  ",1,0
                     ColoreTesto 2
                     Scrivi Format2(Di1),1
                     ColoreTesto 0
                     Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,0
                     Scrivi "  Somma estratti = " & Format2(SommaB),1
                     Scrivi
                     Scrivi " Pronostici  " & Format2(Di1) & " " & Format2(Di2) & " " & Format2(Di3) & " " & Format2(Di4) & " " & Format2(Di5)
                     Ruota(1) = R1
                     Ruote(1) = TU_
                     Num(1) = Di1
                     Num(2) = Di2
                     Num(3) = Di3
                     Num(4) = Di4
                     Num(5) = Di5
                     ImpostaGiocata 1,Num,Ruota,Posta,10
                     ImpostaGiocata 2,Num,Ruote,Poste,10
                     Gioca Es + 1
                     ' End If
                     'End If
                     'End If
                     '  End If
                     'End If
                  End If
               End If
            End If
         End If
      End If
   Next
   If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

 

[antonio65]

Ciao Salvo,per darti un idea del ciclo for ti invio uno script sommativo antico costruito ai tempi da Mike e compagnia....ovviamente cerca solo il miglior numero e quindi non vedrai, ambi, terni etc etc....ma solo per darti un idea del ciclo for....Io avevo programmato questo script per la tecnica ed i nomi delle varianti sono diversi ma il succo è quello....nell'ultimo script che m hai inviato ci sono ancora le condizioni ....dovresti togliere la somma b....comunque se riesci a mettere e renderti conto del ciclo for come deve essere inserito....all'interno ci sono dei numeri remmati che sono appunto i risultati sulla ruota di venezia che ho usato per il metodo....nello script allegato manca come tiho accennato sopra la routine di ambo , terno etc etc perchè concepito per miglior sommativo singolo....esegui lo script e capirai....

 Sub Main()
   ColoreTesto 1: Scrivi "         X   RANDHOUSE  ",1
   Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE GLI ALGORITMI SU OGNI SINGOLA RUOTA",1
   Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
   Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
   ColoreTesto 0: Scrivi
   Dim mm(1)
   Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8),DNA(10),MEN(5),B(5)
   Dim Ru(12),T,V,Numero,SommaE,SommaEx4,Nuadd,Nuadd2,Nuadd3,NumSom,Numalti,Risnumalti,Terzonumero,Quartonumero1,Quartonumerodiviso,Quartonumero2,Quintonumero1,Quintonumero2
   nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",1))
   'ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
   ne = InputBox("Numero estrazioni:","ESTRAZIONI",40)
   ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
   nStart = Timer ' partenza tempo di elaborazione
   For nru11 = 1 To 12
      If nru11 = 11 Then nru11 = 12
      ColoreTesto 0:Scrivi String(115,"=")
      ruota(1) = nru1
      For x = 1 To 90
         For y = 1 To 8
            nam(x,y) = 0
            nt(x,y) = 0
            n3(x,y) = 0
            n4(x,y) = 0
            n5(x,y) = 0
         Next
      Next
      p = 1
      p2 = 2
      p3 = 3
      p4 = 4
      p5 = 5
      casi = 0
      ultest = 9459 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
      ini = EstrazioneFin - ne
      fin = EstrazioneFin
      For es = ini To fin
         'If IndiceMensile(es) = ind Then
         'If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then
         colpo = fin - es
         Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
         Call(AvanzamentoElab(Ini,fin,es))
         casi = casi + 1
         Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
         co = 0
         For Nu = 1 To 90
            co = co + 1
            a01 = Estratto(es,nru1,p)
            a02 = Estratto(es,nru1,p2)
            a03 = Estratto(es,nru1,p3)
            a04 = Estratto(es,nru1,p4)
            a05 = Estratto(es,nru1,p5)
            SommaE = SommaEstratti(es,nru1) ' Somma estratti 
            Numero = nu 'CICLO For
            Nuadd = Numero*4' 248
            Nuadd2 = Abs(Nuadd - 100)'148
            Nuadd3 = Fuori90(Abs(SommaE - Nuadd2))'8 2°Numero
            SommaEx4 = SommaE*4'624
            NumSom = Nuadd + SommaE'404
            Numalti = Abs(SommaEx4 - NumSom)'220
            Risnumalti = Abs(Numalti - 100)'120
            Terzonumero = Abs(SommaE - Risnumalti)'36 Terzo numero
            Quartonumero1 = Numero + Nuadd3 + Terzonumero '106
            Quartonumerodiviso = Quartonumero1/2'53
            Quartonumero2 = Quartonumerodiviso + Terzonumero'89 Quarto numero
            Quintonumero1 = Nuadd3 + Terzonumero + Quartonumero2'133
            Quintonumero2 = Abs(SommaE - Quintonumero1)'23

            B(1) = Fuori90(Abs(Numero))
            B(2) = Fuori90(Abs(Nuadd3))
            B(3) = Fuori90(Abs(Terzonumero))
            B(4) = Fuori90(Abs(Quartonumero2))
            B(5) = Fuori90(Abs(Quintonumero2))

            nam(co,1) = co
            nt(co,1) = co
            n3(co,1) = co
            n4(co,1) = co
            n5(co,1) = co
            nam(co,2) = nru11
            nt(co,2) = nru11
            n3(co,2) = nru11
            n4(co,2) = nru11
            n5(co,2) = nru11
            nam(co,3) = p
            nt(co,3) = p2
            n3(co,3) = p3
            n4(co,3) = p4
            n5(co,3) = p5
            nam(co,4) = Nu
            nt(co,4) = Nu
            n3(co,4) = Nu
            n4(co,4) = Nu
            n5(co,4) = Nu
            nam(co,6) = B(1)
            nt(co,6) = B(2)
            n3(co,6) = B(3)
            n4(co,6) = B(4)
            n5(co,6) = B(5)
            nam(co,7) = 0
            nt(co,7) = 0
            n3(co,7) = 0
            n4(co,7) = 0
            n5(co,7) = 0
            esncg = es + ncg
            If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
            For ess = es + 1 To esncg
               For pp = 1 To 5
                  e = Estratto(ess,nru11,pp)
                  If e = B(1) Then
                     nam(co,5) = nam(co,5) + 1
                     nn(1) = nam(co,6)
                     nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
                  End If
                  If e = B(2) Then
                     nt(co,5) = nt(co,5) + 1
                     nn(1) = nt(co,6)
                     nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
                  End If
                  If e = B(3) Then
                     n3(co,5) = n3(co,5) + 1
                     nn(1) = n3(co,6)
                     n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
                  End If
                  If e = B(4) Then
                     n4(co,5) = n4(co,5) + 1
                     nn(1) = n4(co,6)
                     n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
                  End If
                  If e = B(5) Then
                     n5(co,5) = n5(co,5) + 1
                     nn(1) = n5(co,6)
                     n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
                  End If
               Next
            Next
         Next
         'End If
         'End If
      Next
      Scrivi "------------------------------------------"
      ColoreTesto 1
      Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
      Scrivi
      If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
      If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
      Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
      Scrivi "COLPI DI GIOCO : " & ncg,1
      Scrivi "CASI ANALIZZATI : " & casi,1
      ColoreTesto 2
      Scrivi"N° colpo in corso ---> " & colpo,1
      ColoreTesto 0
      Scrivi""
      Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
      Scrivi""
      Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
      Scrivi " Colpo n°. " & colpo & " ",1
      Scrivi
      ColoreTesto 0
      OrdinaMatrice nam,- 1,5
      For ca = 1 To 1
         mm(1) = nam(ca,6)
         ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
         freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
         esitoo = colpo - ratt
         If nam(ca,7) = 0 Then
            ColoreTesto 0
            Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " nu " & _
            Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
            " è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
            " Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
         Else
            ColoreTesto 2
            If nam(ca,7) > 0 Then
               Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " nu " & _
               Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
               " è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
               " Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
               Scrivi " - Esito al colpo... " & esitoo,1
               cc = cc + 1
            End If
         End If
      Next
      ColoreTesto 0
      Scrivi String(115,"="),0,0
      ColoreTesto 0
      OrdinaMatrice nam,- 1,8
      Scrivi
      ColoreTesto 1
      Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
      Scrivi " Colpo n°. " & colpo & " ",1
      Scrivi
      ColoreTesto 1
      OrdinaMatrice nt,- 1,5
      For ca = 1 To 1
         mm(1) = nt(ca,6)
         ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
         freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
         esito1 = Abs(ind - ratt)
         If nt(ca,7) = 0 Then
            ColoreTesto 0
            Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " nu " & _
            Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
            " è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
            " Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
         Else
            ColoreTesto 2
            If nt(ca,7) > 0 Then
               Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " nu " & _
               Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
               " è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
               " Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
               Scrivi " - Esito al colpo... " & esito1,1
               dd = dd + 1
            End If
         End If
      Next
      ColoreTesto 0
      Scrivi String(115,"="),0,0
      ColoreTesto 1
      ColoreTesto 0
      OrdinaMatrice nt,- 1,8
      ColoreTesto 0
      Scrivi
      ColoreTesto 1
      Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
      Scrivi " Colpo n°. " & colpo & " ",1
      Scrivi
      ColoreTesto 0
      OrdinaMatrice n3,- 1,5
      For ca = 1 To 1
         mm(1) = n3(ca,6)
         ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
         freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
         esito2 = Abs(ind - ratt)
         If n3(ca,7) = 0 Then
            ColoreTesto 0
            Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " nu " & _
            Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
            " è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
            " Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
         Else
            ColoreTesto 2
            If n3(ca,7) > 0 Then
               Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " nu " & _
               Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
               " è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
               " Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
               Scrivi " - Esito al colpo... " & esito2,1
               hh = hh + 1
            End If
         End If
      Next
      ColoreTesto 0
      Scrivi String(115,"="),0,0
      ColoreTesto 1
      ColoreTesto 0
      OrdinaMatrice n3,- 1,8
      Scrivi
      ColoreTesto 1
      Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
      Scrivi " Colpo n°. " & colpo & " ",1
      Scrivi
      ColoreTesto 0
      OrdinaMatrice n4,- 1,5
      For ca = 1 To 1
         mm(1) = n4(ca,6)
         ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
         freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
         esito3 = Abs(ind - ratt)
         If n4(ca,7) = 0 Then
            ColoreTesto 0
            Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " nu " & _
            Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
            " è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
            " Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
         Else
            ColoreTesto 2
            If n4(ca,7) > 0 Then
               Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " nu " & _
               Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
               " è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
               " Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
               Scrivi " - Esito al colpo... " & esito3,1
               ff = ff + 1
            End If
         End If
      Next
      ColoreTesto 0
      Scrivi String(115,"="),0,0
      ColoreTesto 1
      ColoreTesto 0
      OrdinaMatrice n4,- 1,8
      Scrivi
      ColoreTesto 1
      Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
      Scrivi " Colpo n°. " & colpo & " ",1
      Scrivi
      ColoreTesto 0
      OrdinaMatrice n5,- 1,5
      For ca = 1 To 1
         mm(1) = n5(ca,6)
         ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
         freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
         esito4 = Abs(ind - ratt)
         If n5(ca,7) = 0 Then
            ColoreTesto 0
            Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " nu " & _
            Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
            " è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
            " Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
         Else
            ColoreTesto 2
            If n5(ca,7) > 0 Then
               Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " nu " & _
               Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
               " è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
               " Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
               Scrivi " - Esito al colpo... " & esito4,1
               gg = gg + 1
            End If
         End If
      Next
      If ScriptInterrotto Then Exit For
   Next
   ColoreTesto 0
   Scrivi String(115,"="),0,0
   ColoreTesto 1
   ColoreTesto 0
   OrdinaMatrice n5,- 1,8
   Scrivi String(115,"="),1
   Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
   nEnd = Timer ' fine tempo di elaborazione
   Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
   'Questa Function trasforma il numero di secondi passato come parametro in una stringa
   ' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
   ' s ---> Numero di secondi da formattare
   ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
   Dim hh
   Dim Mm
   Dim Ss
   Dim TimeStr
   hh = s \ 3600
   Mm =(s Mod 3600) \ 60
   Ss = s -((hh * 3600) +(Mm * 60))
   TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
   FormattaSecondi = TimeStr
End Function