Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim est,n,k,p,v,r
Dim amb(90)
For v = 1 To 90
amb(v) = 0
Next
'
r = ScegliRuota
est = 13
For n = EstrazioneFin - est + 1 To EstrazioneFin
Messaggio DataEstrazione(n)
'For r = 1 To 10
For p = 1 To 5
k = Estratto(n,r,p)
amb(k) = amb(k) + 1
Next
Next
'Next
Scrivi " Analisi effettuata dal " & DataEstrazione(EstrazioneFin - est + 1) & " al " & DataEstrazione(EstrazioneFin) & "",0,1,3
Scrivi " Super frequenti ultime " & est & " estrazioni",0,1,4
Scrivi " Tabella " & SiglaRuota(r) & "",0,1,6
Scrivi
'
For v = 1 To 90
If amb(v) = 0 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte",0,1,5
Else
If amb(v) = 1 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte",0,1,3
Else
If amb(v) = 2 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte",0,1,4
Else
If amb(v) = 3 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte",0,1,6
Else
If amb(v) > 3 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte",0,1,2,5
End If
End If
End If
End If
End If
Next
End Sub
37 numeri sortite 0 = 2.4.6.10.11.15.16.17.19.21.23.28.30.32.34.40.44.45.46.49.50.51.52.55.58.64.65.68.73.74.75.76.80.83.84.85.90.
31 numeri sortite 1 = 5.7.8.9.12.18.22.24.25.26.27.29.37.38.39.42.43.48.56.59.62.63.67.69.71.72.77.78.82.86.89.
15 numeri sortite 2 = 1.3.13.20.31.33.36.47.54.57.60.70.79.81.87.
4 numeri sortite 3 = 14.35.41.88.
3 numeri sortite 4 = 53.61.66.
Analisi effettuata dal 14.02.2023 al 23.03.2023
Super frequenti ultime 17 estrazioni
Tabella BA
Sub Main
Dim est,n,k,p,v,r
Dim amb(90)
For v = 1 To 90
amb(v) = 0
Next
'
r = ScegliRuota
est = 17
For n = EstrazioneFin - est + 1 To EstrazioneFin
Messaggio DataEstrazione(n)
'For r = 1 To 10
For p = 1 To 5
k = Estratto(n,r,p)
amb(k) = amb(k) + 1
Next
Next
'Next
Scrivi " Analisi effettuata dal " & DataEstrazione(EstrazioneFin - est + 1) & " al " & DataEstrazione(EstrazioneFin) & "",0,1,1,5
Scrivi " Super frequenti ultime " & est & " estrazioni",0,1,1,5
Scrivi " Tabella " & SiglaRuota(r) & "",0,1,1,5
Scrivi
Scrivi
'
For v = 1 To 90
If amb(v) = 0 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte " & Space(5) & "",0,1,1,5
Else
If amb(v) = 1 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte ",0,1,3
Else
If amb(v) = 2 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte ",0,1,4
Else
If amb(v) = 3 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte ",0,1,6
Else
If amb(v) > 3 Then
Scrivi " Numero " & v & " Uscito " &(amb(v)) & " volte ",0,1,2,5
End If
End If
End If
End If
End If
Next
End Sub
tutte 1 44.....provo pure 1 44 e 1 44 46 90 tutte....
Di nuovo ambo secco tutte milano 1-44....provo pure 1 44 e 1 44 46 90 tutte....