Sei stato chiarissimo, purtroppo in questi tipi di ricerche vado in confusione
in archivio ho trovato questi,magari ti possono essere d'aiuto
Ciauz
'===========ricerca FREQUENZA e RITARDO di un AMBO per Ruota==========
Sub main()
'ru=InputBox ("Quale ruota vuoi controllare",,5 )' RUOTA DI RICERCA
n1=InputBox("1° NUMERO AMBO DI RICERCA","ricerca ",90)
n2=InputBox("2° NUMERO AMBO DI RICERCA","ricerca ",11)
fin=EstrazioneFin
ini=EstrazioneIni
For ru=1 To 12
If ru=11 Then ru=12
rit=0
ok=0
For es=fin To ini step -1
If Posizione (es,ru,n1)>0 And Posizione (es,ru,n2)>0 Then ok=1 : ra=rit : ex=es Else rit=rit+1
If ok=1 Then Exit For
Next
a=AmboFrequenza(ru,n1,n2,ini,fin)
Scrivi
Scrivi "Dal "&DataEstrazione (ini) &" al " &DataEstrazione (fin) &" a "& SiglaRuota (RU)&" l'AMBO["&(n1)&" "& (n2)&"] FREQUENZA USCITA "& Format2(a)&" VOLTE ",1
Scrivi
Scrivi "Dal "&DataEstrazione (ini) &" al " &DataEstrazione (fin) &" a "& SiglaRuota (RU)&" l'AMBO["&(n1)&" "& (n2)&"] Ritarda da "& (rit)&" estrazioni ",1
Scrivi
Scrivi" Ultima uscita il "& DataEstrazione (ex)&" = "& StringaEstratti (ex,ru),1
ColoreTesto 2
Scrivi"==================================== ",1
ColoreTesto 0
Scrivi
Next
End Sub
e questo
' Ricava migliori ambate + 4 abbinamenti by Lottopassion
'Ruote gioco: Bari - Cagliari
'Cicli analizzati: 30
'Estrazioni considerate: 9
'Ambata/Capogioco: 8
'Abbinamenti x ambo: 67 - 36 - 25 - 60
'Cinquina x ambo e terno: 8 - 67 - 36 - 25 - 60
Sub main()
Dim ruote(11)
Dim numeri(90),pres(90)
Dim ncicli
Dim cicli
Dim stringa
Dim ns(10)
Dim r1,r2,es,e1,estr1,estr2,cc,decmax,cadmax,nmax,n,nf,np,ff,scad,sdec,conta,nsp,cpg
cicli=CLng(InputBox ("Quanti cicli vuoi analizzare ?",,30))
ncicli=CLng(InputBox ("Di quante estrazioni ?",,9))
r1=CLng(InputBox ("Ruota numero 1: (1=Bari 2=Cagliari ...)",,1))
r2=CLng(InputBox ("Ruota numero 2: 0=no",,2))
cpg=CLng(InputBox ("Capogioco: 0=automatico",,0))
estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
Erase pres
For es=estr1 To estr2
For e1=1 To 5
If pres(Estratto (es,r1,e1))=0 Then
numeri(Estratto (es,r1,e1))=numeri(Estratto(es,r1,e1))+1
pres(Estratto (es,r1,e1))=1
If numeri(Estratto (es,r1,e1))>nmax Then nmax=numeri(Estratto (es,r1,e1))
End If
If r2>0 Then
If pres(Estratto (es,r2,e1))=0 Then
numeri(Estratto (es,r2,e1))=numeri(Estratto(es,r2,e1))+1
pres(Estratto (es,r2,e1))=1
If numeri(Estratto (es,r2,e1))>nmax Then nmax=numeri(Estratto (es,r2,e1))
End If
End If
Next
Next
Next
stringa= "Ruote gioco: "+NomeRuota (r1)
If r2>0 Then stringa=stringa+" - "+NomeRuota(r2)
Scrivi stringa,True
Scrivi"Cicli analizzati: "&(cicli),1
Scrivi"Estrazioni considerate: "&(ncicli),1
ff=nmax+1
conta=0
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 90
If numeri(cc)=ff Then
nsp=cc
Exit Do
End If
Next
Loop
If cpg>0 Then nsp= cpg
Scrivi "Ambata/Capogioco: "+CStr(nsp)
Erase numeri
estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
For es=estr1 To estr2
For e1=1 To 5
If Estratto (es,r1,e1)=nsp Then
For e2= 1 To 5
If Estratto(es,r1,e2)<>nsp Then
numeri(Estratto (es,r1,e2))=numeri(Estratto(es,r1,e2))+1
If numeri(Estratto (es,r1,e2))>nmax Then nmax=numeri(Estratto (es,r1,e2))
End If
Next
End If
If r2>0 Then
If Estratto (es,r2,e1)=nsp Then
For e2=1 To 5
If Estratto(es,r2,e2)<>nsp Then
numeri(Estratto (es,r2,e2))=numeri(Estratto(es,r2,e2))+1
If numeri(Estratto (es,r2,e2))>nmax Then nmax=numeri(Estratto (es,r2,e2))
End If
Next
End If
End If
Next
Next
Next
ff=nmax+1
conta=0
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 90
If numeri(cc)=ff Then
conta=conta+1
ns(conta)=cc
If conta>4 Then Exit Do
End If
Next
Loop
Scrivi "Abbinamenti x ambo: "+CStr(ns(1))+" - "+CStr(ns(2))+" - "+CStr(ns(3))+" - "+CStr(ns(4))
Scrivi "Cinquina x ambo e terno: "+CStr(nsp)+" - "+CStr(ns(1))+" - "+CStr(ns(2))+" - "+CStr(ns(3))+" - "+CStr(ns(4))
End Sub
