R
Roby
Guest
'L'AUTORE DI QUESTO SCRIPT E' SCONOSCIUTO, SE QUALCUNO LO CONOSCE, E' PREGATO DI SEGNALARLO
'PROVVEDERO' IMMEDIATAMENTE AD INSERIRLO, GRAZIE!
'QUESTO LISTATO TROVA GLI AMBI PIU' FREQUENTI SU OGNI SINGOLA RUOTA, E
'TRA QUEST'ULTIMI, SEGNALA QUELLI USCITI NELLE ULTIME 100 ESTRAZIONI
Sub Main()
Dim ambi(4005,4)
Dim nn(3)
Dim nu(2)
Dim ru(1)
For r=1 To 11
co=0
mm=0
ru(1)=r
ini=8000
fin=EstrazioneFin
For s=1 To 4005
ambi(s,1)=0
ambi(s,2)=0
ambi(s,3)=0
ambi(s,4)=0
Next
For x=1 To 89
For y=x+1 To 90
Messaggio "Ruota: "& NomeRuota(r)& " Combinazione : " & x & " - " & y
co=co+1
ambi(co,1)=co
ambi(co,2)=x
ambi(co,3)=y
nn(1)=x
nn(2)=y
c=SerieFreq (ini,fin,nn,ru,2)
ambi(co,4)=c
Next
Next
OrdinaMatrice ambi,-1,4
ColoreTesto 1
Scrivi "Ambi più frequenti sulla ruota di "& NomeRuota (ru(1))&" Dal "& DataEstrazione (ini)& " Al "& DataEstrazione (fin),1
ColoreTesto 0
a=100
Scrivi
riga="Ambi: "
rigo="Freq: "
rigi="Usciti nelle ultime "&a&" estrazioni: "
For x=1 To 10
riga=riga & Format2(ambi(x,2))&"-"& Format2(ambi(x,3))&" "
rigo=rigo & Format2(ambi(x,4))&" "
nu(1)=ambi(x,2)
nu(2)=ambi(x,3)
mm=SerieFreq(fin-a,fin,nu,ru,2)
If mm>0 Then
rigi=rigi & Format2(ambi(x,2))&"-"& Format2(ambi(x,3))&" "
End If
mm=0
Next
Scrivi riga
Scrivi
Scrivi rigo
Scrivi
Scrivi rigi
Scrivi "________________________________________________________________"
Scrivi
Next
End Sub
Blackmore
'PROVVEDERO' IMMEDIATAMENTE AD INSERIRLO, GRAZIE!
'QUESTO LISTATO TROVA GLI AMBI PIU' FREQUENTI SU OGNI SINGOLA RUOTA, E
'TRA QUEST'ULTIMI, SEGNALA QUELLI USCITI NELLE ULTIME 100 ESTRAZIONI
Sub Main()
Dim ambi(4005,4)
Dim nn(3)
Dim nu(2)
Dim ru(1)
For r=1 To 11
co=0
mm=0
ru(1)=r
ini=8000
fin=EstrazioneFin
For s=1 To 4005
ambi(s,1)=0
ambi(s,2)=0
ambi(s,3)=0
ambi(s,4)=0
Next
For x=1 To 89
For y=x+1 To 90
Messaggio "Ruota: "& NomeRuota(r)& " Combinazione : " & x & " - " & y
co=co+1
ambi(co,1)=co
ambi(co,2)=x
ambi(co,3)=y
nn(1)=x
nn(2)=y
c=SerieFreq (ini,fin,nn,ru,2)
ambi(co,4)=c
Next
Next
OrdinaMatrice ambi,-1,4
ColoreTesto 1
Scrivi "Ambi più frequenti sulla ruota di "& NomeRuota (ru(1))&" Dal "& DataEstrazione (ini)& " Al "& DataEstrazione (fin),1
ColoreTesto 0
a=100
Scrivi
riga="Ambi: "
rigo="Freq: "
rigi="Usciti nelle ultime "&a&" estrazioni: "
For x=1 To 10
riga=riga & Format2(ambi(x,2))&"-"& Format2(ambi(x,3))&" "
rigo=rigo & Format2(ambi(x,4))&" "
nu(1)=ambi(x,2)
nu(2)=ambi(x,3)
mm=SerieFreq(fin-a,fin,nu,ru,2)
If mm>0 Then
rigi=rigi & Format2(ambi(x,2))&"-"& Format2(ambi(x,3))&" "
End If
mm=0
Next
Scrivi riga
Scrivi
Scrivi rigo
Scrivi
Scrivi rigi
Scrivi "________________________________________________________________"
Scrivi
Next
End Sub
Blackmore