-
.
Ecco nuovi Listati per L8+ che trattano la sortita di un Ambo Spia su Ruota: a differenza degli altri gia' postati (li trovate qui': https://illottodisean69.forumfree.it/?t=50895499),questi sono molto piu' dettagliati,ed adatti a ricerche piu' complete.Vediamo nel dettaglio ogni nuovo singolo Listato.
1° Listato
-----------
Supponiamo di voler trovare, dopo la sortita dell'Ambo Spia 9-90 a Cagliari,gli Ambi Piu' Frequenti usciti a Bari e Cagliari ( le 2 ruote di ricerca possono essere cambiate a proprio piacimento).Il Listato,dopo essere stato impostato facilmente tramite gli ImputBox a Video,ci dara' questo risultato:
Come si puo' vedere,il Listato ci ha fornito queste informazioni:
1) Quando e quante volte e' sortito l'Ambo Spia a Cagliari
2) Gli Ambi piu' frequenti sortiti a Bari e Cagliari
3) L'estratto piu' Frequente sortito sulle ruote di Bari e Cagliari
4) Gli Ambi piu' frequenti a Tutte
5) L'estratto piu' Presente a Bari
6) L'estratto piu' Presente a Cagliari
Ecco il Listato:SPOILER (click to view)Sub 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",3000))
r = CInt(InputBox("RUOTA DELL 'AMBO SPIA","RUOTA",2))
a= CInt(InputBox("1° NUMERO AMBO SPIA","1° SPIA",9))
b= CInt(InputBox("2° NUMERO AMBO SPIA","2° SPIA",90))
ru(1)=CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",1))
ru(2)=CInt(InputBox("RUOTE DEI FREQ. ","2° RUOTA",2))
rut(1)=eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",1)))
rutt(1)=eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2)))
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 And Posizione(es,r,b)>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 "AMBO SPIA "& Format2(a)&"-"& Format2(b)&" 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
( Un grazie all'utente Lones per averlo postato su Forum)
2° Listato
-----------
Questo Listato e' simile a quello sopra,ma con la differenza che si limita a cercare i Frequenti ( Estratti ed Ambi) solo su una Ruota ( che possiamo scegliere a proprio piacimento,inserendola quando l'ImputBox lo richiede,dopo aver lanciato il Listato)
Supponiamo di voler trovare, dopo la sortita dell'Ambo Spia 9-90 a Cagliari,gli Ambi Piu' Frequenti usciti a Bari ( la ruota di ricerca puo' essere cambiate a proprio piacimento).Il Listato,dopo essere stato impostato facilmente tramite gli ImputBox a Video,ci dara' questo risultato:
Come si puo' vedere,il Listato ci ha fornito queste informazioni:
1) Quando e quante volte e' sortito l'Ambo Spia a Cagliari
2) Gli Ambi piu' frequenti sortiti a Cagliari (ruota dell'Ambo Spia)
3) L'estratto piu' Frequente sortito sulle ruote di Cagliari ( ruota dell'Ambo Spia)
4) Gli Ambi piu' frequenti a Tutte
5) L'estratto piu' Frequente a Tutte
6) L'estratto piu' Frequente a Bari ( ruota scelta per la ricerca)
7) Gli Ambi piu' Frequenti a Bari ( ruota scelta per la ricerca )
Ecco il Listato:SPOILER (click to view)'Ambate-Ambi freq (anche tutte)+ruota scelta Dopo 2 num su ruota scelta
'Ramco 30/01/2008
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^",9))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",90))
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",2000))
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
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),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 10
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
( un grazie al Forum http://ambolotto.forumfree.it/ ed in particolare a Ramcolotto per avermi fornito il Listato)
N.B=I Listati potrebbero bloccarsi durante l'esecuzione,premere sempre quando richiesto "CONTINUE" fino alla fine..
Se prelevate i Listati,almeno lasciate un saluto,poi se mi votate meglio ancora..si puo' votare ogni ora..
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!clicca qui
Saluti,sean69!!
. -
nikon7178.
User deleted
Ciao a tutti
grazie per questi listati.
Vorrei sapere xche' non pratico, come si carica un listato in Spaziometria
grazie. -
num3r0.
User deleted
Ciao nikon7178,
non è difficile, una volta aperto spaziometria, devi aprire la funzione elebora script che la trovi seguendo il seguente percorso, nella barra degli strumenti:
Gestione script------>elabora script
e apri quest'ultimo.
Una volta aperto non devi far altro che copiare per intero lo script, fra le parole "Sub main" e "End sub" e qualora quest'ultime risultassero presenti due volte dopo aver eseguito "incolla" procedere alla cancellazione di una di esse.
A quel punto non devi far altro che cliccare su "esegui script" che è il tastino con raffigurato un fulmine, ed il gioco è fatto.. -
nikon7178.
User deleted
Grazie mille Sean69 .