| questo è uno script che permette di mettere a video 50 situazione del tabellone Estratti Ritardo impostando il nconc di partenza a ritroso.
ricostruisce il tabellone dei ritardi calcola le 6 colonne verticali e le relative posizione dei 90 estratti sempre possibile lanciarlo con spaziometria CODICE Sub Main Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90) k = 1 f = EstrazioniArchivioSE fpre = InputBox("Estrazione n.",,f) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''loop dell'archivio estrazioni superenalotto For b = 1 To f
If b = 50 Then Exit Sub
Fine= fpre-1 Messaggio(fpre & " / " & Fine) fin1 = Fine - 89 CICLOAMBIVERGINI = 380 Vert1 = "":Vert2="":Vert3="":Vert4="":Vert5="":Vert6="" ColoreTesto 1 Scrivi " Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine) & "......ult.estr.archivio..." & f,1 Scrivi " Sestina Orig. Elenco Ritardi ",1 Scrivi "Rit. Estratti Stella Teo6 Teo90 Rea90 Numeri Ritardo Rit.Min. / Rit.Max 10 09 08 07 06 05 04 03 02 01 " ColoreTesto 0 ReDim aNum(90),stella(90),an(90),en(1) For k = 1 To Fine ''' calcola RitardoCombinazione For n = 1 To 90 aNum(n) = aNum(n) + 1 stella(n) = stella(n) + 1 Next aNum(EstrattoSE(k,1)) = 0 aNum(EstrattoSE(k,2)) = 0 aNum(EstrattoSE(k,3)) = 0 aNum(EstrattoSE(k,4)) = 0 aNum(EstrattoSE(k,5)) = 0 aNum(EstrattoSE(k,6)) = 0 stella(EstrattoSE(k,8)) = 0 ''''''''''''''''' If k >= fin1 Then fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1 fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1 fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1 fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1 fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1 fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1 End If ''''''''''''''''' Next ''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone For x = 0 To 200 riga = "" ReDim nun(6) For y = 1 To 90 If x = aNum(y) Then riga = riga & Format2(y) & " " ctnpr = ctnpr + 1 po = PosizioneSE(Fine - x,y) nun(po) = Format2(y) End If Next If x < 10 Then rit = "00" & x End If If x > 9 And x < 100 Then rit = "0" & x End If If x > 99 Then rit = x End If ReDim Orig(8) Orig(1) = Format2(EstrattoSE(Fine - x,1)) Orig(2) = Format2(EstrattoSE(Fine - x,2)) Orig(3) = Format2(EstrattoSE(Fine - x,3)) Orig(4) = Format2(EstrattoSE(Fine - x,4)) Orig(5) = Format2(EstrattoSE(Fine - x,5)) Orig(6) = Format2(EstrattoSE(Fine - x,6)) Orig(8) = Format2(EstrattoSE(Fine - x,8)) Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine) riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1) '''elenco ritardi Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr) xqt = UBound(aRetRitardi) xq = xqt - 11 : rita = "" For xq = xq + 1 To xqt - 1 rita = rita & Format2(aRetRitardi(xq)) & "." Next teo =((14/15)^rit)*6 teo90 =((14/15)^rit)*90 trenta = "" For y = 1 To 90 If Int(aNum(y)) >= 31 Then trenta = trenta & Format2(y) & "." End If Next If riga <> "" Then '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale Linea = "" For w1 = 1 To 6 vv = 0 For w2 = 1 To 6 If nun(w2) = Orig(w1) Then Linea = Linea & Orig(w1) & " " If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "." If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "." If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "." If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "." If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "." If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "." vv = 1 End If Next If vv <> 1 Then Linea = Linea & "-- " Next Scrivi rit & "......" & Format2(EstrattoSE(Fine - x,1)) & " " & Format2(EstrattoSE(Fine - x,2)) & " " & Format2(EstrattoSE(Fine - x,3)) & " " & Format2(EstrattoSE(Fine - x,4)) & " " & Format2(EstrattoSE(Fine - x,5)) & " " & Format2(EstrattoSE(Fine - x,6)) & " ( " & Format2(EstrattoSE(Fine - x,8)) & " ) " & " " & FormattaStringa(teo,"0.0") & " " & FormattaStringa(teo90,"00.00") & " " & Format2(90 - ctnpr) & " " & Linea & " " & riga2 & " / " & FormatSpace(riga3,5) & " " & rita ''''accumula estratti usciti verticali nelle 6 posizioni rigav(1,Orig(1)) = Orig(1) rigav(2,Orig(2)) = Orig(2) rigav(3,Orig(3)) = Orig(3) rigav(4,Orig(4)) = Orig(4) rigav(5,Orig(5)) = Orig(5) rigav(6,Orig(6)) = Orig(6) '''' If(90 - ctnpr) >= teo90 Then ReDim av(20),av5(90) Call SplitByChar(riga1," ",av) last = UBound(av) For t = 0 To last - 1 If av(t) <> "" Then av5(t + 1) = av(t) q = q + 1 an(q) = av(t) End If Next filtro = filtro & StringaNumeri(av5,".") & "." End If End If Next ''''''''''''''''''''''' Scrivi "-------------------------------------------------------------------------------------" Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1 Inizio = "" For a = 1 To 8 Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " " Next Scrivi fpre & " " & DataEstrazione(fpre) & " Sestina Estratta " & Inizio,1 fpre = fpre-1 Scrivi "-------------------------------------------------------------------------------------" Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1 Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1,2,3 Scrivi Fine & " Vert.1 : " & Vert1,1 Scrivi Fine & " Vert.2 : " & Vert2,1 Scrivi Fine & " Vert.3 : " & Vert3,1 Scrivi Fine & " Vert.4 : " & Vert4,1 Scrivi Fine & " Vert.5 : " & Vert5,1 Scrivi Fine & " Vert.6 : " & Vert6,1 Scrivi "-------------------------------------------------------------------------------------" Scrivi Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End Sub da verificare sempre e segnalare eventuali anomalie. --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- questo script è uguale a quello sopra, con l'unica differenza che mette nell'output solo la sintesi che interessa con le 6 colonne verticale ed i numeri che sono relativi alle loro posizioni d'estrazione dalle venus sempre impostando il nconc iniziale, alla ricostruzione di 50 tabelloni alla volta. CODICE Option Explicit Sub Main Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0,po,Linea,w1,w2,vv,Vert1,Vert2,Vert3,Vert4,Vert5,Vert6,Inizio,a,fpre,b Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90) k = 1 f = EstrazioniArchivioSE fpre = InputBox("Estrazione n.",,f)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''loop dell'archivio estrazioni superenalotto For b = 1 To f
If b = 50 Then Exit Sub
Fine = fpre - 1 Messaggio(fpre & " / " & Fine) fin1 = Fine - 89 CICLOAMBIVERGINI = 380 Vert1 = "":Vert2 = "":Vert3 = "":Vert4 = "":Vert5 = "":Vert6 = ""
ReDim aNum(90),stella(90),an(90),en(1) For k = 1 To Fine ''' calcola RitardoCombinazione For n = 1 To 90 aNum(n) = aNum(n) + 1 stella(n) = stella(n) + 1 Next aNum(EstrattoSE(k,1)) = 0 aNum(EstrattoSE(k,2)) = 0 aNum(EstrattoSE(k,3)) = 0 aNum(EstrattoSE(k,4)) = 0 aNum(EstrattoSE(k,5)) = 0 aNum(EstrattoSE(k,6)) = 0 stella(EstrattoSE(k,8)) = 0 ''''''''''''''''' If k >= fin1 Then fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1 fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1 fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1 fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1 fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1 fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1 End If ''''''''''''''''' Next ''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone For x = 0 To 200 riga = "" ReDim nun(6) For y = 1 To 90 If x = aNum(y) Then riga = riga & Format2(y) & " " ctnpr = ctnpr + 1 po = PosizioneSE(Fine - x,y) nun(po) = Format2(y) End If Next If x < 10 Then rit = "00" & x End If If x > 9 And x < 100 Then rit = "0" & x End If If x > 99 Then rit = x End If ReDim Orig(8) Orig(1) = Format2(EstrattoSE(Fine - x,1)) Orig(2) = Format2(EstrattoSE(Fine - x,2)) Orig(3) = Format2(EstrattoSE(Fine - x,3)) Orig(4) = Format2(EstrattoSE(Fine - x,4)) Orig(5) = Format2(EstrattoSE(Fine - x,5)) Orig(6) = Format2(EstrattoSE(Fine - x,6)) Orig(8) = Format2(EstrattoSE(Fine - x,8)) Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine) riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1) '''elenco ritardi Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr) xqt = UBound(aRetRitardi) xq = xqt - 11 : rita = "" For xq = xq + 1 To xqt - 1 rita = rita & Format2(aRetRitardi(xq)) & "." Next teo =((14/15)^rit)*6 teo90 =((14/15)^rit)*90 trenta = "" For y = 1 To 90 If Int(aNum(y)) >= 31 Then trenta = trenta & Format2(y) & "." End If Next If riga <> "" Then '''esponi nel tabellone i ritardi dei 90 numeri in ordine di estrazione come da sestine originale Linea = "" For w1 = 1 To 6 vv = 0 For w2 = 1 To 6 If nun(w2) = Orig(w1) Then Linea = Linea & Orig(w1) & " " If w1 = 1 Then Vert1 = Vert1 & Orig(w1) & "." If w1 = 2 Then Vert2 = Vert2 & Orig(w1) & "." If w1 = 3 Then Vert3 = Vert3 & Orig(w1) & "." If w1 = 4 Then Vert4 = Vert4 & Orig(w1) & "." If w1 = 5 Then Vert5 = Vert5 & Orig(w1) & "." If w1 = 6 Then Vert6 = Vert6 & Orig(w1) & "." vv = 1 End If Next If vv <> 1 Then Linea = Linea & "-- " Next ''''accumula estratti usciti verticali nelle 6 posizioni rigav(1,Orig(1)) = Orig(1) rigav(2,Orig(2)) = Orig(2) rigav(3,Orig(3)) = Orig(3) rigav(4,Orig(4)) = Orig(4) rigav(5,Orig(5)) = Orig(5) rigav(6,Orig(6)) = Orig(6) '''' If(90 - ctnpr) >= teo90 Then ReDim av(20),av5(90) Call SplitByChar(riga1," ",av) last = UBound(av) For t = 0 To last - 1 If av(t) <> "" Then av5(t + 1) = av(t) q = q + 1 an(q) = av(t) End If Next filtro = filtro & StringaNumeri(av5,".") & "." End If End If Next ''''''''''''''''''''''' Scrivi "-------------------------------------------------------------------------------------" Scrivi "Estrazione SUPERENALOTTO AL CONCORSO n. " & fpre & "/" & DataEstrazioneSE(fpre) & "......ult.estr.archivio..." & f,1,2,4 Inizio = "" For a = 1 To 8 Inizio = Inizio & Format2(EstrattoSE(fpre,a)) & " " Next Scrivi fpre & " " & DataEstrazione(fpre) & " Sestina Estratta " & Inizio,1,2,4 fpre = fpre - 1 Scrivi "-------------------------------------------------------------------------------------" Scrivi "Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine),1,2,2 Scrivi "Riepilogo numeri nelle 6 posizioni verticali del Tabellone Analitico ",1 Scrivi Fine & " Vert.1 : " & Vert1,1 Scrivi Fine & " Vert.2 : " & Vert2,1 Scrivi Fine & " Vert.3 : " & Vert3,1 Scrivi Fine & " Vert.4 : " & Vert4,1 Scrivi Fine & " Vert.5 : " & Vert5,1 Scrivi Fine & " Vert.6 : " & Vert6,1 Scrivi "-------------------------------------------------------------------------------------" Scrivi
Next ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
|