x mike58

giorgio1960 · 4 Giugno 2014

ciao Mike, una cortesia gentilmente, se possibile, modificare il seguente script in modo che la ricerca possa essere fatta su due ruote invece che una

Sub Main
Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i,nCol,aColonne
Dim ruota(1)
r = InputBox("Quale ruota ",,3)
cl = InputBox("Quale classe di sviluppo",,2)
sorte = InputBox("Quale sorte esito analizzo ",,2)
capog = InputBox("Quale capogioco ",,38)

ruota(1) = r
ScegliNumeri(aNum)
Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
Scrivi " Sulla ruota di..." & NomeRuota(r),1
Scrivi " In sviluppo di classe..." & cl,1
ColoreTesto 2
Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1

ColoreTesto 0
For k = 1 To UBound(aNum)
aNum(0) = capog
aNum(k) = aNum(k)
Next
Classe = cl
ReDim atitoli(7)
atitoli(1) = " Contatore "
atitoli(2) = " Sviluppo comb. "
atitoli(3) = " Ritardo "
atitoli(4) = " Ritardo Max "
atitoli(5) = " Frequenza "
atitoli(6) = " Incrmax "
atitoli(7) = " Rit.Medio "
Call InitTabella(atitoli,1,,3,5)
aColonne = InitSviluppoIntegrale(aNum,Classe)
If InitSviluppoIntegrale(aNum,Classe) > 0 Then

Do While GetCombSviluppo(aCol) = True
i = i + 1
'nCol = UBound(aCol)
Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)

ReDim avalori(7)
avalori(1) = FormattaStringa(i,"00")
avalori(2) = StringaNumeri(aCol)
avalori(3) = sr
avalori(4) = st
avalori(5) = sf
avalori(6) = Incr
avalori(7) = Round (sr / aColonne,2)
'--------- calcoli medi ------------
MedRit = Medrit+avalori(3)/aColonne
MedMax = MedMax+avalori(4)/aColonne
MedSf = MedSf+avalori(5)/aColonne
rmed = rmed+avalori(7)/aColonne
rmedio = rmedio+avalori(3)

If i >= 0 And i <= k Then Call AddRigaTabella(avalori,4,,3)
If i > k Then Call AddRigaTabella(avalori,,,3)
Loop

End If

ReDim av(7)
av(1) = " Media "
av(3) = Round(Medrit,2)
av(4) = Round(MedMax,2)
av(5) = Round(MedSf,2)
av(7) = Round(rmed,2)
Call AddRigaTabella(av,3,,3)

CreaTabella()
ReDim atitoli1(8)
atitoli1(1) = " Contatore "
atitoli1(2) = " Sviluppo comb. "
atitoli1(3) = " Ritardo "
atitoli1(4) = " Ritardo Max "
atitoli1(5) = " Frequenza "
atitoli1(6) = " Incrmax "
atitoli1(7) = " Rit.Globale "
atitoli1(8) = " Rit.Medio "
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
ReDim avalori1(8)
avalori1(1) = FormattaStringa(i,"0")
avalori1(2) = StringaNumeri(aNum)
avalori1(3) = sr
avalori1(4) = st
avalori1(5) = sf
avalori1(6) = Incr
avalori1(7) = rmedio
avalori1(8) = Round (rmedio/aColonne,2)

Call AddRigaTabella(avalori1,4,,3)
CreaTabella()
Scrivi
Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub

anticipatamente ringrazio Giorgio

Mike58 · 5 Giugno 2014

Ciao Giorgio, la correzione è di poco impegno.
Eccola.

Codice:

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i,nCol,aColonne
	Dim ruota(2)
	r = InputBox("Quale ruota "," 1^ RUOTA ",3)
	r1 = InputBox("Quale 2^ Ruota"," 2^ ruota ",4)
	cl = InputBox("Quale classe di sviluppo",,2)
	sorte = InputBox("Quale sorte esito analizzo ",,2)
	capog = InputBox("Quale capogioco ",,38)
	ruota(1) = r
	ruota(2) = r1
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	ColoreTesto 0
	For k = 1 To UBound(aNum)
		aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(7)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	atitoli(7) = " Rit.Medio "
	Call InitTabella(atitoli,1,,3,5)
	aColonne = InitSviluppoIntegrale(aNum,Classe)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			'nCol = UBound(aCol)
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,incr,sf,EstrazioneIni,EstrazioneFin)
			ReDim avalori(7)
			avalori(1) = FormattaStringa(i,"00")
			avalori(2) = StringaNumeri(aCol)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			avalori(7) = Round(sr / aColonne,2)
			'--------- calcoli medi ------------
			MedRit = Medrit + avalori(3)/aColonne
			MedMax = MedMax + avalori(4)/aColonne
			MedSf = MedSf + avalori(5)/aColonne
			rmed = rmed + avalori(7)/aColonne
			rmedio = rmedio + avalori(3)
			If i >= 0 And i <= k Then Call AddRigaTabella(avalori,4,,3)
			If i > k Then Call AddRigaTabella(avalori,,,3)
		Loop
	End If
	ReDim av(7)
	av(1) = " Media "
	av(3) = Round(Medrit,2)
	av(4) = Round(MedMax,2)
	av(5) = Round(MedSf,2)
	av(7) = Round(rmed,2)
	Call AddRigaTabella(av,3,,3)
	CreaTabella()
	ReDim atitoli1(8)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	atitoli1(7) = " Rit.Globale "
	atitoli1(8) = " Rit.Medio "
	Call InitTabella(atitoli1,1,,3,5)
	Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,incr,sf,EstrazioneIni,EstrazioneFin)
	Scrivi"Statistica Globale ",1
	ReDim avalori1(8)
	avalori1(1) = FormattaStringa(i,"0")
	avalori1(2) = StringaNumeri(aNum)
	avalori1(3) = sr
	avalori1(4) = st
	avalori1(5) = sf
	avalori1(6) = Incr
	avalori1(7) = rmedio
	avalori1(8) = Round(rmedio/aColonne,2)
	Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub

giorgio1960 · 5 Giugno 2014

grazie Mike, gentilissimo

ppaaoolloo · 6 Giugno 2014

ciao
approfitto anch'io di questo 3d per chiedere al grande Mike58
se potrebbe farmi uno script che possa trovare le lunghette
in ritardo per terno di 20 numeri per tutte le ruote

ringrazio anticipatamente per la disponibilità e cortesia

ciao

Mike58 · 6 Giugno 2014

No Paolo, questo non riesco a farlo,trovare le lunghette è complicato, con i cicli for il tutto andrebbe in crash.
Altri modi non ne conosco per mettere insieme i numeri e formare una lunghetta per quantità voluta.
Qui mi spiace ma mi arrendo !!! già con le quartine il processore fa fatica ad elaborare figurarsi numeri superiori.

davvero mi spiace, se trovo qualcosa mi sembra fatto da Luigi che possa in qualche modo assomigliare potrei anche vedere, ma per adesso buio.

ciao

ppaaoolloo · 6 Giugno 2014

ciao Mike
non pensavo fosse una cosa così complessa e laboriosa,
grazie ugualmente

avrei ancora un'altra richiesta per uno script e spero questo sia possibile fare

vorrei poter trovare quali sono le 2 decine più ritardatarie su tutte
per ambo

ti ringrazio veramente di cuore per tutto quello che fai sul forum

ciao

Mike58 · 7 Giugno 2014

Ciao Paolo, purtroppo elaborare le lunghette senza condizione è complicato.
Per le decine + ritardate ho rielaborato un vecchio lavoro potrebbe fare al caso tuo.
Arrivo adesso dal turno notturno e la lucidità comincia a mancare.

prova questo.

Codice:

Sub Main()
Scrivi " SCRIPT by MIKE58 (AMBETTO(PH)® 2014 © )",1
Dim ruote(10)
Dim n(1),n1(9),amb1(3),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2)
Dim ambo10(2),ambo11(2),ambo12(2),ambo13(2),terzina(3),poste(2)
Dim CapAmbetto(3),sRetNumeri,nRetVincita,nAmbetti
est = EstrazioneFin
cp = InputBox("Inserire Colpi di Gioco. ","COLPI",1)
so = InputBox("Sorte di Gioco 1 o 2. ","SORTE",1)
poste(so) = 1
k = cp
y = so
Ini = est 'EstrazioneFin
fin = EstrazioneFin
ReDim at(14)
at(1) = "Ruota"
at(2) = "Numeri"
at(3) = "R.Att"
at(4) = "R.Sto"
at(5) = "App%"
at(6) = " Capogioco "
at(7) = " Rit cap "
at(8) = " Sto Cap "
at(9) = " App% Cap "
at(10) = " N° Ambetti "
at(11) = " S_Ambi "
at(12) = " N_Vincita "
at(13) = " Rit.prec dec "
at(14) = " app% Prec "
Call InitTabella(at,0,,3,5)
For es = Ini To fin
For r = 11 To 11
For x = 0 To 8
ruote(1) = r
n(1) = x*10
n1(1) = n(1) + 1
n1(2) = n(1) + 2
n1(3) = n(1) + 3
n1(4) = n(1) + 4
n1(5) = n(1) + 5
n1(6) = n(1) + 6
n1(7) = n(1) + 7
n1(8) = n(1) + 8
n1(9) = n(1) + 9
CapAmbetto(1) = n1(2)
CapAmbetto(2) = n1(5)
CapAmbetto(3) = n1(8)
If n(1) = 0 Then n(1) = 90
ra = SerieRitardo(EstrazioneFin - 500,EstrazioneFin,n1,ruote,so)
RP = SerieRitardo(EstrazioneFin - 500,EstrazioneFin - 1,n1,ruote,so)
rs = SerieStorico(1,EstrazioneFin,n1,ruote,so)
rambetto = SerieRitardo(EstrazioneFin - 500,EstrazioneFin,CapAmbetto,ruote,1)
stoambetto = SerieStorico(EstrazioneFin - 500,EstrazioneFin,CapAmbetto,ruote,1)
perc =(ra/rs)*100
percp =(rp/rs)*100
app =(rambetto/stoambetto)*100
OrdinaMatrice n,1,1
nAmbetti = VerificaAmbetto(CapAmbetto,r,fin,sRetNumeri,nRetVincita)
Call VerificaEsitoConGuadagno(CapAmbetto,ruote,fin,2,1,,RetEsito,,estratti,id,,RetGuadagno)
If RetEsito = "Ambo" Then tambo = tambo + 1
If nAmbetti > 0 Then nRetVincita1 = nRetVincita1 + 1
ReDim av(14)
av(1) = SiglaRuota(r)
av(2) = StringaNumeri(n1,,True)
av(3) = ra
av(4) = rs
av(5) = Round(perc,2) & "%"
av(6) = StringaNumeri(CapAmbetto,,True) '& " - ( " & rambetto & " - " & stoambetto & " ) " & " app%... " & Round (app,2)
av(7) = rambetto
av(8) = stoambetto
av(9) = Round(app,2) & "%"
av(10) = nAmbetti
av(11) = sRetNumeri & estratti
av(12) = nRetVincita + RetGuadagno
If av(3) = 0 Then av(13) = RP
If av(3) > 0 Then av(13) = " -- "
If av(3) = 0 Then av(14) = Round(percp,2) & "%"
If av(3) > 0 Then av(14) = " -- "
Call AddRigaTabella(av,,,3)
If perc > 59 Then Call SetColoreCella(5,2,0)
If app > 50 Then Call SetColoreCella(9,2,0)
If nAmbetti > 0 Then Call SetColoreCella(11,4,2)
ruote(1) = r
If perc > 59 Then
amb1(1) = n1(2)
amb1(2) = n1(5)
amb1(3) = n1(8)
ImpostaGiocata 1,amb1,ruote,poste,k,y
Gioca es,1
End If
Next
Next
Next
Scrivi : ColoreTesto 2
Scrivi "AMBETTO(PH)® 2014 ( script by Mike58 )"
ColoreTesto 0
Call SetTableWidth("100%")
Call CreaTabella(3)
Scrivi
Scrivi "Totali Ambi......" & tambo,True,True,2,4,3
Scrivi "Totali ambetti..." & nRetVincita1,True,True,4,2,3
End Sub

ppaaoolloo · 7 Giugno 2014

ciao Mike
grazie per lo script,
lo provato tutto il giorno
ma non mi da grandi soddisfazioni,

avresti la pazienza e la cortesia di farne uno
per poter trovare quali sono le 2 decine più ritardatarie
su tutte le ruote per il terno

ti ringrazio

fammi sapere

ciao

Mike58 · 8 Giugno 2014

Ciao Paolo,visualizzare 2 o tutte le decine è uguale in termini di calcolo, perciò è meglio visualizzarle tutte.
Lo script opera su Ruota Tutte ma come ti ho messo nel commento può operare anche nel dettaglio modificando il ciclo for next.
Adesso puoi scegliere tutte le sorti che vuoi,

Ciao

Codice:

Sub Main()
	Scrivi "Script By Mike58 ( Ricerca decine ordinate per Ritardo )",1
	Dim ruote(1)
	Dim n(1),n1(9)
	Dim poste(5)
	Ini = EstrazioneIni
	fin = EstrazioneFin
	Tot = fin-Ini
	so = CInt (InputBox("Sorte di Gioco  ","SORTE",3))
	poste(so) = 1
	Scrivi "Sorte cercata..." & NomeSorte(so),1,1,,1,2
	Scrivi "Estremi di Ricerca da... " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1
	Scrivi
	ReDim at(9)
	at(1) = "Ruota"
	at(2) = "Combinazione"
	at(3) = "R.Att"
	at(4) = "R.Sto"
	at(5) = " Freq "
	at(6) = " esito "
	at(7) = " Estratti "
	at(8) = " Data Esito "
	at(9) = " Ind. Conv "
	Call InitTabella(at,0,,3,5)
	For r = 11 To 11 ' per visualizzare tutte le ruote il ciclo può essere impostato da 1 a 12
		For x = 0 To 8
			ruote(1) = r
			n(1) = x*10
			n1(1) = n(1) + 1
			n1(2) = n(1) + 2
			n1(3) = n(1) + 3
			n1(4) = n(1) + 4
			n1(5) = n(1) + 5
			n1(6) = n(1) + 6
			n1(7) = n(1) + 7
			n1(8) = n(1) + 8
			n1(9) = n(1) + 9
			If n(1) = 0 Then n(1) = 90
			Call StatisticaFormazioneTurbo(n1,ruote,so,ReRit,RitMax,incr,ReFre,Ini,Fin)
			ic = Round((refre/Tot*ReRit),2)
			ReDim rt(10)
			For xx = 1 To 10
				rt(xx) = xx
				Call VerificaEsito(n1,rt,fin - ReRit,so,Tot,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
			Next
			ReDim av(9)
			av(1) = SiglaRuota(r)
			av(2) = StringaNumeri(n1,,True)
			av(3) = ReRit
			av(4) = RitMax
			av(5) = ReFre
			av(6) = RetEsito
			av(7) = RetEstratti
			If RetEsito <> "" Then av(8) = DataEstrazione(RetId)
			If RetEsito = "" Then av(8) = " -- "
			av(9) = ic
			If refre > 0 Then
			Call AddRigaTabella(av,,,3)
			End If
		Next
	Next
	ColoreTesto 0
	Call SetTableWidth("100%")
	Call CreaTabella(3)
End Sub

Modifica per sorte Cinquina Se va in errore premere ok fine al termine elaborazione ( Non trova perché non ci sono Decine valide)

ppaaoolloo · 8 Giugno 2014

ciao mike
innanzitutto ti ringrazio per questo tuo aiuto e per il tempo che gli dedichi,
mi sembra che però c'è qualcosa che non va.

- mancano tutti i numeri con cadenza 0 cioè 10.20.30.40. ecc.

- la ricerca la vorrei su 2 decine e ti spiego perchè,
sono molteplici gli esempi che ti potrei fare ma prendiamo
come esempio l'ultima estrazione:
sulla ruota di torino sono usciti
56.59 per la decina cinquanta e 62.63 per la decina sessanta
se faccio la ricerca per quaterna con lo script naturalmente
non me li dà come usciti per quaterna dato che lavora solo sulla decina,
mentre io vorrei invece che la ricerca della quaterna me la trovi per
due decine.

questo script che chiedo sicuramente sarà molto
complicato e laborioso ma spero si possa fare,
però credo e spero che possa dare parecchie soddisfazioni
dato che il ritardo storico sarebbe minore e anche più frequente

ti ringrazio ancora molto per quello che mi hai fatto e
per quello che riuscirai a farmi con lo script delle 2 decine
non vedo l'ora di provarlo

fammi sapere

ciao

Mike58 · 9 Giugno 2014

Si Paolo, hai ragione sui Numeri Zerati sono mancanti e non è un problema immetterli nel conteggio.
L'altra cosa Si !!! ho capito cosa cerchi di fare, per ora non saprei come fare a conteggiarle in automatico.
Ci penso un pochetto in qualche modo farò !!!
Si potrebbe essere interessante.

Ciao

Mike58 · 9 Giugno 2014

Ciao Paolo, zuzzerellando un pochetto sono arrivato a mettere insieme le decine da 1 a zero (decine naturali ?),vedi se è quello che chiedi , intanto provalo cosi e se ci sono dei corretivi da fare vediamo dove possiamo arrivare, intanto vedi se la strada è questa.

Codice:

Sub Main()
	Scrivi "Script By Mike58 ( Ricerca decine ordinate per Ritardo )",1
	Dim ruote(1)
	Dim n(1),n1(90)
	Dim poste(5)
	Ini = EstrazioneIni
	fin = EstrazioneFin
	Tot = fin - Ini
	so = CInt(InputBox("Sorte di Gioco  ","SORTE",4))
	poste(so) = 1
	Scrivi "Sorte cercata..." & NomeSorte(so),1,1,,1,2
	Scrivi "Estremi di Ricerca da... " & DataEstrazione(Ini) & " a " & DataEstrazione(fin),1
	Scrivi
	ReDim at(9)
	at(1) = "Ruota"
	at(2) = "Combinazione"
	at(3) = "R.Att"
	at(4) = "R.Sto"
	at(5) = " Freq "
	at(6) = " esito "
	at(7) = " Estratti "
	at(8) = " Data Esito "
	at(9) = " Ind. Conv "
	Call InitTabella(at,0,,3,5)
	passo = 10
	For r = 11 To 11 ' per visualizzare tutte le ruote il ciclo può essere impostato da 1 a 12
		For x = 1 To 9
		For y = 1 To 20
		For z = 10 To 10
			ruote(1) = r
			'n(1) = x*passo
			
			n1(y) = Fuori90 (y + n1(z))
			Next
			Next
			If n(1) = 0 Then n(1) = 90
			Call StatisticaFormazioneTurbo(n1,ruote,so,ReRit,RitMax,incr,ReFre,Ini,Fin)
			ic = Round((refre/Tot*ReRit),2)
			ReDim rt(10)
			For xx = 1 To 10
				rt(xx) = xx
				Call VerificaEsito(n1,rt,fin - ReRit,so,Tot,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
			Next
			ReDim av(9)
			av(1) = SiglaRuota(r)
			av(2) = StringaNumeri(n1,,True)
			av(3) = ReRit
			av(4) = RitMax 
			av(5) = ReFre
			av(6) = RetEsito
			av(7) = RetEstratti
			If RetEsito <> "" Then av(8) = DataEstrazione(RetId)
			If RetEsito = "" Then av(8) = " -- "
			av(9) = ic
			'If refre > 0 Then
			Call AddRigaTabella(av,,,3)
			'End If
		Next
		'Next
	Next
	ColoreTesto 0
	Call SetTableWidth("100%")
	Call CreaTabella(3)
End Sub

Ci aggiorniamo

ppaaoolloo · 9 Giugno 2014

ciao Mike
sono un po di corsa oggi
ho una serie di appuntamenti che non posso rimandare

per quanto riguarda le decine per me non è molto importante
se sono decine naturali o decine cabalistiche, ma mi sembrano
più belle le decine cabalistiche

per quanto riguarda il tuo script me lo salvo e in serata
o appena trovo del tempo lo provo

grazie

ciao

Mike58 · 9 Giugno 2014

Ok fammi sapere

Ci aggiorniamo

ppaaoolloo · 10 Giugno 2014

ciao Mike
mi sembra un buon script questo fatto da te
ma gli si potrebbe aggiungere una tabella con tutte le combinazioni delle varie decine
per essere più dettagliate?
ad esempio

la decina 1.2.3.4.5.6.7.8.9.90 con 10.11.12.13.14.15.16.17.18.19 r.att. ----r.stor---
1.2.3.4.5.6.7.8.9.90 con 20.21.22.23.24.25.26.27.28.29 r.att. ----r.stor---
1.2.3.4.5.6.7.8.9.90 con 30.31.32.33.34.35.36.37.38.39 r.att. ----r.stor---
1.2.3.4.5.6.7.8.9.90 con 40.41.42.43.44.45.46.47.48.49 r.att. ----r.stor---
1.2.3.4.5.6.7.8.9.90 con 50.51.52.53.54.55.56.57.58.59 r.att. ----r.stor---
1.2.3.4.5.6.7.8.9.90 con 60.61.62.63.64.65.66.67.68.69 r.att. ----r.stor---
1.2.3.4.5.6.7.8.9.90 con 70.71.72.73.74.75.76.77.78.79 r.att. ----r.stor---
1.2.3.4.5.6.7.8.9.90 con 80.81.82.83.84.85.86.87.88.89 r.att. ----r.stor---
10.11.12.13.14.15.16.17.18.19 con 20.21.22.23.24.25.26.27.28.29 r.att. ----r.stor---
10.11.12.13.14.15.16.17.18.19 con 30.31.32.33.34.35.36.37.38.39 r.att. ----r.stor---
10.11.12.13.14.15.16.17.18.19 con 40.41.42.43.44.45.46.47.48.49
ecc. ecc.

per un totale di 36 coppie di decine

lo so che è un lavoro laborioso ma dovrebbe dare delle buone soddisfazioni poi

fammi sapere se è possibile

grazie Mike

ciao

Mike58 · 10 Giugno 2014

Ciao Paolo, penso di SI, ci devo pensare sul come incastrare le decine.

Comunque ci provo.

Ciao

ppaaoolloo · 13 Giugno 2014

ciao Mike
ci sono buone notizie sullo sviluppo dello script oppure
trovi qualche difficoltà ?

fammi sapere

ciao

Mike58 · 13 Giugno 2014

Ciao Paolo, trovo alcune difficoltà a farlo in automatico, e sperimentare , e purtroppo ho pochissimo tempo in questo periodo.
Anche se la mia risposta era affermativa era solo perché una via manuale c'è devo solo metterla in codice.

Abbi pazienza arrivo tardi la sera e con i mondiali il tempo per gli script manca.

Ciao

Mike58 · 14 Giugno 2014

Paolo, come ti dicevo ho fatto prima a fare il lavoro manuale.

provalo cosi il tempo è tiranno per le sperimentazioni.

ciao

Codice:

Sub Main
	Dim a(36)
	Dim Ru(1)
	rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,4))
	Ru(1) = rt
	Dim posta(2)
	posta(1) = 1
	posta(2) = 1
	Fin = EstrazioneFin
	Ini = EstrazioneFin - qt
	Scrivi "Ruota Di : " & NomeRuota(Ru(1)),1,0
	Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
	Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
	Scrivi
	ReDim atitoli(8)
	atitoli(1) = "  Tipo decina  "
	atitoli(2) = "      Combinazione       "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Rit. Max "
	atitoli(5) = " incr max"
	atitoli(6) = " Freq "
	atitoli(7) = "      Esito      "
	atitoli(8) = "  Stringa estratti   "
	Call InitTabella(atitoli,2,,3,5)
	a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
	a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
	a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
	a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
	a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
	a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
	a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
	a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
	a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
	a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
	a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
	a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
	a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
	a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
	a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
	a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
	a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
	a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
	a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
	a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
	a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
	a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
	a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
	a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
	a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
	a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
	a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
	a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
	a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	For N = 1 To UBound(a)
		Nu = Split("0-" & Format2(a(n)),"-")
		Call StatisticaFormazioneTurbo(nu,Ru,sorte,rit,max,Incr,fre,Ini,fin)
		ReDim rr(10)
		For xx = 1 To 10
			rr(xx) = xx
			Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
		Next
		ReDim avalori(8)
		avalori(1) = " Dec.  " & Format2(n)
		avalori(2) = StringaNumeri(nu)
		avalori(3) = rit
		avalori(4) = max
		avalori(5) = Incr
		avalori(6) = fre
		avalori(7) = retesito
		avalori(8) = retestratti
		Call AddRigaTabella(avalori,,,3)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella(3)
	PicClear
	Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub

ppaaoolloo · 14 Giugno 2014

ciao Mike
sei proprio formidabile ed infaticabile

quello che hai fatto è davvero un ottimo lavoro
lo sto provando e mi piace molto

per adesso un milione di grazie

ciao

x mike58

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<