X SCRIPTERS CON LA S MAIUSCOLA

[lotto_tom75]

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

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

Grazie a tutti/e per l'attenzione e good sunday

 

[lotto_tom75]

Provo a portare su... nella remotissima speranza che non sia stato visto da nessun scripter esperto

 

[Mike58]

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.

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

 

[lotto_tom75]

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.

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! 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°

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!

 

[Mike58]

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