Script per cadenze 1° estratto Bari

[giovanniLF]

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]

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.

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]

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.

 

[giovanniLF]

Grazie Mike. Lo proverò e ti farò sapere