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
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18

Ultimi Messaggi

Indietro
Alto