Novità

4 amici al BAR

B

Beppignello

Guest
riferimenti FLOWCHART 1-2-3


Cattura.GIF

Cattura2.GIF
 

Allegati

  • Cattura3.GIF
    Cattura3.GIF
    17,1 KB · Visite: 1
  • Cattura.GIF
    Cattura.GIF
    4,9 KB · Visite: 1
Ultima modifica di un moderatore:
B

Beppignello

Guest
ricostruzione del cruciverba in gioco

procedura:
0) Se-FrequenzaMassimaCombinazioniGrandi
1) Ripetizioni a Colpo
2) Cruciverba
3) genere e filtra i sistemi e crea matrice
4) filtra per sestine/settine a scelta.

in attesa dell'elaborazione ed i dati.

cruciverba in vigore per diversi concorsi

Catturax.GIF
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
questa sera è ancora discreta, ma senza stella è sempre al minimo

Cattura.GIF

diversi tre punti
 
B

Beppignello

Guest
Per questa sera. Sistemone )) team )) da 45 quote

una volta si puo provare.

prenotato.
 
B

Beppignello

Guest
Ops sviluppo errato
manca 1 colonna

​63 76 34 74 45 57
63 2 42 74 31 70
63 84 17 74 37 54
76 2 84 45 31 37
76 42 17 45 70 54
34 2 17 57 31 54
34 42 84 57 70 37
87 67 18 46 53 20
87 47 82 46 5 32
67 18 47 53 20 5
67 18 82 53 20 32






​​​​​​
 
B

Beppignello

Guest
Testiamo il generatore di numeri di lottologia

2 dodicine ed 1 sestina

12+12+6 = 30 numeri Max


i numeri doppi vanno eliminati

Buone ferie a tutti
ci rileggiamo a settembre.


73,80,10,12,71,4,72,77,28,76,49,39

8,66,82,69,52,38

88,19,78,14,44,83,64,87,42,8,63,10
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
Bar

3 15 24 11 8 55 21 9 7 28 6 69 26 86 80 4 10 77 27 44 5 2 63 1 50 41 31 47
 
B

Beppignello

Guest
Tutto e sempre contro ogni senso di giustizia e di logica razionale,
un regolamento a dir poco vergognoso ed ignobile fatto sicuramente da qualche cretino ed approvato da altrettanti
in società

oltre a cifre fuori da qualsiasi decenza amministrativa, finiti pure in mano ad un individuo unico, quando si poteva soddisfare almeno 10 20
persone distribuite in più post iin italia.

auguri a chi ha vinto deve aver un lato b enorme.

l assurdo di una società che amministra tutti questi soldi, e che si e' già trattenuta la modica cifra di50 milioni di euro, messi in unaltra tasca
perché già ll nuovo montepremi partira' da 50 milionidi euro per il6.

che schifo questa organizzazione e gli inventori di questo regolamento.

Un mondo che accentra grandi ricchezze in mano a pochi e' un mondo fatto da persone di merda.
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
Codice:
[FONT=courier new]Ruota Bari
Tabellone Ritardi aggiornato al 9673/24.08.2019
R.C. E s t r a t t i   RLS  Liv.  RSL/RC
093  ...62.........    066   1     0.71
060  ......07......    037   1     0.617
059  .........17...    023   1     0.39
048  ...89.........    019   1     0.396
047  75............    035   1     0.745
046  ......50......    000   1     0.745
045  .........73...    011   1     0.244
041  41............    028   1     0.683
037  ...87.........    002   1     0.054
036  ...25.......53    013   2     0.361
033  43.......80...    004   2     0.121
031  ...33.........    002   1     0.065
029  74....18.29.70    007   4     0.241
027  ............13    009   1     0.333
026  ............37    000   1     0.333
024  39.......59...    007   2     0.292
023  .........46...    016   1     0.696
022  .........40...    008   1     0.364
021  ......27......    006   1     0.286
020  72............    009   1     0.45
019  56.67.03.45.57    019   5     1
018  54.31....65.09    010   4     0.556
017  ...82.36.66...    007   3     0.412
016  ...05.........    001   1     0.062
015  28............    004   1     0.267
014  .........83.51    005   2     0.357
013  26.90....14...    003   3     0.231
012  47............    001   1     0.083
011  ...42....35.52    003   3     0.273
010  ......63.15...    002   2     0.2
009  12.61....01...    001   3     0.111
008  ............71    000   1     0.111
007  04.44.30.64.84    007   5     1
006  ...68....88.55    005   3     0.833
005  69.49.21.34...    001   4     0.2
004  06.20.78.79.16    004   5     1
003  22.02.10....60    001   4     0.333
002  ...48.85.86.23    000   4     0.333
001  08.19.11.58.38    001   5     1
000  32.81.76.24.77    000   5     1[/FONT]


BARI sorvegliati
31 32 33 34 35 84 85 86 87 88

devono dare ambo

31 RSL 10
32 RSL 0
33 RSL 2
34 RSL 1
35 RSL 3
84 RSL 7
85 RSL 0
86 RSL 0
87 RSL 2
88 RSL 5
 
B

Beppignello

Guest
ciao
è uno script un po articolato, voluto da silop, qualche anno fa.
poi lasciato in sospeso per ulteriore studio.

guardati in fondo all output gli specchietti che escono
i dati mi sembrano giusti, perchè controllati dallo scrupoloso silop


Codice:
Option Explicit
Sub Main
   Dim r,fine,Ini,h,i,ii,Inizio,tn,xn,nx,ru,n1,retrit,e,j,rap,n,f,xl,xyz,cx,cxi,fogli,TRSL,TRSLiv,tg,ch,succ
   Dim liv(5,2),nr(5),max(5,2),maxRsl(5,2),maxRslr(5),livr(5,2),maxr(5,2),maxrrc(5,2),rslPre(320,6)
   Dim Tabelloner(320),Tabelruota(90,4),rietot(5,11),Linea(99999,6),Lineaincorso(99999,6)
   r = InputBox("Ruota",,12)
   fine = InputBox("All'estrazione n.",,EstrazioneFin)
   fogli = InputBox("Creo Fogli Excel?  SI/NO ",,"NO")
   If r <> 12 Then
      Ini = 3949
      Inizio = Ini + 1
   Else
      Ini = 7439
      Inizio = Ini + 1
   End If
   For n = 1 To 5
      rietot(n,4) = 9999
      rietot(n,7) = 9999
   Next
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ColoreTesto(2)
   Scrivi "Sviluppo Flusso delle Cinquine Estratte con situazione statistica RC / RSL / Livelli",1
   Scrivi "Script - Silop15A        Situazione all'Estrazione n." & fine & "/" & DataEstrazione(fine),1
   Scrivi "Ruota richiesta " & NomeRuota(r),1
   ColoreTesto(0)
   Scrivi "-------------------------------------------------------------------------------",1
   Scrivi "Creo Fogli Excel per ricerche o studio ?   " & fogli,1
   Scrivi "-------------------------------------------------------------------------------",1
   '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
   ''''''''''''calcola ritardi di tutte le ruote per reali isocroni
   For ru = 1 To 12
      If ru <> 11 Then
         For n1 = 1 To 90
            retrit = EstrattoRitardoTurbo(ru,n1,3950,fine)
            Tabelloner(retrit) = Tabelloner(retrit) + 1
         Next
      End If
   Next
   For Ini = Ini + 1 To fine
      Messaggio(Ini & "   Aprire Excel  ")
      Call livelli(r,Ini,liv,maxRsl,livr,maxRslr,fine,Tabelruota,j,maxrrc,rietot,Linea,cx,Lineaincorso,cxi,fogli,rslPre,TRSL)
      For h = 1 To 5
         If liv(h,1) > max(h,1) Then
            max(h,1) = liv(h,1)
         End If
         If livr(h,1) > maxr(h,1) Then
            maxr(h,1) = livr(h,1)
         End If
      Next
   Next
   ''''riepilogo massimi Livelli di ritardo
   Scrivi "_____________________________________________________________________________________________________________________________",1
   Scrivi
   Scrivi "Riepilogo  Massimi Storici di Livello",1
   Scrivi "Ruota di " & NomeRuota(r) & "...Periodo:  " & Inizio & "/" & DataEstrazione(Inizio) & " : " & fine & "/" & DataEstrazione(fine),1
   ii = 5
   For i = 1 To 5
      Scrivi "Liv." & Format2(ii) & "   RC Max .." & FormattaStringa(maxrrc(ii,1),"000") & "     MaxRSL...." & FormattaStringa(maxRsl(ii,1),"000") & "..." & maxRsl(ii,2),1
      ii = ii - 1
   Next
   Call OrdinaMatrice(Tabelruota,- 1,2)
   Scrivi "_____________________________________________________________________________________________________________________________",1
   ReDim aTitoli(5),avalori(5)
   aTitoli(1) = " R.C. "
   aTitoli(2) = " E S T R A T T I"
   aTitoli(3) = " RSL  "
   aTitoli(4) = " LIV. "
   aTitoli(5) = " RSL/RC "
   SetTableWidth("90%")
   Call InitTabella(aTitoli,2,"center",1.50,5,"Courier New")
   Scrivi:Scrivi
   ColoreTesto(2)
   Scrivi "Ruota " & NomeRuota(r),1
   Scrivi "Tabellone Ritardi aggiornato al " & fine & "/" & DataEstrazione(fine),1
   Scrivi "R.C. E s t r a t t i   RLS  Liv.  RSL/RC ",1
   ColoreTesto(0)
   For e = 1 To 90
      If Tabelruota(e,1) <> "" Then
         If Tabelruota(e,3) > 0 Then rap = Round(Tabelruota(e,3) / Tabelruota(e,2),3)
         Scrivi Tabelruota(e,2) & "  " & Tabelruota(e,1) & "    " & Tabelruota(e,3) & "   " & Tabelruota(e,4) & "     " & rap,1
         '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         ''''' calcola quanti numeri reali hanno ritardo >= 24 (aspettativa è di 23 nr)
         ''''' se sono di più in eccesso se sono di meno difetto
         If Tabelruota(e,2) >= 24 Then
         ch = ch + Tabelruota(e,4)
         End If
         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         ''''SCRIVI TABELLA ORDINABILE PER EVENTUALE ESPORTAZIONE IN EXCEL
         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         avalori(1) = Tabelruota(e,2)
         avalori(2) = Tabelruota(e,1)
         avalori(3) = Tabelruota(e,3)
         avalori(4) = Tabelruota(e,4)
         avalori(5) = rap
         Call AddRigaTabella(avalori,Bianco_,"center",1,,"Courier New")
      End If
   Next
   ColoreTesto(1)
   Scrivi:Scrivi " Al Ritardo >= 24 trovati realmente " & Format2(ch) & "  Numeri",1
   Scrivi " Al Ritardo  23 Teoricamente dovrei avere " & Round(((17/18)^23)*90,1) & "  Numeri",1
   Scrivi " Al Ritardo  27 Teoricamente dovrei avere " & Round(((17/18)^27)*90,1) & "  Numeri",1
   succ = Round(((17/18)^23)*90,1) - Round(((17/18)^27)*90,1)
   Scrivi " Previsione e Aspettativa di vedere uscire n." & succ,1
   Scrivi:Scrivi
   ColoreTesto(2)
   Scrivi "Ruota " & NomeRuota(r),1
   Scrivi "Tabellone Ritardi aggiornato al " & fine & "/" & DataEstrazione(fine),1
   Scrivi "---------------------------------------------------------------------",1
   ColoreTesto(0)
   Call CreaTabellaOrdinabile(1)
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ''''riepilogo totale delle quantità dei livelli (1:5)   RC - RSL - Min-max
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Scrivi
   Scrivi "_____________________________________________________________________________________________________________________________",1
   Scrivi
   ColoreTesto(2)
   Scrivi "Riepilogo  Totale Flusso dati dei (5) Livelli della Ruota  " & NomeRuota(r),1
   Scrivi "Periodo Estrazionale dalla " & Inizio & " del " & DataEstrazione(Inizio) & "  alla  " & fine & " del " & DataEstrazione(fine) & "  Totale Estrz." & fine -(Inizio - 1),1
   ColoreTesto(1)
   ReDim aTit(14),aval(14)
   aTit(1) = " Liv.Vergini"
   aTit(2) = " Livello"
   aTit(3) = " Quantità"
   aTit(4) = " Estratto"
   aTit(5) = " Ambo  "
   aTit(6) = " Terno "
   aTit(7) = " Quaterna"
   aTit(8) = " Cinquina"
   aTit(9) = " RC min"
   aTit(10) = " RC max"
   aTit(11) = " Rc Med"
   aTit(12) = " Rsl min"
   aTit(13) = "Rsl max"
   aTit(14) = "Rsl Med"
   SetTableWidth("90%")
   Call InitTabella(aTit,2,"center",1.50,5,"Cambria")
   ii = 5
   For i = 1 To 5
      aval(1) = rietot(ii,0) -(rietot(ii,1) + rietot(ii,2) + rietot(ii,3) + rietot(ii,10) + rietot(ii,11))
      aval(2) = ii
      aval(3) = rietot(ii,0)
      aval(4) = rietot(ii,1)
      aval(5) = rietot(ii,2)
      aval(6) = rietot(ii,3)
      aval(7) = rietot(ii,10)
      aval(8) = rietot(ii,11)
      aval(9) = rietot(ii,4)
      aval(10) = rietot(ii,5)
      aval(11) = Round(rietot(ii,6) / rietot(ii,0),2)
      aval(12) = rietot(ii,7)
      aval(13) = rietot(ii,8)
      aval(14) = Round(rietot(ii,9) / rietot(ii,0),2)
      Call AddRigaTabella(aval,Bianco_,"center",1,,"Cambria")
      ii = ii - 1
   Next
   Call CreaTabella(2)
   '''''elenco rsl presenze'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ReDim aTitRSL(8),avalRSL(8)
   aTitRSL(1) = " RSL "
   aTitRSL(2) = " uscite L1"
   aTitRSL(3) = " uscite L2"
   aTitRSL(4) = " uscite L3"
   aTitRSL(5) = " uscite L4"
   aTitRSL(6) = " uscite L5"
   aTitRSL(7) = "  %   "
   aTitRSL(8) = "  % Progr."
   SetTableWidth("90%")
   Call InitTabella(aTitRSL,1,"center",1.50,5,"Cambria")
   Scrivi " Elenco Uscite al valore RSL nei 5 Livelli (Flussi completi delle Cinquine Originarie Estratte) ",1
   For h = 0 To 320
      TRSLiv = 0
      For j = 0 To 5
         TRSLiv = TRSLiv + rslPre(h,j)
      Next
      If TRSLiv > 0 Then
         '   Scrivi FormattaStringa(h,"000") & "...Pres.storiche.." & FormattaStringa(rslPre(h),"0000") & "      % " & Round(rslPre(h) / TRSL * 100,3)
         avalRSL(1) = h
         avalRSL(2) = rslPre(h,1)
         avalRSL(3) = rslPre(h,2)
         avalRSL(4) = rslPre(h,3)
         avalRSL(5) = rslPre(h,4)
         avalRSL(6) = rslPre(h,5)
         avalRSL(7) = Round((TRSLiv / TRSL)*100,3)
         tg = tg +(TRSLiv / TRSL)*100
         avalRSL(8) = Round(tg,3)
         Call AddRigaTabella(avalRSL,Bianco_,"center",1,,"Cambria")
         If avalRSL(1) < 13 Then
         Call SetColoreCella(1,RGB(86,184,75),vbWhite)
         Call SetColoreCella(8,RGB(199,199,199),vbBlue)
         End If
      End If
   Next
   Call CreaTabellaOrdinabile(1,1)
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ''''''''''''''''''''s c r i v i   e x c e l    r i e p i l o g o  d i   s o m m a
   If fogli = "SI" Then
      Set xl = GetObject(,"Excel.Application")
      xyz = 1
      With xl.workbooks(1).Worksheets(xyz)
      Dim c,tw
      c = c + 1
      .cells(c,1) = "Somma "
      .cells(c,2) = " Livello "
      .cells(c,3) = " R.C. "
      .cells(c,4) = " RSL. "
      .cells(c,5) = " n.Estrz."
      .cells(c,6) = " Descrizione "
      For tw = 1 To cx
         c = c + 1
         Messaggio("Aprire excel...Foglio1 riceve dati In scrittura " & c)
         .cells(c,1) = Linea(tw,1)
         .cells(c,2) = Linea(tw,2)
         .cells(c,3) = Linea(tw,3)
         .cells(c,4) = Linea(tw,4)
         .cells(c,5) = Linea(tw,5)
         .cells(c,6) = Linea(tw,6)
      Next
      End With
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''''''''''''''''''s c r i v i   e x c e l    r i e p i l o g o  i n  C o r s o (Foglio2)
      Set xl = GetObject(,"Excel.Application")
      xyz = 2
      With xl.workbooks(1).Worksheets(xyz)
      Dim ci,twi
      ci = ci + 1
      .cells(ci,1) = "Somma "
      .cells(ci,2) = " Livello "
      .cells(ci,3) = " R.C. "
      .cells(ci,4) = " RSL. "
      .cells(ci,5) = " n.Estrz."
      .cells(ci,6) = " Descrizione "
      For twi = 1 To cxi
         ci = ci + 1
         Messaggio("Aprire excel...Foglio2 riceve dati In scrittura " & ci)
         .cells(ci,1) = Lineaincorso(twi,1)
         .cells(ci,2) = Lineaincorso(twi,2)
         .cells(ci,3) = Lineaincorso(twi,3)
         .cells(ci,4) = Lineaincorso(twi,4)
         .cells(ci,5) = Lineaincorso(twi,5)
         .cells(ci,6) = Lineaincorso(twi,6)
      Next
      End With
   End If
End Sub
Function livelli(r,Ini,Liv,maxRsl,livr,maxRslr,fine,Tabelruota,j,maxRrc,rietot,Linea,cx,Lineaincorso,cxi,fogli,rslpre,TRSL)
   Dim p,es,retestratti,retidestr,ne,z1,z2,y,rae,chiuso,qt,yy,w,rsl,rsli,des,chiusorif,z,sommaflusso,iz,sommaflussoi
   Dim ar(1),con(5),combE(5),combo(5)
   For p = 1 To 5
      combE(p) = Format2(Estratto(Ini,r,p))
      combo(p) = Format2(Estratto(Ini,r,p))
   Next
   ar(1) = r
   ColoreTesto(1)
   Scrivi "_____________________________________________________________________________________________________________________",1
   Scrivi ">>>>>  Base ..Rc..000  ..Rsl..000........estr.n.." & Ini & "...." & SiglaRuota(r) & " " & StringaNumeri(combE,".") & "  >>>Cinquina",1
   ReDim Sette(7)
   z = 1 : iz = 0
   Sette(z) = ">>>>>  Base ..Rc..000  ..Rsl..000........estr.n.." & Ini & "...." & SiglaRuota(r) & " " & StringaNumeri(combE,".") & "  >>>Cinquina"
   ColoreTesto(0)
   '''verifica e cerca le date 5 uscite dei 5 numeri
   rsli = Ini + 1 '''rsl inizio all'uscita della cinquina
   es = Ini + 1 : qt = 0 : yy = 5
   For y = 1 To 5
      Call VerificaEsitoTurbo(combE,ar,es,1,,,,,retestratti,retidestr)
      If retestratti <> "" Then
         es = retidestr
         es = es + 1
         con(1) = Mid(retestratti,4,2)
         con(2) = Mid(retestratti,7,2)
         con(3) = Mid(retestratti,10,2)
         con(4) = Mid(retestratti,13,2)
         con(5) = Mid(retestratti,16,2)
         '''calcola per 5 posizioni quanti numeri usciti e li elimina con ".."
         qt = 0
         For z1 = 1 To 5
            For z2 = 1 To 5
               If con(z2) <> ".." Then
                  If combE(z1) = con(z2) Then
                     qt = qt + 1
                     combE(z1) = ".."
                  End If
               End If
            Next
         Next
         Liv(y,1) =(retidestr) - Ini
         rsl = retidestr - rsli
         If yy = 0 Then yy = 1
         des = ""
         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         '''''calcola valori per il riepilogo Flusso dei livelli
         rietot(yy,0) = rietot(yy,0) + 1
         rietot(yy,6) = rietot(yy,6) + Liv(y,1)
         rietot(yy,9) = rietot(yy,9) + rsl
         If qt = 1 Then
            des = "Estratto"
            rietot(yy,1) = rietot(yy,1) + 1
         End If
         If qt = 2 Then
            des = "Ambo"
            rietot(yy,2) = rietot(yy,2) + 1
         End If
         If qt = 3 Then
            des = "Terno"
            rietot(yy,3) = rietot(yy,3) + 1
         End If
         If qt = 4 Then
            des = "Quaterna"
            rietot(yy,10) = rietot(yy,10) + 1
         End If
         If qt = 5 Then
            des = "Cinquina"
            rietot(yy,11) = rietot(yy,11) + 1
         End If
         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         '''''dettaglio riga flusso cinquina
         Scrivi ">>>>>  Liv." & yy & "..Rc.." & FormattaStringa(Liv(y,1) - 1,"000") & "  ..Rsl.." & FormattaStringa(rsl,"000") & "........estr.n.." & retidestr & "...." & retestratti & "  >>>" & des
         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         '''presenze rsl
         rslpre(rsl,yy) = rslpre(rsl,yy) + 1
         TRSL = TRSL + 1
         '''riepilogo x somma
         z = z + 1
         Sette(z) = ">>>>>  Liv." & yy & "..Rc.." & FormattaStringa(Liv(y,1) - 1,"000") & "  ..Rsl.." & FormattaStringa(rsl,"000") & "........estr.n.." & retidestr & "...." & retestratti & "  >>>" & des
         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         ''''calcola minimo RC
         If Liv(y,1) - 1 < rietot(yy,4) Then
            rietot(yy,4) = Liv(y,1) - 1
         End If
         ''''calcola massimo RC
         If Liv(y,1) - 1 > rietot(yy,5) Then
            rietot(yy,5) = Liv(y,1) - 1
         End If
         ''''calcola minimo RSL
         If rsl - 1 < rietot(yy,7) Then
            rietot(yy,7) = rsl
         End If
         ''''calcola massimo RSL
         If rsl > rietot(yy,8) Then
            rietot(yy,8) = rsl
         End If
         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         ''yy corrisponde al Livello
         ''''calcola il livello giusto depennando gli estratti usciti
         ''''calcola max rsl x livello
         If rsl > maxRsl(yy,1) Then
            maxRsl(yy,1) = rsl
            maxRsl(yy,2) = "......." & Ini & "/" & DataEstrazione(Ini) & " usc......" & retidestr & "/" & DataEstrazione(retidestr)
         End If
         ''''calcola max RC x livello
         If Liv(y,1) - 1 > maxRrc(yy,1) Then
            maxRrc(yy,1) = Liv(y,1) - 1
            maxRrc(yy,2) = "......." & Ini & "/" & DataEstrazione(Ini) & " usc......" & retidestr & "/" & DataEstrazione(retidestr)
         End If
         yy = yy - qt '''decurta i nr. usciti, questo corrisponde al Livello
         rsli = retidestr
         chiusorif = "..Chiusura di Tutti i Livelli a : " & retidestr & " / " & DataEstrazione(retidestr) & "    Tot.Estrz." & retidestr -(Ini + 1)
         sommaflusso = retidestr -(Ini + 1)
      Else
         If yy <> 0 Then
            '''conto quanti numeri rimangono all'uscita è questo sarà l'attuale livello
            qt = 0
            For z2 = 1 To 5
               If combE(z2) <> ".." Then
                  qt = qt + 1
               End If
            Next
            des = ""
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            ColoreTesto(2)
            chiuso = fine & " in Corso con estratti n. " & StringaNumeri(combE,".")
            chiusorif = ".................................(I n    C o r s o)"
            Liv(y,1) = EstrazioneFin - Ini
            rsl =(EstrazioneFin - rsli)
            yy = qt
            If qt = 5 Then rsl = Liv(y,1)
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '''''calcola valori riepilogo flusso dei Livelli
            rietot(yy,0) = rietot(yy,0) + 1
            rietot(yy,6) = rietot(yy,6) + Liv(y,1)
            rietot(yy,9) = rietot(yy,9) + rsl
            If qt = 1 Then
               des = "Estratto"
            End If
            If qt = 2 Then
               des = "Ambo"
            End If
            If qt = 3 Then
               des = "Terno"
            End If
            If qt = 4 Then
               des = "Quaterna"
            End If
            If qt = 5 Then
               des = "Cinquina"
            End If
            '''calcola max rsl
            If rsl > maxRsl(yy,1) Then
               maxRsl(yy,1) = rsl
               maxRsl(yy,2) = "......." & Ini & "/" & DataEstrazione(Ini) & " In corso " & fine & "/" & DataEstrazione(fine) & "_" & StringaNumeri(combE,".")
            End If
            ''''calcola max RC x livello
            If Liv(y,1) > maxRrc(yy,1) Then
               maxRrc(yy,1) = Liv(y,1)
               maxRrc(yy,2) = "......." & Ini & "/" & DataEstrazione(Ini) & " usc......" & retidestr & "/" & DataEstrazione(retidestr)
            End If
            Scrivi ">>>>>  Liv." & yy & "..Rc.." & FormattaStringa(Liv(y,1),"000") & "  ..Rsl.." & FormattaStringa(rsl,"000") & "        estr.n.." & chiuso,1
            sommaflussoi = FormattaStringa(Liv(y,1),"000")
            sommaflusso = FormattaStringa(Liv(y,1),"000")
            ColoreTesto(0)
            '''riepilogo x somma
            z = z + 1
            Sette(z) = ">>>>>  Liv." & yy & "..Rc.." & FormattaStringa(Liv(y,1),"000") & "  ..Rsl.." & FormattaStringa(rsl,"000") & "........estr.n.." & chiuso
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            ''''in corso
            iz = iz + 1
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            ''''calcola minimo RC
            If Liv(y,1) < rietot(yy,4) Then
               rietot(yy,4) = Liv(y,1)
            End If
            ''''calcola massimo RC
            If Liv(y,1) > rietot(yy,5) Then
               rietot(yy,5) = Liv(y,1)
            End If
            ''''calcola minimo RSL
            If rsl < rietot(yy,7) Then
               rietot(yy,7) = rsl
            End If
            ''''calcola massimo RSL
            If rsl > rietot(yy,8) Then
               rietot(yy,8) = rsl
            End If
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '''metto in arrays per fare riepilogo della ruota Tabellone Ritardi
            j = j + 1
            Tabelruota(j,1) = StringaNumeri(combE,".")
            Tabelruota(j,2) = FormattaStringa(Liv(y,1),"000")
            Tabelruota(j,3) = FormattaStringa(rsl,"000")
            Tabelruota(j,4) = yy
            Exit For
         End If
      End If
   Next
   ColoreTesto(0)
   Scrivi SiglaRuota(r) & "." & Ini & "/" & DataEstrazione(Ini) & "             ....Cinquina E..." & StringaNumeri(combo,".") & chiusorif,1
   ColoreTesto(0)
   '''riepilogo x somma
   z = z + 1
   Sette(z) = SiglaRuota(r) & "." & Ini & "/" & DataEstrazione(Ini) & "                ....Cinquina E..." & StringaNumeri(combo,".") & chiusorif
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   If fogli = "SI" Then
      Call preparaexcel(sommaflusso,Sette,Linea,cx)
      If iz > 0 Then
         '''riepilogo x somma
         Call preparaexcel2(sommaflussoi,Sette,Lineaincorso,cxi)
      End If
   End If
End Function
Function preparaexcel(sommaflusso,sette,linea,cx)
   Dim t,livrif,ne
   For t = 1 To 7
      If sette(t) <> "" Then
         If t = 1 Then
            ne = Mid(sette(t),50,4)
         End If
         If t >= 2 And t <= 6 Then
            livrif = Mid(sette(t),12,1)
         Else
            livrif = " "
         End If
         If Mid(sette(t),1,1) <> ">" Then
            livrif = " "
         End If
         cx = cx + 1
         linea(cx,1) = FormattaStringa(sommaflusso,"000")
         linea(cx,2) = livrif
         linea(cx,3) = Mid(sette(t),19,3)
         linea(cx,4) = Mid(sette(t),31,3)
         linea(cx,5) = FormattaStringa(ne,"0000")
         linea(cx,6) = sette(t)
      End If
   Next
End Function
Function preparaexcel2(sommaflussoi,sette,lineaincorso,cxi)
   Dim ti,livrifi,nei
   For ti = 1 To 7
      If sette(ti) <> "" Then
         If ti = 1 Then
            nei = Mid(sette(ti),50,4)
         End If
         If ti >= 2 And ti <= 6 Then
            livrifi = Mid(sette(ti),12,1)
         Else
            livrifi = " "
         End If
         If livrifi = "0" Then
            livrifi = "1"
         End If
         If Mid(sette(ti),1,1) <> ">" Then
            livrifi = " "
         End If
         cxi = cxi + 1
         lineaincorso(cxi,1) = FormattaStringa(sommaflussoi,"000")
         lineaincorso(cxi,2) = livrifi
         lineaincorso(cxi,3) = Mid(sette(ti),19,3)
         lineaincorso(cxi,4) = Mid(sette(ti),31,3)
         lineaincorso(cxi,5) = FormattaStringa(nei,"0000")
         lineaincorso(cxi,6) = sette(ti)
      End If
   Next
End Function
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
Mese di Settembre

probabile estratto/ambo/terno

BARI 13 32 87

Ambo/Terno copertura a Tutte
 
B

Beppignello

Guest
Secondo la mia Idea

se gli altri fanno tac, io faccio un primo toc
[/COLOR]
[url]https://funkyimg.com/i/2WZhr.gif[/url]
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto