'ricerca ULTIMI 10 RITARDI AVUTI DEI NUMERI richiesti sulla ruota richiesta
'''mikiultRitardi
Sub Main()
r = InputBox("Ruota ricerca ",,1)
ca = InputBox("Cadenza richiesta ",,1)
Ord = InputBox("Ordina tabella per ritardo attuale ",,3)
''' per nazionale imposta dal conc.n. 7440 altre ruote dal 3950
If r = 12 Then dal = 7440 Else dal = 3950 End If
ColoreTesto 1
Scrivi " Situazione ultimi 10 ritardi sulla ruota di " & NomeRuota(r)
Scrivi " Per i numeri di cadenza richiesta...." & ca
Scrivi " Periodo statistico dal....al...." & dal & " " & DataEstrazione(dal) & " - " & EstrazioneFin & " " & DataEstrazione(EstrazioneFin)
Scrivi " Situazione al concorso n. " & EstrazioneFin & " " & DataEstrazione(EstrazioneFin)
ColoreTesto 0
Scrivi " Questa ricerca è adatta o abbinabile all'equilibrio Instabile "
ColoreTesto 2
Scrivi
Scrivi " Quartina-Estratti di Cadenza .... 1 su 4",1
ColoreTesto 0
Scrivi "_____________________________________________________________________"
ReDim atitoli(15)
' preimposto i titoli delle colonne
atitoli(1) = "Ruota "
atitoli(2) = "Numeri "
atitoli(3) = "R.att"
atitoli(4) = " Storico"
atitoli(5) = " R01 "
atitoli(6) = " R02 "
atitoli(7) = " R03 "
atitoli(8) = " R04 "
atitoli(9) = " R05 "
atitoli(10) = " R06 "
atitoli(11) = " R07 "
atitoli(12) = " R08 "
atitoli(13) = " R09 "
atitoli(14) = " R10 "
atitoli(15) = " SomRit."
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
finale = EstrazioneFin
ini = fine - 1000
somrit = 0
'''''----------------------------------------------------------------------------------------------------
yy = ca
'''mikirubinocoppie ambata
For y = 1 To 6
zz = yy
z = y
For z = z + 1 To 7
zz = zz + 10
ww = zz
w = z
For w = w + 1 To 8
ww = ww + 10
ss = ww
s = w
For s = s + 1 To 9
ss = ss + 10
lancio1 = getbiambo(y,yy,zz,ww,ss,r,dal,finale)
Next
Next
Next
yy = yy + 10
Next
'''''----------------------------------------------------------------------------------------------------
Call CreaTabella(Int(ord))
End Sub
''''''''''-----------------------------------------------------------------------------------------------------------------------------
Function getbiambo(y,yy,zz,ww,ss,r,dal,finale)
Dim art(1)
Dim an(4)
Dim rit(11)
Dim sto(11)
Dim q
Dim somrit
fine = finale
art(1) = r
an(1) = Fuori90(yy)
an(2) = Fuori90(zz)
an(3) = Fuori90(ww)
an(4) = Fuori90(ss)
stori = SerieStorico(dal,fine,an,art,1)
For q = 1 To 11
rit(q) = SerieRitardo(dal,fine,an,art,1)
If q >= 2 Then
somrit = somrit + rit(q)
End If
fine = fine -(rit(q) + 1)
Next
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(15) '
aValori(1) = NomeRuota(r)
aValori(2) = Format2(an(1)) & "-" & Format2(an(2)) & "-" & Format2(an(3)) & "-" & Format2(an(4))
aValori(3) = rit(1)
aValori(4) = stori
aValori(5) = rit(2)
aValori(6) = rit(3)
aValori(7) = rit(4)
aValori(8) = rit(5)
aValori(9) = rit(6)
aValori(10) = rit(7)
aValori(11) = rit(8)
aValori(12) = rit(9)
aValori(13) = rit(10)
aValori(14) = rit(11)
aValori(15) = somrit
If aValori(3) >= stori - 2 Then
Call AddRigaTabella(aValori,Giallo_,"center",1)
Call SetColoreCella(3,vbWhite,vbRed)
Call SetColoreCella(4,vbRed,vbWhite)
Else
Call AddRigaTabella(aValori,Giallo_,"center",1)
End If
getbiambo = lancio1
End Function
''''''''''-----------------------------------------------------------------------------------------------------------------------------
