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
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto