Novità

Modifica listato sincroni anche per:

solare

Advanced Member >PLATINUM<
Messaggi
1.410
Punti reazione
35
Punti
48
Ciao, quello che chiedo, sempre che sia possibile, aggiungere a questo listato la possibilità visualizzare i sincroni relativi alle sole: Cadenze, gemelli,figure e consecutivi.
Il max sarebbe avere anche la possibilità della selezione anche per decina.
Allego listato da modificare
Codice:
Sub Main()
'rif. 0902_77 Ro x Darkman sincrononi 54321 versione 5.2

Dim ru(1),n(1),Tab(60,5)
fin = EstrazioneFin

For R = 1 To 12 : If R = 11 Then R = 12
   Erase Tab: ru(1) = r : co = 1 :d = 1
   n(1) = NumeroPosRit(fin,r,1)
   rit = SerieRitardo(fin - 210,fin,n,ru,1)
   Tab(1,d) = n(1)
   Tab(1,0) = rit

   For i = 2 To 90 ' scorro le posizioni di ritardo
      n(1) = NumeroPosRit(fin,r,i)
      rit2 = SerieRitardo(fin - 250,fin,n,ru,1)
      If rit2 <> rit Then
         co = co + 1
         d = 1
         Tab(co,d) = n(1)
         Tab(co,0) = rit2
         rit = rit2
      Else
         d = d + 1
         Tab(co,d) = n(1)
      End If
   Next
   '------------------------------------------
   Scrivi Chr(10) & " RC  - " & NomeRuota(r),1
   For s = 1 To 5
      For i = 1 To co
         trovati = 0 : rigo = ""
         For p = 1 To 5
            If Tab(i,p) > 0 Then
               trovati = trovati + 1
               rigo = rigo & Format2(Tab(i,p)) & " "
            Else Exit For
            End If
         Next
         If trovati = s Then Scrivi FormatSpace(Tab(i,0),3,1) & " => " & Rigo : rigo = "": Exit For
      Next
   Next
Next 'r
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18
Alto