Script - 1 / + RUOTE

[korokoro]

Ciao a tutti
Come posso fare per inserire + ruote ?
Grazie leo


-----------------------------------------------------------------------------------------------------------------------------------------

Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",10))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",39))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",12))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",12))
rt(1)=rut
ee = CInt(InputBox("ESTRAZIONI CONTROLLO A RITROSO ?","ESTRAZIONI",7440))
'7440 =Nz 8477=2012 8320=2011 8164=2010 8007=2009 7850=2008 7694=2007 3950=1946 6584=1997
pe=CInt(InputBox("DA QUANTE ESTRAZIONI A RITROSO?","ESTRAZIONI",0))


clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",18))
gvv=CInt(InputBox("QUANTI Ambi?","QUANTI Ambi",10))
ru1(1)=11
fin=EstrazioneFin -pe
ini= ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es,es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin-pe),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To gvv
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub

 

[solare]

Non funziona....!!!!

 

[korokoro]

funge su lottodesk

 

[korokoro]

vorrei capire come fare per aver due / + ruote diverse ,grazie

 

[avio]

Non funziona....!!!!

Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),n r(2),rt(1) '''''''''(nr(2)

Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2

cosi va

 

[korokoro]

grazie

 

[Alien.]

dove sta l'errore?

Scrivi DataEstrazione(es,es)&" "& SiglaRuota(r)&" "& StringaEstratti(es,r)&" "& n1&" "& n2


grazie.

 

[korokoro]

ho risolto in altro modo.
grazie leo

 

[everest62]

ciao come hai fatto mi da sempre errore..un saluto a tutti

 

[korokoro]

e una lunga procedura................
non sono in grado di spiegartela

 

[BEPPA51]

ho qst funziona benissimo basta cambiare le ruote


Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)

Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)

n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",84))

n2 = CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",64))

r = CInt(InputBox("La Ruota scelta ?(Dove son sortite le Spie)","RUOTA",2))

rut = CInt(InputBox("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",1))

rt(1) = rut

ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",4500))

clp = CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",10))

ru1(1) = 11

fin = EstrazioneFin

ini = EstrazioneFin - ee

For cc = 1 To 90

For w = 1 To 2

n(cc,w) = 0
nt(cc,w) = 0
nrr(cc,w) = 0

Next

Next

co = 0
casi = 0

For es = ini To fin

Messaggio " Spia " & n1 & " - " & n2 & " Estrazione " & es

If(Posizione(es,r,n1) > 0 And Posizione(es,r,n2) > 0)Then

Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & n1 & "_" & n2

casi = casi + 1

ess = es + clp

If ess > fin Then ess = fin End If

For x = es + 1 To ess

cc = 0

For pp = 1 To 5

d = Estratto(x,r,pp)

e = Estratto(x,rut,pp)

n(d,1) = d

nrr(e,1) = e

n(d,2) = n(d,2) + 1

nrr(e,2) = nrr(e,2) + 1 ' < < <

Next

For rr = 1 To 10

For p1 = 1 To 5

g = Estratto(x,rr,p1)

nt(g,1) = g

nt(g,2) = nt(g,2) + 1

Next

Next

Next

co = 0

For x = 1 To 90

For y = x + 1 To 90

co = co + 1

nn(1) = x
nn(2) = y
ru(1) = r

ambi(co,1) = co
ambi(co,2) = x
ambi(co,3) = y

yy = SerieFreq(es + 1,ess,nn,ru,2)

ambi(co,4) = ambi(co,4) + yy

If yy > 0 Then

ambi(co,5) = ambi(co,5) + 1

Else

ambi(co,5) = ambi(co,5)

End If ' If yy > 0 Then...

nn1(1) = x
nn1(2) = y

ambi1(co,1) = co
ambi1(co,2) = x
ambi1(co,3) = y

xx = SerieFreq(es + 1,ess,nn1,ru1,2)

ambi1(co,4) = ambi1(co,4) + xx

If xx > 0 Then

ambi1(co,5) = ambi1(co,5) + 1

Else

ambi1(co,5) = ambi1(co,5)

End If ' If xx > 0 Then...

nr(1) = x
nr(2) = y

ambrr(co,1) = co
ambrr(co,2) = x
ambrr(co,3) = y

kk = SerieFreq(es + 1,ess,nr,rt,2)

ambrr(co,4) = ambrr(co,4) + kk

If kk > 0 Then

ambrr(co,5) = ambrr(co,5) + 1

Else

ambrr(co,5) = ambrr(co,5)

End If ' If kk > 0 Then...

Next

Next

End If ' If(Posizione(es,r,n1) > 0 And P...

Next

Scrivi

Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1

Scrivi

Scrivi "AMBO SPIA " & CInt(n1) & " e " & CInt(n2) & " Su Ruota Unica",1

Scrivi

Scrivi NomeRuota(r),1

Scrivi "N° casi " & CInt(casi),1
Scrivi

Scrivi " Frequenti nei " & clp & " colpi successivi",1

OrdinaMatrice n,- 1,2

OrdinaMatrice ambi,- 1,5

OrdinaMatrice ambi1,- 1,5

OrdinaMatrice nt,- 1,2

OrdinaMatrice nrr,- 1,2

OrdinaMatrice ambrr,- 1,5

ColoreTesto 1

Scrivi

Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "

ColoreTesto 2

Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "

ColoreTesto 0

For x = 1 To 15

riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & " - " & _
Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
Format2(ambi1(x,2)) & " - " & Format2(ambi1(x,3)) & "..." & ambi1(x,5) & " | " & Format2(nt(x,1)) & "..." & _
Format2(nt(x,2))
Scrivi riga

riga = ""

Next

Scrivi String(65,"*")

ColoreTesto 1

Scrivi "SELEZIONE RUOTA di " & NomeRuota(rt(1))

Scrivi "Nu.Ruota | Ambi a Ruota"

ColoreTesto 2

Scrivi " N° Fr | Ambo Freq "

ColoreTesto 0

For x = 1 To 15

rige = " " & Format2(nrr(x,1)) & "..." & Format2(nrr(x,2)) & " | " & Format2(ambrr(x,2)) & " - " & _
Format2(ambrr(x,3)) & "..." & Format2(ambrr(x,5))

Scrivi rige

rige = ""

Next

Scrivi String(65,"*")

End Sub

 

[korokoro]

lo so .................. ma io vole inserire + ruote

 

[BEPPA51]

sono 2 ruote puoi alternare ,ci impiegherai di più !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!