Per Ilegend o Disaranno Secondo voi è fattibile

[baikal]

grazie sig. magia

 

[Alien.]

Buongiorno,
In attesa di disaronno, le posto il listato modificato per il SuperEnalotto.
Ho aggiunto i numeri da del settore 2,.

Sub Main
'http://forum.lottoced.com/forum/lottoced/area-download/1903619-per-ilegend-o-disaranno-secondo-voi-%C3%A8-fattibile/page3
Dim N(01),T,V,Tt
Ini = 1
fin = EstrazioniArchivioSE
Scrivi " Statistica dal " & DataEstrazioneSE(Ini) & " al " & DataEstrazioneSE(Fin) & " ",1,0,6
Scrivi" ****** Per SuperEnalotto ******** ",1,0,3
Scrivi " Totale Estrazioni analizzate " &(EstrazioniRicercaSE) & " ",1,- 1,4
Scrivi
Scrivi "Per baikal By Mike58 Mod.disaronno Vers. SuperEnalotto",1,,,1,2,,1
Scrivi
T = Array(T,"Num"," Ritardo ","1 Sett 01-15"," 2 Sett 16-30 "," 3 Sett 31-45 "," 4 Sett 46-60 "," 5 Sett 61-75 "," 6 sett 76 > 100 ","Freq 15")
Call InitTabella(T,1,,3,5)
For x = 01 To 90
N(01) = x
Call StatisticaFormazioneSE(N,1,Rit,,,,Ini,fin)
sf = SerieFreqSE(fin - 15,fin,N,1)
V = Array(V,N(1),Rit,Set1,Set2,Set3,Set4,Set5,Set6,sf)
If Rit > 000 And Rit <= 015 Then V(03) = 15 - Rit
If V(03) = 00 Then V(03) = " -- "
If V(03) <> " -- " Then s1 = s1 + 01
If Rit > 016 And Rit <= 030 Then V(04) = 30 - Rit
If V(04) = 00 Then V(04) = " -- "
If V(04) <> " -- " Then s2 = s2 + 01
If Rit > 031 And Rit <= 045 Then V(05) = 45 - Rit
If V(05) = 00 Then V(05) = " -- "
If V(05) <> " -- " Then s3 = s3 + 01
If Rit > 046 And Rit <= 060 Then V(06) = 60 - Rit
If V(06) = 00 Then V(06) = " -- "
If V(06) <> " -- " Then s4 = s4 + 01
If Rit > 061 And Rit <= 075 Then V(07) = 75 - Rit
If V(07) = 00 Then V(07) = " -- "
If V(07) <> " -- " Then s5 = s5 + 01
If Rit > 076 And Rit <= 100 Then V(08) = Rit - 75
If V(08) = 00 Then V(08) = " -- "
If V(08) <> " -- " Then s6 = s6 + 01
Call AddRigaTabella(V,,,3,,"cambria")
Call SetColoreCella(02,3,1)
Next
Tt = Array(Tt,"Totali"," x settori ",s1,s2,s3,s4,s5,s6,"Freq 15")
Call AddRigaTabella(Tt,7,,3,5)
Call scegliTabella
ReDim NN(01)
For x1 = 01 To 90
NN(01) = x1
Call StatisticaFormazioneSE(NN,1,Rit1,,,,Ini,fin)
If Rit1 > 016 And Rit1 <= 030 Then Scrivi StringaNumeri(NN)
Next
End Sub
Function scegliTabella()
ReDim Voci(02)
Voci(01) = "Tabella Normale"
Voci(02) = "tabella Ordinabile"
scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")
If scegliTabella = 01 Then Call CreaTabella()
If scegliTabella = 02 Then Call CreaTabellaOrdinabile
End Function

OTTIMO MA IMPOSSIBILE FARE STATISTICA IN QUANDO DA I NUMERI SOLO SU L'ULTIMA ESTRAZIONE AGGIORNATA....SI PUO' MODIFICARE DAL AL ?

 

[edesimone]

Buona sera Alien
puoi intervenire modificando
fin = EstrazioniArchivioSE con fin = 2394 (risulta ultima estrazione 08.09.2015) diminuendo 2394 in 2393 avrai estrazione 05.09.2015 ecc...