| ...come avevo promesso ho unito i vari scripts inserendo
semplicemente i relativi Input, e poi ho inserito una variante
sulle frequenze; e cioè :
controllare il valore delle frequenze nel periodo (es-CRmax),(es+eda).
Nella speranza che questa variante possa essere utile, e,
di non aver commesso errori, saluto.
Ciao, Enplein.CODICE Sub main()
Scrivi "Analisi ruota in un ciclo_X_CR_CSM_QN_FQ"
Scrivi "_________________________________________ by ScaraLab"
Dim ruota(1) ' vettore per le ruote
Dim a(1), npr(1), nn(90), ni(91)
Dim n(90) ' vettore per i numeri
Dim posta(1), poste(2)
posta(1)=1
poste(1)=0
poste(2)=1
r=CInt (InputBox ("Quale ruota vuoi controllare? BA=1 CA=2 ecc.","RUOTA",1)) 'imposta la ruota di analisi
eda=CInt (InputBox ("Quante estrazioni vuoi controllare?","Estrazioni",19)) ' numero di estrazioni analizzate
'imposta i valori minimo e massimo del CR:
crmin=CInt (InputBox ("Quale valore Min vuoi del CR","CR",40))
crmax=CInt (InputBox ("Quale valore Max vuoi del CR","CR",60))
fq=CInt (InputBox ("Quale freq. vuoi avere nel ciclo di estraz. da controllare?","Frequenza",3)) 'frequenza richiesta nell'intervallo di CRmax - eda
'imposta i valori minimo e massimo del CMS:
cmsmin=CInt (InputBox ("Quale valore Min vuoi del CMS","CMS",14))
cmsmax=CInt (InputBox ("Quale valore Max vuoi del CMS","CMS",16))
'imposta i valori minimo e massimo della quantità dei numeri da mettere in gioco:
qnmin=CInt (InputBox ("Quanti Numeri Min vuoi avere?","Numeri",9))
qnmax=CInt (InputBox ("Quanti Numeri Max vuoi avere?","Numeri",30))
ega=CInt (InputBox ("Quante estrazioni controllo per il gioco?","Gioco",18)) 'estrazioni per il controllo giocata
ini=CInt (InputBox ("Da che estrazione inizio per la ricerca?","Inizio",4123)) 'dal 1950 ' estrazione iniziale
fin=EstrazioneFin -ega ' estrazione finale - estrazioni per il gioco
ruota(1)=r
cmsms=0
ce=0
tot=0
ssom=0
vvar=0
For es=ini To fin ' ciclo preso in esame da ini a fin
AvanzamentoElab ini,fin,es ' fa avanzare la barra sotto
npr(1)=PiuRitardatario(es,ruota(1)) 'calcola il numero più ritardato
cr=SerieRitardo(es-250,es,npr,ruota,1) 'calcola il CR
If cr=>crmin And cr<=crmax Then
smm=0
For jj=1 To 90
a(1)=jj
rdrd=SerieRitardo(es-250,es,a,ruota,1)
smm=smm+rdrd+1
Next
cms=smm/90
Erase nn
If cms=>cmsmin And cms<=cmsmax Then
cc=0
cf=0
For p=1 To 90 ' ciclo per i cinque estratti
a(1)=p ' estratto in esame
If SerieRitardo(es-250,es,a,ruota,1)=>eda-1 And SerieFreq(es-(crmax),es+(eda),a,ruota,1)=>fq Then
cc=cc+1
n(cc)=p
cf=cf+1
nn(cf)=p
End If
Next ' fa girare il ciclo p
If cf=>qnmin And cf<=qnmax Then
Scrivi "["+Format2(es)+"] "+DataEstrazione(es)+" Ruota di "+NomeRuota(ruota(1))+_
" CICLO REALE "+FormatSpace(cr+1,4,True)+" estraz."+_
" CMS "+FormatSpace(Round(cms,2),7),1
Scrivi +Format2(cc)+" Numeri sortiti in "+Format2(eda)+" estrazioni "
Scrivi
Messaggio( "Controllo Giocata dell'aggregato omogeneo" )
Scrivi Chr(13)&"["&es&"] "& DataEstrazione(es)&" - "& NomeRuota(ruota(1))&" - In gioco: ",1
Scrivi StringaNumeri (nn),1
ca=0
For ex=es+1 To es+ega
If ex<=EstrazioneFin Then
ca=ca+1
For rt=1 To 10
If rt=ruota(1) Then
cc=0
rigac=Left(NomeRuota (rt),2)&" "
For pos=1 To 5 : nn(cn+1)=Estratto(ex,rt,pos)
If NumeriRipetuti(nn)=True Then
cc=cc+1
ni(cc)=nn(cn+1)
End If
Next
rigac=rigac&""& StringaNumeri(ni)
If cc>0 Then
Scrivi DataEstrazione(ex)&" - "&FormatSpace(rigac,20)&" "& Format2(ca)&"° colpo ["&ex&"]"
rigac=""
Erase ni
End If
End If
Next
End If
Next
Scrivi String(80,"*")
End If
End If 'cmsmin-cmsmax
End If ' crmin-crmax
Next ' fa girare il ciclo preso in esame ini-fin
End Sub
|
diamo il tempo per la consultazione sicuramente tra poco si vedranno 44
