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
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto