Frequenze dei 90 numeri nelle 5 Posizioni

[Blackmore]

Frequenze dei 90 numeri nelle 5 Posizioni su ruota a scelta

Codice: Seleziona tutto

Sub Main()

   'Frequenze dei 90 numeri nelle 5 Posizioni su ruota a scelta
   'Script By Blackmore

   Dim Ruota(1), n(1), r, x, Inizio, Fine
   Dim sf, sf1, sf2, sf3, sf4, sf5     

   Inizio = InputBox("Estrazioni Di Verifica ?","Listed By Blackmore",900)
   r = ScegliRuota
   Fine = EstrazioneFin

   ColoreTesto 1
   Scrivi "Il Ciclo 'Teorico' di 1 Numero In Posizione Determinata Su 1 Ruota è di 90 Estrazioni"
   ColoreTesto 0
   Scrivi "Inizio                " & DataEstrazione(Fine-Inizio)
   Scrivi "Fine                  " & DataEstrazione(Fine)
   Scrivi "Estrazioni Esaminate  " & Inizio &" (Frequenze 'Teoriche' Per Ogni Posizione = "& Inizio/90 &")"
   Scrivi "Ruota Esaminata       " & NomeRuota(r)
   Scrivi
   ColoreTesto 1:Scrivi Space(18)&" F R E Q U E N Z E"
   ColoreTesto 0:Scrivi String(56,"-"),1
   ColoreTesto 1:Scrivi "Ruota | Num  | ToT  |  P1  |  P2  |  P3  |  P4  |  P5  |"
   ColoreTesto 0:Scrivi String(56,"-"),1

   For x = 1 To 90
      AvanzamentoElab 1,90,x

      Ruota(1) = r
      n(1) = x

      'Frequenze Totali e per singole posizioni
      sf = SerieFreq(Fine-Inizio,Fine,n,Ruota,1)
      sf1 = SerieFreq(Fine-Inizio,Fine,n,Ruota,6)
      sf2 = SerieFreq(Fine-Inizio,Fine,n,Ruota,7)
      sf3 = SerieFreq(Fine-Inizio,Fine,n,Ruota,8)
      sf4 = SerieFreq(Fine-Inizio,Fine,n,Ruota,9)
      sf5 = SerieFreq(Fine-Inizio,Fine,n,Ruota,10)

      Scrivi "  "& Ucase(SiglaRuota(r))& "  |  " & Format2(x) & "  |  " & Format2(sf) & "  |  " & Format2(sf1) & "  |  " & Format2(sf2) & "  |  " & Format2(sf3) & "  |  " & Format2(sf4) & "  |  " & Format2(sf5) & "  |"
        Next
   Scrivi String(56,"-"),1
End Sub

[51miky]

Grazie Blackmore x questo listato inedito.