Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Sab Mag 19, 2018 9:58 pm Da DjNomade

» Ultima del Mese BARI
Gio Mag 17, 2018 8:44 pm Da Mara*

» Da Ambo spia 09-90 a tutte
Mar Apr 03, 2018 6:22 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

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

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am 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 : 387
Data d'iscrizione : 11.06.14

Visualizza 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à : 57
Località : Lazio VT

Visualizza il profilo dell'utente

Tornare in alto Andare in basso

Tornare in alto


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