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.
Chi riesce a farmi questo script?
- Creatore Discussione Juri
- Data di inizio
DjNomade
Advanced Member >PLATINUM PLUS<
Ciauz
se interessava trovare condizione come quella del 24-07-2018
questo la trova, nella speranza che le altre siano giuste
se interessava trovare condizione come quella del 24-07-2018
questo la trova, nella speranza che le altre siano giuste
Codice:
' ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Casi Totali 0043
' oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo Estrazione 9503 caso 0006
' Estrazione n.9503 del 24.07.2018 GE 63 22 75 10 86
' Estrazione n.9503 del 24.07.2018 PA 44 58 87 08 09 Differenza 14 Mancante 72
' Sequenza 44 - 58 - 72 - 86 - 10
' Estrazione generatrice del pronostico 09503 [ 88 - 24/07/2018]
' G 0001 Numeri In gioco : 72 su GE PA per Estratto
' N. [72 ] [GE] [.. .. .. .. ..] C. 1 09504 [ 89 - 26/07/2018]
' N. [72 ] [PA] [.. .. .. .. ..] C. 1 09504 [ 89 - 26/07/2018]
' N. [72 ] [GE] [.. .. .. .. ..] C. 2 09505 [ 90 - 28/07/2018]
' V N. [72 ] [PA] [.. .. .. 72 ..] C. 2 Estratto 09505 [ 90 - 28/07/2018]
' Interrotta per esito verificato
Codice:
'Chiesto da Juri https://forum.lottoced.com/forum/lottoced/area-download/2124642-chi-riesce-a-farmi-questo-script/page2
'Vorrei sapere,per piacere,se si riesce a fare uno script stessa estrazione con es:
'Il 21 luglio su fi 55-65 e su ro 70-75.Come vedete c'è la distanza 5 tra 55-65-70-75 ma manca il 60.
'Poi altro esempio: su mi 71-73 e su ro 75-72.Qui 71-72-73-75 ma manca il 74.Si può fare con ogni Distanza?
'Va bene In ogni Posizione e su 2 ruote.Anche 3 numeri su 1 ruota e 1 sull'altra.Meglio 2 e 2.
'script by Salvo50
Option Explicit
Sub Main()
Dim R1,R2,P1,P2,P3,P4,P5,P6,A,B,C,D
Dim DZ12,DZ23,DZ34,DZ14,E1,E2,X,Clp,Salvo50
Dim Es,Ini,Fin,Nu,D2,Caso,Casi
Dim Am(1),Z(4)
Dim Ruote(2),Posta(1)
Posta(1) = 1
Fin = EstrazioneFin
Ini = 9500
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare le ambate ? ",Salvo50,7))
Call ScegliRange(Ini,Fin,Ini,Fin)
For Es = Ini To Fin
Caso = 0
Messaggio "Estrazione esaminata: " & CStr(Es)
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A <> C And A <> D And B <> C And B <> D Then
Z(1) = A : Z(2) = B : Z(3) = C : Z(4) = D
Call OrdinaMatrice(Z,1)
DZ12 = Distanza(Z(1),Z(2))
DZ23 = Distanza(Z(2),Z(3))
DZ34 = Distanza(Z(3),Z(4))
DZ14 = Distanza(Z(1),Z(4))
For X = 1 To 45
If(DZ12 = X And DZ23 = X And DZ34 =(X * 2))_
Xor(DZ12 = X And DZ34 = X And DZ23 =(X * 2))_
Xor(DZ12 = X And DZ34 = X And DZ14 =(X * 2))_
Xor(DZ12 = X And DZ14 = X And DZ34 =(X * 2))_
Xor(DZ23 = X And DZ34 = X And DZ12 =(X * 2))_
Xor(DZ23 = X And DZ34 = X And DZ14 =(X * 2))_
Xor(DZ23 = X And DZ14 = X And DZ34 =(X * 2))_
Xor(DZ12 = X And DZ23 = X And DZ34 = X)_
Xor(DZ23 = X And DZ34 = X And DZ14 = X) Then
If DZ12 =(X * 2) Then Nu = Fuori90(Z(1) + X)
If DZ23 =(X * 2) Then Nu = Fuori90(Z(2) + X)
If DZ34 =(X * 2) Then Nu = Fuori90(Z(3) + X)
If DZ14 =(X * 2) Then Nu = Fuori90(Z(4) + X)
If(DZ12 = X And DZ23 = X And DZ34 = X) Then Nu = Fuori90(Z(4) + X)
If(DZ23 = X And DZ34 = X And DZ14 = X) Then Nu = Fuori90(Z(1) + X)
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi " Differenza " & Format2(X) & " Mancante ",1,0
ColoreTesto 2
Scrivi Format2(Nu)
ColoreTesto 0
If(DZ12 = X And DZ23 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Z(3)&"-"&Nu&"-"&Z(4),1
If(DZ12 = X And DZ34 = X And DZ23 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Nu&"-"&Z(3)&"-"&Z(4),1
If(DZ12 = X And DZ34 = X And DZ14 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Nu,1
If(DZ12 = X And DZ14 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " &Z(3)&"-"&Nu&"-"&Z(4)&"-"&Z(1)&"-"&Z(2),1
If(DZ23 = X And DZ34 = X And DZ12 =(X * 2)) Then Scrivi" Sequenza " &Z(1)&"-"&Nu&"-"&Z(2)&"-"&Z(3)&"-"&Z(4),1
If(DZ23 = X And DZ34 = X And DZ14 =(X * 2)) Then Scrivi" Sequenza " &Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Nu&"-"&Z(1),1
If(DZ23 = X And DZ14 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " &Z(2)&"-"&Z(3)&"-"&Nu&"-"&Z(4)&"-"&Z(1),1
If(DZ12 = X And DZ23 = X And DZ34 = X) Then Scrivi" Sequenza " &Z(1)&"-"&Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Nu,1
If(DZ23 = X And DZ34 = X And DZ14 = X) Then Scrivi" Sequenza " &Z(2)&"-"&Z(3)&"-"&Z(4)&"-"&Z(1)&"-"&Nu,1
Ruote(1) = R1
Ruote(2) = R2
Am(1) = Nu
Scrivi
ImpostaGiocata 1,Am,Ruote,Posta,Clp,1
Gioca Es
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Subboris;n2125331 ha scritto:
forse dovresti impostare correttamente il range inizio e fine quando ti appare la schermata di Archivio lotto-Selezione Range.
Comunque visto che lo script è lungo nell'elaborare la singola estrazione, sarebbe meglio poter inserire poche estrazioni, quindi ti consiglio di sostituire la riga 16 Ini =9500 con
Ini = EstrazioneFin - CInt(InputBox(" Quante estrazioni vuoi analizzare? ",Salvo50,5))
e remmare (anteporre l'apice) alla riga 18 Call ScegliRange(Ini,Fin,Ini,Fin)
in modo che questa venga esclusa dallo script e non ti apparirà più la schermata di Archivio lotto-Selezione Range.
rudivall
Advanced Member >PLATINUM<
Ciao Juri, premetto che non sono molto bravo, io ho provato ad adattarlo così, vedi se ti può andare bene. Vedi l'allegato Salvo x Juri.txt
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 03 novembre 2026Bari6081392789Cagliari4940603457Firenze3390534010Genova1881284452Milano1250544381Napoli7479422417Palermo5131109062Roma2327406528Torino8944690421Venezia1933783759Nazionale0156185068Estrazione Simbolotto
Torino
4509182803
