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

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
Fre-Rit-Sto Det 90 Numeri EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
Fre-Rit-Sto Det 90 Numeri EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
Fre-Rit-Sto Det 90 Numeri EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
Fre-Rit-Sto Det 90 Numeri EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
Fre-Rit-Sto Det 90 Numeri EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
Fre-Rit-Sto Det 90 Numeri EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
Fre-Rit-Sto Det 90 Numeri EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
Fre-Rit-Sto Det 90 Numeri EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Fre-Rit-Sto Det 90 Numeri EmptyMar 2 Apr - 20:57:27 Da DjNomade


Fre-Rit-Sto Det 90 Numeri

2 partecipanti

Andare in basso

Fre-Rit-Sto Det 90 Numeri Empty Fre-Rit-Sto Det 90 Numeri

Messaggio Da Blackmore Mer 13 Apr - 16:40:40

Ogni tanto mi diverto con il vbscript....
Questo listato esamina tutti i 90 numeri su 1/2 ruote a scelta e
mostra le frequenze i ritardi e i ritardi storici per ogni posizione determinata
Ciao...
Dovrebbe uscire una tabella di questo tipo:

[Devi essere iscritto e connesso per vedere questa immagine]

Codice:
Sub Main()
   
    'Frequenze e Ritardi (Attuali/Storici) dei 90 numeri nelle 5 Posizioni su ruote a scelta
    'Script By Blackmore
   
    Dim Ruote(2),Ruota(1), n(1), r1, r2, x, Inizio, Fine
    Dim sf, sf1, sf2, sf3, sf4, sf5   
    Dim rt1, rt2, rt3, rt4, rt5
    Dim rs1, rs2, rs3, rs4, rs5
    Inizio = InputBox("I n i z i o  V e r i f i c a ?","Listed By Blackmore",3950)
    r1 = CInt(InputBox("R u o t a N1","Listed By Blackmore",1))
    r2 = CInt(InputBox("R u o t a N2","Listed By Blackmore",2)) 'NB: Per usare solo una ruota mettere la stessa ruota di r1 
    Fine = EstrazioneFin
    ColoreTesto 0
    Scrivi "Inizio                " & DataEstrazione(Inizio),1
    Scrivi "Fine                  " & DataEstrazione(Fine),1
    Scrivi "Ruota/e Esaminata    " & Ucase(NomeRuota(r1))&" "& Ucase(NomeRuota(r2)),1
    Scrivi
    ColoreTesto 1:Scrivi Space(11)&" F R E Q U E N Z E "& Space(26)&" R I T A R D I"& Space(25)&" S T O R I C I",1
    ColoreTesto 0:Scrivi String(42,"_")&""& Space(2)&" "& String(36,"_")&""& Space(2)&" "& String(36,"_"),1
    ColoreTesto 1:Scrivi "|Num | ToT | P1  | P2  | P3  | P4  | P5  |  |Num | P1  | P2  | P3  | P4  | P5  |  |Num | P1  | P2  | P3  | P4  | P5  |"
    ColoreTesto 0:Scrivi String(42,"¯")&""& Space(2)&" "& String(36,"¯")&""& Space(2)&" "& String(36,"¯"),1
    For x = 1 To 90
        AvanzamentoElab 1,90,x
        n(1) = x
       
        Ruote(1) = r1
        Ruote(2) = r2
       
        'Frequenze Totali e per singole posizioni
        sf = SerieFreq(Inizio,Fine,n,Ruote,1)
        sf1 = SerieFreq(Inizio,Fine,n,Ruote,6)
        sf2 = SerieFreq(Inizio,Fine,n,Ruote,7)
        sf3 = SerieFreq(Inizio,Fine,n,Ruote,8)
        sf4 = SerieFreq(Inizio,Fine,n,Ruote,9)
        sf5 = SerieFreq(Inizio,Fine,n,Ruote,10)
        'Ritardi Attuali Totali e per singole posizioni
        rt1 = SerieRitardo(Inizio,Fine,n,Ruote,6)
        rt2 = SerieRitardo(Inizio,Fine,n,Ruote,7)
        rt3 = SerieRitardo(Inizio,Fine,n,Ruote,8)
        rt4 = SerieRitardo(Inizio,Fine,n,Ruote,9)
        rt5 = SerieRitardo(Inizio,Fine,n,Ruote,10)
        'Ritardi Storici e per singole posizioni
        rs1 = SerieStorico(Inizio,Fine,n,Ruote,6)
        rs2 = SerieStorico(Inizio,Fine,n,Ruote,7)
        rs3 = SerieStorico(Inizio,Fine,n,Ruote,8)
        rs4 = SerieStorico(Inizio,Fine,n,Ruote,9)
        rs5 = SerieStorico(Inizio,Fine,n,Ruote,10)
       
        ColoreTesto 2:scrivi String(42,"_")&""& Space(2)&" "& String(36,"_")&""& Space(2)&" "& String(36,"_"),1
        ColoreTesto 0: Scrivi "| " & Format2(x) & " | " & FormatNumberString(3, "0", Format2(sf)) & " | " & FormatNumberString(3, "0", Format2(sf1)) & " | " & FormatNumberString(3, "0", Format2(sf2)) & " | " & FormatNumberString(3, "0", Format2(sf3)) & " | " & _
            FormatNumberString(3, "0", Format2(sf4)) &" | "& FormatNumberString(3, "0", Format2(sf5))&" |"& Space(2)&" | "& Format2(x) & " | " & FormatNumberString(3, "0", Format2(rt1)) & " | " & FormatNumberString(3, "0", Format2(rt2)) & " | " & _
            FormatNumberString(3, "0", Format2(rt3)) &" | "& FormatNumberString(3, "0", Format2(rt4))&" | "& FormatNumberString(3, "0", Format2(rt5))&" |"& Space(2)&" | "& Format2(x) & " | " & FormatNumberString(3, "0", Format2(rs1)) & " | " & FormatNumberString(3, "0", Format2(rs2)) & " | " & _
            FormatNumberString(3, "0", Format2(rs3)) &" | "& FormatNumberString(3, "0", Format2(rs4))&" | "& FormatNumberString(3, "0", Format2(rs5))&" |",1
        ColoreTesto 2:scrivi String(42,"¯")&""& Space(2)&" "& String(36,"¯")&""& Space(2)&" "& String(36,"¯"),1
    Next
End Sub

Function FormatNumberString(string_length, sChar, sNumber)
    FormatNumberString = Right(String(string_length, sChar) & CStr(sNumber), string_length)
End Function

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

Fre-Rit-Sto Det 90 Numeri Empty Re: Fre-Rit-Sto Det 90 Numeri

Messaggio Da *Olga* Gio 28 Apr - 17:47:05

Grazie mille, Black per il listato....
senza saperlo ho giocato CA 11-19.....  pos.1 e 5
vediam ....
GRAZIEEEEE
*Olga*
*Olga*

Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 61
Località : Lazio VT

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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