Sub Main()
' x herat :numeri più frequenti in un certo numero di estrazioni dopo una doppia spia singola
' in un determinato numero di estrazioni identico per il primo e secondo ciclo di verifica
'script lottotom75
'ispirato da script di cinzia27: https://forum.lottoced.com/forum/lottoced/area-download/2183127-aiuto-script-per-frequenza-estratti
casi = 0
co = 0
Dim ru(2),ru1(1),n(90,2)
dd = CInt(InputBox("Spia 1?",,90))
dd2 = CInt(InputBox("Spia 2?",,35))
r = CInt(InputBox("Ruota?",,1))
nn = CInt(InputBox("numeri + frequenti da visualizzare per ogni ciclo di verifica?",,10))
ee = CInt(InputBox("Estrazione di partenza?",,9600))
co = CInt(InputBox("colpi x i due cicli di verifica?",,10))
finprimociclo = Int(ee + 9)
ini = ee
inisecondociclo = finprimociclo + 1
finsecondociclo = inisecondociclo + 9
Scrivi("ini= " & ini)
Scrivi("finprimociclo= " & finprimociclo)
For es = ini To finprimociclo
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
Scrivi "Dalla " &(ini) & " alla " & finprimociclo,1
If a = dd Or b = dd Or c = dd Or d = dd Or e = dd Then
Dim ambate(90,4), nnn(1)', ru(1)
w=co 'imposta numero di estrazioni
ini= ee
fin= finprimociclo 'imposta estrazione finale
For r=r To r
If r=11 Then r=12
ru(1)=r 'tutte
co=0
For i=1 To 90
co=co+1
nnn(1)=i
ambate(co,1)=co
ambate(co,2)=nnn(1)
fr=SerieFreq(ini,fin,nnn,ru,1)
ambate(co,3)=fr
ambate(co,4)=w
Next
OrdinaMatrice ambate,-1,3
For x=1 To 10
Scrivi SiglaRuota(r)& Space(2)& Format2(ambate(x,2))&" fr "& FormatSpace(ambate(x,3),4,1)&" su "& FormatSpace(ambate(x,4),4,1)
Next
Scrivi
Next
OrdinaMatrice n,- 1,2
ColoreTesto 2
ColoreTesto 0
For x = 1 To nn
riga = ""
Next
For cc = 1 To 90
n(cc,1) = 0
n(cc,2) = 0
Next
Else
Scrivi "nessuna condizione rilevata"
End If
Next
'--------
'verifica secondo ciclo
For es2 = inisecondociclo To finsecondociclo
a = Estratto(es2,r,1)
b = Estratto(es2,r,2)
c = Estratto(es2,r,3)
d = Estratto(es2,r,4)
e = Estratto(es2,r,5)
Scrivi
Scrivi "Dalla " & inisecondociclo & " alla " & finsecondociclo,1
Scrivi("inisecondociclo= " & inisecondociclo)
Scrivi("finsecondociclo= " & finsecondociclo)
Scrivi
If a = dd2 Or b = dd2 Or c = dd2 Or d = dd2 Or e = dd2 Then
Dim ambate2(90,4), nnnn(1)', ru(1)
w=co 'imposta numero di estrazioni
ini=inisecondociclo '-w
fin=finsecondociclo 'imposta estrazione finale
For r=r To r
If r=11 Then r=12
ru(1)=r 'tutte
co=0
For i=1 To 90
co=co+1
nnnn(1)=i
ambate2(co,1)=co
ambate2(co,2)=nnnn(1)
fr=SerieFreq(ini,fin,nnnn,ru,1)
ambate2(co,3)=fr
ambate2(co,4)=w
Next
OrdinaMatrice ambate2,-1,3
For x=1 To 10
Scrivi SiglaRuota(r)& Space(2)& Format2(ambate2(x,2))&" fr "& FormatSpace(ambate2(x,3),4,1)&" su "& FormatSpace(ambate2(x,4),4,1)
Next
Scrivi
Next
OrdinaMatrice n,- 1,2
ColoreTesto 2
ColoreTesto 0
For x = 1 To nn
riga = ""
Next
For cc = 1 To 90
n(cc,1) = 0
n(cc,2) = 0
Next
Else
Scrivi "nessuna condizione rilevata"
End If
Next
End Sub