Rivolto a tutti i professionisti di script

lota · 9 Agosto 2020

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

salvo50 · 9 Agosto 2020

lota ha scritto:
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

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.

Asuniverso · 9 Agosto 2020

salvo50 ha scritto:
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 · 10 Agosto 2020

Buongiorno a tutti, chiarissimo grazie Salvo50 e Asuniverso x la Vs. disponibilità e gentilezza. Buona continuazione di giornata

salvo50 · 10 Agosto 2020

Ciao Lota, non ci dimentichiamo di Mike e di Enplein, senza il loro intervento non si sarebbe concluso niente.

lota · 10 Agosto 2020

salvo50 ha scritto:
Ciao Lota, non ci dimentichiamo di Mike e Enplein, senza il loro intervento non si sarebbe concluso niente.

Perfettamente d'accordo un ringraziamento a Mike e Enplein. Saluti

Enplein · 11 Agosto 2020

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

Mike58 · 12 Agosto 2020

Ottimo, Enplein.
Adesso lo script è davvero completo in tutte le sue parti.
L'autore penso possa essere soddisfatto.

Ciao a tutti gli intervenuti.

salvo50 · 12 Agosto 2020

Mike58 ha scritto:
Ottimo, Enplein.
Adesso lo script è davvero completo in tutte le sue parti.
L'autore penso possa essere soddisfatto.

Ciao a tutti gli intervenuti.

Idem

Enplein · 12 Agosto 2020

Grazie...il lavoro più grande è quello di Mike e poi dalla collaborazione di salvo50.

Ciao, Enplein.

Asuniverso · 12 Agosto 2020

Mike58 ha scritto:
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:

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 · 12 Agosto 2020

Asuniverso ha scritto:
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

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 · 13 Agosto 2020

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 · 14 Agosto 2020

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 · 14 Agosto 2020

Serpico 90 ha scritto:
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 · 14 Agosto 2020

Enplein ha scritto:
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 · 17 Agosto 2020

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 · 17 Agosto 2020

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 · 23 Agosto 2020

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

fillotto · 23 Agosto 2020

Se qualcuno e' interessato a lavorarci su lo dica che posto l'eseguibile.
Bhe direi proprio di si!!!

Penso a nome di tutti!!

Rivolto a tutti i professionisti di script

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member

Banned

Allegati

Advanced Member >PLATINUM<