Novità

VINCENTE LA DISTANZA 27 (SCRIPT)

Imaging

Imaging

Advanced Member >PLATINUM<
-Distanza 27 VINCENTE-

Cercheremo le coppie di distanza 27 sortite in maniera isotopa , su due ruote.
Spostiamoci nel quadro delle estrazioni faccio un esempio per la condizione di gioco idonea:

Estrazione di Esempio
CAGLIARI 79 49 66 88 26
TORINO 52 39 74 34 53

79-52:dist.27 / 26-53: dist.27

Per come sono sortiti , progredendo o regredendo , spostiamoci di 9
unità: 79-------------52----------------43 dallo stesso 43 , spostiamoci di 27
unità: 43--------------------------------16 <-------dist.27
unità: 26-------------53----------------62 <-------dist.9

unità: 62--------------------------------89 <-------dist.27
La Previsione:
Le coppie da giocare 43-16 e 62-89 (o unificarle) su CAGLIARI e TORINO
Esito : 1° Colpo ambo secco 62-89 a Cagliari.

Questa tecnica facendo la previsione ha dato un AMBO in quartina con l'estrazione di sabato 30/7/22

Credete faccia comodo un LISTATO O NO........ Per ZETRIX !!!che ne pensi????????????
 
Ultima modifica:
Imaging ma il tuo nome risulta bannato ma ti hanno bannato adesso..?

lo script e un po difficile da fare non so se riesco a farlo..
per la distanza 27 si puo fare anzi ho tutti gli script che calcolano tutte le dist e somme..
non sono un programmatore se no avrei fatto qualche programma alla Rambo..
 
Ultima modifica:
3791.png
Ba______28__30__58______
_________27_______27______
Ve______01__30__31______

28________58___________?
____(+30)______(+30)____

01________31___________?
____(+30)______(+30)____

Numeri in gioco 61.88 su BA VE TT per Ambo
[CA] [88 .. .. .. 61] C.1 Ambo [02/08/2022] [88.24.27.16.61]

Imaging vedi questa combinazione di gioco con la dist 27
e la dist 30
 
Ultima modifica:
Codice: 
Sub Main
   Dim nu(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              x = s1
                           End If
                           '-------------------
                           If s3 = s4 Then
                              x = s3
                           End If
                           '-------------------
                           If s5 = s6 Then
                              x = s5
                           End If
                           '-------------------
                           '
                           ambata(1) = x
                           '
                           If s1 = s2 Then
                              ambo1(1) = x
                              ambo1(2) = Fuori90(a + d)
                           End If
                           If s1 = s2 Then
                              ambo2(1) = x
                              ambo2(2) = Fuori90(b + c)
                           End If
                           '-------------------------
                           If s5 = s6 Then
                              ambo1(1) = x
                              ambo1(2) = Fuori90(a + b)
                           End If
                           If s5 = s6 Then
                              ambo2(1) = x
                              ambo2(2) = Fuori90(c + d)
                           End If
                           '
                           If rx = n2 And rx = n4 Then
                              '
                              caso = caso + 1
                              Scrivi String(100,"-") & " gioco n. " & caso
                              '
                              ruota(1) = r1
                              ruota(2) = r2
                              ruote(1) = r1
                              ruote(2) = r2
                              ruote(3) = TT_
                              ruote(4) = NZ_
                              calc(1) = a
                              calc(2) = b
                              calc(3) = c
                              calc(4) = d
                              ' identifica ad esempio 4 caselle
                              ReDim MatriceCaselleDaEvid(4,1)
                              ' Primo elemento
                              MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                              ' secondo elemento
                              MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                              ' terzo elemento
                              MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                              ' quarto elemento
                              MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                              Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                              '
                              Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                              Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                              Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                              Scrivi
                              Scrivi
                              Scrivi("dist." & n2 & "") & "",1,1,3,7,6
                              Scrivi
                              'EliminaRipetuti (nu)
                              'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                              ImpostaGiocata 1,ambata,ruota,posta,co,0
                              Gioca es,1,,1
                              Scrivi
                              Scrivi String(55,"-")
                              Scrivi
                              ImpostaGiocata 1,ambo1,ruote,poste,co,0
                              ImpostaGiocata 2,ambo2,ruote,poste,co,0
                              Gioca es,1,,1
                              Scrivi
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

Imaging ho questo script che calcola tutte le dist e calcola la dist 27
ma dovresti spiegare meglio come si deve impostare il gioco..
 
Zetrix ha scritto:
Codice: 
Sub Main
   Dim nu(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              x = s1
                           End If
                           '-------------------
                           If s3 = s4 Then
                              x = s3
                           End If
                           '-------------------
                           If s5 = s6 Then
                              x = s5
                           End If
                           '-------------------
                           '
                           ambata(1) = x
                           '
                           If s1 = s2 Then
                              ambo1(1) = x
                              ambo1(2) = Fuori90(a + d)
                           End If
                           If s1 = s2 Then
                              ambo2(1) = x
                              ambo2(2) = Fuori90(b + c)
                           End If
                           '-------------------------
                           If s5 = s6 Then
                              ambo1(1) = x
                              ambo1(2) = Fuori90(a + b)
                           End If
                           If s5 = s6 Then
                              ambo2(1) = x
                              ambo2(2) = Fuori90(c + d)
                           End If
                           '
                           If rx = n2 And rx = n4 Then
                              '
                              caso = caso + 1
                              Scrivi String(100,"-") & " gioco n. " & caso
                              '
                              ruota(1) = r1
                              ruota(2) = r2
                              ruote(1) = r1
                              ruote(2) = r2
                              ruote(3) = TT_
                              ruote(4) = NZ_
                              calc(1) = a
                              calc(2) = b
                              calc(3) = c
                              calc(4) = d
                              ' identifica ad esempio 4 caselle
                              ReDim MatriceCaselleDaEvid(4,1)
                              ' Primo elemento
                              MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                              ' secondo elemento
                              MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                              ' terzo elemento
                              MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                              ' quarto elemento
                              MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                              Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                              '
                              Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                              Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                              Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                              Scrivi
                              Scrivi
                              Scrivi("dist." & n2 & "") & "",1,1,3,7,6
                              Scrivi
                              'EliminaRipetuti (nu)
                              'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                              ImpostaGiocata 1,ambata,ruota,posta,co,0
                              Gioca es,1,,1
                              Scrivi
                              Scrivi String(55,"-")
                              Scrivi
                              ImpostaGiocata 1,ambo1,ruote,poste,co,0
                              ImpostaGiocata 2,ambo2,ruote,poste,co,0
                              Gioca es,1,,1
                              Scrivi
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

Imaging ho questo script che calcola tutte le dist e calcola la dist 27
ma dovresti spiegare meglio come si deve impostare il gioco..
Clicca per espandere...
Va bene ma non rispetta il calcolo del metodo... è un ottimo lavoro e una buona ricerca...
 
Ultima modifica:
Zetrix ha scritto:
Codice: 
Sub Main
   Dim nu(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              x = s1
                           End If
                           '-------------------
                           If s3 = s4 Then
                              x = s3
                           End If
                           '-------------------
                           If s5 = s6 Then
                              x = s5
                           End If
                           '-------------------
                           '
                           ambata(1) = x
                           '
                           If s1 = s2 Then
                              ambo1(1) = x
                              ambo1(2) = Fuori90(a + d)
                           End If
                           If s1 = s2 Then
                              ambo2(1) = x
                              ambo2(2) = Fuori90(b + c)
                           End If
                           '-------------------------
                           If s5 = s6 Then
                              ambo1(1) = x
                              ambo1(2) = Fuori90(a + b)
                           End If
                           If s5 = s6 Then
                              ambo2(1) = x
                              ambo2(2) = Fuori90(c + d)
                           End If
                           '
                           If rx = n2 And rx = n4 Then
                              '
                              caso = caso + 1
                              Scrivi String(100,"-") & " gioco n. " & caso
                              '
                              ruota(1) = r1
                              ruota(2) = r2
                              ruote(1) = r1
                              ruote(2) = r2
                              ruote(3) = TT_
                              ruote(4) = NZ_
                              calc(1) = a
                              calc(2) = b
                              calc(3) = c
                              calc(4) = d
                              ' identifica ad esempio 4 caselle
                              ReDim MatriceCaselleDaEvid(4,1)
                              ' Primo elemento
                              MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                              ' secondo elemento
                              MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                              ' terzo elemento
                              MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                              ' quarto elemento
                              MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                              Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                              '
                              Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                              Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                              Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                              Scrivi
                              Scrivi
                              Scrivi("dist." & n2 & "") & "",1,1,3,7,6
                              Scrivi
                              'EliminaRipetuti (nu)
                              'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                              ImpostaGiocata 1,ambata,ruota,posta,co,0
                              Gioca es,1,,1
                              Scrivi
                              Scrivi String(55,"-")
                              Scrivi
                              ImpostaGiocata 1,ambo1,ruote,poste,co,0
                              ImpostaGiocata 2,ambo2,ruote,poste,co,0
                              Gioca es,1,,1
                              Scrivi
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

Imaging ho questo script che calcola tutte le dist e calcola la dist 27
ma dovresti spiegare meglio come si deve impostare il gioco..
Clicca per espandere...
Dimmi cosa vuoi sapere........
 
strazione di Esempio
CAGLIARI 79 49 66 88 26 ?
TORINO 52 39 74 34 53

79-52:dist.27 / 26-53: dist.27

Per come sono sortiti , progredendo o regredendo , spostiamoci di 9
unità: 79-------------52----------------43 dallo stesso 43 , spostiamoci di 27
unità: 43--------------------------------16 <-------dist.27
unità: 26-------------53----------------62 <-------dist.9

unità: 62--------------------------------89 <-------dist.27
La Previsione:
Le coppie da giocare 43-16 e 62-89 (o unificarle) su CAGLIARI e TORINO
Esito : 1° Colpo ambo secco 62-89 a Cagliari.


dovresti spiegare meglio che si deve scrivere nello script
la dist 27 ok ma in forma isotopa ce ne sono pochissime combinazioni..

16<-27+79 <- -> 26-27 ->89

79<-27+52 <- -> 53-27 ->26

e cosi che deve calcolare lo script ?

43<-9-52 <- -> 53+9 ->62

ma ai calcolato la dist 9 a ok perche tra 16 43 calcola la dist 27
e tra 62 89 calcola la dist 27
ok vedrò se riesco a scriverlo nello script..
ma gli ambi in gioco sono 16 43 e 62 89 con la dist 27
 
Ultima modifica:
Zetrix ha scritto:
strazione di Esempio
CAGLIARI 79 49 66 88 26
TORINO 52 39 74 34 53

79-52:dist.27 / 26-53: dist.27

Per come sono sortiti , progredendo o regredendo , spostiamoci di 9
unità: 79-------------52----------------43 dallo stesso 43 , spostiamoci di 27
unità: 43--------------------------------16 <-------dist.27
unità: 26-------------53----------------62 <-------dist.9

unità: 62--------------------------------89 <-------dist.27
La Previsione:
Le coppie da giocare 43-16 e 62-89 (o unificarle) su CAGLIARI e TORINO
Esito : 1° Colpo ambo secco 62-89 a Cagliari.


dovresti spiegare meglio che si deve scrivere nello script
la dist 27 ok ma in forma isotopa ce ne sono pochissime combinazioni..
Clicca per espandere...
Ambi Isotopi e questo è chiaro poi ordinare così come sono sortiti addizionare o sottrarre di 9 unità come per lo spostamento di distanza 27...progredendo o regredendo...
 
Zetrix ha scritto:
strazione di Esempio
CAGLIARI 79 49 66 88 26 ?
TORINO 52 39 74 34 53

79-52:dist.27 / 26-53: dist.27

Per come sono sortiti , progredendo o regredendo , spostiamoci di 9
unità: 79-------------52----------------43 dallo stesso 43 , spostiamoci di 27
unità: 43--------------------------------16 <-------dist.27
unità: 26-------------53----------------62 <-------dist.9

unità: 62--------------------------------89 <-------dist.27
La Previsione:
Le coppie da giocare 43-16 e 62-89 (o unificarle) su CAGLIARI e TORINO
Esito : 1° Colpo ambo secco 62-89 a Cagliari.


dovresti spiegare meglio che si deve scrivere nello script
la dist 27 ok ma in forma isotopa ce ne sono pochissime combinazioni..

16<-27+79 <- -> 26-27 ->89

79<-27+52 <- -> 53-27 ->26

e cosi che deve calcolare lo script ?

43<-9-52 <- -> 53+9 ->62

perche ai calcolato la dist 9
Clicca per espandere...
Prova a seguire come ho scritto le condizioni e ti renderai conto della semplicità trovati li ambi di distanza 27 segui qui:

Per come sono sortiti , progredendo o regredendo , spostiamoci di 9
unità: 79-------------52----------------43 dallo stesso 43 , spostiamoci di 27
unità: 43--------------------------------16 <-------dist.27
unità: 26-------------53----------------62 <-------dist.9
unità: 62--------------------------------89 <-------dist.27.........
 
16<-27+79 <- -> 26-27 ->89

43<-9-52 <- -> 53+9 ->62

imaging quanto devi spiegare un metodo devi spiegare le cose con un esempio
come da me descritto senza scrivere progredendo e regredendo cosi e piu facile
scrivere nello script..devi usare i simboli + - e le freccette -><-
 
Zetrix ha scritto:
16<-27+79 <- -> 26-27 ->89

43<-9-52 <- -> 53+9 ->62

imaging quanto devi spiegare un metodo devi spiegare le cose con un esempio
come da me descritto senza scrivere progredendo e regredendo cosi e piu facile
scrivere nello script..
Clicca per espandere...
Sono con te ma io di script non ne capisco quindi faccio un esempio schematico...79-52 ci siamo e questi sono i primi due numeri dell'ambo ordiniamo come sono sortiti 79---------------------52 dal più grande al più piccolo regrediamo di 9 unità quindi 43 e qui continuiamo regredendo di 27 la distanza, il secondo ordine di sortita 26-53 dal più piccolo al più grande progredendo di 9 +53=62 progredendo vinciamo 27 dist.= 89. quindi ecco i due ambi da giocare uniti forma la quartina.
 
Codice: 
Sub Main
   Dim nu(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim amba1(2)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              x = s1
                           End If
                           '-------------------
                           If s3 = s4 Then
                              x = s3
                           End If
                           '-------------------
                           If s5 = s6 Then
                              x = s5
                           End If
                           '-------------------
                           '
                           If a > b Then
                              ambo1(1) = Fuori90(a + 27)
                           End If
                           If c < d Then
                              ambo1(2) = Fuori90(c - 9)
                           End If
                           '---------------------------
                           If b < a Then
                              ambo2(1) = Fuori90(b - 27)
                           End If
                           If d > c Then
                              ambo2(2) = Fuori90(d + 9)
                           End If
                           '
                           '
                           'If rx = n2 And rx = n4 Then
                           If n2 = 27 And n4 = 27 Then
                              '
                              caso = caso + 1
                              Scrivi String(100,"-") & " gioco n. " & caso
                              '
                              ruota(1) = r1
                              ruota(2) = r2
                              ruote(1) = r1
                              ruote(2) = r2
                              ruote(3) = TT_
                              ruote(4) = NZ_
                              calc(1) = a
                              calc(2) = b
                              calc(3) = c
                              calc(4) = d
                              ' identifica ad esempio 4 caselle
                              ReDim MatriceCaselleDaEvid(4,1)
                              ' Primo elemento
                              MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                              ' secondo elemento
                              MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                              MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                              ' terzo elemento
                              MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                              ' quarto elemento
                              MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                              MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                              Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                              '
                              Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                              Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                              Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                              Scrivi
                              Scrivi
                              Scrivi("dist." & n2 & "") & "",1,1,3,7,6
                              Scrivi
                              'EliminaRipetuti (nu)
                              'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                              'ImpostaGiocata 1,ambata,ruota,posta,co,0
                              'Gioca es,1,,1
                              'Scrivi
                              'Scrivi String(55,"-")
                              'Scrivi
                              ImpostaGiocata 1,ambo1,ruote,poste,co,0
                              ImpostaGiocata 2,ambo2,ruote,poste,co,0
                              Gioca es,1,,1
                              Scrivi
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

imaging ho provato in questo modo ma mi sembra che i calcoli sono sbagliati..
gli ambi non hanno la dist 27

16<-27+(79) <- -> (26)-27 ->89

43<-9-(52) <- -> (53)+9 ->62

ma gli ambi devono avere somma uguale ?

79+26=105
52+53=105
----------------------
16+89=105
43+62=105
----------------------
allora si deve modificare di nuovo lo script
 
Ultima modifica:
Codice: 
Sub Main
   Dim nu(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim amba1(2)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              '
                              If a Then
                                 ambo1(1) = Fuori90(a + 27)
                              End If
                              If b Then
                                 ambo1(2) = Fuori90(b - 27)
                              End If
                              '---------------------------
                              If c Then
                                 ambo2(1) = Fuori90(c - 9)
                              End If
                              If d Then
                                 ambo2(2) = Fuori90(d + 9)
                              End If
                              '
                              'If rx = n2 And rx = n4 Then
                              If n2 = 27 And n4 = 27 Then
                                 '
                                 caso = caso + 1
                                 Scrivi String(100,"-") & " gioco n. " & caso
                                 '
                                 ruota(1) = r1
                                 ruota(2) = r2
                                 ruote(1) = r1
                                 ruote(2) = r2
                                 ruote(3) = TT_
                                 ruote(4) = NZ_
                                 calc(1) = a
                                 calc(2) = b
                                 calc(3) = c
                                 calc(4) = d
                                 ' identifica ad esempio 4 caselle
                                 ReDim MatriceCaselleDaEvid(4,1)
                                 ' Primo elemento
                                 MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                                 ' secondo elemento
                                 MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                                 ' terzo elemento
                                 MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                                 ' quarto elemento
                                 MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                                 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                 '
                                 Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                                 Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                                 Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                                 Scrivi
                                 Scrivi
                                 Scrivi("somma " & s1 & "") & "",1,1,3,7,6
                                 Scrivi
                                 'EliminaRipetuti (nu)
                                 'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                                 'ImpostaGiocata 1,ambata,ruota,posta,co,0
                                 'Gioca es,1,,1
                                 'Scrivi
                                 'Scrivi String(55,"-")
                                 'Scrivi
                                 ImpostaGiocata 1,ambo1,ruote,poste,co,0
                                 ImpostaGiocata 2,ambo2,ruote,poste,co,0
                                 Gioca es,1,,1
                                 Scrivi
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

prova cosi piu di questo non posso fare..
 
Zetrix ha scritto:
Codice: 
Sub Main
   Dim nu(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim amba1(2)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              '
                              If a Then
                                 ambo1(1) = Fuori90(a + 27)
                              End If
                              If b Then
                                 ambo1(2) = Fuori90(b - 27)
                              End If
                              '---------------------------
                              If c Then
                                 ambo2(1) = Fuori90(c - 9)
                              End If
                              If d Then
                                 ambo2(2) = Fuori90(d + 9)
                              End If
                              '
                              'If rx = n2 And rx = n4 Then
                              If n2 = 27 And n4 = 27 Then
                                 '
                                 caso = caso + 1
                                 Scrivi String(100,"-") & " gioco n. " & caso
                                 '
                                 ruota(1) = r1
                                 ruota(2) = r2
                                 ruote(1) = r1
                                 ruote(2) = r2
                                 ruote(3) = TT_
                                 ruote(4) = NZ_
                                 calc(1) = a
                                 calc(2) = b
                                 calc(3) = c
                                 calc(4) = d
                                 ' identifica ad esempio 4 caselle
                                 ReDim MatriceCaselleDaEvid(4,1)
                                 ' Primo elemento
                                 MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                                 ' secondo elemento
                                 MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                                 ' terzo elemento
                                 MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                                 ' quarto elemento
                                 MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                                 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                 '
                                 Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                                 Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                                 Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                                 Scrivi
                                 Scrivi
                                 Scrivi("somma " & s1 & "") & "",1,1,3,7,6
                                 Scrivi
                                 'EliminaRipetuti (nu)
                                 'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                                 'ImpostaGiocata 1,ambata,ruota,posta,co,0
                                 'Gioca es,1,,1
                                 'Scrivi
                                 'Scrivi String(55,"-")
                                 'Scrivi
                                 ImpostaGiocata 1,ambo1,ruote,poste,co,0
                                 ImpostaGiocata 2,ambo2,ruote,poste,co,0
                                 Gioca es,1,,1
                                 Scrivi
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

prova cosi piu di questo non posso fare..
Clicca per espandere...

Zetrix ha scritto:
Questo un grande ottimo listato ma si puo controllare dalle estrazioni del 2018 cosi controllo meglio..
Clicca per espandere...
 
Codice: 
Sub Main
   Dim ru(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim quartina(4)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              '
                              If a Then
                                 ambo1(1) = Fuori90(a + 27)
                              End If
                              If b Then
                                 ambo1(2) = Fuori90(b - 27)
                              End If
                              '---------------------------
                              If c Then
                                 ambo2(1) = Fuori90(c - 9)
                              End If
                              If d Then
                                 ambo2(2) = Fuori90(d + 9)
                              End If
                              '
                              quartina(1) = ambo1(1)
                              quartina(2) = ambo1(2)
                              quartina(3) = ambo2(1)
                              quartina(4) = ambo2(2)
                              '
                              'If rx = n2 And rx = n4 Then
                              If n2 = 27 And n4 = 27 Then
                                 '
                                 caso = caso + 1
                                 Scrivi String(90,"-") & " gioco n. " & caso
                                 '
                                 ruota(1) = r1
                                 ruota(2) = r2
                                 ruote(1) = r1
                                 ruote(2) = r2
                                 ruote(3) = TT_
                                 ruote(4) = NZ_
                                 ru(1) = TT_
                                 '------------------
                                 calc(1) = a
                                 calc(2) = b
                                 calc(3) = c
                                 calc(4) = d
                                 '---------------------------------
                                 ' identifica ad esempio 4 caselle
                                 ReDim MatriceCaselleDaEvid(4,1)
                                 ' Primo elemento
                                 MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                                 ' secondo elemento
                                 MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                                 ' terzo elemento
                                 MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                                 ' quarto elemento
                                 MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                                 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                 '
                                 Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                                 Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                                 Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                                 Scrivi
                                 Scrivi
                                 Scrivi("somma " & s1 & "") & "",1,1,3,7,6
                                 Scrivi
                                 'EliminaRipetuti (nu)
                                 'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                                 'ImpostaGiocata 1,ambata,ruota,posta,co,0
                                 'Gioca es,1,,1
                                 ImpostaGiocata 1,ambo1,ruote,poste,co,0
                                 ImpostaGiocata 2,ambo2,ruote,poste,co,0
                                 Gioca es,1,,1
                                 Scrivi
                                 Scrivi String(55,"-")
                                 Scrivi
                                 ImpostaGiocata 1,quartina,ru,poste,co,0
                                 Gioca es,1,,1
                                 Scrivi
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

mi sono dimenticato di aggiungere la quartina per ambo a tt
 
dal 2018 sono troppe le estrazioni sono 699 estr se vuoi fare la statistica la puoi fare in questo anno..
calcola che la media delle estrazioni sono 155 estr all'anno ..
puoi anche elaborare 699 estr ma lo script ci metterà un po di tempo..
un altro consiglio che ti do su spaziometria resetta le estr solo con le venus
e inutile che ti tieni tutto l'archivio anche del dopo guerra a che ti serve a niente..
adesso le venus hanno effettuato 1999 estr e giovedi le venus festeggiano le 2000 estr..
speriamo di vincere cosi festeggiamo anche noi..
 
Ultima modifica:
Zetrix ha scritto:
Codice: 
Sub Main
   Dim ru(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim quartina(4)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        For rx = rk To rk
                           '
                           n1 = Distanza(a,b)
                           n2 = Distanza(a,c)
                           n3 = Distanza(c,d)
                           n4 = Distanza(b,d)
                           '-------------------
                           s1 = Fuori90(a + b)
                           s2 = Fuori90(c + d)
                           s3 = Fuori90(a + c)
                           s4 = Fuori90(b + d)
                           s5 = Fuori90(a + d)
                           s6 = Fuori90(b + c)
                           '-------------------
                           '
                           If s1 = s2 Then
                              '
                              If a Then
                                 ambo1(1) = Fuori90(a + 27)
                              End If
                              If b Then
                                 ambo1(2) = Fuori90(b - 27)
                              End If
                              '---------------------------
                              If c Then
                                 ambo2(1) = Fuori90(c - 9)
                              End If
                              If d Then
                                 ambo2(2) = Fuori90(d + 9)
                              End If
                              '
                              quartina(1) = ambo1(1)
                              quartina(2) = ambo1(2)
                              quartina(3) = ambo2(1)
                              quartina(4) = ambo2(2)
                              '
                              'If rx = n2 And rx = n4 Then
                              If n2 = 27 And n4 = 27 Then
                                 '
                                 caso = caso + 1
                                 Scrivi String(90,"-") & " gioco n. " & caso
                                 '
                                 ruota(1) = r1
                                 ruota(2) = r2
                                 ruote(1) = r1
                                 ruote(2) = r2
                                 ruote(3) = TT_
                                 ruote(4) = NZ_
                                 ru(1) = TT_
                                 '------------------
                                 calc(1) = a
                                 calc(2) = b
                                 calc(3) = c
                                 calc(4) = d
                                 '---------------------------------
                                 ' identifica ad esempio 4 caselle
                                 ReDim MatriceCaselleDaEvid(4,1)
                                 ' Primo elemento
                                 MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                                 ' secondo elemento
                                 MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                                 MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                                 ' terzo elemento
                                 MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(3,1) = p3 ' terzo estratto
                                 ' quarto elemento
                                 MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                                 MatriceCaselleDaEvid(4,1) = p4 ' quarto estratto
                                 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                 '
                                 Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                                 Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                                 Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                                 Scrivi
                                 Scrivi
                                 Scrivi("somma " & s1 & "") & "",1,1,3,7,6
                                 Scrivi
                                 'EliminaRipetuti (nu)
                                 'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                                 'ImpostaGiocata 1,ambata,ruota,posta,co,0
                                 'Gioca es,1,,1
                                 ImpostaGiocata 1,ambo1,ruote,poste,co,0
                                 ImpostaGiocata 2,ambo2,ruote,poste,co,0
                                 Gioca es,1,,1
                                 Scrivi
                                 Scrivi String(55,"-")
                                 Scrivi
                                 ImpostaGiocata 1,quartina,ru,poste,co,0
                                 Gioca es,1,,1
                                 Scrivi
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

mi sono dimenticato di aggiungere la quartina per ambo a tt
Clicca per espandere...
ESTRAZIONI SE PSSIBILE DAL 2018 compreso
 
si non avevo messo la condizione delle coppie isotope ma si puo modificare lo script
aspetta un po che faccio la modifica allo script..prova questo script fatto modifica con
numeri isotopi..comunque non tenere conto delle coppie isotope meglio considerare
tutte le combinazioni poi puoi scegliere te la combinazione migliore..

Codice: 
Sub Main
   Dim ru(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim quartina(4)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         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 10
                  c = Estratto(es,r2,p1)
                  d = Estratto(es,r2,p2)
                  For rx = rk To rk
                     '
                     n1 = Distanza(a,b)
                     n2 = Distanza(a,c)
                     n3 = Distanza(c,d)
                     n4 = Distanza(b,d)
                     '-------------------
                     s1 = Fuori90(a + b)
                     s2 = Fuori90(c + d)
                     s3 = Fuori90(a + c)
                     s4 = Fuori90(b + d)
                     s5 = Fuori90(a + d)
                     s6 = Fuori90(b + c)
                     '-------------------
                     '
                     If s1 = s2 Then
                        '
                        If a Then
                           ambo1(1) = Fuori90(a + 27)
                        End If
                        If b Then
                           ambo1(2) = Fuori90(b - 27)
                        End If
                        '---------------------------
                        If c Then
                           ambo2(1) = Fuori90(c - 9)
                        End If
                        If d Then
                           ambo2(2) = Fuori90(d + 9)
                        End If
                        '
                        quartina(1) = ambo1(1)
                        quartina(2) = ambo1(2)
                        quartina(3) = ambo2(1)
                        quartina(4) = ambo2(2)
                        '
                        'If rx = n2 And rx = n4 Then
                        If n2 = 27 And n4 = 27 Then
                           '
                           caso = caso + 1
                           Scrivi String(90,"-") & " gioco n. " & caso
                           '
                           ruota(1) = r1
                           ruota(2) = r2
                           ruote(1) = r1
                           ruote(2) = r2
                           ruote(3) = TT_
                           ruote(4) = NZ_
                           ru(1) = TT_
                           '------------------
                           calc(1) = a
                           calc(2) = b
                           calc(3) = c
                           calc(4) = d
                           '---------------------------------
                           ' identifica ad esempio 4 caselle
                           ReDim MatriceCaselleDaEvid(4,1)
                           ' Primo elemento
                           MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                           MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                           ' secondo elemento
                           MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                           MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                           ' terzo elemento
                           MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                           MatriceCaselleDaEvid(3,1) = p1 ' terzo estratto
                           ' quarto elemento
                           MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                           MatriceCaselleDaEvid(4,1) = p2 ' quarto estratto
                           Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                           '
                           Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                           Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                           Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                           Scrivi
                           Scrivi
                           Scrivi("somma " & s1 & "") & "",1,1,3,7,6
                           Scrivi
                           'EliminaRipetuti (nu)
                           'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                           'ImpostaGiocata 1,ambata,ruota,posta,co,0
                           'Gioca es,1,,1
                           ImpostaGiocata 1,ambo1,ruote,poste,co,0
                           ImpostaGiocata 2,ambo2,ruote,poste,co,0
                           Gioca es,1,,1
                           Scrivi
                           Scrivi String(55,"-")
                           Scrivi
                           ImpostaGiocata 1,quartina,ru,poste,co,0
                           Gioca es,1,,1
                           Scrivi
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto