R
Roby
Guest
VENUS Nord
GENOVA estratto 13 32 79 posizioni det. 2° 4°
GENOVA estratto 13 32 79 posizioni det. 2° 4°
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.
DA VENUS N-C-S incroci con storici
FIRENZE 80 89 estratto
GENOVA 32 79 13 estratto
MILANO 28 58 estratto
MILANO 51 58 estratto
CAGLIARI 05 14 estratto
VENUS Nord
GENOVA estratto 13 32 79 posizioni det. 2° 4°
VENUS NORD-CENTRO-SUD
da Venus NORD
TO-VE estratto 78
VENEZIA estratto tra 14 e 78
Sub Main()
'2009 controllo SUPERENALOTTO
Dim ss(9999),rit(90),apos(8),an(1),sez(10),sezx(10)
Dim Inizio,fine,det,t,ritardo,ritardomax,Incrritmax,frequenza,punti,riga,es,y,p1,p2,PU,Ord,k,stella,jjj,u,po,h
det = InputBox("Vuoi Solo riepilogo STELLA? ",,"SI")
Inizio = 1
fine = InputBox("Estrazione Finale...",,EstrazioniArchivioSE)
Ord = InputBox("Ordina colonna...2=Freq 3=rit.(Nr.Stella) ",,3)
po = 8
apos(8) = True
ReDim atitoli(5),avalori(5)
' preimposto i titoli delle colonne
atitoli(1) = " Conc.n. "
atitoli(2) = " Numeri "
atitoli(3) = " Jolly "
atitoli(4) = " Super Stella"
atitoli(5) = " r.STELLA "
Call InitTabella(atitoli,2,"center",1.45,5,"Cambria")
Scrivi " da Estrazione n." & Inizio & " - " & DataEstrazioneSE(Inizio) & " al n." & fine & " - " & DataEstrazioneSE(fine),1
For es = Inizio To fine
riga = ""
For y = 1 To 6
riga = riga & Format2(EstrattoSE(es,y)) & " "
Next
avalori(1) = es & " " & DataEstrazioneSE(es)
avalori(2) = riga
avalori(3) = Format2(EstrattoSE(es,7))
avalori(4) = Format2(EstrattoSE(es,8))
avalori(5) = rit(avalori(4))
For t = 1 To 90
rit(t) = rit(t) + 1
Next
rit(avalori(4)) = 0
ss(avalori(4)) = ss(avalori(4)) + 1
''calcola ritardo di fascia per numero stella
For h = 1 To 10
sez(h) = sez(h) + 1
Next
If avalori(5) < 11 Then
If sez(1) > sezx(1) Then
sezx(1) = sez(1)
End If
sez(1) = 0
End If
If avalori(5) > 10 And avalori(5) < 21 Then
If sez(2) > sezx(2) Then
sezx(2) = sez(2)
End If
sez(2) = 0
End If
If avalori(5) > 20 And avalori(5) < 31 Then
If sez(3) > sezx(3) Then
sezx(3) = sez(3)
End If
sez(3) = 0
End If
If avalori(5) > 30 And avalori(5) < 41 Then
If sez(4) > sezx(4) Then
sezx(4) = sez(4)
End If
sez(4) = 0
End If
If avalori(5) > 40 And avalori(5) < 51 Then
If sez(5) > sezx(5) Then
sezx(5) = sez(5)
End If
sez(5) = 0
End If
If avalori(5) > 50 And avalori(5) < 101 Then
If sez(6) > sezx(6) Then
sezx(6) = sez(6)
End If
sez(6) = 0
End If
If avalori(5) > 100 And avalori(5) < 201 Then
If sez(7) > sezx(7) Then
sezx(7) = sez(7)
End If
sez(7) = 0
End If
If avalori(5) > 100 Then
If sez(8) > sezx(8) Then
sezx(8) = sez(8)
End If
sez(8) = 0
End If
Call AddRigaTabella(avalori,Bianco_,"center",1)
If Int(avalori(5)) > 200 Then
Call SetColoreCella(5,RGB(255,128,128),vbBlack)
End If
If Int(avalori(5)) > 20 And Int(avalori(5)) < 31 Then
Call SetColoreCella(5,RGB(255,128,128),vbBlack)
End If
If Int(avalori(5)) > 0 And Int(avalori(5)) < 11 Then
Call SetColoreCella(5,RGB(254,223,167),vbBlack)
End If
Next
If det = "SI" Or det = "si" Then
CreaTabella
End If
ReDim atitoli2(4)
ReDim avalori2(4)
' preimposto i titoli delle colonne
atitoli2(1) = " Numero stella "
atitoli2(2) = " freq "
atitoli2(3) = "Ritardo"
atitoli2(4) = " Esito: "
Call InitTabella(atitoli2,2,"center",1.45,5,"cambria")
For u = 1 To UBound(ss)
If ss(u) <> 0 Then
avalori2(1) = Format2(u)
avalori2(2) = ss(u)
avalori2(3) = rit(u)
avalori2(4) = " "
'''verifica esiti per il range specificato ed evidenzia numeri stella
If avalori2(3) > 35 And avalori2(3) < 100 Then
For k = 1 To 26
stella = EstrattoSE(fine + k,8)
If Int(stella) = Int(avalori2(1)) Then
avalori2(4) = k & "/" & fine + k
Call AddRigaTabella(avalori2,Bianco_,"center",1)
For jjj = 1 To 3
Call SetColoreCella(Int(jjj),RGB(192,255,185),vbBlack)
Next
If Int(avalori2(3)) > 200 Then
Call SetColoreCella(3,RGB(255,128,128),vbBlack)
End If
Else
Call AddRigaTabella(avalori2,Bianco_,"center",1)
For jjj = 1 To 3
Call SetColoreCella(Int(jjj),RGB(192,255,185),vbBlack)
Next
If Int(avalori2(3)) > 200 Then
Call SetColoreCella(3,RGB(255,128,128),vbBlack)
End If
Exit For
End If
Next
Else
Call AddRigaTabella(avalori2,Bianco_,"center",1)
End If
End If
Next
CreaTabella(Ord)
Scrivi " Fasce di Ritardo o Sezioni ",1
For h = 1 To 8
Scrivi " Fascia " & h & " Ratt..." & sez(h) & " Rmax..." & sezx(h)
Next
End Sub
DA VENUS - Centro
FIRENZE 80 89 estratto
FIRENZE 89 estratto determinato pos.2°
http://s22.postimg.org/xv2ptap8h/FI89.jpg
caricare immagini
dalla situazione Grafica della fascia a 180
nb: media attuale maggiore della maxima
hosting immagini