Novità

Rivolto a tutti i professionisti di script

lota

Super Member >GOLD<
Messaggi
224
Punti reazione
2
Punti
18
Ciao Asuniverso grazie x l'intervento, i miei complimenti per i tuoi originalissimi studi. Bye
 

Serpico 90

Advanced Member
Messaggi
574
Punti reazione
5
Punti
18
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
Messaggi
574
Punti reazione
5
Punti
18
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<
Messaggi
2.099
Punti reazione
87
Punti
48
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 >GOLD<
Messaggi
224
Punti reazione
2
Punti
18
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
Messaggi
574
Punti reazione
5
Punti
18
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 >GOLD<
Messaggi
215
Punti reazione
11
Punti
18
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<
Messaggi
2.845
Punti reazione
990
Punti
113
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 >GOLD<
Messaggi
224
Punti reazione
2
Punti
18
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 >GOLD<
Messaggi
224
Punti reazione
2
Punti
18
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
Messaggi
574
Punti reazione
5
Punti
18
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 >GOLD<
Messaggi
215
Punti reazione
11
Punti
18
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
Messaggi
574
Punti reazione
5
Punti
18
Grazie,,,,,,,,Siete persone PREPARATE-----ALTRUISTE----E DISPONIBILI----
CHE DIRE GRAZIE A TUTTI .........
BUONA VITA
SALUTI
Serpico
 

trader

Member
Messaggi
39
Punti reazione
3
Punti
8
Salve buon pomeriggio, volevo sapere se questo script può essere rielaborato anche per Visual Lotto.
Grazie buon pomeriggio.
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.845
Punti reazione
990
Punti
113
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<
Messaggi
2.845
Punti reazione
990
Punti
113
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 >GOLD<
Messaggi
215
Punti reazione
11
Punti
18
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 >GOLD<
Messaggi
215
Punti reazione
11
Punti
18
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
    sabato 19 settembre 2020
    Bari
    18
    20
    09
    74
    03
    Cagliari
    22
    72
    21
    74
    66
    Firenze
    55
    07
    37
    27
    08
    Genova
    35
    89
    31
    08
    67
    Milano
    77
    87
    48
    33
    41
    Napoli
    53
    78
    88
    10
    20
    Palermo
    29
    39
    26
    51
    54
    Roma
    42
    32
    33
    28
    83
    Torino
    53
    46
    62
    01
    90
    Venezia
    71
    27
    49
    89
    64
    Nazionale
    60
    73
    34
    10
    78
    Estrazione Simbolotto
    Palermo
    36
    22
    29
    28
    13
Alto