Novità

aiuto script per frequenza estratti

  • Creatore Discussione Creatore Discussione lla
  • Data di inizio Data di inizio
come si fa a far passare questo array "'ar=Array(0,27,62,54,39,73,65,50,10,85,77) che in pratica sono tutte le somme dell'estrazione 9650
di Bari invece dell di un unica somma come da dd = CInt(InputBox("Risultato della Somma?",,1)) ?
Codice:
 Sub Main()
   'Ila : numeri più presenti in un certo numero di estrazioni
   'script Cinzia
   'Rev. By Joe del 03/08/2019
   Dim ru(1),ru1(1)',n(90,2)
   Dim nu(1)
   'ar=Array(0,27,62,54,39,73,65,50,10,85,77)
   dd = CInt(InputBox("Risultato della Somma?",,1))
   r = CInt(InputBox("Ruota?",,1))
   nn = CInt(InputBox("numeri da visualizzare?",,4))
   ee = CInt(InputBox("Estrazione di partenza?",,8000))
   c = CInt(InputBox("colpi?",,9))
   casi = 0 'casi = 0
   co = 0
   ru(1) = R
   fin = EstrazioneFin
   ini = ee
   For Po1 = 1 To 4 ' prima po1 = CInt(InputBox("posiz del 1° estratto?",,1))
      For Po2 = Po1 + 1 To 5 ' prima po2 = CInt(InputBox("posiz del 2° estratto?",,2))
         ColoreTesto 0
         Scrivi : Scrivi String(65,"="),True
         ReDim n(90,2)
         Casi = 0
         Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
         Scrivi "  " & po1 & "° Estratto ""+""  " & po2 & "° Estratto = " & dd & ") su " & NomeRuota(r),True
         Scrivi
         For es = ini To fin
            a = Estratto(es,r,po1)
            b = Estratto(es,r,po2)
            dif = Fuori90(a + b)
            If dif = dd Then
                Scrivi es & " " & a & "  " & b ' Scrivi es

               casi = casi + 1
               ess = es + c
               If ess > fin Then ess = fin End If
               ''
               For d = 1 To 90
                  nu(1) = d
                  If SerieFreq(es + 1,ess,nu,ru,1) >= 1 Then
                     n(d,1) = d
                     n(d,2) = n(d,2) + 1
                  End If
               Next
               ''
            End If
         Next
         Scrivi
         Scrivi "N° casi: " & CInt(casi),1 : Scrivi
         Scrivi
         ColoreTesto 2
         Scrivi " Positivi in Cicli di " & c & " Estrazioni",1
         Scrivi Space(1) & String(34,"-")
         OrdinaMatrice n,True,2
         Scrivi " N° - PC ",True
         For x = 1 To nn
            Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)),True
         Next
      Next 'Po2
   Next 'Po1
End Sub
 
Come posso risolvere la richiesta di cui al precedente # 22 , non riesco a trovare neanche nei post passati una similia .....:(
 
ciao fillotto mi spiace io non son in grado
ma tutte le somme ti servono sempre per capire qual è la frequenza di un estratto per ogni somma o la frequenza di un estratto considerando tutte le somme insieme?
prova a spiegare bene a che ti serve


sarebbe bello vedere come funziona anche sul supernalotto qualcuno aveva azzardato l'ipotesi all'inizio

buon ferragosto :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43
Indietro
Alto