Novità

Rivolto a tutti i professionisti di script

lota

Super Member >PLATINUM<
Ciao Asuniverso grazie x l'intervento, i miei complimenti per i tuoi originalissimi studi. Bye
 

Serpico 90

Advanced Member
Buon giorno anche io Vi ringrazio della vostra disponibilità e complimenti per gli studi di Asuniverso
e la maestria del grande Mike.
Chiedo gentilmente un riscontro l'ultimo script elaborato da Mike si ferma come previsione al 15.5.2020 e giusto?
dopo quella data non ci sono piu previsioni?
Grazie
Saluti
Serpico
 

Serpico 90

Advanced Member
Buon pomeriggio Spero che Asuniverso,Mike e Lota passino da qui,per cortesemente darmi riscontro sulle estrazioni dal 15,5,2020
Grazie
Saluti
Serpico
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Serpico, nella stesura dello script con le condizioni impostate dopo quella data non mi risultano altre previsione.
Anche se ho letto in altro post che una previsione è stata ricavata, lo script non la riporta in quanto una condizione if-then non è soddisfatta.
Quindi lo script è funzionale così.
Ciao
 

lota

Super Member >PLATINUM<
Ciao Serpico, io di pronostici dopo tale data ne ho trovati diversi, pero di script non ne capisco niente per questo ho chiesto lumi all'autore del metodo che ha risposto come sai. Ora se l'autore del metodo ha dato parere favorevole al bellissimo script di Mike58 che il pronostico non lo trova perché dice che una condizione if-then non è soddisfatta, non capendo niente di script non so come risponderti.
Ciao
 

Serpico 90

Advanced Member
Ciao Lota intanto grazie per aver risposto..........
sto facendo delle ricerche sul metodo indicato da Asuniverso ....cortesemente ti verrebbe difficoltoso inviarmi le previsioni scaturite dopo il 15.5. 2020.........
grazie se ti sara possibile
buona serata
ciao
 

Enplein

Super Member >PLATINUM<
Ciao Lota intanto grazie per aver risposto..........
sto facendo delle ricerche sul metodo indicato da Asuniverso ....cortesemente ti verrebbe difficoltoso inviarmi le previsioni scaturite dopo il 15.5. 2020.........
grazie se ti sara possibile
buona serata
ciao
Buonasera.
se può interessare la previsione proposta da Lota è l'ultima scaturita ed ha dato l'ambo su Tutte.
Enplein.
Estrazione generatrice del pronostico 09803 [ 75 - 04/08/2020]
G 0001 Numeri in gioco : 62 su CA MI per Estratto

In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 62.71 su CA MI TT per Ambo
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 62.80 su CA MI TT per Ambo
In corso per altre 13 estrazioni
G 0004 Numeri in gioco : 62.17 su CA MI TT per Ambo
V N. [62.17 ] [TT] [BA][17 .. .. .. 62] C. 1 Ambo 09804 [ 76 - 06/08/2020] [17.88.49.90.62]
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Lo script di Mike58 trova tutte le condizioni in cui il vertice del primo triangolo è compreso da 46 a 90, mancano tutte le condizioni in cui il vertice è compreso da 1 a 45 perchè cambiano le condizioni come ha già spiegato Mike, ho cercato di fare uno script che prendesse anche le condizioni del vertice da 1 a 45 modificando lo script di Mike che è già una buonissima base, e ho notato che non basta una sola condizione per fare un'altro script che comprenda tutte le altre condizioni, ma ce ne vogliono ancora 3, volevo raggruppare tutto in un solo script e poi andare a prendere quando serviva la condizione con la funzione FUNCTION ma lo script mi è venuto di una lentezza esasperante, lo cancellato, evidentemente non l'ho saputo fare, allora ho deciso con un'altro script, modificando sempre lo script di Mike, questo script cerca le condizioni che ha il vertice del triangolo compreso da 37 a 45, quindi c'è la condizione trovata da Lota, per le condizioni del vertice da 1 a 36 devo ancora farlo, la soluzione più semplice potrebbe essere che il bravissimo Enplein postasse il suo script che sicuramente è riuscito a fare uno script migliore di quello fatto da me

ecco lo script fatto modificando lo script di Mike, ha solo le condizioni del vertice del primo triangolo compreso da 37 a 45, se a Mike non sta bene che ho modificato il suo script lo cancello immediatamente.

Codice:
Sub Main
   Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),ambo3(3),Ruote(2),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 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      For r1 = 1 To 10
         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)
                  For r2 = 1 To 10
                     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 Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
                                 If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(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
                                    If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
                                       Call OrdinaMatrice(Num,1,1)
                                       If Distanza(Num(2),Num(4)) = 18 And Distanza(Num(2),Num(3)) = 27 And Distanza(Num(3),Num(4)) = 45 Then
                                          '
                                          Corde(4) = Diametrale(Num(2))
                                          Corde(1) = Fuori90(Corde(4) + 9)
                                          Corde(2) = Fuori90(Corde(4) + 18)
                                          Corde(3) =(Num(2))
                                          '
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                          Ruote(1) = r1
                                          Ruote(2) = r2
                                          ambata(1) = Diametrale(Num(2))
                                          ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 18)
                                          ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 9)
                                          ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Diametrale(ambata(1))
                                          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(Num,True,True,False,,True,True,True)
                                          Scrivi "Figura Rovesciata",1
                                          Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)
                                          Scrivi
                                          ImpostaGiocata 1,ambata,Ruote,Posta,10,1
                                          ImpostaGiocata 2,ambo1,Ruote,poste,10,2
                                          ImpostaGiocata 3,ambo2,Ruote,poste,10,2
                                          ImpostaGiocata 4,ambo3,Ruote,poste,10,2
                                          Gioca es,1,,1
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub
 
Ultima modifica:

lota

Super Member >PLATINUM<
Ciao Lota intanto grazie per aver risposto..........
sto facendo delle ricerche sul metodo indicato da Asuniverso ....cortesemente ti verrebbe difficoltoso inviarmi le previsioni scaturite dopo il 15.5. 2020.........
grazie se ti sara possibile
buona serata
ciao
Ciao Serpico, non ho tenuto traccia delle altre previsioni ma solo dell'ultima. Bye
 

lota

Super Member >PLATINUM<
Buonasera.
se può interessare la previsione proposta da Lota è l'ultima scaturita ed ha dato l'ambo su Tutte.
Enplein.
Estrazione generatrice del pronostico 09803 [ 75 - 04/08/2020]
G 0001 Numeri in gioco : 62 su CA MI per Estratto

In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 62.71 su CA MI TT per Ambo
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 62.80 su CA MI TT per Ambo
In corso per altre 13 estrazioni
G 0004 Numeri in gioco : 62.17 su CA MI TT per Ambo
V N. [62.17 ] [TT] [BA][17 .. .. .. 62] C. 1 Ambo 09804 [ 76 - 06/08/2020] [17.88.49.90.62]
Grazie Enplein questo mi conforta. Saluti
 

Serpico 90

Advanced Member
Buon giorno Grazie Salvo per questo tuo script,,,,,,per quanto mi riguarda ,per me va bene.
Vi ringrazio di tutto quello che fate per...ESAUDIRE .....le richieste .......e renderci molto ma molto più
facile.....le varie ricerche che si possono FARE CON DEI SCRIPT FATTI CON GRANDE ESPERIENZA E MAESTRIA DA PARTE DI TUTTI VOI.
BUON PROSEGUIMENTO DI GIORNATA
Saluti per tutti
Serpico
 

Enplein

Super Member >PLATINUM<
Buongiorno.

Con il permesso di Mike, ho modificato alcune righe per velocizzare ed ho aggiunto
la seconda condizione del triangolo.
Nella speranza do non aver commesso errori, saluto.
Enplein.


Codice:
Sub Main
   Dim Nu(3),aN(1),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 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         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 10
                     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=Differenza(Num(1),Num(2)): df2=Differenza(Num(2),Num(3)): df3=Differenza(Num(3),Num(4))
                                      
                                        If (df1= 9 And  df2= 9 And  df3= 27)Or(df1 = 9 And df2 = 27 And df3 = 45) Then
                                       If(df1 = 9 And df2 = 9 And df3 = 27) 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) Then 
                                       Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
                                        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))
                                          k = k + 1
                                          Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                          Call AvanzamentoElab(Ini,fin,es)
                                          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 di calcolo sia presente l'ambata
                                          If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                          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
                                          ColoreTesto 2
                                          If SerieFreq(es,es,ambata,Ruote,1) > 0 Then Scrivi "Previsione non ottimale!!!"
                                          ColoreTesto 0
                                          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
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub
 

Serpico 90

Advanced Member
Grazie,,,,,,,,Siete persone PREPARATE-----ALTRUISTE----E DISPONIBILI----
CHE DIRE GRAZIE A TUTTI .........
BUONA VITA
SALUTI
Serpico
 

trader

Banned
Salve buon pomeriggio, volevo sapere se questo script può essere rielaborato anche per Visual Lotto.
Grazie buon pomeriggio.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Enplein, hai aggiunto la seconda condizione modificando il meno possibile dello script di Mike e poi senza andare a toccare i parametri delle corde come invece ho fatto io, in questo modo per me è stato semplicissimo aggiungere le altre 2 condizioni, del tuo ho solo modificato i nomi delle differenze solo per avere a colpo d'occhio quello che rappresentano, inoltre mi sono permesso di mettere come esegutori dello script oltre al nome di Mike anche il tuo e il mio

script completo, salvo errori o dimenticanze
versione con Terna
Codice:
Sub Main
   Dim Nu(3),aN(1),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 " **** Triangolo Scaleno Con Terna *** Script By Mike58, Enplein e Salvo50 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 10
         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 10
                        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)
                                    df12 = Differenza(Num(1),Num(2)): df23 = Differenza(Num(2),Num(3)): df34 = Differenza(Num(3),Num(4))
                                    If(df12 = 9 And df23 = 9 And df34 = 27)Or(df12 = 9 And df23 = 27 And df34 = 45)_
                                       Or(df12 = 27 And df23 = 45 And df34 = 9) Or(df12 = 45 And df23 = 9 And df34 = 9)Then
                                       If(df12 = 9 And df23 = 9 And df34 = 27) Then
                                          Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
                                       End If
                                       If(df12 = 9 And df23 = 27 And df34 = 45) Then
                                          Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
                                       End If
                                       If(df12 = 27 And df23 = 45 And df34 = 9) Then
                                          Nume(1) = Num(3): Nume(2) = Num(4) : Nume(3) = Num(1): Nume(4) = Num(2)
                                       End If
                                       If(df12 = 45 And df23 = 9 And df34 = 9) 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))
                                       k = k + 1
                                       Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                       Call AvanzamentoElab(Ini,fin,es)
                                       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 di calcolo sia presente l'ambata
                                       If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                          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
                                          ColoreTesto 2
                                          If SerieFreq(es,es,ambata,Ruote,1) > 0 Then Scrivi "Previsione non ottimale!!!"
                                          ColoreTesto 0
                                          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
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Questo è solo con coppie, cioè 2 numeri in una ruota e 2 numeri in un'altra ruota
Versione con Coppie
Codice:
Sub Main
   Dim Nu(2),aN(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 " **** Triangolo Scaleno Con Coppie *** Script By Mike58, Enplein e Salvo50 " & Chr(174) & "  *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
   For es = Ini To fin
      For r1 = 1 To 9
         For P1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               If Figura(a) = Figura(b) Then
                  For r2 = r1 + 1 To 10
                     For p3 = 1 To 4
                        For p4 = p3 + 1 To 5
                           c = Estratto(es,r2,p3)
                           d = Estratto(es,r2,p4)
                           If Figura(c) = Figura(d) And a <> c And a <> d And b <> c And b <> d Then
                              If p1 = p3 Or p1 = p4 Or p2 = p3 Or p2 = p4 Then
                                 If Figura(a) = Figura(c) Then
                                    Nu(1) = a : Nu(2) = b : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = c : aN(2) = d
                                    Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
                                    Call OrdinaMatrice(Num,1,1)
                                    df12 = Differenza(Num(1),Num(2)): df23 = Differenza(Num(2),Num(3)): df34 = Differenza(Num(3),Num(4))
                                    If(df12 = 9 And df23 = 9 And df34 = 27)Or(df12 = 9 And df23 = 27 And df34 = 45)_
                                       Or(df12 = 27 And df23 = 45 And df34 = 9) Or(df12 = 45 And df23 = 9 And df34 = 9)Then
                                       If(df12 = 9 And df23 = 9 And df34 = 27) Then
                                          Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
                                       End If
                                       If(df12 = 9 And df23 = 27 And df34 = 45) Then
                                          Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
                                       End If
                                       If(df12 = 27 And df23 = 45 And df34 = 9) Then
                                          Nume(1) = Num(3): Nume(2) = Num(4) : Nume(3) = Num(1): Nume(4) = Num(2)
                                       End If
                                       If(df12 = 45 And df23 = 9 And df34 = 9) 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))
                                       k = k + 1
                                       Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
                                       Call AvanzamentoElab(Ini,fin,es)
                                       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 di calcolo sia presente l'ambata
                                       If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
                                          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(Nu,,1) & vbTab & p1 & p2
                                          Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(3) & 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
                                          ColoreTesto 2
                                          If SerieFreq(es,es,ambata,Ruote,1) > 0 Then Scrivi "Previsione non ottimale!!!"
                                          ColoreTesto 0
                                          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
 
Ultima modifica:

Enplein

Super Member >PLATINUM<
Buon pomeriggio.

Ho notato anche una terza condizione dall'esempio postato dall'autore sulle coppie.
11 (45) 56 (9) 65 (9) 74

Codice:
[09571] [156] 29.12.2018    CA    74.56    23
[09571] [156] 29.12.2018    GE    11.65    24

[IMG]https://forum.lottoced.com/00013.bmp[/IMG]

56.65.74.11
[IMG]https://forum.lottoced.com/00014.bmp[/IMG]

Figura Rovesciata
29.38.47.74
[IMG]https://forum.lottoced.com/00015.bmp[/IMG]


Estrazione generatrice del pronostico 09571 [156 - 29/12/2018]
G 0001 Numeri in gioco : 29 su CA GE per Estratto
V N. [29                            ] [CA]     [29 .. .. .. ..] C.   1 Estratto   09572 [  1 - 02/01/2019] [29.08.74.81.21]
Interrotta per esito verificato

G 0002 Numeri in gioco : 29.38 su CA GE TT per Ambo
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 29.47 su CA GE TT per Ambo
V N. [29.47                         ] [GE]     [.. 47 .. 29 ..] C.   2 Ambo       09573 [  2 - 03/01/2019] [20.47.19.29.23]
V N. [29.47                         ] [TT] [GE][.. 47 .. 29 ..] C.   2 Ambo       09573 [  2 - 03/01/2019] [20.47.19.29.23]
Interrotta per esito verificato

G 0004 Numeri in gioco : 29.74 su CA GE TT per Ambo
V N. [29.74                         ] [CA]     [29 .. 74 .. ..] C.   1 Ambo       09572 [  1 - 02/01/2019] [29.08.74.81.21]
V N. [29.74                         ] [TT] [CA][29 .. 74 .. ..] C.   1 Ambo       09572 [  1 - 02/01/2019] [29.08.74.81.21]
 

Enplein

Super Member >PLATINUM<
Buon pomeriggio.

Ho notato anche una terza condizione dall'esempio postato dall'autore sulle coppie.
11 (45) 56 (9) 65 (9) 74

Codice:
[09571] [156] 29.12.2018    CA    74.56    23
[09571] [156] 29.12.2018    GE    11.65    24

[IMG]https://forum.lottoced.com/00013.bmp[/IMG]

56.65.74.11
[IMG]https://forum.lottoced.com/00014.bmp[/IMG]

Figura Rovesciata
29.38.47.74
[IMG]https://forum.lottoced.com/00015.bmp[/IMG]


Estrazione generatrice del pronostico 09571 [156 - 29/12/2018]
G 0001 Numeri in gioco : 29 su CA GE per Estratto
V N. [29                            ] [CA]     [29 .. .. .. ..] C.   1 Estratto   09572 [  1 - 02/01/2019] [29.08.74.81.21]
Interrotta per esito verificato

G 0002 Numeri in gioco : 29.38 su CA GE TT per Ambo
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 29.47 su CA GE TT per Ambo
V N. [29.47                         ] [GE]     [.. 47 .. 29 ..] C.   2 Ambo       09573 [  2 - 03/01/2019] [20.47.19.29.23]
V N. [29.47                         ] [TT] [GE][.. 47 .. 29 ..] C.   2 Ambo       09573 [  2 - 03/01/2019] [20.47.19.29.23]
Interrotta per esito verificato

G 0004 Numeri in gioco : 29.74 su CA GE TT per Ambo
V N. [29.74                         ] [CA]     [29 .. 74 .. ..] C.   1 Ambo       09572 [  1 - 02/01/2019] [29.08.74.81.21]
V N. [29.74                         ] [TT] [CA][29 .. 74 .. ..] C.   1 Ambo       09572 [  1 - 02/01/2019] [29.08.74.81.21]

Scusami Salvo, vedo adesso che hai inserito altre condizioni...bravo.

Enplein.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto