4 amici al BAR

Asot · 23 Luglio 2019

Bravo beppignello, complimenti

cutoff · 23 Luglio 2019

Ottimo Beppi, un bel 4

Beppignello · 24 Luglio 2019

riferimenti FLOWCHART 1-2-3

Beppignello · 24 Luglio 2019

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

Beppignello · 25 Luglio 2019

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

diversi tre punti

Beppignello · 27 Luglio 2019

aspettando Rubino

Beppignello · 27 Luglio 2019

ritorniamo ai due punti, un po

Beppignello · 3 Agosto 2019

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

una volta si puo provare.

prenotato.

Beppignello · 7 Agosto 2019

Beppignello · 8 Agosto 2019

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

Beppignello · 10 Agosto 2019

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

Beppignello · 10 Agosto 2019

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

Beppignello · 12 Agosto 2019

10 15 42 57 68 80 Jolly 25 Superstar 68
tre punti 10 15 80

Beppignello · 14 Agosto 2019

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.

Beppignello · 26 Agosto 2019

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

cutoff · 27 Agosto 2019

Ciao Beppignello, è possibile avere lo script che genera questo tabellone ?grazie

Beppignello · 27 Agosto 2019

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

cutoff · 27 Agosto 2019

Grazie....e complimenti......bel lavoraccio!!!!

Beppignello · 6 Settembre 2019

Mese di Settembre

probabile estratto/ambo/terno

BARI 13 32 87

Ambo/Terno copertura a Tutte

Beppignello · 14 Settembre 2019

Secondo la mia Idea

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

4 amici al BAR

Asot

Banned

cutoff

Advanced Member >PLATINUM<

Beppignello

Guest

Allegati

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

cutoff

Advanced Member >PLATINUM<

Beppignello

Guest

cutoff

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Ultima estrazione Lotto

Ultimi Messaggi