Novità

Script x superena con dilemma...

lotto_tom75

Advanced Premium Member
Facendomi gola... i 282 M :LOL: ho provato a riesumare, x cercare di riadattarlo o di potenziarlo, qualche vecchio script superena...

Uno dei + semplici che però già mi da problemi... 😬 sarebbe questo...

Codice:
Option Explicit
Sub Main
   Dim k,anum,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,fine,valorenumeroelementi,QuantitaNumeriScelti
   Dim valoreInizioelaborazione
   Dim valorefineelaborazione
   ReDim anum(0)
   QuantitaNumeriScelti = ScegliNumeri(anum)
   valoreInizioelaborazione = 1
   valorefineelaborazione = 100000 ' QuantitaNumeriScelti + 1
   Dim Classe
   ReDim aRetCol(0)
   Classe = UBound(anum) - 1
   Scrivi
   Inizio = 1
   fine = EstrazioniArchivioSE
   sorte = CInt(InputBox("sorte",,4))
   Scrivi "classe " & Classe
   Scrivi "sorte " & sorte
   Scrivi DataEstrazioneSE(Inizio)
   Scrivi DataEstrazioneSE(fine)
   Scrivi
   Scrivi "formazioni rispettanti il filtro fq > 0 "
   Scrivi
   For k = valoreInizioelaborazione To valorefineelaborazione
      Call GetColonnaCasuale(Classe,aRetCol,anum)
      'Call Scrivi(StringaNumeri(aRetCol,,True))
      Call StatisticaFormazioneSE(aRetCol,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,fine)
      Dim diff
      diff = ritardomax - ritardo
      If frequenza > 0 Then
         Call Messaggio("trovata!")
         Call Scrivi(" Colonna: " & k & " " & StringaNumeri(anum,,True) & " RA " & ritardo & " RS " & ritardomax & " INCMAX " & Incrritmax & " FQ " & frequenza & " diff " & diff)
      End If
      Call Messaggio("Colonna " & k)
      If k Mod 1000 = 0 Then
         Call Messaggio("Colonna : " & k)
         If ScriptInterrotto Then Exit For
         Call AvanzamentoElab(valoreInizioelaborazione,valorefineelaborazione,k)
      End If
   Next
End Sub

Sembra funzionare... solo per sorti <= 3

Why??? 😵‍💫😵😱

Non riesco proprio a capire perchè... 😪🙄 Nel frappè con susine e banane e nel caffè stamattina ci devo aver messo inavvertitamente anche qualche goccia di liquore... 🤪😄

Good Sunday e buona caccia ai 282 M 🤞🤞🤞🤞🤞🤞😛
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 ottobre 2025
    Bari
    03
    66
    37
    18
    61
    Cagliari
    26
    22
    85
    20
    43
    Firenze
    29
    61
    85
    67
    75
    Genova
    40
    63
    74
    19
    78
    Milano
    43
    80
    34
    54
    70
    Napoli
    18
    78
    89
    15
    27
    Palermo
    38
    84
    88
    06
    62
    Roma
    60
    14
    40
    84
    43
    Torino
    51
    62
    58
    65
    52
    Venezia
    07
    61
    48
    63
    87
    Nazionale
    60
    36
    11
    28
    31
    Estrazione Simbolotto
    29
    02
    24
    03
    37

Ultimi Messaggi

Indietro
Alto