Le mie solite idee

[Marco-elle]

buonasera a tutti sono nuovo del forum e mi sto cimentando per le prime volte con spaziometria ,non sono molto pratico ,volevo sapere se il programma è in grado di trovare i terni piu ritardatari in un arco di tempo circoscritto però genarati dalle cinquine estratte e non su tutti i numeri ,ringraziando anticipatamente

Prova a guardare nella sezione "Tabelloni" e prova a fare le tue ricerche

 

[gabbo87]

Prova a guardare nella sezione "Tabelloni" e prova a fare le tue ricerche

i tabelloni sono riferiti al gioco del lotto ? se io volessi effettuare queste ricerche per millionday o vincicasa è uguale?

 

[Marco-elle]

i tabelloni sono riferiti al gioco del lotto ? se io volessi effettuare queste ricerche per millionday o vincicasa è uguale?

Sono ricerche esclusove per il Lotto

 

[gabbo87]

c è un modo per farlo con le altre lotterie ? uno script o altro non so se sto scrivendo nella sezione giusta

 

[Marco-elle]

c è un modo per farlo con le altre lotterie ? uno script o altro non so se sto scrivendo nella sezione giusta

Prova a chiedere in sezione "Download".....io Spaziometria non la uso per queste ricerche
Vedrai che trovi qualcuno in grado di aiutarti

 

[gabbo87]

grazie mille

 

[Marco-elle]

Il Cavallo (full version)
centra al 3* colpo BA 42-74 in quartina
anche questa sera diverse ambate e segnalo
un ambo in cinquina al 11° colpo (ora non ricordo il metodo)

 

[Marco-elle]

SONO IL NUMERO 1
Ricerca statistica dopo l'uscita del numero 1 su RO
Gioca 1 ambata + 3 ambi su ruote congeniali

Sub Main()
   ColoreTesto 2
   Scrivi "SONO IL NUMERO 1"
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim posta(1)
   Dim ruota(2)
   Dim am(1)
   Dim a1(2)
   Dim a2(2)
   Dim a3(3)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 1400
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r = 8 To 8
         For p = 1 To 5
            a = Estratto(es,r,p)
            ok = 0
            If a = 1 And p = 1 Then
               am(1) = 15
               a1(1) = 15
               a1(2) = 10
               a2(1) = 15
               a2(2) = 19
               a3(1) = 15
               a3(2) = 29
               ruota(1) = 5
               ruota(2) = 8
               ok = 1
            End If
            If a = 1 And p = 2 Then
               am(1) = 44
               a1(1) = 44
               a1(2) = 4
               a2(1) = 44
               a2(2) = 16
               a3(1) = 44
               a3(2) = 84
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If a = 1 And p = 3 Then
               am(1) = 42
               a1(1) = 42
               a1(2) = 10
               a2(1) = 42
               a2(2) = 51
               a3(1) = 42
               a3(2) = 82
               ruota(1) = 9
               ruota(2) = 10
               ok = 1
            End If
            If a = 1 And p = 4 Then
               am(1) = 52
               a1(1) = 52
               a1(2) = 5
               a2(1) = 52
               a2(2) = 22
               a3(1) = 52
               a3(2) = 33
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If a = 1 And p = 5 Then
               am(1) = 6
               a1(1) = 6
               a1(2) = 40
               a2(1) = 6
               a2(2) = 57
               a3(1) = 6
               a3(2) = 67
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"^") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   Spia su RO  " & a & "   in " & p & "° posizione ",1
               Scrivi String(80,"^"),1
               ColoreTesto 0
               ImpostaGiocata 1,am,ruota,posta,clp,1
               ImpostaGiocata 2,a1,ruota,poste,clp,2
               ImpostaGiocata 3,a2,ruota,poste,clp,2
               ImpostaGiocata 4,a3,ruota,poste,clp,2
               Gioca es,1
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[camy64]

SONO IL NUMERO 1
Ricerca statistica dopo l'uscita del numero 1 su RO
Gioca 1 ambata + 3 ambi su ruote congeniali

Sub Main()
   ColoreTesto 2
   Scrivi "SONO IL NUMERO 1"
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim posta(1)
   Dim ruota(2)
   Dim am(1)
   Dim a1(2)
   Dim a2(2)
   Dim a3(3)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 1400
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r = 8 To 8
         For p = 1 To 5
            a = Estratto(es,r,p)
            ok = 0
            If a = 1 And p = 1 Then
               am(1) = 15
               a1(1) = 15
               a1(2) = 10
               a2(1) = 15
               a2(2) = 19
               a3(1) = 15
               a3(2) = 29
               ruota(1) = 5
               ruota(2) = 8
               ok = 1
            End If
            If a = 1 And p = 2 Then
               am(1) = 44
               a1(1) = 44
               a1(2) = 4
               a2(1) = 44
               a2(2) = 16
               a3(1) = 44
               a3(2) = 84
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If a = 1 And p = 3 Then
               am(1) = 42
               a1(1) = 42
               a1(2) = 10
               a2(1) = 42
               a2(2) = 51
               a3(1) = 42
               a3(2) = 82
               ruota(1) = 9
               ruota(2) = 10
               ok = 1
            End If
            If a = 1 And p = 4 Then
               am(1) = 52
               a1(1) = 52
               a1(2) = 5
               a2(1) = 52
               a2(2) = 22
               a3(1) = 52
               a3(2) = 33
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If a = 1 And p = 5 Then
               am(1) = 6
               a1(1) = 6
               a1(2) = 40
               a2(1) = 6
               a2(2) = 57
               a3(1) = 6
               a3(2) = 67
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"^") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   Spia su RO  " & a & "   in " & p & "° posizione ",1
               Scrivi String(80,"^"),1
               ColoreTesto 0
               ImpostaGiocata 1,am,ruota,posta,clp,1
               ImpostaGiocata 2,a1,ruota,poste,clp,2
               ImpostaGiocata 3,a2,ruota,poste,clp,2
               ImpostaGiocata 4,a3,ruota,poste,clp,2
               Gioca es,1
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub

Ciao Marco

 

[Rafele ‘o Ruoss’]

ciao Marco, vorrei ringraziarti per la condivisione dei tuoi script e del tuo impegno verso tutti noi,
regalandoci delle belle sorprese ad ogni estrazione.
Grazie Marco

 

[Marco-elle]

ciao Marco, vorrei ringraziarti per la condivisione dei tuoi script e del tuo impegno verso tutti noi,
regalandoci delle belle sorprese ad ogni estrazione.
Grazie Marco

Grazie x la stima,
spesso vengo colpevolizzato per i spettacoli pirotecnici che si concretizzano
in tanto fumo e poco arrosto!.....Tengo a precisare che queste sono ricerche
ricavate da eventi passati e non posso garantire il futuro e......questo vale per me
e per tutti,nessuno escluso

 

[Rafele ‘o Ruoss’]

Grazie x la stima,
spesso vengo colpevolizzato per i spettacoli pirotecnici che si concretizzano
in tanto fumo e poco arrosto!.....Tengo a precisare che queste sono ricerche
ricavate da eventi passati e non posso garantire il futuro e......questo vale per me
e per tutti,nessuno escluso

ma sai è cosa buona e giusta a mio avviso che qualcuno come te si metta di traverso tra chi non ha alcuna esperienza e gli urlatori ciarlatani del mainstream e dei vari social ,dando la possibilità a molti di poter riflettere e di poter fare le proprie scelte .A mio avviso seguirti è un passo in piu' per imparare meglio e porgere il giusto grado di attenzione nel gioco.
Buon fine settimana a tutti coloro che ti seguono

 

[kira]

Buongiorno
e x ki Nn capisce na mazza dello script? i nr e ruota?? Grazie

 

[Marco-elle]

IL 90 NAZIONALE
Ricerca statistica dopo la sortita del 90 sulla NZ
Gioca 1 ambata + 3 ambi su ruote congeniali

Sub Main()
   ColoreTesto 2
   Scrivi "IL 90 NAZIONALE"
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim posta(1)
   Dim ruota(2)
   Dim am(1)
   Dim a1(2)
   Dim a2(2)
   Dim a3(3)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 2000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r = 12 To 12
         For p = 1 To 5
            a = Estratto(es,r,p)
            ok = 0
            If a = 90 And p = 1 Then
               am(1) = 5
               a1(1) = 5
               a1(2) = 25
               a2(1) = 5
               a2(2) = 27
               a3(1) = 5
               a3(2) = 34
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If a = 90 And p = 2 Then
               am(1) = 66
               a1(1) = 66
               a1(2) = 3
               a2(1) = 66
               a2(2) = 7
               a3(1) = 66
               a3(2) = 79
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If a = 90 And p = 3 Then
               am(1) = 40
               a1(1) = 40
               a1(2) = 8
               a2(1) = 40
               a2(2) = 9
               a3(1) = 40
               a3(2) = 33
               ruota(1) = 1
               ruota(2) = 5
               ok = 1
            End If
            If a = 90 And p = 4 Then
               am(1) = 23
               a1(1) = 23
               a1(2) = 8
               a2(1) = 23
               a2(2) = 20
               a3(1) = 23
               a3(2) = 45
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If a = 90 And p = 5 Then
               am(1) = 56
               a1(1) = 56
               a1(2) = 8
               a2(1) = 56
               a2(2) = 38
               a3(1) = 56
               a3(2) = 67
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"*") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   Spia sulla NZ  " & a & "   in " & p & "° posizione ",1
               Scrivi String(80,"*"),1
               ColoreTesto 0
               ImpostaGiocata 1,am,ruota,posta,clp,1
               ImpostaGiocata 2,a1,ruota,poste,clp,2
               ImpostaGiocata 3,a2,ruota,poste,clp,2
               ImpostaGiocata 4,a3,ruota,poste,clp,2
               Gioca es,1
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[Marco-elle]

Buongiorno
e x ki Nn capisce na mazza dello script? i nr e ruota?? Grazie

Ciao Kira,
questa,Imho,è una sezione tecnica x appassionati e bisogna ingegnarsi
con il programma gratuito SPAZIOMETRIA.I miei sono solo suggerimenti
e non verità!Vengono estrapolate previsioni utili per eventuali convergenze
ma non sicure.Se dovessi ogni volta aggiornare le previsioni di volta in volta,
diventerebbe un Kaos pazzesco e insostenibile

 

[kira]

ok grazie lo stesso Marco ....sei sempre gentile sono io ke nn capisco niente

 

[joe]

Ciao Kira, prova a cercare questo con il classico motore di ricerca:

Youtube = bQPi_WlsTI0

 

[Mauro-emme]

Formula 21-39-66
gioca 1 ambata + 4 ambi
su ruote spia
Algoritmic Game

Sub Main()
   ColoreTesto 1 :Scrivi "-----------------Formula 21-39-66 di marco",1
   ColoreTesto 1 :Scrivi "------------------- Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),am(1),a1(2),a2(2),a3(2),a4(2),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(2)
   pt(1) = 1
   pt1(2) = 1
   pt2(2) = 1
   clp = 10
   co = 0
   ini = 9000
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               For r1 = 1 To 12
                  If r1 = 11 Then r1 = 12
                  For p = 1 To 5
                     c = Estratto(es,r1,p)
                     ok = 0
                     If(a = 21 Or a = 39 Or a = 66)_
                        And(b = 21 Or b = 39 Or b = 66)_
                        And(c = 21 Or c = 39 Or c = 66) Then
                        ok = 1
                        a1(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,7,4) + 57)
                        a2(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a2(2) = Fuori90(90 +(Estratto(es,8,4)) - Estratto(es,3,2) + 58)
                        a3(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a3(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5) + 27)
                        a4(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a4(2) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,4,5) + 6)
                        If ok = 1 Then
                           If(r <> r1 And c <> a And c <> b) Then
                              co = co + 1
                              ColoreTesto 1
                              Scrivi String(65,"=") : ColoreTesto 0
                              Scrivi "Data " & DataEstrazione(es) & " "
                              Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                              Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                              Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                              Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
                              Scrivi
                              ruote(1) = r
                              ruote(2) = r1
                              cg = 0
                              am(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              cg = cg + 1
                              ImpostaGiocata cg,am,ruote,pt,clp
                              a1(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,7,4) + 57)
                              cg = cg + 1
                              ImpostaGiocata cg,a1,ruote,pt1,clp
                              a2(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a2(2) = Fuori90(90 +(Estratto(es,8,4)) - Estratto(es,3,2) + 58)
                              cg = cg + 1
                              ImpostaGiocata cg,a2,ruote,pt1,clp
                              a3(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a3(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5) + 27)
                              cg = cg + 1
                              ImpostaGiocata cg,a3,ruote,pt1,clp
                              a4(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a4(2) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,4,5) + 6)
                              cg = cg + 1
                              ImpostaGiocata cg,a4,ruote,pt1,clp
                              Gioca es,1
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Formula 21-39-66
gioca 1 ambata + 4 ambi
su ruote spia
Algoritmic Game

Sub Main()
   ColoreTesto 1 :Scrivi "-----------------Formula 21-39-66 di marco",1
   ColoreTesto 1 :Scrivi "------------------- Metodo e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(2),am(1),a1(2),a2(2),a3(2),a4(2),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(2)
   pt(1) = 1
   pt1(2) = 1
   pt2(2) = 1
   clp = 10
   co = 0
   ini = 9000
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               For r1 = 1 To 12
                  If r1 = 11 Then r1 = 12
                  For p = 1 To 5
                     c = Estratto(es,r1,p)
                     ok = 0
                     If(a = 21 Or a = 39 Or a = 66)_
                        And(b = 21 Or b = 39 Or b = 66)_
                        And(c = 21 Or c = 39 Or c = 66) Then
                        ok = 1
                        a1(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,7,4) + 57)
                        a2(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a2(2) = Fuori90(90 +(Estratto(es,8,4)) - Estratto(es,3,2) + 58)
                        a3(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a3(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5) + 27)
                        a4(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                        a4(2) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,4,5) + 6)
                        If ok = 1 Then
                           If(r <> r1 And c <> a And c <> b) Then
                              co = co + 1
                              ColoreTesto 1
                              Scrivi String(65,"=") : ColoreTesto 0
                              Scrivi "Data " & DataEstrazione(es) & " "
                              Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                              Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                              Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                              Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
                              Scrivi
                              ruote(1) = r
                              ruote(2) = r1
                              cg = 0
                              am(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              cg = cg + 1
                              ImpostaGiocata cg,am,ruote,pt,clp
                              a1(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,7,4) + 57)
                              cg = cg + 1
                              ImpostaGiocata cg,a1,ruote,pt1,clp
                              a2(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a2(2) = Fuori90(90 +(Estratto(es,8,4)) - Estratto(es,3,2) + 58)
                              cg = cg + 1
                              ImpostaGiocata cg,a2,ruote,pt1,clp
                              a3(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a3(2) = Fuori90(Estratto(es,1,3) + Estratto(es,1,5) + 27)
                              cg = cg + 1
                              ImpostaGiocata cg,a3,ruote,pt1,clp
                              a4(1) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,12,2) + 11)
                              a4(2) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,4,5) + 6)
                              cg = cg + 1
                              ImpostaGiocata cg,a4,ruote,pt1,clp
                              Gioca es,1
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub

Marco mi scuso in anticipo ma non riesco a trovare il luogo ove postare una richiesta d'aiuto su uno script che ho cercato di elaborare.
Mi sai dire dove farlo. In questi giorno ho anche problemi di vista e non riesco a mettere a fuoco con l'occhio sinistro e quindi non riesco a vedere in che punto del listato sbaglio. Grazie e buona domenica.

 

[Marco-elle]

Marco mi scuso in anticipo ma non riesco a trovare il luogo ove postare una richiesta d'aiuto su uno script che ho cercato di elaborare.
Mi sai dire dove farlo. In questi giorno ho anche problemi di vista e non riesco a mettere a fuoco con l'occhio sinistro e quindi non riesco a vedere in che punto del listato sbaglio. Grazie e buona domenica.

Ciao Mauro,
In questa sezione "Area Download"
ci sono tutti i migliori Guru del VB script
sicuramente ti aiuteranno nelle tue richieste

 

[Marco-elle]

Ricerca statistica su terni in decina 1 su TT
Gioca 3 ambi + 1 cinquina su NA-PA

Sub Main()
   ColoreTesto 2 :Scrivi "-----------------TERNO IN DECINA 1  SU TT ",1
   ColoreTesto 2 :Scrivi "------------------- Ricerca e List by Marco",1
   Scrivi : ColoreTesto 0
   Dim ruote(11),nu1(5),nu2(3),nu3(2),nu4(5),pt2(2),pt3(3)
   pt2(2) = 1
   pt3(2) = 1
   pt3(3) = 1
   clp = 12
   co = 0
   ini = 9300
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 11
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r,p1)
                  b = Estratto(es,r,p2)
                  c = Estratto(es,r,p3)
                  ok = 0
                  If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
                     :ok = 1
                     If ok = 1 Then
                        ColoreTesto 2
                        Scrivi String(110,"*") : ColoreTesto 0
                        Scrivi "Data " & DataEstrazione(es) & " "
                        Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                        Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                        Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
                        Scrivi
                        ruote(1) = 6
                        ruote(2) = 7
                        'ruote(3) =10
                        nu1(1) = 54
                        nu1(2) = 9
                        ImpostaGiocata 1,nu1,ruote,pt2,clp
                        nu2(1) = 54
                        nu2(2) = 14
                        ImpostaGiocata 2,nu2,ruote,pt2,clp
                        nu3(1) = 54
                        nu3(2) = 65
                        ImpostaGiocata 3,nu3,ruote,pt2,clp
                        nu4(1) = 9
                        nu4(2) = 14
                        nu4(3) = 54
                        nu4(4) = 65
                        nu4(5) = 81
                        ImpostaGiocata 4,nu4,ruote,pt3,clp
                        Gioca es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
   ScriviResoconto
End Sub