Novità

x rubino O CHI VUOLE

solare

Advanced Member >PLATINUM<
ciao, Allego questo listato messo da beppignello.
Potresti inserire la possibilità della selezione periodica ossia Mensili ?
oltre alla possibilità di selezionare il periodo di elaborazione
Grazie

Codice:
Option Explicit
Sub Main
   ''''2.3.6.17.19.20.21.22.27.28.29.34.39.61.67.78.82.85.87.88
   Dim es,fine,r,retfre,classei,classef,qt,nsorte
   Dim anum(90)
   r = InputBox("Ruota",,1)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   nsorte = InputBox("Sorte ",,2)
   classei = InputBox("Classe ini",,20)
   classef = InputBox("Classe fin",,16)
   qt = ScegliNumeri(anum)
   '''
   Scrivi "Ruota di " & NomeRuota(r)
   Scrivi "Estraz.n." & fine & " / " & DataEstrazione(fine)
   Scrivi
   Call Integrale(anum,classef,classei,nsorte,r,fine)
End Sub
Function Integrale(ANUM,Classei,classef,nsorte,r,fine)
   Dim coltot,i,acol,aretritardi,aretidestr,freale,frealeini,cl,hh,qtn
   Dim rt(1)
   rt(1) = r
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Call ElencoRitardiTurbo(ANUM,rt,nsorte,3950,fine,aretritardi,aretidestr)
   frealeini = UBound(aretritardi)
   ColoreTesto(1)
   Scrivi "Sviluppo in Classe..." & classef,1
   Scrivi "Comb.Iniziale " & StringaNumeri(ANUM,".") & "   Freq." & frealeini,1
   ColoreTesto(0)
   '''''''S V I L U P P O    I N T E G R A L E   classe a decrescere
   For cl = 1 To classef - Classei
   ReDim rie(99999,2)
   Classei = classef - cl
   Scrivi
   ColoreTesto(1)
   Scrivi "Sviluppo In classe..." & Classei,1
   ColoreTesto(0)
   coltot = InitSviluppoIntegrale(ANUM,Classei)
   If coltot > 0 Then
      Do While GetCombSviluppo(acol) = True
         i = i + 1
         Call AvanzamentoElab(1,coltot,i)
         Call Messaggio("Colonna " & i)
         If ScriptInterrotto Then Exit Do
         Call ElencoRitardiTurbo(acol,rt,nsorte,3950,fine,aretritardi,aretidestr)
         freale = UBound(aretritardi)
          rie(i,1) = freale
          rie(i,2) = StringaNumeri(acol," ")
      Loop
      Call OrdinaMatrice(rie,- 1,1)
      Scrivi "---Miglior freq." & rie(1,1) & "   Comb." & rie(1,2),1
      '''sostituisci anum con nuova comb.
         ReDim av(90),ANUM(90)
         Call SplitByChar(rie(1,2)," ",av)
         qtn = UBound(av)
         For hh = 0 To qtn
            ANUM(hh + 1) = av(hh)
         Next
    End If
   Next
End Function
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 ottobre 2025
    Bari
    09
    10
    42
    73
    59
    Cagliari
    14
    65
    66
    79
    83
    Firenze
    71
    15
    32
    04
    61
    Genova
    08
    02
    18
    87
    84
    Milano
    33
    08
    84
    80
    41
    Napoli
    29
    81
    50
    17
    83
    Palermo
    14
    28
    74
    19
    60
    Roma
    76
    32
    55
    67
    90
    Torino
    07
    02
    66
    15
    70
    Venezia
    34
    73
    70
    40
    09
    Nazionale
    87
    79
    36
    46
    02
    Estrazione Simbolotto
    25
    07
    23
    17
    30

Ultimi Messaggi

Indietro
Alto