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ì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto