In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da Blackmore il 23/03/2015, 11:24
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
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da 51miky il 23/03/2015, 22:38
Grazie Blackmore x questo listato inedito.
-
51miky
-
- Messaggi: 5402
- Iscritto il: 04/06/2013, 12:18
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|