Novità

UN AIUTINO PER ULTIMARE UNO SCRIPT--GRAZIE!!!!

  • Creatore Discussione Creatore Discussione rob
  • Data di inizio Data di inizio
R

rob

Advanced Member >PLATINUM<
ALLORA RAGAZZI,NON VORREI DISTURBARE NESSUNO IN PARTICOLARE,MA CERCO QUALCUNO CHE CORTESEMENTE FACCIA UNA SEMPLICE MODIFICA ALLO SCRIPT IN BASSO (GIA' MODIFICATO DA MIKE58 E DA CLAUDIO8) VI RINGRAZIO ANTICIPATAMENTE!!

-LA MODIFICA RIPETO E' MOLTO SEMPLICE:
ATTUALMENTE LO SCRIPT CI DA L'OPPORTUNITA' DI SCEGLIERE UNA SPIA IN UNA SOLA RUOTA (E FIN QUI' TUTTO OK) PERO' POI SI E' OBBLIGATI A GIOCARE SU DUE RUOTE!!

-LA MODIFICA DA FARE E' QUELLA DI SCEGLIERE UNA SOLA RUOTA PER LA SPIA E UNA SOLA RUOTA DOVE GIOCARE...TUTTO QUI'
---------------------------------------------------------
---------------------------------------------------------

Sub Main()
Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
Dim rut(10),nn3(2),mt4(90,3),rutt(10),cc,r,a
ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
r = CInt(InputBox("RUOTA DELL 'AMBATA SPIA","RUOTA",2))
a = CInt(InputBox(" NUMERO AMBATA SPIA","1° SPIA",9))
ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",1))
ru(2) = CInt(InputBox("RUOTE DEI FREQ. ","2° RUOTA",2))
rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",1)))
rutt(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2)))
cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
rru(1) = 11 'freq a tutte
ini = EstrazioneFin - ESRT 'estrazione di partenza
fin = EstrazioneFin 'estrazione finale
cc = 0
For es = ini To fin
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
For i = 1 To 89
n(1) = i
For j = i + 1 To 90
n(2) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = n(2)
fr = SerieFreq(es + 1,es + cl,n,ru,2)
mt(co,4) = mt(co,4) + fr
Next
Next
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
mt1(co,3) = mt1(co,3) + fr1
Next
co = 0
For i1 = 1 To 89
n1(1) = i1
For j1 = i1 + 1 To 90
n1(2) = j1
co = co + 1
mt2(co,1) = co
mt2(co,2) = n1(1)
mt2(co,3) = n1(2)
fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
mt2(co,4) = mt2(co,4) + fr2
Next
Next
co = 0
For ii1 = 1 To 90
nn2(1) = ii1
co = co + 1
mt3(co,1) = co
mt3(co,2) = nn2(1)
fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
mt3(co,3) = mt3(co,3) + fr3
Next
co = 0
For ii2 = 1 To 90
nn3(1) = ii2
co = co + 1
mt4(co,1) = co
mt4(co,2) = nn3(1)
fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
mt4(co,3) = mt4(co,3) + fr4
Next
'----------------------------------------------------
ColoreTesto 2
Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
OrdinaMatrice mt1,- 1,3
OrdinaMatrice mt2,- 1,4
OrdinaMatrice mt3,- 1,3
OrdinaMatrice mt4,- 1,3
Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0 ' lo 0 serve a portare su la riga successiva
Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi " Le 2 Ruote di ricerca sono le ruota di: " & NomeRuota(ru(1)) & " e di " & NomeRuota(ru(2)) & ""
Scrivi " Ambi+frequenti | Estratti+frequenti | Ambi+pres nei cicli | Estratti+freq 1ª RUOTA | Estratti+freq 2ª RUOTA"

ColoreTesto 2

Scrivi Space(1) & "Ambo+FRE su 2R | Estratto+PRE su 2R | Ambo+FREQ A TUTTE R | Estratto.+FREQ " & FormatSpace(NomeRuota(rut(1)),7,1) & " | Estratto+FREQ " & NomeRuota(rutt(1)) & ""
ColoreTesto 0
For xx = 1 To 25
Scrivi Space(3) & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & Space(3) & Format2(mt(xx,4)) & Space(11) & Format2(mt1(xx,2)) & Space(3) & Format2(mt1(xx,3)) & Space(14) & _
Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & Space(3) & Format2(mt2(xx,4)) & Space(14) & Format2(mt3(xx,2)) & Space(3) & Format2(mt3(xx,3)) & Space(16) & _
Format2(mt4(xx,2)) & Space(3) & Format2(mt4(xx,3))
Next
End Sub
 
"Credo" Basti mettere nei 2 input la stessa ruota
Senza modificare nulla

Blackmore
 
Eheheh, questa è un modifica casereccia, se non si ha tempo o voglia (o non si è capaci) di fare e/o modificare lo script, si mette la stessa ruota e chi s'è visto s'è visto......
Ciao

Blackmore
 
quote:Originally posted by desperaux

Ciao Rob

saresti cosi' gentile da inserire lo script modificato ?

grazie
Clicca per espandere...


Ciao Rob se ho capito bene prova questo

Mike58


Sub Main()
Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
Dim rut(10),nn3(2),mt4(90,3),rutt(10),cc,r,a
ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
r = CInt(InputBox("RUOTA DEL NUMERO SPIA","RUOTA",1))
a = CInt(InputBox(" NUMERO AMBATA SPIA","SPIA",9))
ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",2))
rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",2)))
cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
rru(1) = 11
ini = EstrazioneFin - ESRT
fin = EstrazioneFin
cc = 0
For es = ini To fin
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
For i = 1 To 89
n(1) = i
For j = i + 1 To 90
n(2) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = n(2)
fr = SerieFreq(es + 1,es + cl,n,ru,2)
mt(co,4) = mt(co,4) + fr
Next
Next
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
mt1(co,3) = mt1(co,3) + fr1
Next
co = 0
For i1 = 1 To 89
n1(1) = i1
For j1 = i1 + 1 To 90
n1(2) = j1
co = co + 1
mt2(co,1) = co
mt2(co,2) = n1(1)
mt2(co,3) = n1(2)
fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
mt2(co,4) = mt2(co,4) + fr2
Next
Next
co = 0
For ii1 = 1 To 90
nn2(1) = ii1
co = co + 1
mt3(co,1) = co
mt3(co,2) = nn2(1)
fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
mt3(co,3) = mt3(co,3) + fr3
Next
co = 0
For ii2 = 1 To 90
nn3(1) = ii2
co = co + 1
mt4(co,1) = co
mt4(co,2) = nn3(1)
fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
mt4(co,3) = mt4(co,3) + fr4
Next
'----------------------------------------------------
ColoreTesto 2
Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
OrdinaMatrice mt1,- 1,3
OrdinaMatrice mt2,- 1,4
OrdinaMatrice mt3,- 1,3
OrdinaMatrice mt4,- 1,3
Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi"-------------------------------------------------------------------------------------------"
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi " La Ruota di gioco è la ruota di: " & NomeRuota(ru(1)),1
Scrivi"-------------------------------------------------------------------------------------------"
Scrivi "Ambi+frequenti su ruota | Estratti+frequenti | Ambi+pres nei cicli |"
ColoreTesto 2
Scrivi "Ambo+Frequente su ruota | Estratto+PRE su ruota | Ambo+FREQ A TUTTE |"
ColoreTesto 0
For xx = 1 To 25
Scrivi Space(3) & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & Space(5) & Format2(mt(xx,4)) & Space(15) & Format2(mt1(xx,2)) & Space(5) & Format2(mt1(xx,3)) & Space(14) & _
Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & Space(5) & Format2(mt2(xx,4))
Next
End Sub







GRAZIE MIKE LO SCRIPT E' PERFETTO
 
Ciao Rob, ho rifatto altre modifiche allo script con aggiunta ritardo della serie ambi e estratti.
Purtroppo bisogna usarlo adesso con range ristretto altrimenti primo risulta lungo nella elaborazione e dopo perde la formattazione causa numeri ritardi a 3 cifre.

Ripeto è solo di esempio e se ti interessa posso provare a ripulirlo e riformattarlo.

Ciao Mike58


Codice: 
Sub Main()
	Dim mt(4005,5),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,5),mt2(4005,5),nn2(2),mt3(90,5)
	Dim rut(10),nn3(2),mt4(90,3),rutt(10),cc,r,a
	ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",100))
	r = CInt(InputBox("RUOTA DEL NUMERO SPIA","RUOTA",1))
	a = CInt(InputBox(" NUMERO AMBATA SPIA","SPIA",9))
	ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",2))
	rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",2)))
	cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
	rru(1) = 11
	ini = EstrazioneFin - ESRT
	fin = EstrazioneFin
	cc = 0
	For es = ini To fin
		If Posizione(es,r,a) > 0 Then
			cc = cc + 1
			co = 0
			For i = 1 To 89
				n(1) = i
				For j = i + 1 To 90
					n(2) = j
					co = co + 1
					mt(co,1) = co
					mt(co,2) = n(1)
					mt(co,3) = n(2)
					fr = SerieFreq(es + 1,es + cl,n,ru,2)
					mt(co,4) = mt(co,4) + fr
					rit = SerieRitardo(Ini,fin,n,ru,2)
					mt(co,5) = rit
				Next
			Next
			co = 0
			For ii = 1 To 90
				nn(1) = ii
				co = co + 1
				mt1(co,1) = co
				mt1(co,2) = nn(1)
				fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
				mt1(co,3) = mt1(co,3) + fr1
				rit1 = SerieRitardo(Ini,fin,nn,ru,1)
				mt1(co,5) = rit1
			Next
			co = 0
			For i1 = 1 To 89
				n1(1) = i1
				For j1 = i1 + 1 To 90
					n1(2) = j1
					co = co + 1
					mt2(co,1) = co
					mt2(co,2) = n1(1)
					mt2(co,3) = n1(2)
					fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
					mt2(co,4) = mt2(co,4) + fr2
					rit2 = SerieRitardo(Ini,fin,n1,rru,2)
					mt2(co,5) = rit2

				Next
				
			Next
			co = 0
			For ii1 = 1 To 90
				nn2(1) = ii1
				co = co + 1
				mt3(co,1) = co
				mt3(co,2) = nn2(1)
				fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
				mt3(co,3) = mt3(co,3) + fr3
			Next
			co = 0
			For ii2 = 1 To 90
				nn3(1) = ii2
				co = co + 1
				mt4(co,1) = co
				mt4(co,2) = nn3(1)
				fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
				mt4(co,3) = mt4(co,3) + fr4
			Next
			'----------------------------------------------------
			ColoreTesto 2
			Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
			'----------------------------------------------------
			ColoreTesto 0
		End If
	Next
	OrdinaMatrice mt,- 1,4
	OrdinaMatrice mt1,- 1,3
	OrdinaMatrice mt2,- 1,4
	OrdinaMatrice mt3,- 1,3
	OrdinaMatrice mt4,- 1,3
	Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
	Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
	ColoreTesto 1
	Scrivi " La Ruota di gioco è la ruota di: " & NomeRuota(ru(1)),1
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi "| Ambi+frequenti su ruota con relativo ritardo  |          Ambate con freq & ritardo        |" & "Ambi a tutte + frequenti con relativo ritardo|",1,- 1,3
	ColoreTesto 2
	'Scrivi "Ambo+Frequente su ruota | Estratto+PRE su ruota |     Ambo+FREQ A TUTTE        |"
	ColoreTesto 0
	For xx = 1 To 25
		Scrivi "|  " & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & " - Frequenza " & Format2(mt(xx,4)) & " --> Ritardo ambo... " & mt(xx,5) & _
		 "  | " & Format2(mt1(xx,2)) & " - Frequenza... " & Format2(mt1(xx,3)) & " --> Ritarda da... " & Format2(mt1(xx,5)) & " | " & _
		 Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & " - Freq... " & Format2(mt2(xx,4)) & " --> Ritardo ambo... " & Format2(mt2(xx,5)) & "   |"
 
CIAO MIKE,HAI FATTO UNA COSA FANTASTICA...TE LO VOLEVO CHIEDERE MA DOPO TUTTE LE MODIFICHE CHE MI AVEVI FATTO IN PRECEDENZA NON NE AVEVO IL CORAGGIO!!!-L'UNICA COSA CHE MODIFICHEREI ANCORA E' ACCORCIARE LE PAROLE FREQUENZA E RITARDO (CON FREQ.RIT.) E L'ALLINEAMENTO DEI NUMERI!!-COMUNQUE GRAZIE;CI SENTIAMO

ROB
:)
 
Ciao Rob, ho aggiustato l'output anche con 3 numeri non dovrebbe perdere la formattazione.
C'è solo il problema del tempo ahimè non riesco a farlo elaborare in tempi accettabili, e qui non sò.
Ti allego lo script fanne buon uso e rintraccia qualche buona previsione.

Ciao Mike58

P.S.(fra poco mi tocca andare al lavoro)


Codice: 
Sub Main()
	Dim mt(4005,5),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,5),mt2(4005,5),nn2(2),mt3(90,5)
	Dim rut(10)
	ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",200))
	r = CInt(InputBox("RUOTA DEL NUMERO SPIA","RUOTA",1))
	a = CInt(InputBox(" NUMERO AMBATA SPIA","SPIA",9))
	ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",2))
	rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",2)))
	cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
	rru(1) = 11
	ini = EstrazioneFin - ESRT
	fin = EstrazioneFin
	Tot = fin-Ini
	cc = 0
	For es = ini To fin
		If Posizione(es,r,a) > 0 Then
			cc = cc + 1
			co = 0
			'------------ calcolo ambo a ruota --------------------
			For i = 1 To 89
				n(1) = i
				For j = i + 1 To 90
					n(2) = j
					co = co + 1
					mt(co,1) = co
					mt(co,2) = n(1)
					mt(co,3) = n(2)
					fr = SerieFreq(es + 1,es + cl,n,ru,2)
					mt(co,4) = mt(co,4) + fr
					rit = SerieRitardo(Ini,fin,n,ru,2)
					mt(co,5) = rit
				Next
			Next
			'-------------- calcolo ambata a ruota ---------------------
			co = 0
			For ii = 1 To 90
				nn(1) = ii
				co = co + 1
				mt1(co,1) = co
				mt1(co,2) = nn(1)
				fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
				mt1(co,3) = mt1(co,3) + fr1
				rit1 = SerieRitardo(Ini,fin,nn,ru,1)
				mt1(co,5) = rit1
			Next
			'----------- calcolo ambi a tutte ---------------------------
			co = 0
			For i1 = 1 To 89
				n1(1) = i1
				For j1 = i1 + 1 To 90
					n1(2) = j1
					co = co + 1
					mt2(co,1) = co
					mt2(co,2) = n1(1)
					mt2(co,3) = n1(2)
					fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
					mt2(co,4) = mt2(co,4) + fr2
					rit2 = SerieRitardo(Ini,fin,n1,rru,2)
					mt2(co,5) = rit2

				Next
				
			Next
			
			
			ColoreTesto 2
			Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
			'----------------------------------------------------
			ColoreTesto 0
		End If
	Next
	OrdinaMatrice mt,- 1,4
	OrdinaMatrice mt1,- 1,3
	OrdinaMatrice mt2,- 1,4
	
	Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
	Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin),0,0
	ColoreTesto 1 
	Scrivi " Totali estraz. " & Tot,1
	ColoreTesto 0
	
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
	ColoreTesto 1
	Scrivi " La Ruota di gioco è la ruota di: " & NomeRuota(ru(1)),1
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi "| Ambi+freq. su ruota con relativo ritardo   |   Ambate con freq & ritardo      |" & " Ambi a tutte + frequenti con relativo ritardo |",1,- 1,3
	ColoreTesto 2
	
	ColoreTesto 0
	For xx = 1 To 25
		Scrivi "|  " & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & " - Freq... " & Format2(mt(xx,4)) & " --> Rit. ambo... " & FormatSpace(mt(xx,5),3) & _
		 Space(3) & "|",0,0
		Scrivi Space(2) & Format2(mt1(xx,2)) & " - Freq... " & Format2(mt1(xx,3)) & " --> Rit... " & FormatSpace(mt1(xx,5),3) & vbTab & "|" & _
		 Space(3) & Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & " - Freq... " & Format2(mt2(xx,4)) & " --> Rit. ambo... " & FormatSpace(mt2(xx,5),3)& vbTab & "|"
		
		
	Next
	Scrivi
	Scrivi " Modifica by Mike58 ",1,- 1,6
End Sub
 
ciao per velocizzare un pochino si potrebbe invece che richaimare 2
volte le funzioni SerireFreq e SerieRitardo un unica volta
la funzione StatisticaFormazione che consente di ottenere contemporaneamente sia il ritardo che la frequenza.
 
CIAO LUIGI,GRAZIE X ESSERE INTERVENUTO E SOPRATUTTO X IL PREZIOSISSIMO CONSIGLIO!!-MIKE A QUANTO PARE E ' ANDATO A LAVORO E SICURAMENTE APPENA LEGGERA' IL TUO INTERVENTO PROVERA' A SISTEMARE LO SCRIPT!!

CIAO ROB

:)
 
Ciao , si non so se in questo caso si puo perche non ho letto bene lo script
pero in linea di massima se i rilevamenti di ritardo e frequenza si riferiscono alla
stessa formazione e per lo stesso periodo conviene fare
come ho suggerito perche si dimezza il passaggio.
 
Ciao Luigi, perdona il mio limite ma mi viene spontanea una domanda
la funzione statisticaformazione come faccio ad usarla nello script in questione se la frequenza agisce sul range x numero di colpi

esempio - fr = SerieFreq(es + 1,es + cl,n,ru,2)

ed il ritardo su tutto il range?

esempio - rit = SerieRitardo(Ini,fin,n,ru,2)

Io l'avrei messa così ma non da risultati

st = StatisticaFormazione(n,ru,2,ritardo,0,0,freq,Ini,fin)
dopo aver dichiarato in matrice dim Ritardo e freq

Sicuramente devo ancora capire bene ma rimane il dubbio della prima domanda, anche se la risposta è già nel tuo scritto in quanto parli di stesso periodo.

Ciao Mike58
 
Cioa Mike , si io infatti avevo scritto che si poteva fare
in quel modo se il periodo esaminato avesse coinciso.
Comunque invece che serieritardo che lavora su tutto il range impostato
puoi usare RitardoCombinazione che è un po piu veloce in quanto parte
dal valore massimo del range analizzato e va a ritroso per calcolare il ritardo e poi esce.
 
Ciao grazie alla dritta di Luigi usando il codice RitardoCombinazione anzichè serieritaro lo stesso script a parita di range lavora in 22 secondi anzichè 37

riallego lo script x Rob modificato

Ciao e ancora grazie a luigi per la dritta.

Mike58


Codice: 
Sub Main()
	Dim mt(4005,5),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,5),mt2(4005,5),nn2(2),mt3(90,5)
	Dim rut(10)
	ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",200))
	r = CInt(InputBox("RUOTA DEL NUMERO SPIA","RUOTA",1))
	a = CInt(InputBox(" NUMERO AMBATA SPIA","SPIA",9))
	ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",2))
	rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",2)))
	cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
	rru(1) = 11
	nStart = Timer

	ini = EstrazioneFin - ESRT
	fin = EstrazioneFin
	Tot = fin - Ini
	cc = 0
	For es = ini To fin
		If Posizione(es,r,a) > 0 Then
			cc = cc + 1
			co = 0
			'------------ calcolo ambo a ruota --------------------
			For i = 1 To 89
				n(1) = i
				For j = i + 1 To 90
					n(2) = j
					co = co + 1
					mt(co,1) = co
					mt(co,2) = n(1)
					mt(co,3) = n(2)
					fr = SerieFreq(es + 1,es + cl,n,ru,2)
					mt(co,4) = mt(co,4) + fr
					rit = RitardoCombinazione(ru,n,2)
					mt(co,5) = rit
				Next
			Next
			'-------------- calcolo ambata a ruota ---------------------
			co = 0
			For ii = 1 To 90
				nn(1) = ii
				co = co + 1
				mt1(co,1) = co
				mt1(co,2) = nn(1)
				fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
				mt1(co,3) = mt1(co,3) + fr1
				rit1 = RitardoCombinazione(ru,nn,1)
				mt1(co,5) = rit1
			Next
			'----------- calcolo ambi a tutte ---------------------------
			co = 0
			For i1 = 1 To 89
				n1(1) = i1
				For j1 = i1 + 1 To 90
					n1(2) = j1
					co = co + 1
					mt2(co,1) = co
					mt2(co,2) = n1(1)
					mt2(co,3) = n1(2)
					fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
					mt2(co,4) = mt2(co,4) + fr2
					rit2 = RitardoCombinazione(rru,n1,2)
					mt2(co,5) = rit2

				Next
				
			Next
			
			
			ColoreTesto 2
			Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
			'----------------------------------------------------
			ColoreTesto 0
		End If
	Next
	OrdinaMatrice mt,- 1,4
	OrdinaMatrice mt1,- 1,3
	OrdinaMatrice mt2,- 1,4
	
	Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
	Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin),0,0
	ColoreTesto 1
	Scrivi " Totali estraz. " & Tot,1
	ColoreTesto 0
	
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
	ColoreTesto 1
	Scrivi " La Ruota di gioco è la ruota di: " & NomeRuota(ru(1)),1
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi "| Ambi+freq. su ruota con relativo ritardo   |   Ambate con freq & ritardo      |" & " Ambi a tutte + frequenti con relativo ritardo |",1,- 1,3
	ColoreTesto 2
	
	ColoreTesto 0
	For xx = 1 To 25
		Scrivi "|  " & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & " - Freq... " & Format2(mt(xx,4)) & " --> Rit. ambo... " & FormatSpace(mt(xx,5),3) & _
		 Space(3) & "|",0,0
		Scrivi Space(2) & Format2(mt1(xx,2)) & " - Freq... " & Format2(mt1(xx,3)) & " --> Rit... " & FormatSpace(mt1(xx,5),3) & vbTab & "|" & _
		 Space(3) & Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & " - Freq... " & Format2(mt2(xx,4)) & " --> Rit. ambo... " & FormatSpace(mt2(xx,5),3) & vbTab & "|"
		
		
	Next
	Scrivi
	Scrivi " Modifica by Mike58 ",1,- 1,6
	nEnd = Timer
	Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub

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
 
CIAO MIKE,HO VISTO SOLO ADESSO QUESTA TUTA MODIFICA E L'HO ANCHE PROVATA!!-PERMETTIMI DI DIRTI CHE LA MIGLIORE VERSIONE E' QUELLA PRECEDENTE A QUESTA PERCHE' PURTROPPO AGGIUNGENDO ANCHE IL RITARDO SI E' OBBLIGATI A RIDURRE IL NUMERO DI ESTRAZIONI DA ESAMINARE ALTRIMENTI I TEMPI DI ELABORAZIONE SAREBBERO LUNGHISSIMI E INOLTRE LA QUANTITA' DEGLI AMBI CHE VENGONO FUORI DAL "REPORT" E' TROPPO ESIGUA QUINDI AI FINI PREVISIONALI NON NON E' SUFFICIENTE!!-COMUNQUE GRAZIE ANCORA PER L'IMPEGNO E PER IL LAVORO SVOLTO!!-UTILIZZEREMO QUINDI LA VERSIONE PRECEDENTE A QUESTA!!

-SALUTI ROB
:)
 
Ciao Rob, ho analizzato anch'io lo script con le varie modifiche e ho visto che il 1° script senza l'aggiunta del ritardo da gli stessi dati dell'ultimo con ritadocombinazione
solo che questo elabora i risultati su un range di 500 estrazioni in 1 min e 30 sec.(sul mio pc).
Mentre ci sono come hai evidenziato tu differenze tra lo script con serieritardo e ritardocombinazione
non solo di tempo infatti il 1° elabora in 6 min. ed il 2° in 1,30 min. ma anche i dati ricavati non sono uguali e qui bisognerebbe capire il perchè...

Comunque l'ultimo sembra ok e solo questione di tempi di elaborazione.
Poi se Luigi ci mette magari mano si potrebbe anche venire a capo di quella incongruenza di dati tra il serieritardo e ritardocombinazione.

Ciao Mike58
 
X Rob
Mi potresti spiegare come usi questi script sui frequenti?

Hai possibilita di verificarne la efficenza dei suoi risultati?

Sai dirmi come si comportano i + frequenti o i meno frequenti?

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
quote:Originally posted by Mike58

Ciao Rob, ho analizzato anch'io lo script con le varie modifiche e ho visto che il 1° script senza l'aggiunta del ritardo da gli stessi dati dell'ultimo con ritadocombinazione
solo che questo elabora i risultati su un range di 500 estrazioni in 1 min e 30 sec.(sul mio pc).
Mentre ci sono come hai evidenziato tu differenze tra lo script con serieritardo e ritardocombinazione
non solo di tempo infatti il 1° elabora in 6 min. ed il 2° in 1,30 min. ma anche i dati ricavati non sono uguali e qui bisognerebbe capire il perchè...

Comunque l'ultimo sembra ok e solo questione di tempi di elaborazione.
Poi se Luigi ci mette magari mano si potrebbe anche venire a capo di quella incongruenza di dati tra il serieritardo e ritardocombinazione.

Ciao Mike58
Clicca per espandere...

OK MIKE,BUONA DOMENICA!!-ROB :)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto