-
marcow71.
User deleted
Ciao a tutti ...postero' alcuni script in l8 che ho ritrovato davvero efficenti.
se qualcuno li puo' testare o rivedere , faccia pure...
Sub main()
Dim ru(5),nu(1),nr(),ni()
esi=InputBox(" Estrazione iniziale -",,EstrazioneFin-100)
esf=InputBox(" estrazione Finale -",,EstrazioneFin)
da=InputBox(" Da quale ruota vuoi iniziare ? ",,1)
r1=Eval(da)
dd=InputBox(" Quante ruote vuoi utilizzare? ",,5)
ss=InputBox(" Su quante estrazioni vuoi i frequenti? ",,4)
tt=InputBox(" Per quanti colpi vuoi giocare?",,12)
s1=Eval(ss-1)
For x=1 To Eval(dd)
r=(r1+x)-1
ru(x)=r
ruote=ruote&Left(NomeRuota(r),2)&"-"
Next
fin=esf
ini=esi
For es=ini To fin
AvanzamentoElab ini,fin,es
co=0
Redim nr(0)
For x=1 To 90
nu(1)=x
If SerieFreq(es-s1,es,nu,ru,1)>2 Then
co=co+1
Redim Preserve nr(co)
nr(co)=x
End If
Next
' Simulazione giocate
Redim ni(0)
Scrivi Chr(13)&"["&es&"] "& DataEstrazione(es)&" "&ruote& StringaNumeri(nr),1
Redim Preserve nr(co+1) ' nr variabile che contiene i numeri da mettere in gioco
ca=0
est=es+tt
If est > EstrazioneFin Then est=EstrazioneFin End If
For ex=es+1 To est
ca=ca+1
For r=ru(1) To ru(dd)
cc=0
riga=Left(NomeRuota (r),2)&" "
For p=1 To 5
nr(co+1)=Estratto(ex,r,p)
If NumeriRipetuti(nr)=True Then
cc=cc+1
Redim Preserve ni(cc)
ni(cc)=nr(co+1)
End If
Next
riga=riga&""& StringaNumeri(ni)
If cc>1 Then
Scrivi DataEstrazione(ex)&" "&FormatSpace(riga,20)& Format2(ca)&"° colpo ["&ex&"]"
riga=""
End If
Next
Next
' fine simulazione giocate
Next
End Sub
---------------------------------------------------------------------------------------------
Sub main()
Dim n(2),x(3),a1(3),xc(3),ru(2),nu1(4005,4),nn(2)
Dim nu2(4005,4),nn1(6),nu3(90,3),nn2(2),nu4(90,3),nx(90)
fin=EstrazioneFin
ini=fin-102
tst="Inserire il numero dell'estrazione di inzio verifica"
ini=InputBox(tst,"robyca",ini)
If ini="" Then Exit Sub
tst="Inserire il numero dell'estrazione di fine verifica"
fin=InputBox(tst,"robyca",fin)
If fin="" Then Exit Sub
tst="Scrivere i due numeri da cercare" &vbcrlf&_
"separati da un punto"
aa=InputBox(tst,"robyca","14.8")
If aa="" Then Exit Sub
aa="0."&aa
s=Split(aa,".")
n(1)=CInt(s(1))
n(2)=CInt(s(2))
For es=ini To fin
Messaggio " Numeri Spia "& StringaNumeri(n)&" Data "& DataEstrazione(es)
ok=0
For r=1 To 10
'For r1=r+1 To 10
If Posizione(es,r,n(1))>0 And Posizione(es,r,n(2))>0 Then : a=n(1) : b=n(2) : ok=1
'If Posizione(es,r,n(2))>0 And Posizione(es,r1,n(1))>0 Then : a=n(2) : b=n(1) : ok=1
If ok=1 Then
Call informa(es,r,r1,a,b)
ok=0
casi=casi+1
ww=8
ess=es+ww
If ess>fin Then ess=fin End If
co=0
For x1=1 To 89
For y1=x1+1 To 90
co=co+1
nu1(co,1)=co:nu1(co,2)=x1:nu1(co,3)=y1
nn(1)=x1:nn(2)=y1:ru(1)=r:ru(2)=r1
k1=SerieFreq (es+1,ess,nn,ru,2)
nu1(co,4)=nu1(co,4)+ k1
nu2(co,1)=co:nu2(co,2)=x1:nu2(co,3)=y1
nn1(1)=x1:nn1(2)=y1:ru(1)=r:ru(2)=r1
k2=SerieFreq (es+1,ess,nn1,ru,2)
If k2>1 Then k2=1
nu2(co,4)=nu2(co,4)+ k2
Next
Next
co=0
For xx=1 To 90
co=co+1
nu3(co,1)=co:nu3(co,2)=xx
nn2(1)=xx:ru(1)=r:ru(2)=r1
k3=SerieFreq (es+1,ess,nn2,ru,1)
If k3>1 Then k3=1
nu3(co,3)=nu3(co,3)+ k3
nu4(co,1)=co:nu4(co,2)=xx
nn2(1)=xx:ru(1)=r:ru(2)=r1
k4=SerieFreq (es+1,ess,nn2,ru,1)
nu4(co,3)=nu4(co,3)+ k4
Next
End If
Next : Next' : Next
OrdinaMatrice nu1,-1,4
OrdinaMatrice nu2,-1,4
OrdinaMatrice nu3,-1,3
OrdinaMatrice nu4,-1,3
ColoreTesto 2
Scrivi "Formazione Spia Cercata su una ruota "& StringaNumeri(n)&" dal "&_
DataEstrazione(ini)&" al "& DataEstrazione(fin)&""
ColoreTesto 1
Scrivi "Casi riscontrati "& CInt(casi) &" - Analisi effettuata sulle "&ww&_
" estrazioni sucessive "
ColoreTesto 2
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "
ColoreTesto 1
Scrivi "Ambi+presenti / Ambi+frequenti nei cicli / Estratti"&_
"+frequenti nei c. / Estratti+presenti "
Scrivi
ColoreTesto 2
Scrivi Space(10)&"Ambi+P. Tot. Ambo+FxC Tot. Est.+FxC Tot. Est.+Pr Tot."
ColoreTesto 0
For wx=1 To 20
riga= Format2(nu1(wx,2))&"-"& Format2(nu1(wx,3))&Space(3)& Format2(nu1(wx,4))&Space(3)&_
Format2 (nu2(wx,2))&"-"& Format2(nu2(wx,3))&Space(4)& Format2(nu2(wx,4))&Space(6)&_
Format2(nu3(wx,2))&Space(4)& Format2 (nu3(wx,3))&Space(6)& Format2(nu4(wx,2))&Space(3)&_
Format2 (nu4(wx,3))
Scrivi Space(10)& riga,1
riga=""
Next
Scrivi String(90,"*")
End Sub
Function informa (es,r,r1,a,b)
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),2)&" "&_
Format2(a)&" "&Left(NomeRuota(r1),2)&" "&Format2(b),1
End Function
---------------------------------------------------------------------------------------------
Sub main()
Dim r(10)
Dim vam1(10),vam2(10),vam3(10),vam4(10)
Dim am1(2),am2(2),am3(2),am4(2)
Dim n1(20),n2(20),n3(20),n4(20)
Dim posta(5)
posta(1)=1
co=0
rr=InputBox("Su Quale ruota ?","SCELTA RUOTA",1)
r(1)=rr
ini=InputBox("Estrazione iniziale: ","INIZIO ANALISI",EstrazioneFin-1000)
fin=InputBox("Estrazione finale: ","FINE ANALISI",EstrazioneFin)
For es=ini To fin
Messaggio (es)
' Estratti estrazione precedente
a1=Estratto(es-1,rr,1)
a2=Estratto(es-1,rr,2)
a3=Estratto(es-1,rr,3)
a4=Estratto(es-1,rr,4)
' Estratti estrazione corrente
b1=Estratto(es,rr,2)
b2=Estratto(es,rr,3)
b3=Estratto(es,rr,4)
b4=Estratto(es,rr,5)
' Moltiplicazione in diagonale degli estratti
d1=a1*b1
d2=a2*b2
d3=a3*b3
d4=a4*b4
' Formazione dell'Ambo n° 1
If d1<100 Then
am1(1)=Decina(d1)
am1(2)=Cadenza(d1)
If am1(2)=0 Then am1(2)=90 End If
End If
If d1>99 And d1<1000 Then
am1(1)=d1\10
am1(2)=d1 Mod 10
If am1(2)=0 Then am1(2)=90 End If
End If
If d1>999 Then
am1(1)=d1\100
am1(2)=d1 Mod 100
If am1(2)=0 Then am1(2)=90 End If
End If
x1=Decina(am1(1))
x2=Decina(am1(2))
If x1=x2 Then
dd1=1
Else
dd1=0
End If
' Formazione dell'Ambo n° 2
If d2<100 Then
am2(1)=Decina(d2)
am2(2)=Cadenza(d2)
If am2(2)=0 Then am2(2)=90 End If
End If
If d2>99 And d2<1000 Then
am2(1)=d2\10
am2(2)=d2 Mod 10
If am2(2)=0 Then am2(2)=90 End If
End If
If d2>999 Then
am2(1)=d2\100
am2(2)=d2 Mod 100
If am2(2)=0 Then am2(2)=90 End If
End If
x1=Decina(am2(1))
x2=Decina(am2(2))
If x1=x2 Then
dd2=1
Else
dd2=0
End If
' Formazione dell'Ambo n° 3
If d3<100 Then
am3(1)=Decina(d3)
am3(2)=Cadenza(d3)
If am3(2)=0 Then am3(2)=90 End If
End If
If d3>99 And d3<1000 Then
am3(1)=d3\10
am3(2)=d3 Mod 10
If am3(2)=0 Then am3(2)=90 End If
End If
If d3>999 Then
am3(1)=d3\100
am3(2)=d3 Mod 100
If am3(2)=0 Then am3(2)=90 End If
End If
x1=Decina(am3(1))
x2=Decina(am3(2))
If x1=x2 Then
dd3=1
Else
dd3=0
End If
' Formazione dell'Ambo n° 4
If d4<100 Then
am4(1)=Decina(d4)
am4(2)=Cadenza(d4)
If am4(2)=0 Then am4(2)=90 End If
End If
If d4>99 And d4<1000 Then
am4(1)=d4\10
am4(2)=d4 Mod 10
If am4(2)=0 Then am4(2)=90 End If
End If
If d4>999 Then
am4(1)=d4\100
am4(2)=d4 Mod 100
If am4(2)=0 Then am4(2)=90 End If
End If
x1=Decina(am4(1))
x2=Decina(am4(2))
If x1=x2 Then
dd4=1
Else
dd4=0
End If
'*********************** INIZIO CONTROLLI REGOLE DI GIOCO **********************************
' controllo n° 1 - presenza nelle 2 estr. precedenti dei vertibili dell'ambo
c11=0
vam1(1)=Vert(am1(1))
vam1(2)=Vert(am1(2))
c11=SerieFreq(es-4,es,vam1,r,1)
c12=0
vam2(1)=Vert(am2(1))
vam2(2)=Vert(am2(2))
c12=SerieFreq(es-4,es,vam2,r,1)
c13=0
vam3(1)=Vert(am3(1))
vam3(2)=Vert(am3(2))
c13=SerieFreq(es-4,es,vam3,r,1)
c14=0
vam4(1)=Vert(am4(1))
vam4(2)=Vert(am4(2))
c14=SerieFreq(es-4,es,vam4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 2 - presenza nelle 5 estr. precedenti dei due numeri dell'ambo
c21=0
c21=SerieFreq(es-7,es,am1,r,1)
c22=0
c22=SerieFreq(es-7,es,am2,r,1)
c23=0
c23=SerieFreq(es-7,es,am3,r,1)
c24=0
c24=SerieFreq(es-7,es,am3,r,1)
'-----------------------------------------------------------------------------
' controllo n° 3 - presenza nelle 25 estr. precedenti dell'ambo
c31=0
c31=SerieFreq(es-27,es,am1,r,2)
c32=0
c32=SerieFreq(es-27,es,am2,r,2)
c33=0
c33=SerieFreq(es-27,es,am3,r,2)
c34=0
c34=SerieFreq(es-27,es,am4,r,2)
'-----------------------------------------------------------------------------
' controllo n° 4 - ritardo dei 2 numeri dell'ambo non superiore a 30 estrazioni
c41=0
c41=SerieRitardo(es-200,es,am1,r,1)
c42=0
c42=SerieRitardo(es-200,es,am2,r,1)
c43=0
c43=SerieRitardo(es-200,es,am3,r,1)
c44=0
c44=SerieRitardo(es-200,es,am4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 5 - presenza dell'ambo dei vertibili nelle 12 estrazioni precedenti
c51=0
c51=SerieFreq(es-14,es,vam1,r,2)
c52=0
c52=SerieFreq(es-14,es,vam2,r,2)
c53=0
c53=SerieFreq(es-14,es,vam3,r,2)
c54=0
c54=SerieFreq(es-14,es,vam4,r,2)
'********** ESAME DEI CONTROLLI E FORMAZIONE DELLE GIOCATE ***********************
' AMBO 1
If c11=0 And c21=0 And c31=0 And c41<32 And c51=0 And dd1=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am1(1))
If y=9 Then y=0 End If
For i=1 To 10
n1(i)=(y*10)+i
Next
j=Decina(am1(2))
If j=9 Then j=0 End If
For i=1 To 10
n1(10+i)=(j*10)+i
Next
Scrivi DataEstrazione(es-1)&"-"&DataEstrazione(es)&" Ambo 1 " & StringaNumeri(am1) & " Num. " & StringaNumeri(n1)
End If
' AMBO 2
If c12=0 And c22=0 And c32=0 And c42<32 And c52=0 And dd2=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am2(1))
If y=9 Then y=0 End If
For i=1 To 10
n2(i)=(y*10)+i
Next
j=Decina(am2(2))
If j=9 Then j=0 End If
For i=1 To 10
n2(10+i)=(j*10)+i
Next
Scrivi DataEstrazione(es-1)&"-"&DataEstrazione(es)&" Ambo 2 " & StringaNumeri(am2) & " Num. " & StringaNumeri(n2)
End If
' AMBO 3
If c13=0 And c23=0 And c33=0 And c43<32 And c53=0 And dd3=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am3(1))
If y=9 Then y=0 End If
For i=1 To 10
n3(i)=(y*10)+i
Next
j=Decina(am3(2))
If j=9 Then j=0 End If
For i=1 To 10
n3(10+i)=(j*10)+i
Next
Scrivi DataEstrazione(es-1)&"-"&DataEstrazione(es)&" Ambo 3 " & StringaNumeri(am3) & " Num. " & StringaNumeri(n3)
End If
' AMBO 4
If c14=0 And c24=0 And c34=0 And c44<32 And c54=0 And dd4=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am4(1))
If y=9 Then y=0 End If
For i=1 To 10
n4(i)=(y*10)+i
Next
j=Decina(am4(2))
If j=9 Then j=0 End If
For i=1 To 10
n4(10+i)=(j*10)+i
Next
Scrivi DataEstrazione(es-1)&"-"&DataEstrazione(es)&" Ambo 4 " & StringaNumeri(am4) & " Num. " & StringaNumeri(n4)
End If
Next
End Sub
---------------------------------------------------------------------------------------------
Sub main()
Dim ruote(1)
Dim posta(1)
Dim num(90,3)
ruote(1)=1
posta(1)=1
colpi=18
r=1
ini=8000
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia"
For sp=1 To 2
casi=0
For i=1 To 90
num(i,1)=0 : num(i,2)=0 : num(i,3)=0
Next
For es=ini To fin
Messaggio " Spia: "&sp&" Estrazione : "&es
If Posizione(es,r,sp)>0 Then
casi=casi+1
ess=es+colpi
If ess>fin Then ess=fin End If
For a=es+1 To ess
segno=0 : co=0
For v=1 To 90
co=co+1
n1=Estratto(a,r,1)
n2=Estratto(a,r,2)
n3=Estratto(a,r,3)
n4=Estratto(a,r,4)
n5=Estratto(a,r,5)
If n1=v Or n2=v Or n3=v Or n4=v Or n5=v Then
num(co,1)=co
num(co,2)=v
num(co,3)=num(co,3)+1
segno=1
End If
If segno>0 Then
Exit For
Exit For
End If
Next
Next
End If
Next
OrdinaMatrice num, -1, 3
per=Int((casi/100)*80)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&casi&" entro i "&colpi&" colpi"
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,2),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,3)),3)&" "
Next
Scrivi riga,1
Scrivi riga1
Next
End Sub
---------------------------------------------------------------------------------------------
A voi ciao a tutti. -
.
ciao marcow71, grazie per gli script, li sai fare???
complimenti e soprattutto benvenuto far noi. -
marcow71.
User deleted
e di che si li so fare ,ne dispongo molti altri che vi postero'. ciao a tutti . -
RANDHOUSE1.
User deleted
SALVE MI CHIAMO ANTONIO, VOLEVO CHIEDERE 2 COSE: LA PRIMA SE CON IL PROGRAMMA L8+ 6.1 SI PUO' FARE UNA RICERCA SUL GIOCO 10 &LOTTO ( E SE SI PUO' FARE COSA DEVO AGGIUNGERE? LA SECONDA COSA E' CHE TEMPO FA MI AVEVANO FATTO UN LISTATO (DJ NOMADE) ORA AVREI L'ESIGENZA DI FARE ALCUNE RICERCHE IN BASE AL LISTATO MI SPIEGO: SE DOVESSI CERCARE UN ESTRATTO AD ESEMPIO SULLA RUOTA DI FIRENZE E IN CONTEMPORANEA AD ESEMPIO UN ESTRATTO SU GENOVA...COME POTREI FARE? VISTO CHE NON LI POSSO FARE SEPARATI? MI SERVONO PER POI CONGIUNGERE I DUE NUMERI PER IL FINE AMBO ETC ETC...SOTTO METTO IL LISTATO GRAZIE PER L'AIUTO IN ANTICIPO.
Scrivi String(47,32)&"List. DjNomade",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
est=InputBox("Quante estrazioni vuoi controllare?",,14)
r=ScegliRuota
clp = 13' < - - - Colpi di gioco
ini=7694'EstrazioneFin - est
fin=EstrazioneFin
For n = ini To fin
If IndiceMensile(n)=1 Then
Messaggio DataEstrazione (n,1)&" List.Dj Nomade " ' < - - - - Numero estrazioni
somma_cavia=SommaEstratti(n,r)'292
a=somma_cavia/5 '58,40
a2=FormatNumber(a,0)
b=100-a '41,60
'a3=FormatNumber(a33,0)
c=b*5 '208
d=Abs(somma_cavia-c) '292-208=84
e=Abs(d-5) '84-5 fisso=79
y=Abs(440-somma_cavia) 'fisso440-292=148
k=Abs(somma_cavia-y) '292-148=144
nu1=Fuori90(K+E) '223-90 43 1°ESTRATTO DA GIOCARE
x=Abs((k+e)-a2) '223-58=165
nu2=Fuori90(Abs(x-k)) '165-144=21 2°SECONDO ESTRATTO DA GIOCARE
g=x+e ' X(165)+E(79)=G 244
nu3=Fuori90((Abs(somma_cavia-g))) '292-244=48:2 24 3° ESTRATTO DA GIOCARE
prev_max=somma_cavia+(k+e)'(292)+(223)=515
prev_min= Abs(somma_cavia-(k+e)) '(292)-(223)=69
l_max=prev_max+a2 '573
l_min=prev_min+a2 '127
nu4=Fuori90(Abs(A+55)) '573-292 = 11 4° ESTRATTO DA GIOCARE
nu5=Fuori90(Abs(somma_cavia-l_min))'(292) -1_MIN(127)= 165 FUORI 90 = 75 5° ESTRATTO DA GIOCARE
Scrivi "----------------------------------------------------------- "
Scrivi "Somma Estratti Ruota-"&siglaruota(r)&"---"&Format2(somma_cavia) ,1
ruote(1)=r' Ruota di verifica esito
ruote(2)=1
ruote(3)=2
ruote(4)=3
ruote(5)=4
ruote(6)=5
ruote(7)=6
ruote(8)=7
ruote(9)=8
ruote(10)=9
ruote(11)=10
ruote(12)=12
numeri1(4)=nu4
ImpostaGiocata 1,numeri1,ruote,posta,clp
Gioca n
End If
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32)&" Somme estratti x Randhouse",1
Scrivi String(47,32)&"List. DjNomade",1
ColoreTesto 0
End Sub. -
.
Per il 10&lotto ho trovato questo
CiauzSPOILER (clicca per visualizzare)Sub main()
Dim numeri(10), gg(10),rc(20)
ini= 7007
fin=EstrazioneFin
casi=0
colpi=13
For n=ini To fin
If IndiceMensile (n)= 4 Then
casi=casi+1
numeri(1)=Fuori90(Estratto(n,1,1)*0.8)
numeri(2)=Fuori90(Estratto(n,2,1)*0.6)
numeri(3)=Fuori90(Estratto(n,3,1)*0.3)
numeri(4)=Fuori90(Estratto(n,4,1)*0.1)
numeri(5)=Fuori90(Estratto(n,5,1)*0.11)
numeri(6)=Fuori90(Estratto(n,6,1)*0.15)
numeri(7)=Fuori90(Estratto(n,7,1)*0.2)
numeri(8)=Fuori90(Estratto(n,8,1)*0.1)
numeri(9)=Fuori90(Estratto(n,9,1)*0.12)
numeri(10)=Fuori90(Estratto(n,10,1)*0.6)
For i=1 To 10
If numeri(i)=0 Then numeri(i)=90
Next
nn=0
If NumeriRipetuti(numeri) Then
nn=1
While NumeriRipetuti(numeri)
For i=1 To 9
For y= i+1 To 10
If numeri(i)=numeri(y) Then numeri(y)=Fuori90(numeri(y)+89)
Next
Next
Wend
End If
OrdinaMatrice numeri,1 ' cosi mette in numeri in ordine crescente
Scrivi : Scrivi String (55,"=")
If nn=1 Then Scrivi "Erano presenti numeri ripetuti, è stato fatto il -1",1
ColoreTesto 1
Scrivi n&" "& DataEstrazione(n)&" Numeri in gioco per il mese: "& StringaNumeri(numeri),1
Scrivi : ColoreTesto 0
ess=n+colpi
If ess>fin Then ess=fin
For x=n+1 To ess
co=0
For r= 1 To 10
For p= 1 To 2
co=co+1
a=Estratto(x,r,p)
rc(co)=a
Next
Next
'OrdinaMatrice (rc) 'solo x controllo
'Scrivi x&" "& StringaNumeri (rc)'solo x controllo questo con ripetuti
If NumeriRipetuti(rc) Then
c=0
While NumeriRipetuti(rc)
c=c+1
For i=1 To 19
For y= i+1 To 20
If rc(i)=rc(y) Then rc(y)=Estratto(x,c,3)
Next
Next
Wend
End If
OrdinaMatrice (rc) 'solo x controllo
Scrivi x&" "& StringaNumeri (rc)'solo x controllo senza i ripetuti e sostituiti...
'metti apice sopra se non vuoi vedere la ventina...
cont=0
For i=1 To 20
For j=1 To 10
If rc(i)=numeri(j) Then
cont=cont+1
End If
Next
Next
If cont=0 Then Scrivi "Punti Zero al "& (x-n)&"° colpo",1 : c1=c1+1
If cont=5 Then Scrivi "Punti Cinque al "& (x-n)&"° colpo",1 : c2=c2+1
If cont=6 Then Scrivi "Punti Sei al "& (x-n)&"° colpo" ,1: c3=c3+1
If cont=7 Then Scrivi "Punti Sette al "& (x-n)&"° colpo",1 : c4=c4+1
If cont=8 Then Scrivi "Punti Otto al "& (x-n)&"° colpo" ,1: c5=c5+1
If cont=9 Then Scrivi "Punti Nove al "& (x-n)&"° colpo" ,1: c6=c6+1
If cont=10 Then Scrivi"Punti Dieci al "& (x-n)&"° colpo",1 : c7=c7+1
Next
End If
Next
Scrivi : Scrivi " RESOCONTO TOTALE ",1
Scrivi " Periodo dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin)
Scrivi "------------------" : ColoreTesto 0
Scrivi " CASI ANALIZZATI : "& casi
Scrivi "------------------" : Scrivi : ColoreTesto 2
Scrivi FormatSpace (" ZERO",10)&": "&c1,1
Scrivi FormatSpace (" CINQUE",10)&": "&c2,1
Scrivi FormatSpace (" SEI",10)&": "&c3,1
Scrivi FormatSpace (" SETTE",10)&": "&c4,1
Scrivi FormatSpace (" OTTO",10)&": "&c5,1
Scrivi FormatSpace (" NOVE",10)&": "&c6,1
Scrivi FormatSpace (" DIECI",10)&": "&c7,1
End Sub. -
Point2.
User deleted
Ciao, riesci a fare listati statistici sui numeri spia? . -
.
Farli credo di no... se ci dici cosa cerchi magari in archivio ho qualcosa che ti possa servire...
Ciauz.