Novità

X SCRIPTERS CON LA S MAIUSCOLA

lotto_tom75

Advanced Premium Member
Qualcuno/a riuscirebbe a fare uno script che:

Dandogli in pasto... un corposo gruppo di lunghette (es. oltre 3000)...

Riesca a calcolare i parametri RA, RS, INCMAX , incmax di incmax per A per ognuna di queste su TUTTE unite o separate e non solo per una estrazione alla volta ma per TOT estrazioni volute (es. per le ultime 90 estrazioni partendo ad es. dal 1871) ?

Se qualcuno riuscisse a realizzarlo sarebbe ultra interessante credo per noi tutti :o

Disponibile 24h su 24 per maggiori eventuali chiarimenti in merito.

Grazie a tutti/e per l'attenzione e good sunday :)
 
Ultima modifica:
Ciao Tom, Rettificando che non sono scripter con la "S maiuscola ", solo script dotato di buona VOLONTA' ho riadattato e devi riadattarlo questo script che fa in qualche modo quello che vuoi ottenere.
Solo devi inserirti le combinazioni che vuoi e nel numero che vuoi nell'apposito spazio di inserimento combinazioni AVENDO CURA DI maggiorare la DIM e al numero di combinazioni volute.
Mi manca solo l'icremento dell incremento (questo non lo so calcolare) per il resto è abbastanza intiutivo.

Codice:
Sub Main
End Sub
Sub Main
	Dim a(8)'NUMERO DA MODIFICARE IN BASE ALLE COMBINAZIONI INSERITE
	Dim Ru(1)
	Dim k
	Dim nu
	ReDim aruote(1)
	sorte = CInt(InputBox("QUALE SORTE Minima VERIFICO le combinazioni alla estraz. FIN ",,2))
	Fin = EstrazioneFin
	Ini = EstrazioneIni
	Scrivi "Quartine Radicali ",1,- 1,4
	Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
	Scrivi "dalla data inizio... " & DataEstrazione(Ini) & " alla data fine... " & DataEstrazione(Fin),1
	Scrivi 
	Scrivi "Verifica Minima di..." & NomeSorte(sorte),True,,,2,3
	For k = 1 To 12
		'
		Ru(1) = k
		nstart = Timer
		Scrivi "Ruota di... " & NomeRuota(Ru(1)),1,- 1,3
		ReDim atitoli(8)
		atitoli(1) = " Casi "
		atitoli(2) = " COMBINAZIONI "
		atitoli(3) = "Rit Attuale "
		atitoli(4) = "Rit Max storico "
		atitoli(5) = " Incr Max "
		atitoli(6) = " Frequenze "
		atitoli(7) = " Esito "
		atitoli(8) = " Estratti "
		Call InitTabella(atitoli,1,,3,5)
		'------inserimento combinazioni----------------------------------
		a(1) = "1-10-11-19"
		a(2) = "2-20-22-29"
		a(3) = "3-30-33-39"
		a(4) = "4-40-44-49"
		a(5) = "5-50-55-59"
		a(6) = "6-60-66-69"
		a(7) = "7-70-77-79"
		a(8) = "8-80-88-89"
		'-----------fine inserimento-------------------------------------
		For N = 1 To UBound(a)
			nu = Split("0-" &(a(n)),"-")
			'-----------------------------------------------------------------
			Call StatisticaFormazioneTurbo(nu,Ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
			Call VerificaEsitoTurbo(nu,Ru,fin,sorte,1,Nothing,retesito,retcolpi,retestratti,retid)
			ReDim avalori(8)
			avalori(1) = n
			avalori(2) = StringaNumeri(nu)
			avalori(3) = rerit
			avalori(4) = reritmax
			avalori(5) = Incrmax
			avalori(6) = refre
			avalori(7) = retesito
			avalori(8) = retestratti
			Call AddRigaTabella(avalori,,,3)
			Call SetColoreCella(1,,vbBlue)
			Call SetColoreCella(2,,vbRed)
			Call SetColoreCella(3,4,0)
			Call SetColoreCella(4,4,0)
			Call SetColoreCella(5,4,0)
		Next
		Call CreaTabella()
	Next
	nend = Timer
	Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart),True,,,1,3)
	Scrivi 
	Scrivi " **** Tabella Listed By Mike58 ***** ",True,True,2,4,3
End Sub
Function RitDiPos(nu,pos,aruote)
	ReDim apos(5)
	apos(pos) = True
	RitDiPos = RitardoCombinazioneTurbo(aruote,nu,1,0,apos)
End Function
Function FormattaSecondi(s)
	'Questa Function trasforma il numero di secondi passato come parametro in una stringa
	' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
	' s ---> Numero di secondi da formattare
	' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
	Dim hh
	Dim Mm
	Dim Ss
	Dim TimeStr
	hh = s \ 3600
	Mm =(s Mod 3600) \ 60
	Ss = s -((hh * 3600) +(Mm * 60))
	TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
	FormattaSecondi = TimeStr
End Function
 
Ciao Tom, Rettificando che non sono scripter con la "S maiuscola ", solo script dotato di buona VOLONTA' ho riadattato e devi riadattarlo questo script che fa in qualche modo quello che vuoi ottenere.
Solo devi inserirti le combinazioni che vuoi e nel numero che vuoi nell'apposito spazio di inserimento combinazioni AVENDO CURA DI maggiorare la DIM e al numero di combinazioni volute.
Mi manca solo l'icremento dell incremento (questo non lo so calcolare) per il resto è abbastanza intiutivo.

Codice:
Sub Main
End Sub
Sub Main
	Dim a(8)'NUMERO DA MODIFICARE IN BASE ALLE COMBINAZIONI INSERITE
	Dim Ru(1)
	Dim k
	Dim nu
	ReDim aruote(1)
	sorte = CInt(InputBox("QUALE SORTE Minima VERIFICO le combinazioni alla estraz. FIN ",,2))
	Fin = EstrazioneFin
	Ini = EstrazioneIni
	Scrivi "Quartine Radicali ",1,- 1,4
	Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
	Scrivi "dalla data inizio... " & DataEstrazione(Ini) & " alla data fine... " & DataEstrazione(Fin),1
	Scrivi 
	Scrivi "Verifica Minima di..." & NomeSorte(sorte),True,,,2,3
	For k = 1 To 12
		'
		Ru(1) = k
		nstart = Timer
		Scrivi "Ruota di... " & NomeRuota(Ru(1)),1,- 1,3
		ReDim atitoli(8)
		atitoli(1) = " Casi "
		atitoli(2) = " COMBINAZIONI "
		atitoli(3) = "Rit Attuale "
		atitoli(4) = "Rit Max storico "
		atitoli(5) = " Incr Max "
		atitoli(6) = " Frequenze "
		atitoli(7) = " Esito "
		atitoli(8) = " Estratti "
		Call InitTabella(atitoli,1,,3,5)
		'------inserimento combinazioni----------------------------------
		a(1) = "1-10-11-19"
		a(2) = "2-20-22-29"
		a(3) = "3-30-33-39"
		a(4) = "4-40-44-49"
		a(5) = "5-50-55-59"
		a(6) = "6-60-66-69"
		a(7) = "7-70-77-79"
		a(8) = "8-80-88-89"
		'-----------fine inserimento-------------------------------------
		For N = 1 To UBound(a)
			nu = Split("0-" &(a(n)),"-")
			'-----------------------------------------------------------------
			Call StatisticaFormazioneTurbo(nu,Ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
			Call VerificaEsitoTurbo(nu,Ru,fin,sorte,1,Nothing,retesito,retcolpi,retestratti,retid)
			ReDim avalori(8)
			avalori(1) = n
			avalori(2) = StringaNumeri(nu)
			avalori(3) = rerit
			avalori(4) = reritmax
			avalori(5) = Incrmax
			avalori(6) = refre
			avalori(7) = retesito
			avalori(8) = retestratti
			Call AddRigaTabella(avalori,,,3)
			Call SetColoreCella(1,,vbBlue)
			Call SetColoreCella(2,,vbRed)
			Call SetColoreCella(3,4,0)
			Call SetColoreCella(4,4,0)
			Call SetColoreCella(5,4,0)
		Next
		Call CreaTabella()
	Next
	nend = Timer
	Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart),True,,,1,3)
	Scrivi 
	Scrivi " **** Tabella Listed By Mike58 ***** ",True,True,2,4,3
End Sub
Function RitDiPos(nu,pos,aruote)
	ReDim apos(5)
	apos(pos) = True
	RitDiPos = RitardoCombinazioneTurbo(aruote,nu,1,0,apos)
End Function
Function FormattaSecondi(s)
	'Questa Function trasforma il numero di secondi passato come parametro in una stringa
	' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
	' s ---> Numero di secondi da formattare
	' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
	Dim hh
	Dim Mm
	Dim Ss
	Dim TimeStr
	hh = s \ 3600
	Mm =(s Mod 3600) \ 60
	Ss = s -((hh * 3600) +(Mm * 60))
	TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
	FormattaSecondi = TimeStr
End Function

Se mi menzionassi all'inizio del tuo fantastico script sarebbe il top! :D Scherzo!
Ri-rettifico... Sei uno degli scripter con la S gigante! ;) Ti dico adesso una piccolissima
ottimizzazione che se ci riesci ti garantirebbe l'Olimpo degli scripters carissimo Mike! :)
Dunque se si potesse mettere un relativo codice che importasse da un file txt
il gruppo di combinazioni voluto... anzichè dover implementare il gruppo stesso
ogni volta nel programma nell'apposita sezione egregiamente comunque da te evidenziata
sarebbe il top del top del top ;) Per quanto riguarda incmax dell'incamx (incmax di 2° livello)
don't worry anche perchè sono già alla ricerca del III° :D

GRAZIE MILLE MAGO! ;) :)
Spero di riuscire a capire sempre di piu' riguardo questo fantastico mondo degli script spaziometrici... anche studiando la fantastica guida dell'inarrivabile Luigib e dei suoi bravissimi collaboratori! E di arrivare all'1% del tuo scibile in tal senso!
 
Ciao Tom, non ho mai fatto l'import del file di testo devo spulciare qualche guida se riesco non ci sono problemi a ripostare il tutto.
Ti ringrazio anche per i complimenti ma veramente quello che vedi è solo impegno e ordine nella esecuzione dei calcoli.
Incrmax di incrmax per ora buio e anche qui se arrivo a qualche input vedremo.

Ciao ti posso consigliare di leggere la guida e anche scopiazzare tra i tanti script e memorizzarne i passaggi, non è difficile, ricordo che ci stavi provando ed ora con la guida almeno c'è la logica per provarci.

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 ottobre 2025
    Bari
    89
    74
    27
    47
    37
    Cagliari
    78
    13
    22
    83
    44
    Firenze
    56
    79
    68
    59
    75
    Genova
    74
    40
    71
    57
    18
    Milano
    88
    11
    33
    07
    84
    Napoli
    53
    25
    49
    83
    85
    Palermo
    49
    25
    85
    20
    11
    Roma
    14
    50
    75
    10
    13
    Torino
    43
    67
    36
    72
    73
    Venezia
    88
    55
    26
    59
    37
    Nazionale
    15
    49
    18
    21
    20
    Estrazione Simbolotto
    18
    24
    21
    32
    33
Indietro
Alto