Novità

Modifica listato sincroni anche per:

solare

Advanced Member >PLATINUM<
Messaggi
1.379
Punti reazione
31
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 15 febbraio 2020
    Bari
    30
    83
    35
    44
    75
    Cagliari
    23
    88
    76
    57
    72
    Firenze
    22
    69
    27
    04
    83
    Genova
    75
    87
    40
    50
    16
    Milano
    37
    42
    17
    71
    51
    Napoli
    43
    71
    19
    47
    44
    Palermo
    43
    20
    24
    28
    32
    Roma
    68
    74
    81
    50
    09
    Torino
    22
    76
    90
    77
    61
    Venezia
    31
    32
    72
    24
    74
    Nazionale
    80
    74
    01
    39
    77

Ultimi Messaggi

Alto