Fre-Rit-Sto Det 90 Numeri

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

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

Fre-Rit-Sto Det 90 Numeri

Fre-Rit-Sto Det 90 Numeri

Re: Fre-Rit-Sto Det 90 Numeri