Novità

x joe91, mike58, disaronno, rosanna o altri BIG SCRIPTERS

lotto_tom75

lotto_tom75

Advanced Premium Member
E ' possibile, e se si come..., imporre... che il parametro a assuma il valore di tutti i 90 numeri e il parametro b invece sia sempre a+1 senza che un for mal posto (cosa che ho fatto diverse volte :D) blocchi lo script per tempo indefinito? :rolleyes:

Grazie 1000 a tutti/e

Codice: 
Sub Main()

Dim ruota(1),amb(1),nu3(1),posta(1),r(1)
posta(1) = 2
k = 9
ini = EstrazioneFin - 8000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es

r(1) = 1
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,1,p) : b = Estratto(es,1,p1)

ok = 0
'---------------------------------------------------------------------------------------------
If a = 1 And b = 2 Or a = 2 And b = 1 Then amb(1) = Fuori90(Estratto(es,r(1),5) + 1):ok = 1


'---------------------------------------------------------------------------------------------
If ok = 1 Then
co = co + 1
ColoreTesto 0
Scrivi String(64,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & "  *  " & NomeRuota(1) & "  *  " & StringaEstratti(es,8) & "  *  FORMAZIONE ORIGINANTE  *   " & a & "." & b,1
ColoreTesto 0
Scrivi String(64,"*"),1
ruota(1) = 1:cg = 0
ColoreTesto 0
nu3(1) = amb(1)
cg = cg + 1
ImpostaGiocata cg,nu3,r,posta,k,1
Gioca es
ColoreTesto 0
End If
Next:Next:Next':Next
ScriviResoconto
End Sub
 
Ma ... gli Ambi in Distanza 1 sono 90.

In 8000 estrazioni ... ce ne sono molti,

per cui il tempo necessario per elencarli tutti simulando la giocata ... è sicuramente elevato.

Non è sintomatico di anomalie, che ci voglia così tanto tempo, da far sembrare bloccato il PC.

Poi ... sicuramente, errori nello script lo possono bloccare. Ma è altro discorso.

In sintesi non ho capito nulla di cosa hai scritto e ... di cosa vorresti fare.

Anche se ... riconosco che da giovane doveva essere un bello script,

di cui si riconoscono ancora alcuni tratti.

Se ti può essere utile l' ho allegerito un pò e così trova ...TUTTI gli Ambi in Distanza 1

Ma di cosa serva scrivere gli Estratti di Roma ... mi è impossibile capire, perdonami.

Ora ... non riesco a smettere di ridere, per una mezzoretta, mi è impossibile concentrarmi. Perdonami.

Codice: 
Sub Main()
	Dim ruota(1),amb(1),nu3(1),posta(1),r(1)
	posta(1) = 2
	k = 9
	ini = EstrazioneFin - 9
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		r(1) = 1
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,1,p) : b = Estratto(es,1,p1)
				'------------------------------------------
				'If a = 1 And b = 2 Or a = 2 And b = 1 Then 
				If Distanza (a,b) = 1 Then 
				'------------------------------------------
					amb(1) = Fuori90(Estratto(es,r(1),5) + 1):ok = 1
					co = co + 1
					ColoreTesto 0
					Scrivi String(64,"*") & " Caso n°" & co,1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  *  " & NomeRuota(1) & "  *  " & StringaEstratti(es,8) & "  *  FORMAZIONE ORIGINANTE  *   " & a & "." & b,1
					ColoreTesto 0
					Scrivi String(64,"*"),1
					ruota(1) = 1:cg = 0
					ColoreTesto 0
					nu3(1) = amb(1)
					cg = cg + 1
					ImpostaGiocata cg,nu3,r,posta,k,1
					Gioca es
					ColoreTesto 0
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

:)
 
Joe91 ha scritto:
Ma ... gli Ambi in Distanza 1 sono 90.

In 8000 estrazioni ... ce ne sono molti,

per cui il tempo necessario per elencarli tutti simulando la giocata ... è sicuramente elevato.

Non è sintomatico di anomalie, che ci voglia così tanto tempo, da far sembrare bloccato il PC.

Poi ... sicuramente, errori nello script lo possono bloccare. Ma è altro discorso.

In sintesi non ho capito nulla di cosa hai scritto e ... di cosa vorresti fare.

Anche se ... riconosco che da giovane doveva essere un bello script,

di cui si riconoscono ancora alcuni tratti.

Se ti può essere utile l' ho allegerito un pò e così trova ...TUTTI gli Ambi in Distanza 1

Ma di cosa serva scrivere gli Estratti di Roma ... mi è impossibile capire, perdonami.

Ora ... non riesco a smettere di ridere, per una mezzoretta, mi è impossibile concentrarmi. Perdonami.

Codice: 
Sub Main()
	Dim ruota(1),amb(1),nu3(1),posta(1),r(1)
	posta(1) = 2
	k = 9
	ini = EstrazioneFin - 9
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		r(1) = 1
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,1,p) : b = Estratto(es,1,p1)
				'------------------------------------------
				'If a = 1 And b = 2 Or a = 2 And b = 1 Then 
				If Distanza (a,b) = 1 Then 
				'------------------------------------------
					amb(1) = Fuori90(Estratto(es,r(1),5) + 1):ok = 1
					co = co + 1
					ColoreTesto 0
					Scrivi String(64,"*") & " Caso n°" & co,1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  *  " & NomeRuota(1) & "  *  " & StringaEstratti(es,8) & "  *  FORMAZIONE ORIGINANTE  *   " & a & "." & b,1
					ColoreTesto 0
					Scrivi String(64,"*"),1
					ruota(1) = 1:cg = 0
					ColoreTesto 0
					nu3(1) = amb(1)
					cg = cg + 1
					ImpostaGiocata cg,nu3,r,posta,k,1
					Gioca es
					ColoreTesto 0
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

:)
Clicca per espandere...

Avevo letto male la tua risposta... rileggendola mi sono risposto da solo alle mie ulteriori domande (che forse ti sono arrivate via email ma che adesso qui ho cancellato) che tra l'altro coincidevano con le tue... :D

Risposta forse valevole per entrambi... : Qui c'era un 8 (Roma) di troppo... :rolleyes:

Codice: 
Scrivi DataEstrazione(es) & " * " & NomeRuota(1) & " * " & StringaEstratti(es,1) & " * FORMAZIONE ORIGINANTE * " & a & "." & b,1

Ps: Spero che questa nuova "piccola coerenza concettuale acquisita riparando l'errore..." non infici in alcun nella tua ilarità dovuta al crazy script soprastante che ti ho commissionato... :D


Se reggesse poi... , cosa che non credo proprio purtroppo..., un'altra bislacca teoria "sfaldifera..." il riso si trasformerebbe credo in stupore... :p :D ma tranquillo al 99% continuerai a ridere forse ancor piu' di prima... :o


+----------------------------------------+
| Prima Giocata : 7797 |
| Ultima Giocata : 8792 |
| Range : 996 |
| Casi giocab perc. : 21,586% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 215 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 211 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 98,14 % | | BA | 226| | | | | | BA | 100| | | | | | BA | 231| |
| Pronostici totali : 231 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 226 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 97,84 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 4
 
Ultima modifica:
Ciao Tom ...

si ma ad un lettore, mediamente lottologo ... far vedere degli estratti e giocarne,

altri, presi in altre ruote, con addizionati dei numeri ... sa di terrorismo_lottologico.

Chiusa parentesi.

Lo script (direi di Djnomade) o di qualcuno di medesima ispirazione

ha probabilmente qualche anno di vita. (1000 Estrazioni ?)

Molte modifiche sono state fatti su esso da persone diverse.

Ora, per riparafrasare quanto hai scritto nella compatibilità di quanto ho scritto ...

In 1000 estrazioni si differenziano alcuni periodi e rese che sono caratteristici di questi periodi.

Secondo il mio modesto parere ... qualla di studio-statistico o pre-metodo,

riguarda i primi 30 casi (sempre tutto circa) o più ottimisticamente/pessimisticamente 80 casi.

Poi ... vi è il mare-magnum del poi.

Anche in questo, vi sono periodi particolarmente favorevoli (nei cerchi rossi) e ora ce n'è in corso uno.

Altro, non so.

Ma ho modificato ancora un pochino lo script ... per tutti.

Codice: 
Sub Main()
	Dim ruota(1),amb(1),nu(1),posta(1),r(1)
	posta(1) = 2
	k = 9
	ini = EstrazioneIni
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		r(1) = 1
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,1,p) : b = Estratto(es,1,p1)
				'------------------------------------------
				If Distanza (a,b) = 1 Then 
				'------------------------------------------
					nu(1) = Fuori90(Estratto(es,r(1),5) + 1)
					co = co + 1
					ColoreTesto 0
					Scrivi String(93,"*") & " Caso n° " & FormatSpace (co,4,1),1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  *  " & NomeRuota(1) & "  *  " & StringaEstratti(es,1," "),1,0
					Scrivi "+1=" & nu(1) & "  *  FORMAZIONE ORIGINANTE  *   " & Format2(a) & "." & Format2 (b),1
					ColoreTesto 0
					Scrivi String(93,"*"),1
					ruota(1) = 1:cg = 0
					ColoreTesto 0
					
					cg = cg + 1
					ImpostaGiocata cg,nu,r,posta,k,1
					Gioca es,True
					ColoreTesto 0
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

NB: Per simulare il grafico occorre selezionare le ultime 1000 estrazioni con gli appositi cursori.

II° E' uno script per Spaziometria.
 

Allegati

  • Tom.jpg
    Tom.jpg
    54,3 KB · Visite: 0
Joe91 ha scritto:
Ciao Tom ...

si ma ad un lettore, mediamente lottologo ... far vedere degli estratti e giocarne,

altri, presi in altre ruote, con addizionati dei numeri ... sa di terrorismo_lottologico.

Chiusa parentesi.

Lo script (direi di Djnomade) o di qualcuno di medesima ispirazione

ha probabilmente qualche anno di vita. (1000 Estrazioni ?)

Molte modifiche sono state fatti su esso da persone diverse.

Ora, per riparafrasare quanto hai scritto nella compatibilità di quanto ho scritto ...

In 1000 estrazioni si differenziano alcuni periodi e rese che sono caratteristici di questi periodi.

Secondo il mio modesto parere ... qualla di studio-statistico o pre-metodo,

riguarda i primi 30 casi (sempre tutto circa) o più ottimisticamente/pessimisticamente 80 casi.

Poi ... vi è il mare-magnum del poi.

Anche in questo, vi sono periodi particolarmente favorevoli (nei cerchi rossi) e ora ce n'è in corso uno.

Altro, non so.

Ma ho modificato ancora un pochino lo script ... per tutti.

Codice: 
Sub Main()
	Dim ruota(1),amb(1),nu(1),posta(1),r(1)
	posta(1) = 2
	k = 9
	ini = EstrazioneIni
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		r(1) = 1
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,1,p) : b = Estratto(es,1,p1)
				'------------------------------------------
				If Distanza (a,b) = 1 Then 
				'------------------------------------------
					nu(1) = Fuori90(Estratto(es,r(1),5) + 1)
					co = co + 1
					ColoreTesto 0
					Scrivi String(93,"*") & " Caso n° " & FormatSpace (co,4,1),1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  *  " & NomeRuota(1) & "  *  " & StringaEstratti(es,1," "),1,0
					Scrivi "+1=" & nu(1) & "  *  FORMAZIONE ORIGINANTE  *   " & Format2(a) & "." & Format2 (b),1
					ColoreTesto 0
					Scrivi String(93,"*"),1
					ruota(1) = 1:cg = 0
					ColoreTesto 0
					
					cg = cg + 1
					ImpostaGiocata cg,nu,r,posta,k,1
					Gioca es,True
					ColoreTesto 0
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

NB: Per simulare il grafico occorre selezionare le ultime 1000 estrazioni con gli appositi cursori.

II° E' uno script per Spaziometria.
Clicca per espandere...

ahahah terrorismo lottologico è fantastiko :D

Comunque sia si trattava solo... di una mancata sostituzione della ruota giusta se hai letto la mia ultima precedente risposta. In sostanza alla riga formazione d'origine si doveva sostituire l'1 (identificativo della ruota di bari) all'8 (identificativo errato nel contesto... della ruota di roma)

Per quanto riguarda il resto non ho capito una toma come dite voi a... :D

Ciao grandissimo! :D
 
Ultima modifica:
ciao Tom , sebbene pure a me sia ignota la tua richiesta posso dirti che quando uno script sembra impallare il pc
e risolutivo mettere subito prima del next (nel caso del for) oppure del loop (nel caso del Do)
la seguente riga di codice.

DoEventsEx
 
LuigiB ha scritto:
ciao Tom , sebbene pure a me sia ignota la tua richiesta posso dirti che quando uno script sembra impallare il pc
e risolutivo mettere subito prima del next (nel caso del for) oppure del loop (nel caso del Do)
la seguente riga di codice.

DoEventsEx
Clicca per espandere...


Ciao Luigi! Grazie mille per questa ennesima dritta!!! Cercherò di ricordarmene ma per adesso funzia alla grande lo script del mitico joe91 ;)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 novembre 2025
    Bari
    07
    35
    82
    62
    16
    Cagliari
    60
    42
    25
    31
    51
    Firenze
    48
    36
    03
    35
    25
    Genova
    17
    57
    09
    66
    85
    Milano
    69
    78
    37
    85
    16
    Napoli
    08
    27
    17
    26
    68
    Palermo
    24
    77
    19
    79
    45
    Roma
    45
    14
    27
    21
    07
    Torino
    27
    51
    35
    76
    63
    Venezia
    52
    05
    46
    10
    53
    Nazionale
    23
    69
    01
    02
    38
    Estrazione Simbolotto
    Torino
    24
    44
    23
    21
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto