Novità

Rivolto a tutti i professionisti di script

lota

Super Member >GOLD<
Messaggi
224
Punti reazione
2
Punti
18
Ciao a tutti per Salvo50, Enplein, Asuniverso chiedo il significato della frase in allegato sempre in relazione alla tecnica " Triangolo Scaleno " questo perché non vorrei sbagliare ma in alcuni script a volte sembra che la condizione non sia rispettata, magari sbaglio......Grazie
Schermata 2020-08-09 alle 21.03.33.png
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.868
Punti reazione
1.000
Punti
113
Ciao a tutti per Salvo50, Enplein, Asuniverso chiedo il significato della frase in allegato sempre in relazione alla tecnica " Triangolo Scaleno " questo perché non vorrei sbagliare ma in alcuni script a volte sembra che la condizione non sia rispettata, magari sbaglio......Grazie
Vedi l'allegato 2203226
Ciao Lota, anche secondo me l'ambata non è sempre il numero più piccolo, e succede quando il secondo triangolo si trova con i numeri 90-01 dentro la corda 18 come in questo caso
del 26-01-2019 ruote FI - BA

Questo è il secondo triangolo

SCALENO 1.PNG

la corda 18 è compresa tra i numeri 88 e 16 cioè con dentro 90-01

ma l'ambata è l'88

però è risultata vincente con ambata a ruota e

ambo a tutte

queste combinazioni si vengono a creare con alcuni numeri (18) del vertice del primo

triangolo, superiore a 45.
 
Ultima modifica:

Asuniverso

Super Member >PLATINUM<
Messaggi
412
Punti reazione
213
Punti
43
Ciao Lota, anche secondo me l'ambata non è sempre il numero più piccolo, e succede quando il secondo triangolo si trova con i numeri 90-01 dentro la corda 18 come in questo caso
del 26-01-2019 ruote FI - BA

Questo è il secondo triangolo

Vedi l'allegato 2203227

la corda 18 è compresa tra i numeri 88 e 16 cioè con dentro 90-01

ma l'ambata è l'88

però è risultata vincente con ambata a ruota e

ambo a tutte

queste combinazioni si vengono a creare con alcuni numeri (18 numeri) del vertice del primo

triangolo, superiore a 45.
Si esattamente confermo solo in questi casi. Ciao
 

lota

Super Member >GOLD<
Messaggi
224
Punti reazione
2
Punti
18
Buongiorno a tutti, chiarissimo grazie Salvo50 e Asuniverso x la Vs. disponibilità e gentilezza. Buona continuazione di giornata :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.868
Punti reazione
1.000
Punti
113
Ciao Lota, non ci dimentichiamo di Mike e di Enplein, senza il loro intervento non si sarebbe concluso niente.
 
Ultima modifica:

Enplein

Super Member >GOLD<
Messaggi
217
Punti reazione
13
Punti
18
Buonanotte.

Per prima cosa i complimenti a Mike per la conoscenza del programma Spaziometria,
sinceramente , con questo programma, non sarei stato capace elaborare uno script così ben strutturato.
Ho cercato di unire le 2 condizioni di ricerca in un unico script, controllate se ci sono
errori o omissioni.

Enplein.

Codice:
Sub Main
   Dim Nu(3),aN(1),Nu2(2),aaN(2),Ru(1),Ru2(1),Num(4),Nume(4),ambata(1),ambo1(2),ambo2(2),ambo3(3),Ruote(2),Rtt(3),Corde(4),Posta(1),poste(2)
   Posta(1) = 1 : poste(2) = 1
   Ini = 9548'EstrazioneFin - 100
   fin = EstrazioneFin
   ResetTimer
   Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 (Enplein) " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      'Traingolo scaleno 3-1
      For r1 = 1 To 11
      If r1=11 Then r1=12
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                   If Figura(a) = Figura(b) And Figura(a) = Figura(c) Then
                  For r2 = 1 To 11
                  If r2=11 Then r2=12
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And d <> a And d <> b And d <> c Then
                                 
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                  
                                       Call OrdinaMatrice(Num,1,1)
                                      
                                      df1 = Distanza (Num(1),Num(2)): df2 = Distanza(Num(2),Num(3)): df3 = Distanza (Num(3),Num(4)): df4 = Distanza (Num(4),Num(1))
                                      If df1+df2+df3+df4=90 Then 
                                        If(df1 = 9 And df2 = 9 And df3 = 27 And df4=45)Or(df1 = 9 And df2 = 27 And df3 = 45 And df4=9)Or(df1 = 27 And df2 = 45 And df3 = 9 And df4=9)Or(df1 = 45 And df2 = 9 And df3 = 9 And df4=27) Then
                                       If(df1 = 9 And df2 = 9 And df3 = 27 And df4=45) Then
                                       Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
                                       End If
                                       If(df1 = 9 And df2 = 27 And df3 = 45 And df4=9) Then 
                                       Nume(1) = Num(4): Nume(2) = Num(1) :  Nume(3) = Num(2): Nume(4) = Num(3) 
                                       End If 
                                        If(df1 = 27 And df2 =45 And df3 = 9 And df4=9) Then
                                         Nume(1) = Num(3): Nume(2) = Num(4) :  Nume(3) = Num(1): Nume(4) = Num(2)
                                        End If
                                        If(df1 = 45 And df2 = 9 And df3 = 9 And df4=27) Then
                                         Nume(1) = Num(2): Nume(2) = Num(3) : Nume(3) = Num(4): Nume(4) = Num(1)
                                        End If
                                            
                                        Corde(1) = Diametrale(Nume(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 9) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 18) 'Num(4)-Num(3) ' 27
                                       Corde(4) =(Nume(3))
                                        Ruote(1) = r1
                                          Ruote(2) = r2
                                          Rtt(1) = R1 : Rtt(2) = R2 : Rtt(3) = 11
                                          ambata(1) = Diametrale(Nume(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 9)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 18)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
                                          'Controlla se sulle ruote di calcolo sia presente l'ambata
                                           If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                         
                                          
                                         
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r1
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Nume,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                        
                                          ImpostaGiocata 1,ambata,Ruote,Posta,14,1
                                          ImpostaGiocata 2,ambo1,Rtt,poste,14,2
                                          ImpostaGiocata 3,ambo2,Rtt,poste,14,2
                                          ImpostaGiocata 4,ambo3,Rtt,poste,14,2
                                          Gioca es,1,,1
                                       
                                    
                                  End If 
                               End If
                              End If
                            End If
                          End If
                        End If
                     Next
                  Next
                  End If
               Next
            Next
         Next
      Next
     
      'Triangolo scaleno 2-2
      For r1 = 1 To 10
         For P1 = 1 To 4
            For p2 = p1 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  
                   If Figura(a) = Figura(b) Then
                  For r2 = r1 + 1 To 11
                  If r2 = 11 Then r2 = 12
                     For p3 = 1 To 4
                        For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        If p3 = p1 Or p3 = p2 Or p4 = p1 Or p4 = p2 Then
                              If Figura(c) = Figura(d) And Figura(a) = Figura(c) And c <> a And c <> b And d <> a And d <> b Then
                                 
                                    Nu2(1) = a : Nu2(2) = b : Ru(1) = r1 : Ru2(1) = r2 : aaN(1) = c : aaN(2) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                  
                                       Call OrdinaMatrice(Num,1,1)
                                    
                                      df1 = Distanza (Num(1),Num(2)): df2 = Distanza (Num(2),Num(3)): df3 = Distanza (Num(3),Num(4)) : df4 = Distanza (Num(4),Num(1))
                                      If df1+df2+df3+df4=90 Then 
                                        If(df1 = 9 And df2 = 9 And df3 = 27 And df4=45)Or(df1 = 9 And df2 = 27 And df3 = 45 And df4=9)Or(df1 = 27 And df2 = 45 And df3 = 9 And df4=9)Or(df1 = 45 And df2 = 9 And df3 = 9 And df4=27) Then
                                       If(df1 = 9 And df2 = 9 And df3 = 27 And df4=45) Then
                                       Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
                                       End If
                                       If(df1 = 9 And df2 = 27 And df3 = 45 And df4=9) Then
                                       Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
                                        End If
                                         If(df1 = 27 And df2 =45 And df3 = 9 And df4=9) Then
                                         Nume(1) = Num(3): Nume(2) = Num(4) :  Nume(3) = Num(1): Nume(4) = Num(2)
                                        End If
                                       If(df1 = 45 And df2 = 9 And df3 = 9 And df4=27) Then
                                         Nume(1) = Num(2): Nume(2) = Num(3) : Nume(3) = Num(4): Nume(4) = Num(1)
                                        End If
                                        Corde(1) = Diametrale(Nume(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 9) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 18) 'Num(4)-Num(3) ' 27
                                       Corde(4) =(Nume(3))
                                        Ruote(1) = r1
                                          Ruote(2) = r2
                                          Rtt(1) = R1 : Rtt(2) = R2 : Rtt(3) = 11
                                          ambata(1) = Diametrale(Nume(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 9)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 18)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
                                          'Controlla se sulle ruote di calcolo sia presente l'ambata
                                        If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                        
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                         
                                          
                                         
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r2
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu2,,1) & vbTab & p1 & p2
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aaN,,1) & vbTab & p3 & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Nume,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                     
                                          ImpostaGiocata 1,ambata,Ruote,Posta,14,1
                                          ImpostaGiocata 2,ambo1,Rtt,poste,14,2
                                          ImpostaGiocata 3,ambo2,Rtt,poste,14,2
                                          ImpostaGiocata 4,ambo3,Rtt,poste,14,2
                                          Gioca es,1,,1
                                       
                                    
                               
                                  End If 
                              End If
                            End If
                          End If
                        End If
                        Next
                     Next
                  Next
                  End If
               Next
            Next
         Next
      
      If ScriptInterrotto Then Exit For

   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub
 

Enplein

Super Member >GOLD<
Messaggi
217
Punti reazione
13
Punti
18
Grazie...il lavoro più grande è quello di Mike e poi dalla collaborazione di salvo50.

Ciao, Enplein.
 

Asuniverso

Super Member >PLATINUM<
Messaggi
412
Punti reazione
213
Punti
43
Ottimo, Enplein.
Adesso lo script è davvero completo in tutte le sue parti.
L'autore penso possa essere soddisfatto.

Ciao a tutti gli intervenuti.
Ringrazio Mike58 per l'ottimo lavoro di realizzazione dello script e ringrazio anche Emplein per sua sua partecipazione.

A questo punto resta solo la parte delle coppie da rintracciare o nella stessa estrazione o al massimo nelle tre estrazioni a ritroso. Riporto un esempio:

Data base 23.07.jpg

Data base del 28.07.jpg

Pronostico Cagliari e Firenze 66 con 75 e 84.jpg

Pronostico
Cagliari e Firenze
Ambata 66, con 75-84-21

Ambata 66 e ambo secco 66-21 su Cagliari in data 06-08-20
 

Asuniverso

Super Member >PLATINUM<
Messaggi
412
Punti reazione
213
Punti
43
Ringrazio Mike58 per l'ottimo lavoro di realizzazione dello script e ringrazio anche Emplein per sua sua partecipazione.

A questo punto resta solo la parte delle coppie da rintracciare o nella stessa estrazione o al massimo nelle tre estrazioni a ritroso. Riporto un esempio:

Vedi l'allegato 2203347

Vedi l'allegato 2203348

Vedi l'allegato 2203349

Pronostico
Cagliari e Firenze
Ambata 66, con 75-84-21

Ambata 66 e ambo secco 66-21 su Cagliari in data 06-08-20

Altro esempio di coppia di ambi

Immagine 29.12.18.jpg

Immagine proiezione.JPG

Pronostico :
Cagliari e Genova

Ambata 29, con 38-47-74, con l'estrazione del 02-01-19 su Cagliari ambata 29 e ambo secco 29.71
 

Enplein

Super Member >GOLD<
Messaggi
217
Punti reazione
13
Punti
18
Codice:
[09802] [ 74] 01.08.2020    NA    31    3
[09803] [ 75] 04.08.2020    NA    04.76    24
[09803] [ 75] 04.08.2020    MI    85    3

Triangolo Scaleno
76.85.4.31


Figura Rovesciata
49.58.67.4


[09800] [ 72] 28.07.2020    RO    53    3
[09803] [ 75] 04.08.2020    RO    26.17    12
[09803] [ 75] 04.08.2020    MI    08    2

Triangolo Scaleno
8.17.26.53

Figura Rovesciata
71.80.89.26


[09804] [ 76] 06.08.2020    BA    17    1
[09806] [ 78] 11.08.2020    BA    62.35    34
[09806] [ 78] 11.08.2020    VE    26    4

Triangolo Scaleno
17.26.35.62


Figura Rovesciata
80.89.8.35
Buongiorno.

Con questa condizione (estrazione retroattiva di max 3 estrazioni) ho trovato
queste previsioni in attesa dell'esito vincente.

Enplein.
 

Serpico 90

Advanced Member
Messaggi
581
Punti reazione
9
Punti
18
Buona sera a tutti ,,,,,,
Grazie ad Asuniverso per aver dato le indicazioni.
Grazie a Mike 58,a Salvo a Enplain per il buon lavoro che avete fatto
SIETE TROPPO FORTI
Chiedo cortesemente ad Enplain per trovare le coppie indicate da Asuniverso ha creato un altro script ?
.........VI AUGURO UN SERENO FERRAGOSTO
saluti
Serpico
 

Enplein

Super Member >GOLD<
Messaggi
217
Punti reazione
13
Punti
18
Buona sera a tutti ,,,,,,
Grazie ad Asuniverso per aver dato le indicazioni.
Grazie a Mike 58,a Salvo a Enplain per il buon lavoro che avete fatto
SIETE TROPPO FORTI
Chiedo cortesemente ad Enplain per trovare le coppie indicate da Asuniverso ha creato un altro script ?
.........VI AUGURO UN SERENO FERRAGOSTO
saluti
Serpico
Buonasera.
Si Serpico ho utilizzato uno script per trovare questa l'ultima condizione
richiesta dall'autore.
Il problema che i casi trovati sono tantissimi, aspetto che ci sia l'intervento di Asuniverso
per filtrare la condizione; forse invece di utilizzare max 3 estrazioni retroattive si potrebbe, ad esempio , utilizzare una estrazione.

in attesa, auguro un sereno Ferragosto.

Enplein.
 

Asuniverso

Super Member >PLATINUM<
Messaggi
412
Punti reazione
213
Punti
43
Buonasera.
Si Serpico ho utilizzato uno script per trovare questa l'ultima condizione
richiesta dall'autore.
Il problema che i casi trovati sono tantissimi, aspetto che ci sia l'intervento di Asuniverso
per filtrare la condizione; forse invece di utilizzare max 3 estrazioni retroattive si potrebbe, ad esempio , utilizzare una estrazione.

in attesa, auguro un sereno Ferragosto.

Enplein.
Enplein si sono d'accordo a filtrare una sola estrazione, onde evitare troppe condizioni! Vi auguro Buon ferragosto a tutti voi!!!
 

Enplein

Super Member >GOLD<
Messaggi
217
Punti reazione
13
Punti
18
Buonasera.

Ecco lo script che racchiude tutte e 3 le condizioni...controllate se ci sono errori.

Enplein.
Codice:
Sub Main
   Dim Nu(3),Nur(2),Nu1(1),aN(1),Nu2(2),aaN(2),Ru(1),Ru2(1),Num(4),Nume(4),ambata(1),ambo1(2),ambo2(2),ambo3(3),lg(4),Ruote(2),Rtt(3),Corde(4),Posta(1),poste(2)
   Posta(1) = 1 : poste(2) = 1
   rs=CInt (InputBox("Quante estrazioni vuoi controllare?",,100))
   qt=CInt (InputBox ("Quanre estrazioni retroaative vuoi controllare la 3a condizione?",,1))
   Ini = EstrazioneFin - rs
   fin = EstrazioneFin
   ResetTimer
   Scrivi "*** Work In Progress **** Triangolo Scaleno_1_2_3 *** Script By Mike58 & Enplein " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      'Traingolo scaleno 3-1
      For r1 = 1 To 11
      If r1 = 11 Then r1 = 12
         For P1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                   If Figura(a) = Figura(b) And Figura(a) = Figura(c) Then
                  For r2 = 1 To 11
                  If r2 = 11 Then r2 = 12
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                        If r1 <> r2 Then
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And d <> a And d <> b And d <> c Then
                                 
                                    Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                  
                                       Call OrdinaMatrice(Num,1,1)
                                      
                                      df1 = Distanza(Num(1),Num(2)): df2 = Distanza(Num(2),Num(3)): df3 = Distanza(Num(3),Num(4)): df4 = Distanza(Num(4),Num(1))
                                      If df1 + df2 + df3 + df4 = 90 Then
                                        If(df1 = 9 And df2 = 9 And df3 = 27 And df4 = 45)Or(df1 = 9 And df2 = 27 And df3 = 45 And df4 = 9)Or(df1 = 27 And df2 = 45 And df3 = 9 And df4 = 9)Or(df1 = 45 And df2 = 9 And df3 = 9 And df4 = 27) Then
                                       If(df1 = 9 And df2 = 9 And df3 = 27 And df4 = 45) Then
                                       Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
                                       End If
                                       If(df1 = 9 And df2 = 27 And df3 = 45 And df4 = 9) Then
                                       Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
                                       End If
                                        If(df1 = 27 And df2 = 45 And df3 = 9 And df4 = 9) Then
                                         Nume(1) = Num(3): Nume(2) = Num(4) : Nume(3) = Num(1): Nume(4) = Num(2)
                                        End If
                                        If(df1 = 45 And df2 = 9 And df3 = 9 And df4 = 27) Then
                                         Nume(1) = Num(2): Nume(2) = Num(3) : Nume(3) = Num(4): Nume(4) = Num(1)
                                        End If
                                            
                                        Corde(1) = Diametrale(Nume(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 9) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 18) 'Num(4)-Num(3) ' 27
                                       Corde(4) =(Nume(3))
                                        Ruote(1) = r1
                                          Ruote(2) = r2
                                          Rtt(1) = R1 : Rtt(2) = R2 : Rtt(3) = 11
                                          ambata(1) = Diametrale(Nume(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 9)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 18)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
                                          lg(1) = ambata(1) : lg(2) = ambo1(2) : lg(3) = ambo2(2) : lg(4) = ambo3(2)
                                          'Controlla se sulle ruote di calcolo sia presente l'ambata
                                           If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                         
                                          
                                         
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r1
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                         
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Nume,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                        
                                          ImpostaGiocata 1,ambata,Ruote,Posta,14,1
                                          ImpostaGiocata 2,ambo1,Rtt,poste,14,2
                                          ImpostaGiocata 3,ambo2,Rtt,poste,14,2
                                          ImpostaGiocata 4,ambo3,Rtt,poste,14,2
                                          ImpostaGiocata 5,lg,Ruote,poste,14,2
                                          Gioca es,1,,1
                                       
                                    
                                  End If
                               End If
                              End If
                            End If
                          End If
                        End If
                     Next
                  Next
                  End If
               Next
            Next
         Next
      Next
      
      'Triangolo scaleno 2-2
      For r1 = 1 To 10
         For P1 = 1 To 4
            For p2 = p1 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  
                   If Figura(a) = Figura(b) Then
                  For r2 = r1 + 1 To 11
                  If r2 = 11 Then r2 = 12
                     For p3 = 1 To 4
                        For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                        If p3 = p1 Or p3 = p2 Or p4 = p1 Or p4 = p2 Then
                              If Figura(c) = Figura(d) And Figura(a) = Figura(c) And c <> a And c <> b And d <> a And d <> b Then
                                 
                                    Nu2(1) = a : Nu2(2) = b : Ru(1) = r1 : Ru2(1) = r2 : aaN(1) = c : aaN(2) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                  
                                       Call OrdinaMatrice(Num,1,1)
                                    
                                      df1 = Distanza(Num(1),Num(2)): df2 = Distanza(Num(2),Num(3)): df3 = Distanza(Num(3),Num(4)) : df4 = Distanza(Num(4),Num(1))
                                      If df1 + df2 + df3 + df4 = 90 Then
                                        If(df1 = 9 And df2 = 9 And df3 = 27 And df4 = 45)Or(df1 = 9 And df2 = 27 And df3 = 45 And df4 = 9)Or(df1 = 27 And df2 = 45 And df3 = 9 And df4 = 9)Or(df1 = 45 And df2 = 9 And df3 = 9 And df4 = 27) Then
                                       If(df1 = 9 And df2 = 9 And df3 = 27 And df4 = 45) Then
                                       Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
                                       End If
                                       If(df1 = 9 And df2 = 27 And df3 = 45 And df4 = 9) Then
                                       Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
                                        End If
                                         If(df1 = 27 And df2 = 45 And df3 = 9 And df4 = 9) Then
                                         Nume(1) = Num(3): Nume(2) = Num(4) : Nume(3) = Num(1): Nume(4) = Num(2)
                                        End If
                                       If(df1 = 45 And df2 = 9 And df3 = 9 And df4 = 27) Then
                                         Nume(1) = Num(2): Nume(2) = Num(3) : Nume(3) = Num(4): Nume(4) = Num(1)
                                        End If
                                        Corde(1) = Diametrale(Nume(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 9) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 18) 'Num(4)-Num(3) ' 27
                                       Corde(4) =(Nume(3))
                                        Ruote(1) = r1
                                          Ruote(2) = r2
                                          Rtt(1) = R1 : Rtt(2) = R2 : Rtt(3) = 11
                                          ambata(1) = Diametrale(Nume(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 9)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 18)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
                                           lg(1) = ambata(1) : lg(2) = ambo1(2) : lg(3) = ambo2(2) : lg(4) = ambo3(2)
                                          'Controlla se sulle ruote di calcolo sia presente l'ambata
                                        If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                        
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                         
                                          
                                         
                                          ReDim MatCasella(4,1)
                                          MatCasella(1,0) = r1' ruota
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r2
                                          MatCasella(3,1) = p3
                                          MatCasella(4,0) = r2
                                          MatCasella(4,1) = p4
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu2,,1) & vbTab & p1 & p2
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aaN,,1) & vbTab & p3 & p4
                                          Scrivi
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Nume,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                     
                                          ImpostaGiocata 1,ambata,Ruote,Posta,14,1
                                          ImpostaGiocata 2,ambo1,Rtt,poste,14,2
                                          ImpostaGiocata 3,ambo2,Rtt,poste,14,2
                                          ImpostaGiocata 4,ambo3,Rtt,poste,14,2
                                          ImpostaGiocata 5,lg,Ruote,poste,14,2
                                          Gioca es,1,,1
                                       
                                    
                               
                                  End If
                              End If
                            End If
                          End If
                        End If
                        Next
                     Next
                  Next
                  End If
               Next
            Next
         Next
           'Traingolo scaleno 3-1 in 3 estrazioni precedenti
      For r1 = 1 To 11
      If r1 = 11 Then r1 = 12
         For P1 = 1 To 4
            For p2 = p1 + 1 To 5
              
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  If Figura(a) = Figura(b) Then
                  ok = 0
                  For x = 1 To qt
            For p3 = 1 To 5
                  c = Estratto(es - x,r1,p3)
                   If Figura(c) = Figura(a) And c <> a And c <> b Then
                  For r2 = 1 To 11
                  If r2 = 11 Then r2 = 12
                   If r1 <> r2 Then
                     For p4 = 1 To 5
                        d = Estratto(es,r2,p4)
                       
                           If p1 = p4 Or p2 = p4 Or p3 = p4 Then
                              If Figura(a) = Figura(d) And d <> a And d <> b And d <> c Then
                                 
                                    Nur(1) = a : Nur(2) = b : Nu1(1) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                  
                                       Call OrdinaMatrice(Num,1,1)
                                      
                                      df1 = Distanza(Num(1),Num(2)): df2 = Distanza(Num(2),Num(3)): df3 = Distanza(Num(3),Num(4)): df4 = Distanza(Num(4),Num(1))
                                      If df1 + df2 + df3 + df4 = 90 Then
                                        If(df1 = 9 And df2 = 9 And df3 = 27 And df4 = 45)Or(df1 = 9 And df2 = 27 And df3 = 45 And df4 = 9)Or(df1 = 27 And df2 = 45 And df3 = 9 And df4 = 9)Or(df1 = 45 And df2 = 9 And df3 = 9 And df4 = 27) Then
                                       If(df1 = 9 And df2 = 9 And df3 = 27 And df4 = 45) Then
                                       Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
                                       End If
                                       If(df1 = 9 And df2 = 27 And df3 = 45 And df4 = 9) Then
                                       Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
                                       End If
                                        If(df1 = 27 And df2 = 45 And df3 = 9 And df4 = 9) Then
                                         Nume(1) = Num(3): Nume(2) = Num(4) : Nume(3) = Num(1): Nume(4) = Num(2)
                                        End If
                                        If(df1 = 45 And df2 = 9 And df3 = 9 And df4 = 27) Then
                                         Nume(1) = Num(2): Nume(2) = Num(3) : Nume(3) = Num(4): Nume(4) = Num(1)
                                        End If
                                            
                                        Corde(1) = Diametrale(Nume(3)) 'Num(3)-Num(1) ' 18
                                       Corde(2) = Fuori90(Corde(1) + 9) 'Num(4)-Num(1) ' 45
                                       Corde(3) = Fuori90(Corde(1) + 18) 'Num(4)-Num(3) ' 27
                                       Corde(4) =(Nume(3))
                                        Ruote(1) = r1
                                          Ruote(2) = r2
                                          Rtt(1) = R1 : Rtt(2) = R2 : Rtt(3) = 11
                                          ambata(1) = Diametrale(Nume(3))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 9)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 18)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
                                           lg(1) = ambata(1) : lg(2) = ambo1(2) : lg(3) = ambo2(2) : lg(4) = ambo3(2)
                                          'Controlla se sulle ruote di calcolo sia presente l'ambata
                                           If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                           ok = 1 : ex = es - x
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                         
                                          
                                         
                                          ReDim MatCasella1(1,1)
                                          MatCasella1(1,0) = r1' ruota
                                          MatCasella1(1,1) = p3
                                          ReDim MatCasella(3,1)
                                          MatCasella(1,0) = r1
                                          MatCasella(1,1) = p1
                                          MatCasella(2,0) = r1
                                          MatCasella(2,1) = p2
                                          MatCasella(3,0) = r2
                                          MatCasella(3,1) = p4
                                          
                                          Scrivi String(150,"=") & " Caso N." & k,1
                                           Scrivi GetInfoEstrazione(ex) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu1,,1) & vbTab & p3
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nur,,1) & vbTab & p1 & p2
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & vbTab & p4
                                          Scrivi
                                            Call DisegnaEstrazione(ex,MatCasella1,,vbBlue)
                                            
                                          Call DisegnaEstrazione(es,MatCasella,,vbBlue)
                                          Call DisegnaCerchioCiclometrico(Nume,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)

                                          Scrivi
                                          'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
                                          'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
                                          'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
                                          'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
                                          'If esitoA <> "" Then
                                             'Scrivi esA & " Colpo... " & clpA
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 1    " & StringaNumeri(ambo1) & vbTab,1,0
                                          'If esitoB <> "" Then
                                             'Scrivi esB & " Colpo... " & clpB
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                          'Scrivi "Ambo 2    " & StringaNumeri(ambo2) & vbTab,1,0
                                          'If esitoC <> "" Then
                                             'Scrivi EsC & " Colpo... " & clpC
                                          'Else
                                             'Scrivi "Negativo"
                                          'End If
                                        
                                          ImpostaGiocata 1,ambata,Ruote,Posta,14,1
                                          ImpostaGiocata 2,ambo1,Rtt,poste,14,2
                                          ImpostaGiocata 3,ambo2,Rtt,poste,14,2
                                          ImpostaGiocata 4,ambo3,Rtt,poste,14,2
                                          ImpostaGiocata 5,lg,Ruote,poste,14,2
                                          Gioca es,1,,1
                                       
                                    
                                  End If
                               End If
                              End If
                            End If
                          End If
                        
                     Next
                     End If
                  Next
                  End If
               Next
               If ok = 1 Then Exit For
               Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For

   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub
 

Serpico 90

Advanced Member
Messaggi
581
Punti reazione
9
Punti
18
Buona sera
UN CAPOLAVORO
domani smanetterò per fare un po di esperienza sulle estrazioni passate e spero che Asuniverso ci possa dare le dritte per poter colpire e affondare un ambo secco.
Sempre grazie a Mike 58,a Salvo e ad Enplain che ha COMPLETATO IL TUTTO CON GRANDE MAESTRIA.
buon proseguimento di serat
Saluti
Serpico
 

Arn

Super member
Messaggi
157
Punti reazione
37
Punti
28
Ciao a Tutti.

In allegato posto le schermate di un programma che cerca le formazioni createsi nell' estrazione o nelle estrazioni selezionate.
Tra queste formazioni vi e' il TRIANGOLO SCALENO di AsUniverso.

Dal mio punto di vista e' piu un programma per "ricercatori" che per utenti finali.

Se qualcuno e' interessato a lavorarci su lo dica che posto l'eseguibile.

Ciao
Arn
 

Allegati

fillotto

Advanced Member >PLATINUM<
Messaggi
1.121
Punti reazione
8
Punti
38
Se qualcuno e' interessato a lavorarci su lo dica che posto l'eseguibile.
Bhe direi proprio di si!!!(y)
Penso a nome di tutti!!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18

Ultimi Messaggi

Alto