Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Rivolto a tutti i professionisti di script
- Creatore Discussione Asuniverso
- Data di inizio
Asuniverso
Advanced Member >PLATINUM PLUS<
Grazie lota, gentilissimo.
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
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
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
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
Serpico 90
Advanced Member
Grazie Mike ,,,sempre gentile e professionale...
ok.
Ciao
ok.
Ciao
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
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
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<
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.
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:
Ciao Serpico, non ho tenuto traccia delle altre previsioni ma solo dell'ultima. Bye
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
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.
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 SubSerpico 90
Advanced Member
Grazie,,,,,,,,Siete persone PREPARATE-----ALTRUISTE----E DISPONIBILI----
CHE DIRE GRAZIE A TUTTI .........
BUONA VITA
SALUTI
Serpico
CHE DIRE GRAZIE A TUTTI .........
BUONA VITA
SALUTI
Serpico
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
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
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
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<
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 21 novembre 2024Bari0679305215Cagliari0385614425Firenze3076843413Genova3963065081Milano0134788636Napoli6351826107Palermo1166095934Roma1526323889Torino3843773342Venezia7660784731Nazionale8583791251Estrazione Simbolotto
Torino
3138420610
