Novità

Rivolto a tutti i professionisti di script

lota

Super Member >PLATINUM<
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<
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

Advanced Member >PLATINUM PLUS<
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 >PLATINUM<
Buongiorno a tutti, chiarissimo grazie Salvo50 e Asuniverso x la Vs. disponibilità e gentilezza. Buona continuazione di giornata :)
 

salvo50

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

Enplein

Super Member >PLATINUM<
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
 

Asuniverso

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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 >PLATINUM<
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
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 >PLATINUM<
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

Advanced Member >PLATINUM PLUS<
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 >PLATINUM<
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
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

Banned
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

  • Quattro.jpg
    Quattro.jpg
    190,4 KB · Visite: 27
  • Tre.jpg
    Tre.jpg
    351,2 KB · Visite: 25
  • Due.jpg
    Due.jpg
    156,7 KB · Visite: 28
  • Uno.jpg
    Uno.jpg
    412,7 KB · Visite: 25

fillotto

Advanced Member >PLATINUM<
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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto