Scrivi String(36," ") & "STATISTICHE LOTTO",1
ColoreTesto 2
Scrivi String(40," ") & "by Eu-Genio",1
ColoreTesto 1
Scrivi String(78,"=") & _
"listedRobyca",1
ColoreTesto 0
Sub Main()
Dim ru(1)
Dim nm(10)
Dim frq(10)
Dim nu(1)
Dim ne(2)
ru(1) = InputBox("INSERIRE IL NUMERO DELLA RUOTA !!!",,1)
ini = InputBox("NUMERO ESTRAZIONE INIZIO VERIFICA." & Chr(13) & Chr(13) & _
"Tenere presente che se il numero delle estr. in verifica" & _
" è inferiore a 500, certi numeri non riescono a fare i 18 " & _
"cicli",,EstrazioneFin - 1500)
ini = CInt(ini)
fin = InputBox("NUMERO ESTRAZIONE FINE VERIFICA." & Chr(13) & Chr(13) & _
"Cmq le percentuali sono sempre riferite ai cicli riportati" & _
" nella riga di mezzo, ovvero: Pres su ??",,EstrazioneFin)
fin = CInt(fin)
For numeri = 1 To 90
nu(1) = numeri
c1 = 0
Erase frq
Messaggio numeri & " " & UCase(NomeRuota(ru(1)))
For es = fin To ini Step - 1
ex = es + 1
Rem *************************
ey = es + 9
Rem ************************
If ex > fin Then ex = fin
If ey > fin Then ey = fin
If Posizione(es,ru(1),nu(1)) > 0 Then
c1 = c1 + 1
dnu = DecinaNaturale(nu(1))
co = 0
For x = 1 To 9
For y = 0 To 9
co = co + 1
If x = dnu + 1 Then
nm(y + 1) = co
End If
Next
Next
For n = 1 To 9
ne(1) = nm(n)
ne(2) = nm(n) + 1
fr = SerieFreq(ex - 6,ey,ne,ru,1)
If fr > 0 Then frq(n) = frq(n) + 1
Next
Rem *******************
If c1 = 18 Then Exit For
Rem ********************************
End If
Next
For x = 1 To 9
riga = riga & Format2(nm(X)) & "-" & Format2(nm(X) + 1) & " "
Next
ColoreTesto 2
Scrivi "Numero : " & nu(1),1
ColoreTesto 0
Scrivi "Decina nat: " & riga
For x = 1 To 9
per =((frq(X)*100)\c1)
If per > 80 Then ColoreTesto 1
If per > 90 Then ColoreTesto 2
rige = rige & Format2(per) & " "
rigi = rigi & Format2(frq(X)) & " "
Next
Scrivi "Pres su " & c1 & ": " & rigi
Scrivi "Percent % : " & rige,1
riga = "":rige = "":rigi = ""
Scrivi
ColoreTesto 2
Next
Scrivi String(78," ") & _
"listedRobyca",1
ColoreTesto 0
End Sub