Novità

Script per cadenze 1° estratto Bari

giovanniLF

Junior Member
Buongiorno a tutti.
Avrei bisogno di uno script che mi mostri la frequenza, il ritardo e lo storico delle CADENZE sulla prima posizione della ruota di Bari in TABELLA. Ripeto mi interessa lo script

C'è qualche volenteroso ?
 
Ciao GiovanniLF, Se ho capito bene eccoti lo script.
Devi valutare range Inizio Fine e poi ti ho elencato la statistica su tutte le 11 ruote.

Codice:
Sub Main
   Dim Ru(1),T,V
   min = 1000
   maxrit = 0
   maxmax = 0
   Incrmax = 0
   sorte = 1
   Ini = EstrazioneFin - 156
   fin = EstrazioneFin
   Call ScegliRange(Ini,fin,Ini,fin)
   For r = 1 To 11
    If r = 11 Then r = 12
   Scrivi "Statistica Elaborata solo in posizione 1°",1
   T = Array(T,"Ruota","Combinazione Cadenza","Freq","Rit_Corrente","Rit_Storico","IncrMaxRit","Verifica Ultima Sortita")
   Call InitTabella(T,RGB(159,159,159),,,5)
  
    
      For x = 0 To 9
         For n = 1 To 90
            If Cadenza(n) = x Then
               k = k + 1
               Ru(1) = r
               ReDim Preserve Rad(k)
               Rad(k) = n
            End If
         Next
         ReDim pos(5)
         pos(1) = True
         pos(2) = False
         pos(3) = False
         pos(4) = False
         pos(5) = False
         Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
         Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,,pos,,,es1,id)
         'sr = SerieRitardoTurbo(Ini,fin - 1,Rad,Ru,sorte)
         freq = freq + fre
         If rit > maxrit Then maxrit = rit
         If max > maxmax Then maxmax = max
         If Incr > Incrmax Then Incrmax = Incr
         'If rit = 0 Then srp = sr
         'If rit > 0 Then srp = "--"
         V = Array(V,SiglaRuota(r),StringaNumeri(Rad,,1),fre,rit,max,Incr,es1)
         Call AddRigaTabella(V)
         'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
         k = 0
      Next
      vv = Array(vv,"Riepilogo Max"," -- ",freq,maxrit,maxmax,incrmax,"--")
      Call AddRigaTabella(vv,4)
        'Scrivi
      freq = 0
      maxrit = 0
      maxmax = 0
      Incrmax = 0
      CreaTabella
   Next
      
      'If ScriptInterrotto Then Exit For
      'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
    Scrivi "Script By Mike58",1,,,1,,,1
End Sub
 
Ottima idea
Secondo me, non sarebbe male aggiungere la frequenza di ogni singolo numero relativa alle ultime 18 estrazioni.
secondo il mio modesto parere è meglio provare con i più frequenti.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 09 agosto 2025
    Bari
    55
    17
    81
    03
    01
    Cagliari
    75
    84
    06
    34
    27
    Firenze
    30
    74
    59
    61
    62
    Genova
    20
    38
    86
    27
    59
    Milano
    11
    83
    82
    86
    37
    Napoli
    11
    64
    37
    17
    67
    Palermo
    33
    80
    84
    83
    46
    Roma
    51
    68
    37
    90
    42
    Torino
    65
    42
    35
    85
    14
    Venezia
    32
    38
    86
    20
    77
    Nazionale
    71
    85
    05
    10
    61
    Estrazione Simbolotto
    Nazionale
    16
    08
    45
    17
    32

Ultimi Messaggi

Indietro
Alto