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 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
Indietro
Alto