Cerca
 
 

Risultati secondo:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Vediamo se mi ripago le ferie
Ven Feb 16, 2018 5:11 pm Da spike5

» Da Ambo spia 09-90 a tutte
Ven Feb 16, 2018 8:40 am Da spike5

» Ultima del Mese BARI
Sab Feb 10, 2018 9:12 pm Da vinci

» Palermo-Torino
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5

» Firenze-Genova (chiusa)
Gio Gen 18, 2018 1:09 pm Da Lory

» ambo a tutte
Lun Gen 08, 2018 9:50 pm Da Mara*

» 2 ambi a Venezia
Lun Gen 08, 2018 1:49 pm Da spike5


Fre-Rit-Sto Det 90 Numeri

Andare in basso

Fre-Rit-Sto Det 90 Numeri

Messaggio Da Blackmore il Mer Apr 13, 2016 2:40 pm

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

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Fre-Rit-Sto Det 90 Numeri

Messaggio Da *Olga* il Gio Apr 28, 2016 3:47 pm

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

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

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Tornare in alto

- Argomenti simili

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