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 ?
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

solare

Advanced Member >PLATINUM<
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
    Tuesday 27 October 2020
    Bari
    88
    72
    12
    87
    49
    Cagliari
    22
    20
    56
    59
    30
    Firenze
    05
    39
    74
    53
    86
    Genova
    57
    72
    07
    46
    02
    Milano
    88
    40
    30
    33
    38
    Napoli
    23
    14
    11
    90
    20
    Palermo
    12
    18
    89
    06
    20
    Roma
    76
    03
    45
    20
    44
    Torino
    64
    30
    43
    69
    16
    Venezia
    56
    60
    32
    17
    46
    Nazionale
    59
    74
    12
    50
    54
    Estrazione Simbolotto
    12
    25
    26
    23
    13
Alto