Novità

Script - 1 / + RUOTE

K

korokoro

Super member
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;n1989670 ha scritto:
Non funziona....!!!!
Clicca per espandere...

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
 
Ultima modifica:
dove sta l'errore?

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


grazie.
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 31 marzo 2026
    Bari
    64
    09
    80
    53
    34
    Cagliari
    65
    25
    53
    11
    04
    Firenze
    52
    61
    16
    58
    66
    Genova
    28
    61
    02
    72
    60
    Milano
    40
    87
    27
    22
    05
    Napoli
    28
    17
    30
    29
    37
    Palermo
    65
    15
    79
    20
    52
    Roma
    84
    58
    35
    80
    60
    Torino
    34
    07
    48
    35
    55
    Venezia
    18
    24
    23
    26
    87
    Nazionale
    77
    81
    40
    26
    73
    Estrazione Simbolotto
    Firenze
    06
    16
    22
    20
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto