LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.

previsioni e metodi Lotto

Cerca
 
 

Risultati per:
 

Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
Frequenze 90 Numeri nelle 5 posizioni EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
Frequenze 90 Numeri nelle 5 posizioni EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
Frequenze 90 Numeri nelle 5 posizioni EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
Frequenze 90 Numeri nelle 5 posizioni EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
Frequenze 90 Numeri nelle 5 posizioni EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
Frequenze 90 Numeri nelle 5 posizioni EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
Frequenze 90 Numeri nelle 5 posizioni EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
Frequenze 90 Numeri nelle 5 posizioni EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Frequenze 90 Numeri nelle 5 posizioni EmptyMar 2 Apr - 20:57:27 Da DjNomade


Frequenze 90 Numeri nelle 5 posizioni

3 partecipanti

LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO

Andare in basso

Frequenze 90 Numeri nelle 5 posizioni Empty Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Blackmore Mar 17 Mar - 16:42:19

Esamina le frequenze di tutti i 90 numeri nelle 5 posizioni e il loro Totale
su 2 ruote a scelta

Codice:
Sub Main()

 'Frequenze dei 90 numeri nelle 5 Posizioni su 2 ruote a scelta
 
 Dim ruote(2),n(1),r1,r2,Inizio,Fine
 Dim sf,sf1,sf2,sf3,sf4,sf5
 Inizio = InputBox("Estrazioni Di Verifica ?","Listed By Blackmore",450)
 r1 = InputBox("Ruota di Ricerca N° 1 ?","Listed By Blackmore",1)
 r2 = InputBox("Ruota di Ricerca N° 2 ?","Listed By Blackmore",2)
 Fine = EstrazioneFin
 ColoreTesto 1
 Scrivi "Il Ciclo 'Teorico' di 1 Numero In Posizione Determinata Su 1 Ruota è di 90 Estrazioni",1
 Scrivi "Il Ciclo 'Teorico' di 1 Numero In Posizione Determinata Su 2 Ruote è di 45 Estrazioni",1
 ColoreTesto 0
 Scrivi "Inizio                " & DataEstrazione(Fine-Inizio),1
 Scrivi "Fine                  " & DataEstrazione(Fine),1
 Scrivi "Estrazioni Esaminate  " & Inizio &" (Frequenze 'Teoriche' Per Ogni Posizione = "& Inizio/45 &")",1
 Scrivi "Ruote Esaminate       " & NomeRuota(r1) & "  " & NomeRuota(r2),1
 Scrivi
 Scrivi String(71,"-"),1
 ColoreTesto 2:Scrivi "Ruote  |  Num   |  P.Tot |   P1   |   P2   |   P3   |   P4   |   P5   |",1
 ColoreTesto 0:Scrivi String(71,"-"),1
 For x = 1 To 90
 AvanzamentoElab 1,90,x
 ruote(1) = r1
 ruote(2) = r2
 n(1) = x
 sf = SerieFreq(Fine-Inizio,Fine,n,ruote,1)
 sf1 = SerieFreq(Fine-Inizio,Fine,n,ruote,6)
 sf2 = SerieFreq(Fine-Inizio,Fine,n,ruote,7)
 sf3 = SerieFreq(Fine-Inizio,Fine,n,ruote,8)
 sf4 = SerieFreq(Fine-Inizio,Fine,n,ruote,9)
 sf5 = SerieFreq(Fine-Inizio,Fine,n,ruote,10)
 Scrivi SiglaRuota(r1) & "." & SiglaRuota(r2) & "  |   " & Format2(x) & "   |   " & Format2(sf) & "   |   " & Format2(sf1) & "   |   " & Format2(sf2) & "   |   " & Format2(sf3) & "   |   " & Format2(sf4) & "   |   " & Format2(sf5) & "   |",1
 Next
 Scrivi String(71,"-"),1
End Sub

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

Frequenze 90 Numeri nelle 5 posizioni Empty Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Marco Mar 17 Mar - 18:34:58

Ottimo lavoro Black (come sempre!) lo21
Marco
Marco
amministratore

Messaggi : 843
Data d'iscrizione : 26.12.13

https://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Frequenze 90 Numeri nelle 5 posizioni Empty Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Blackmore Mar 17 Mar - 22:28:07

Ciao Marco, Metto anche la ruota singola, già che ci sono...  bounce

Codice:
Sub Main()

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

 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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

Frequenze 90 Numeri nelle 5 posizioni Empty Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da DjNomade Mer 18 Mar - 11:03:41

lol! lo1 lol!
DjNomade
DjNomade

Messaggi : 335
Data d'iscrizione : 03.07.14

Torna in alto Andare in basso

Frequenze 90 Numeri nelle 5 posizioni Empty Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO

 
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.