-
spilloss.
User deleted
Salve a tutti. Sto cercando uno script che mi consenta di fare questo:
Dopo l'uscita di un determinato numero su una ruota, lo script mi deve dire quali numeri (max 4 o 5) sono piu frequenti su di un'altra ruota.
ESEMPIO PRATICO:
Esce il 90 a palermo
SCRIPT ELABORA .. .. .. e mi dice quali numeri sono piu frequenti a MILANO dopo l'uscita del 90 a palermo entro tot colpi.
Vorrei che lo script avesse le maschere che chiedono all'utente le varie cose. E quindi ...
MASCHERE:
Quale numero spia?
In quale ruota?
Quanti numeri vuoi?
In quale ruota li cerco?
Entro quanti colpi?
. -
.
ciao,domani,se riesco,vedo cosa posso fare...grazie.. . -
spilloss.
User deleted
Grazie Sean!!!! Ci conto!!!! . -
.
Cioa,il listato sotto e' gia' sul forum,e' nato per la ricerca dei frequenti su 2 ruote dopo una spia,pero' con una piccola modifica lo si puo' adattare anche per la ricerca su una sola ruota .Io te l'ho impostato come l'esempio da te portato sopra,cioe': CITAZIONEEsce il 90 a palermo
SCRIPT ELABORA .. .. .. e mi dice quali numeri sono piu frequenti a MILANO dopo l'uscita del 90 a palermo entro tot colpi.
Vorrei che lo script avesse le maschere che chiedono all'utente le varie cose. E quindi ...
MASCHERE:
Quale numero spia?
In quale ruota?
Quanti numeri vuoi?
In quale ruota li cerco?
Entro quanti colpi?
c'e' anche la spiegazione nel listato,nel caso volessi allargare la ricerca dei frequenti su 2 ruote,di come fare..Vedi se va' bene e fammi sapere ..ecco il listato:CODICESub 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)
ESRT=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",100))
r = CInt(InputBox("RUOTA DELL 'AMBATA SPIA","RUOTA",7))
a= CInt(InputBox(" NUMERO AMBATA SPIA","1° SPIA",90))
ru(1)=CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",5))
'ru(2)=CInt(InputBox("RUOTE DEI FREQ. ","2° RUOTA",2)) ' se vuoi allargare la ricerca su una seconda ruota,togli apice '
rut(1)=eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",5)))
'rutt(1)=eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2))) ' se vuoi allargare la ricerca su una seconda ruota,togli apice '
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 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)
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 "Ambi+frequenti/ Estratti+frequenti/ Ambi+presenti nei cicli / Estratti"&_
"+frequenti 1° RUOTA / Estratti+frequenti 2° RUOTA"
Scrivi "le 2R sono le ruota di: "&NomeRuota(ru(1))&" "&NomeRuota(ru(2))&""
ColoreTesto 2
Scrivi Space(0)&"Ambo+FRE su 2R| Estratto+PRE su 2R | | Ambo+FRE A TUTTE R | Estratto+PRE "&NomeRuota(rut(1))&" | Estratto+FRE "&NomeRuota(rutt(1))&""
ColoreTesto 0
For xx=1 To 25
Scrivi Format2(mt(xx,2))&" "& Format2(mt(xx,3))& Space (4) &mt(xx,4)& Space (8)&(mt1(xx,2))& Space (4)& Format2(mt1(xx,3))& Space (16)&_
Format2(mt2(xx,2))& Space (2)& Format2(mt2(xx,3))& Space (6)&mt2(xx,4)& Space (10)&(mt3(xx,2))& Space (4)& Format2(mt3(xx,3))& Space (10)&_
Format2(mt4(xx,2))& Space (4)& Format2(mt4(xx,3))
Next
End Sub. -
.
fenomenale, si risparmia molto tempo. grazie sean69 it's very good!! . -
.
grazie a te Dart,per quello che posso .. . -
spilloss.
User deleted
Grazie Sean!!! Sei stato perfetto. .