e trova i numeri più frequenti o in ritardo per ogni Venus
Ogni Venus ha poi la stringa numeri da copiare e incollare su LG2 o Lottostudio, se volete fare qualche ricerca combinata....
Ciao
- Codice: Seleziona tutto
Sub Main()
ColoreTesto 1
Scrivi "NUMERI SUPERFREQUENTI/RITARDATARI NELLE 3 VENUS [NORD-CENTRO-SUD] NELLE ULTIME TOT. ESTRAZIONI"
Dim num1(90,3)
Dim nn1(1),nn2(1),nn3(1)
Dim Ruota1(1),Ruota2(1),Ruota3(1)
Ord = InputBox("Ordina Per "& VbCrlf &"1 = Frequenza "& VbCrlf &"2 = Ritardo",,1)
Estr1 = CInt(InputBox("Estrazioni da controllare ? ","BLACKMORE",18))
fr1 = CInt(InputBox("QUANTI NUMERI FREQUENTI/RITARDATARI ?","BLACKMORE",10))
ini = EstrazioneFin - Estr1+1
fin = EstrazioneFin
Scrivi "ESTRAZIONE INIZIALE: "& DataEstrazione(ini)
Scrivi "ESTRAZIONE FINALE: "& DataEstrazione(Fin)
If Ord = 1 Then
ColoreTesto 2:Scrivi "RICERCA STATISTICA PER FREQUENZE",1:coloretesto 0
Else
ColoreTesto 2:Scrivi "RICERCA STATISTICA PER RITARDI",1:coloretesto 0
End If
Scrivi "Listed By Blackmore":scrivi
ColoreTesto 0
ColoreTesto 1:Scrivi String(110,"="),1:ColoreTesto 0
Scrivi "I " & fr1 & " NUMERI PIU' FREQUENTI/RITARDATARI NELLE ULTIME " & estr1 & " ESTRAZIONI DELLA VENUS NORD [ GE - MI - TO - VE ]"
Scrivi
For es = Ini To Fin
co = 0
For r1 = 1 To 10
If r1 = 4 Or r1 = 5 Or r1 = 9 Or r1 = 10 Then
For p1 = 1 To 5
a1 = Estratto(es,r1,p1)
nn1(1)= a1
Ruota1(1)= r1
sr1 = SerieRitardo(ini,fin,nn1,Ruota1,1)
num1(a1,1) = a1
num1(a1,2) = num1(a1,2) + 1
num1(a1,3) = sr1
co = co + 1
Next
End If
Next
Next
OrdinaMatrice num1,- 1,Ord+1
Scrivi "Num - Freq - Rit"
For x1 = 1 To fr1
Scrivi Format2(num1(x1,1)) & " - " & Format2(num1(x1,2)) & " - " & Format2(num1(x1,3))
nstr = CStr(num1(x1,1))
If Len(nstr) < 2 Then nstr = "0" + nstr
stringa = stringa + nstr
If x1 < fr1 Then Stringa = Stringa + "."
Next
Scrivi
Scrivi "STRINGA NUMERI " & stringa
ColoreTesto 1:Scrivi String(110,"="),1:ColoreTesto 0
'====================================================================================
Redim num2(90,3)
fin = EstrazioneFin
Scrivi "I " & fr1 & " NUMERI PIU' FREQUENTI/RITARDATARI NELLE ULTIME " & estr1 & " ESTRAZIONI DELLA VENUS CENTRO [ CA - FI - RO - NZ ]"
Scrivi
For es = Ini To Fin
co2 = 0
For r2 = 1 To 12
If r2 = 11 Then r2 = 12
If r2 = 2 Or r2 = 3 Or r2 = 8 Or r2 = 12 Then
For p2 = 1 To 5
a2 = Estratto(es,r2,p2)
nn2(1)= a2
Ruota2(1)= r2
sr2 = SerieRitardo(ini,fin,nn2,Ruota2,1)
num2(a2,1) = a2
num2(a2,2) = num2(a2,2) + 1
num2(a2,3) = sr2
co2 = co2 + 1
Next
End If
Next
Next
OrdinaMatrice num2,- 1,Ord+1
Scrivi "Num - Freq - Rit"
For x2 = 1 To fr1
Scrivi Format2(num2(x2,1)) & " - " & Format2(num2(x2,2))& " - " & Format2(num2(x2,3))
nstr = CStr(num2(x2,1))
If Len(nstr) < 2 Then nstr = "0" + nstr
stringa1 = stringa1 + nstr
If x2 < fr1 Then Stringa1 = Stringa1 + "."
Next
Scrivi
Scrivi "STRINGA NUMERI " & stringa1
ColoreTesto 1:Scrivi String(110,"="),1:ColoreTesto 0
'====================================================================================
Redim num3(90,3)
fin = EstrazioneFin
Scrivi "I " & fr1 & " NUMERI PIU' FREQUENTI/RITARDATARI NELLE ULTIME " & estr1 & " ESTRAZIONI DELLA VENUS SUD [ BA - NA - PA ]"
Scrivi
For es = Ini To Fin
co3 = 0
For r3 = 1 To 10
If r3 = 1 Or r3 = 6 Or r3 = 7 Then
For p3 = 1 To 5
a3 = Estratto(es,r3,p3)
nn3(1)= a3
Ruota3(1)= r3
sr3 = SerieRitardo(ini,fin,nn3,Ruota3,1)
num3(a3,1) = a3
num3(a3,2) = num3(a3,2) + 1
num3(a3,3) = sr3
co3 = co3 + 1
Next
End If
Next
Next
OrdinaMatrice num3,- 1,Ord+1
Scrivi "Num - Freq - Rit"
For x3 = 1 To fr1
Scrivi Format2(num3(x3,1)) & " - " & Format2(num3(x3,2))& " - " & Format2(num3(x3,3))
nstr = CStr(num3(x3,1))
If Len(nstr) < 2 Then nstr = "0" + nstr
stringa2 = stringa2 + nstr
If x3 < fr1 Then Stringa2 = Stringa2 + "."
Next
Scrivi
Scrivi "STRINGA NUMERI " & stringa2
ColoreTesto 1:Scrivi String(110,"="),1:ColoreTesto 2
Scrivi "STRINGA NUMERI COMPLETA VENUS NORD-CENTRO-SUD: " & Stringa & "." & Stringa1 & "." & Stringa2
ColoreTesto 0
End Sub