RICHIESTA SCRIPT X 10 LOTTO SERALE

[Mike58]

ma in quello che mi serve:
* l'estrazione con ritardo 0 essendo l'ultima estrazione
deve rimanere intatta senza "caduti"
* è l'ultima estrazione che fa i "caduti" nelle estrazioni precedenti

ok Paolo proverò a ragionarci su.

 

[Mike58]

Nei tanti script mi sono perso ma una sorte di Tabellone analitico su tutte è questo.

Più di questo non saprei.

Sub Main
ReDim Nu(0),Ritt(0)
	Ini = EstrazioneFin - 15
	fin = EstrazioneFin
	Scrivi " ********** T A B E L L O N E * A N A L I T I C O  * A * T U T T E *********** By Mike 58 *********** ",1,1,,1,4
	Scrivi
	r = CInt(InputBox("QUALE RUOTA",,11))
	riga = ""
	a = PiuRitardatari(fin,r,Nu,Ritt)
	For es = fin To Ini Step - 1
		rit = fin - es
		For x = 1 To 90
			If EstrattoRitardo(r,x,es,fin) = rit Then riga = riga & Format2(x) & " "
			If EstrattoRitardo(r,x,es,fin) = rit Then k = k + 1
			If EstrattoRitardo(r,x,es,fin) <> rit Then riga = riga & "--" & " "
			kk = kk + 1
		Next
		Scrivi "Ritardo... " & FormatSpace(rit,2) & "  cont... " & FormatSpace(k,2) & "  " & riga
		riga = ""
		k = 0
	Next
	'--------- quest parte funziona solo co versione 1,4,90 ----------------------
	Scrivi
	
	Scrivi "Elenco riepilogo Ritardatari",1
	Scrivi
	Call PiuRitardatari(fin,r,0,Nu,Ritt)
	For x = 1 To 10
	

	Scrivi Format2(Nu(x)) & " ritarda da...  " & Ritt(x)
	Next
	'................................................................
End Sub

 

[ppaaoolloo]

ciao mike
non mi è tanto congeniale,
poverò a chiedere al grande luigi
se riesce ad implementarlo in spaziometria
il tabellone analitico
c'è già ruota per ruota spero riesca ad aggiungerci
anche la ruota "tutte"

grazie comunque mike
continuerò a seguirti per gli altri
script che sempre riesci a trovare

ciao

 

[ppaaoolloo]

ciao mike
metto lo script per la ruota "tutte"
merito del nostro grande Luigi

Sub Main
Dim Mx(12)
'----------------------
ReDim aRuote(10)
aRuote(1) = 1
aRuote(2) = 2
aRuote(3) = 3
aRuote(4) = 4
aRuote(5) = 5
aRuote(6) = 6
aRuote(7) = 7
aRuote(8) = 8
aRuote(9) = 9
aRuote(10) = 10
Call GeneraAnaliticoRuote(EstrazioneFin,aRuote)

Scrivi
'----------------------
For Rit = 0 To 100
Scrivi " Rit " & FormatSpace(rit,4),0,0
For R = 1 To 10
For P = 1 To 5
Tmp = TabelloneAnaliticoRuote(Rit,R,P)
If Tmp > 0 Then
Scrivi Format2(tmp) & " ",0,0
Else
Scrivi "-- ",0,0
End If
Next
Scrivi " | ",0,0
Next
Scrivi
Next
'--------------------
End Sub

 

[Mike58]

Si ho visto, vedi che ci voleva una nuova funzione per generarlo.

Dopo magari ci aggiorni su come utilizzarlo ai fini dei possibili estraendi futuri.

Ciao