Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 pm Da DjNomade

» Da Ambo Distanza 27 a Bari
Sab Lug 21, 2018 7:07 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

Torna 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

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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