Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
SCRIPT x ricerca__AdattatoriSommativi & Altro
- Creatore Discussione Giulio LG
- Data di inizio
Giulio LG
Banned
___ CINQUINE quadro generale ___ ( Autori RUBINO & altri )
___ CINQUINE quadro generale ___ ( Autori RUBINO & altri )
VERSIONE INTEGRALE
VERSIONE RIDOTTA_RITARDO ATTUALE
VERSIONE RIDOTTA_RITARDO STORICO
___ CINQUINE quadro generale ___ ( Autori RUBINO & altri )
VERSIONE INTEGRALE
Codice:
Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,0)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote -- GIULIOLG 1 - ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = 1 To 12
If nRuota <> 11 Then
If rg = 0 Then
nRuogi(1) = nRuota
End If
Messaggio NomeRuota(nRuota)
Scrivi
Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & NomeRuota(nRuogi(1)),1
Scrivi
If nRuota <> 12 Then
Inizio = 8150
Else
Inizio = 8150
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
If VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi
Scrivi "casi... " & casi
casi = 0
Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Scrivi
Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
Erase rmax
End If
Next
End Sub
Codice:
Sub Main
Dim Inizio,Fine
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,0)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo 3=Terno " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
Scrivi
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Rilevamento ",1
If rg > 0 Then Scrivi " Ruote di rilevamento--Ruota di Gioco " & NomeRuota(rg),1
Scrivi
ColoreTesto(0)
ColoreTesto(0)
For nRuota = 1 To 12
If nRuota <> 11 Then
If rg = 0 Then
nRuogi(1) = nRuota
End If
Messaggio NomeRuota(nRuota)
Scrivi"" & NomeRuota(nRuota) & "=" & NomeRuota(nRuogi(1)),1
If nRuota <> 12 Then
Inizio = 7440
Else
Inizio = 7440
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
If VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi "RIT.ATT. al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Erase rmax
End If
Next
End Sub
Codice:
Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,9)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo 3=Terno " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di rilevamento & Ruota di gioco ",1
If rg > 0 Then Scrivi "Ruota di rilevamento & Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi ""
ColoreTesto(0)
For nRuota = 1 To 12
If nRuota <> 11 Then
If rg = 0 Then
nRuogi(1) = nRuota
End If
Messaggio NomeRuota(nRuota)
If nRuota <> 12 Then
Inizio = 3950
Else
Inizio = 7440
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
If VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
Erase rmax
End If
Next
End Sub
Ultima modifica:
Giulio LG
Banned
___ CINQUINE ruote singole ___ ( Autori RUBINO & altri )
___ CINQUINE ruote singole ___ ( Autori RUBINO & altri )
___ CINQUINE ruote singole ___ ( Autori RUBINO & altri )
Codice:
Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota,rt,dal
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rt = InputBox("Ruota Ricerca = Ruota di gioco ",,1)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote - GIULIOLG 0- ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = rt To rt
Messaggio NomeRuota(nRuota)
Scrivi
Scrivi"=========================================== ==" & NomeRuota(nRuota),1
Scrivi
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 7455 ' inizio tutte le altre ruote
If rt = 12 Then dal = 7440 'inizio nazionale
If rt = 1 Then dal = 174 'inizio bari
If rt = 2 Then dal = 3649 'inizio cagliari
If rt = 4 Then dal = 3577 'inizio genova
Inizio = dal
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
If VerificaEsito(aN,aRuote,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi
Scrivi "casi... " & casi
casi = 0
Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Scrivi
Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
Erase rmax
Next
End Sub
Ultima modifica:
Giulio LG
Banned
___ QUARTINE ruote singole ___ ( Autori RUBINO & altri )
___ QUARTINE ruote singole ___ ( Autori RUBINO & altri )
VERSIONE INTEGRALE
VERSIONE RIDOTTA_RITARDO ATTUALE & STORICO
___ QUARTINE ruote singole ___ ( Autori RUBINO & altri )
VERSIONE INTEGRALE
Codice:
Sub Main()
Dim num(4),ruota(1)
' Dim rita(5),rit(5),rmax(1)
Dim b(4)
Dim i,passo
rt = CInt(InputBox("Su che Ruota vuoi effettuare il calcolo?",,1))
rg = CInt(InputBox("VerificaEsiti su Ruota di Gioco ",,2))
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 11 TUTTE - 12 per NZ")
End If
If rg > 12 Then
rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 3950 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7440 'inizio nazionale
pE = InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal)
x = InputBox("Quale adattatore? (1-90)",,90)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If pE = 0 Then
pE = EstrazioniRicerca
End If
If rt = 11 Then
daruota = 0
aruota = 10
Else
daruota = rt - 1
aruota = rt
End If
efin = EstrazioneFin
eini = pE + 1
ColoreTesto(2)
Scrivi "---variante (rileva ruote tutte -e verifica 1 ruota gioco----GIULIOLG-3------------------"
Scrivi "Estrazioni elaborate QUARTINE a passo.." & passo & " dall'estrazione n. " & eini - 1 & "/" & DataEstrazione(eini - 1),1
Scrivi "-----------------------------------------------------------------------------------------"
ColoreTesto(0)
For daruota = daruota + 1 To aruota
eini = pE + 1
casivalidi = 0
ReDim rmax(1)
ReDim rit(5)
ReDim rita(5)
For i = eini To efin
i = i +(passo - 1)
ruota(1) = rg
Messaggio(i) & " Rileva " & NomeRuota(daruota) & " | verifico risultati " & NomeRuota(ruota(1))
da = 0
For p = 1 To 2
For pp = p + 1 To 3
For ppp = pp + 1 To 4
For pppp = ppp + 1 To 5
da = da + 1
num(1) = Estratto(i,daruota,p)
num(2) = Estratto(i,daruota,pp)
num(3) = Estratto(i,daruota,ppp)
num(4) = Estratto(i,daruota,pppp)
b(1) = Format2(Fuori90(num(1) + x))
b(2) = Format2(Fuori90(num(2) + x))
b(3) = Format2(Fuori90(num(3) + x))
b(4) = Format2(Fuori90(num(4) + x))
rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da) = 1 Then
casivalidi = casivalidi + 1
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(daruota),10) & " - " & NomeRuota(rg) & "........"
riga1 = riga1 & FormatSpace(StringaEstratti(i,daruota),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos..." & p & pp & ppp & pppp
riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5)
Scrivi riga1
If rita(da) > rmax(1) Then
rmax(1) = rita(da)
End If
rita(da) = 0
Else
rita(da) = rita(da) + 1
End If
If i +(passo - 1) = efin Then
ColoreTesto(2)
Scrivi,1
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(daruota),10) & " - " & NomeRuota(rg) & "........"
riga1 = riga1 & FormatSpace(StringaEstratti(efin,daruota),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos... " & p & pp & ppp & pppp
riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5)
Scrivi riga1,1
End If
Next
Next
Next
Next
Next
ColoreTesto(2)
Scrivi ""
riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(daruota),10) & ": " & FormatSpace(casivalidi,5)
Scrivi riga1,1
riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
Scrivi riga2,1
Scrivi "-----------------------------------------------------------------------------------------",1
Scrivi ""
Scrivi ""
Scrivi ""
ColoreTesto(0)
Next
End Sub
Codice:
Sub Main()
Dim num(4),ruota(1)
' Dim rita(5),rit(5),rmax(1)
Dim b(4)
Dim i,passo
rt = CInt(InputBox("Su che Ruota vuoi effettuare il calcolo?",,12))
rg = CInt(InputBox("VerificaEsiti su Ruota di Gioco ",,12))
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 11 TUTTE - 12 per NZ")
End If
If rg > 12 Then
rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 7000 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7440 'inizio nazionale
pE = InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal)
x = InputBox("Quale adattatore? (1-90)",,27)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If pE = 0 Then
pE = EstrazioniRicerca
End If
If rt = 11 Then
daruota = 0
aruota = 10
Else
daruota = rt - 1
aruota = rt
End If
efin = EstrazioneFin
eini = pE + 1
ColoreTesto(2)
Scrivi "---VARIANTE (rileva ruote tutte & verifica 1 ruota di gioco ( 11 TUTTE )"
Scrivi "Estrazioni elaborate QUARTINE a passo.." & passo & " dall'estrazione N°" & eini - 1 & "_" & DataEstrazione(eini - 1),1
Scrivi "Ruota di rilevamento--Ruota di gioco"
Scrivi "__________________________________________________________________________________"
ColoreTesto(1)
For daruota = daruota + 1 To aruota
eini = pE + 1
casivalidi = 0
ReDim rmax(1)
ReDim rit(5)
ReDim rita(5)
For i = eini To efin
i = i +(passo - 1)
ruota(1) = rg
Messaggio(i) & " Rileva " & NomeRuota(daruota) & " | verifico risultati " & NomeRuota(ruota(1))
da = 0
For p = 1 To 2
For pp = p + 1 To 3
For ppp = pp + 1 To 4
For pppp = ppp + 1 To 5
da = da + 1
num(1) = Estratto(i,daruota,p)
num(2) = Estratto(i,daruota,pp)
num(3) = Estratto(i,daruota,ppp)
num(4) = Estratto(i,daruota,pppp)
b(1) = Format2(Fuori90(num(1) + x))
b(2) = Format2(Fuori90(num(2) + x))
b(3) = Format2(Fuori90(num(3) + x))
b(4) = Format2(Fuori90(num(4) + x))
rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da) = 1 Then
casivalidi = casivalidi + 1
If rita(da) > rmax(1) Then
rmax(1) = rita(da)
End If
rita(da) = 0
Else
rita(da) = rita(da) + 1
End If
If i +(passo - 1) = efin Then
ColoreTesto(1)
Scrivi,1
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(daruota),10) & "" & NomeRuota(rg) & " "
riga1 = riga1 & FormatSpace(StringaEstratti(efin,daruota),15) & " <+" & Format2(x) & "> " & StringaNumeri(b) & " Pos." & p & pp & ppp & pppp
riga1 = riga1 & " RCA " & FormatSpace((rita(da) - 1),5)
Scrivi riga1,1
End If
Next
Next
Next
Next
Next
ColoreTesto(2)
Scrivi "__________________________________________________________________________________"
Scrivi ""
riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(daruota),10) & ": " & FormatSpace(casivalidi,5)
Scrivi riga1,1
riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
Scrivi riga2,1
Scrivi "__________________________________________________________________________________",1
Scrivi ""
Scrivi ""
Scrivi ""
ColoreTesto(0)
Next
End Sub
Ultima modifica:
Giulio LG
Banned
___ TERZINE & COPPIE ruote singole ___ ( Autori RUBINO & altri )
___ TERZINE & COPPIE ruote singole ___ ( Autori RUBINO & altri )
VERSIONE INTEGRALE
VERSIONE RIDOTTA_RITARDO ATTUALE & STORICO
___ TERZINE & COPPIE ruote singole ___ ( Autori RUBINO & altri )
VERSIONE INTEGRALE
Codice:
Sub Main()
Dim rit(10),rmax(1),ruota(1)
Dim rita(10)
Dim i,passo,sviluppo
sviluppo = CInt(InputBox("Sviluppo 2=Coppie 3=Terzine ",,2))
rt = InputBox("Su che Ruota vuoi effettuare il calcolo?",,1)
rg = InputBox("VerificaEsiti su Ruota di Gioco ",,1)
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
If rg > 12 Then
rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 3950 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7440 'inizio nazionale
p = CInt(InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal))
x = InputBox("Quale adattatore? (1-90)",,90)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If p = 0 Then
p = EstrazioniRicerca
End If
eini = p + 1
efin = EstrazioneFin
ColoreTesto(2)
Scrivi "----------------------------------------------------GIULIOLG-6------------------"
Scrivi "Estrazioni elaborate a passo.." & passo & " dall'estrazione n. " & eini - 1 & "/" & DataEstrazione(eini - 1)
If sviluppo = 2 Then des = "in COPPIE "
If sviluppo = 3 Then des = "in TERZINE "
Scrivi des,1
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto(0)
''''sviluppo in coppie ------------------------------------------------------------------------------------------------------
If sviluppo = 2 Then
Dim b(2)
Dim num(2)
For i = eini To efin
i = i +(passo - 1)
Messaggio(i) & " Rileva " & NomeRuota(rt) & " | verifico risultati " & NomeRuota(ruota(1))
ruota(1) = rg
da = 0
For p = 1 To 4
For pp = p + 1 To 5
da = da + 1
num(1) = Estratto(i,rt,p)
num(2) = Estratto(i,rt,pp)
b(1) = Format2(Fuori90(num(1) + x))
b(2) = Format2(Fuori90(num(2) + x))
rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da) = 1 Then
casivalidi = casivalidi + 1
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
riga1 = riga1 & FormatSpace(StringaEstratti(i,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos..." & p & pp
riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5)
Scrivi riga1
If rita(da) > rmax(1) Then
rmax(1) = rita(da)
End If
rita(da) = 0
Else
rita(da) = rita(da) + 1
End If
If i +(passo - 1) = efin Then
Scrivi
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos... " & p & pp
riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5)
Scrivi riga1,1
End If
Next
Next
Next
End If
''''sviluppo in terzine --------------------------------------------------------------------------------------------------------
If sviluppo = 3 Then
ReDim b(3)
ReDim num(3)
For i = eini To efin
i = i +(passo - 1)
Messaggio(i) & " Rileva " & NomeRuota(rt) & " | verifico risultati " & NomeRuota(ruota(1))
ruota(1) = rg
da = 0
For p = 1 To 3
For pp = p + 1 To 4
For ppp = pp + 1 To 5
da = da + 1
num(1) = Estratto(i,rt,p)
num(2) = Estratto(i,rt,pp)
num(3) = Estratto(i,rt,ppp)
b(1) = Format2(Fuori90(num(1) + x))
b(2) = Format2(Fuori90(num(2) + x))
b(3) = Format2(Fuori90(num(3) + x))
rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da) = 1 Then
casivalidi = casivalidi + 1
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
riga1 = riga1 & FormatSpace(StringaEstratti(i,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos..." & p & pp & ppp
riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5)
Scrivi riga1
If rita(da) > rmax(1) Then
rmax(1) = rita(da)
End If
rita(da) = 0
Else
rita(da) = rita(da) + 1
End If
If i +(passo - 1) = efin Then
Scrivi
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos... " & p & pp & ppp
riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5)
Scrivi riga1,1
End If
Next
Next
Next
Next
End If
ColoreTesto(1)
Scrivi ""
riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(rt),10) & ": " & FormatSpace(casivalidi,5)
Scrivi riga1,1
riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
Scrivi riga2,1
ColoreTesto(0)
End Sub
Codice:
Sub Main()
Dim rit(10),rmax(1),ruota(1)
Dim rita(10)
Dim i,passo,sviluppo
sviluppo = CInt(InputBox("Sviluppo 2=Coppie 3=Terzine ",,2))
rt = InputBox("Su che Ruota vuoi effettuare il calcolo?",,1)
rg = InputBox("VerificaEsiti su Ruota di Gioco ",,1)
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
If rg > 12 Then
rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 7500 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7500 'inizio nazionale
p = CInt(InputBox("Da quando inizia la ricerca? (1=tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal))
x = InputBox("Quale adattatore? (1-90)",,1)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If p = 0 Then
p = EstrazioniRicerca
End If
eini = p + 1
efin = EstrazioneFin
ColoreTesto(2)
Scrivi ""
Scrivi "RipetizioneAcolpo PASSO" & passo & "__Dall'estrazione N°" & eini - 1 & "_" & DataEstrazione(eini - 1)
If sviluppo = 2 Then des = "COPPIE__Ruota di rilevamento & Ruota di gioco ( 11TUTTE ) "
If sviluppo = 3 Then des = "TERZINE__Ruota di rilevamento & Ruota di gioco ( 11TUTTE ) "
Scrivi des,1
Scrivi "----------------------------------------------------------------------------"
ColoreTesto(1)
''''sviluppo in coppie ------------------------------------------------------------------------------------------------------
If sviluppo = 2 Then
Dim b(2)
Dim num(2)
For i = eini To efin
i = i +(passo - 1)
Messaggio(i) & " Rileva " & NomeRuota(rt) & " | verifico risultati " & NomeRuota(ruota(1))
ruota(1) = rg
da = 0
For p = 1 To 4
For pp = p + 1 To 5
da = da + 1
num(1) = Estratto(i,rt,p)
num(2) = Estratto(i,rt,pp)
b(1) = Format2(Fuori90(num(1) + x))
b(2) = Format2(Fuori90(num(2) + x))
rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da) = 1 Then
casivalidi = casivalidi + 1
If rita(da) > rmax(1) Then
rmax(1) = rita(da)
End If
rita(da) = 0
Else
rita(da) = rita(da) + 1
End If
If i +(passo - 1) = efin Then
Scrivi
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & "" & NomeRuota(rg) & " "
riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " < +" & Format2(x) & " > " & StringaNumeri(b) & " Pos." & p & pp
riga1 = riga1 & " RCA " & FormatSpace((rita(da) - 1),5)
Scrivi riga1,1
End If
Next
Next
Next
End If
''''sviluppo in terzine --------------------------------------------------------------------------------------------------------
If sviluppo = 3 Then
ReDim b(3)
ReDim num(3)
For i = eini To efin
i = i +(passo - 1)
Messaggio(i) & " Rileva " & NomeRuota(rt) & " | verifico risultati " & NomeRuota(ruota(1))
ruota(1) = rg
da = 0
For p = 1 To 3
For pp = p + 1 To 4
For ppp = pp + 1 To 5
da = da + 1
num(1) = Estratto(i,rt,p)
num(2) = Estratto(i,rt,pp)
num(3) = Estratto(i,rt,ppp)
b(1) = Format2(Fuori90(num(1) + x))
b(2) = Format2(Fuori90(num(2) + x))
b(3) = Format2(Fuori90(num(3) + x))
rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da) = 1 Then
casivalidi = casivalidi + 1
If rita(da) > rmax(1) Then
rmax(1) = rita(da)
End If
rita(da) = 0
Else
rita(da) = rita(da) + 1
End If
If i +(passo - 1) = efin Then
Scrivi
riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & "" & NomeRuota(rg) & " "
riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " <+" & Format2(x) & "> " & StringaNumeri(b) & " pos." & p & pp & ppp
riga1 = riga1 & " RCA " & FormatSpace((rita(da) - 1),5)
Scrivi riga1,1
End If
Next
Next
Next
Next
End If
ColoreTesto(2)
Scrivi
Scrivi "============================================================================="
riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(rt),10) & ": " & FormatSpace(casivalidi,5)
Scrivi riga1,1
riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
Scrivi riga2,1
Scrivi "============================================================================="
ColoreTesto(0)
End Sub
Ultima modifica:
Giulio LG
Banned
Cinquine__11=TUTTE ( Autori Rubino & Altri )
Cinquine__11=TUTTE ( Autori Rubino & Altri )
VERSIONE INTEGRALE
VERSIONE RIDOTTA__RITARDO ATTUALE
VERSIONE RIDOTTA_RITARDO STORICO
Cinquine__11=TUTTE ( Autori Rubino & Altri )
VERSIONE INTEGRALE
Codice:
Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,11)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ReDim nruogi(1)
If rg > 0 And rg < 11 Then
nruogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote -- GIULIOLG 1 - ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = 1 To 12
Messaggio NomeRuota(nRuota)
Scrivi
If rg < 11 Then Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & NomeRuota(nruogi(1)),1
If rg = 11 Then Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & " T U T T E ",1
Scrivi
If nRuota <> 12 Then
Inizio = 8200
Else
Inizio = 8200
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim nruogi(10)
If nRuota <> 11 Then
If rg > 0 And rg < 11 Then
nruogi(1) = nRuota
Else
ReDim nruogi(10)
For j = 1 To 10
nruogi(j) = j
Next
End If
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
End If
If VerificaEsito(aN,nruogi,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi
Scrivi "casi... " & casi
casi = 0
Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Scrivi
Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
Erase rmax
Next
End Sub
Codice:
Sub Main
Dim Inizio,Fine
Dim nRuota
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,11)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ReDim nruogi(1)
If rg > 0 And rg < 11 Then
nruogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo 3=Terno " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruote di Rilevamento--Ruota di Gioco TUTTE ",1
ColoreTesto(0)
Scrivi
ColoreTesto(0)
For nRuota = 1 To 12
Messaggio NomeRuota(nRuota)
If rg < 11 Then Scrivi"" & NomeRuota(nRuota) & " / " & NomeRuota(nruogi(1)),1
If rg = 11 Then Scrivi"" & NomeRuota(nRuota) & "=" & "TT ",1
If nRuota <> 12 Then
Inizio = 7455
Else
Inizio = 7455
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim nruogi(10)
If nRuota <> 11 Then
If rg > 0 And rg < 11 Then
nruogi(1) = nRuota
Else
ReDim nruogi(10)
For j = 1 To 10
nruogi(j) = j
Next
End If
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
End If
If VerificaEsito(aN,nruogi,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi "------------ Rit.ATT. al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Erase rmax
Next
End Sub
Codice:
Sub Main
Dim Inizio,Fine
Dim nRuota
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,11)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ReDim nruogi(1)
If rg > 0 And rg < 11 Then
nruogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo 3=Terno " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruote di rilevamento__Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi "",1
ColoreTesto(0)
For nRuota = 1 To 12
Messaggio NomeRuota(nRuota)
If nRuota <> 12 Then
Inizio = 8200
Else
Inizio = 8200
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(5)
ReDim nruogi(10)
If nRuota <> 11 Then
If rg > 0 And rg < 11 Then
nruogi(1) = nRuota
Else
ReDim nruogi(10)
For j = 1 To 10
nruogi(j) = j
Next
End If
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
End If
If VerificaEsito(aN,nruogi,idEst + 1,sorte,vcolpi) Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Ritardo = 0
Scrivi " MAX STORICO DAL " & DataEstrazione(Inizio) & " " & rmax(1),1
Erase rmax
Next
End Sub
Ultima modifica:
Giulio LG
Banned
VERIFICA IMMEDIATA / Quadro Generale ( Autori Rubino & Altri )
VERIFICA IMMEDIATA / Quadro Generale ( Autori Rubino & Altri )
VERIFICA IMMEDIATA / Quadro Generale ( Autori Rubino & Altri )
Codice:
Sub Main()
Dim num(5),rit(10,90),ruota(1)
Dim rita
Dim b(5)
rt = InputBox("Rilevamento RUOTA 1-10 (11 Tutte) (12 Nz) ?",,1)
gt = InputBox("Gioca RUOTA 1-10 (11 Tutte) (12 Nz) ",,2)
q = InputBox("Inizio ricerca Estrazione n.",,8503)
s = 2
eini = q
efin = EstrazioneFin
If rt <= 10 Then
ruota(1) = gt
rda = rt - 1
ra = rt
Else
rda = 0
ra = 12
End If
''''solo nazionale
If rt = 12 Then
rda = 11
ra = 12
End If
ColoreTesto(2)
Scrivi "----------------------------------------------------GIULIOLG-10------------------",1
Scrivi "Dall'estrazione n. " & q & "/" & DataEstrazione(q),1
Scrivi "Ruota di Rilevamento.." & rt & " " & NomeRuota(rt),1
Scrivi "Ruota di Gioco........" & gt & " " & NomeRuota(gt),1
ColoreTesto(0)
If rt < 13 And gt <> 11 Then
For rda = rda + 1 To ra
For i = eini To efin
Messaggio(i)
ruota(1) = gt
da = 0
For p = 1 To 4
For pp = p + 1 To 5
da = da + 1
If rda <> 11 Then
num(1) = Estratto(i,rda,p)
num(2) = Estratto(i,rda,pp)
For x = 1 To 90
b(1) = Fuori90(num(1) + x)
b(2) = Fuori90(num(2) + x)
rit(da,x) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da,x) = 1 Then
riga1 = FormatSpace(i,4) & "/" & FormatSpace(IndiceAnnuale(i),4)
riga1 = riga1 & "__" & FormatSpace(DataEstrazione(i),12) & "__ " & SiglaRuota(rda) & " " & SiglaRuota(gt)
riga1 = riga1 & "__ " & StringaEstratti(i,rda) & "__" & StringaEstratti(i + 1,rda) & _
" sortito ADATTATORE " & Format2(x) & " in " & p & "-" & pp & " pos."
Scrivi riga1
End If
Next
End If
Next
Next
Next
Next
End If
''''''----------------------------------------------------------------------------------------------------------------------------
''''''loop x 1 ruota di gioco 2 11 di rilevamento
If gt = 11 And rt < 11 Then
rda = rt - 1
ra = rt
ruota(1) = rt
For rda = rda + 1 To ra
For i = eini To efin
Messaggio(i)
ruota(1) = gt
da = 0
For p = 1 To 4
For pp = p + 1 To 5
da = da + 1
If rda <> 11 Then
num(1) = Estratto(i,rda,p)
num(2) = Estratto(i,rda,pp)
For x = 1 To 90
b(1) = Fuori90(num(1) + x)
b(2) = Fuori90(num(2) + x)
rit(da,x) = SeriePrima(i + 1,efin,b,ruota,s) - i
If rit(da,x) = 1 Then
riga1 = FormatSpace(i,4) & "/" & FormatSpace(IndiceAnnuale(i),4)
riga1 = riga1 & "__" & FormatSpace(DataEstrazione(i),12) & "__ " & SiglaRuota(rda) & " " & SiglaRuota(gt)
riga1 = riga1 & "__ " & StringaEstratti(i,rda) & "__" & StringaEstratti(i + 1,rda) & _
" sortito ADATTATORE " & Format2(x) & " in " & p & "-" & pp & " pos."
Scrivi riga1
End If
Next
End If
Next
Next
Next
Next
End If
End Sub
Ultima modifica:
Giulio LG
Banned
Capolista + Cinquina ( Autori Joe91 & Altri )
Capolista + Cinquina ( Autori Joe91 & Altri )
VERSIONE INTEGRALE
VERSIONE RIDOTTA_RITARDO ATTUALE
VERSIONE RIDOTTA_RITARDO STORICO
Capolista + Cinquina ( Autori Joe91 & Altri )
VERSIONE INTEGRALE
Codice:
Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,0)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore Positivo",,90))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote -- GIULIOLG 1 - ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg)
ColoreTesto(0)
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = 1 To 12
If nRuota <> 11 Then
If rg = 0 Then
nRuogi(1) = nRuota
End If
Messaggio NomeRuota(nRuota)
Scrivi
Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & NomeRuota(nRuogi(1)),1
Scrivi
If nRuota <> 12 Then
Inizio = 8400
Else
Inizio = 8400
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(6)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
CLR = PiuRitardatario(idEst,nRuota)
aN(6) = CLR
V = VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi)
If V Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & FormatSpace(Ritardo,4,1),0,0
ColoreTesto 2
Scrivi " C.L.Rit. " & Format2(aN(6)),1,0
ColoreTesto 0
Scrivi " " & StringaEstratti(idEst,nRuota) & " +" & nAdatt & " " & StringaEstratti(idEst + 1,nRuota) & " ",0,0
Pos = Posizione(idEst + 1,nRuota,CLR)
If POs > 0 Then
ColoreTesto 2
Scrivi " <<< " & Pos & "°"
ColoreTesto 0
Else
Scrivi""
End If
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
Scrivi
'Scrivi "casi... " & casi
casi = 0
Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Scrivi
Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
Erase rmax
End If
ColoreTesto 2
Scrivi
Scrivi Format2(aN(6)),1,0
ColoreTesto 0
Scrivi ".",0,0
For e = 1 To 5
aN(e) = Fuori90(Estratto(Fine,nRuota,e) + nAdatt)
Scrivi Format2(aN(e)),1,0
If e < 5 Then Scrivi ".",1,0
Next
Scrivi
Next
End Sub
Codice:
Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,0)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore Positivo",,90))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo 3=Terno " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg)
ColoreTesto(0)
Scrivi
For nRuota = 1 To 12
If nRuota <> 11 Then
If rg = 0 Then
nRuogi(1) = nRuota
End If
Messaggio NomeRuota(nRuota)
If nRuota <> 12 Then
Inizio = 8490
Else
Inizio = 8490
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(6)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
CLR = PiuRitardatario(idEst,nRuota)
aN(6) = CLR
V = VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi)
If V Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
ColoreTesto 0
Pos = Posizione(idEst + 1,nRuota,CLR)
If POs > 0 Then
ColoreTesto 2
ColoreTesto 0
Else
End If
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
'Scrivi "casi... " & casi
casi = 0
Scrivi "RCA al " & DataEstrazione(Fine) & " ... " & Ritardo,1
Ritardo = 0
Erase rmax
End If
ColoreTesto 2
Scrivi Format2(aN(6)),1,0
ColoreTesto 0
Scrivi ".",0,0
For e = 1 To 5
aN(e) = Fuori90(Estratto(Fine,nRuota,e) + nAdatt)
Scrivi Format2(aN(e)),1,0
If e < 5 Then Scrivi ".",1,0
Next
Scrivi
Next
End Sub
Codice:
Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco (0 x Esclusione) ",,0)
sorte = CInt(InputBox(" 1=Estratto 2=Ambo 3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore Positivo",,90))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto 2=Ambo 3=Terno " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg)
Scrivi
For nRuota = 1 To 12
If nRuota <> 11 Then
If rg = 0 Then
nRuogi(1) = nRuota
End If
Messaggio NomeRuota(nRuota)
If nRuota <> 12 Then
Inizio = 8300
Else
Inizio = 8300
End If
Fine = EstrazioneFin
For idEst = Inizio To Fine
ReDim aN(6)
ReDim aRuote(1)
aRuote(1) = nRuota
For e = 1 To 5
aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
Next
CLR = PiuRitardatario(idEst,nRuota)
aN(6) = CLR
V = VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi)
If V Then
nConsec = nConsec + 1
Else
nConsec = 0
End If
If nConsec >= Rcons Then
casi = casi + 1
ColoreTesto 2
ColoreTesto 0
Pos = Posizione(idEst + 1,nRuota,CLR)
If POs > 0 Then
ColoreTesto 2
ColoreTesto 0
Else
End If
Ritardo = 0
Else
Ritardo = Ritardo + 1
End If
If Ritardo > rmax(1) Then rmax(1) = Ritardo
Next
'Scrivi "casi... " & casi
casi = 0
Ritardo = 0
Scrivi "MAX STORICO dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
Erase rmax
End If
ColoreTesto 2
Scrivi Format2(aN(6)),1,0
ColoreTesto 0
Scrivi ".",0,0
For e = 1 To 5
aN(e) = Fuori90(Estratto(Fine,nRuota,e) + nAdatt)
Scrivi Format2(aN(e)),1,0
If e < 5 Then Scrivi ".",1,0
Next
Scrivi
Next
End Sub
Ultima modifica:
Giulio LG
Banned
StatisticaVeloce & QuasiCompleta ( Autori Mike58 & Altri )
StatisticaVeloce & QuasiCompleta ( Autori Mike58 & Altri )
Può succedere che lo SCRIPT non gira,in questo caso
ScalareCancellare da last5 a last4_3_2_1_0
StatisticaVeloce & QuasiCompleta ( Autori Mike58 & Altri )
Codice:
Sub Main()
Dim num(10),numero(10),ruota(1),sorte
Dim x
qt = InputBox("quanti numeri",,3)
sorte = InputBox("Quale sorte verificare ",,1)
nStart = Timer ' partenza tempo di elaborazione
ScegliNumeri(num)
For x = 1 To qt
numero(x) = num(x)
Call Messaggio("script by Mike58 ---> elaboro N. " & num(x))
Next
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",1,0,6
Scrivi" Per sorte..." & " " & NomeSorte(sorte),1,- 1,3
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " totali ESTRAZ. " & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = " Ruota "
atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " RCA "
atitoli(9) = " RS "
atitoli(10) = " IncrRitMax "
atitoli(11) = " Freq "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
atitoli(14) = " UltimaEstrazione "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incr,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(19)
avalori(1) = NomeRuota(r)
avalori(2) = StringaNumeri(num)
ReDim pos(5)
pos(1) = True
RD1 = RitardoCombinazione(ruota,num,1,0,pos)
avalori(3) = RD1
ReDim pos(5)
pos(2) = True
RD2 = RitardoCombinazione(ruota,num,1,0,pos)
avalori(4) = RD2
ReDim pos(5)
pos(3) = True
RD3 = RitardoCombinazione(ruota,num,1,0,pos)
avalori(5) = RD3
ReDim pos(5)
pos(4) = True
RD4 = RitardoCombinazione(ruota,num,1,0,pos)
avalori(6) = RD4
ReDim pos(5)
pos(5) = True
RD5 = RitardoCombinazione(ruota,num,1,0,pos)
avalori(7) = RD5
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = Incr
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(num,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori)
Next
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End FunctionScalareCancellare da last5 a last4_3_2_1_0
Codice:
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori)
Next
Codice:
Sub Main()
Dim num(10),numero(10),ruota(1),sorte
'Dim xY
'qt = InputBox("quanti numeri",,3)
sorte = CInt(InputBox("Quale sorte verificare ",,1))
nStart = Timer ' partenza tempo di elaborazione
ScegliNumeri(num)
'For xY = 1 To qt
'numero(xY) = num(xY)
'Call Messaggio("script by Mike58 ---> elaboro N. " & num(x))
'Next
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",1,0,6
Scrivi" " & StringaNumeri(num) & " ",1,0,2
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",1,- 1,3
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
atitoli(14) = " Estratti ultimi "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(19)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(num,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori)
Next
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ultima modifica:
Giulio LG
Banned
SCRIPT parcheggiati__In attesa di un scriptomane disponibile
SCRIPT parcheggiati__In attesa di un scriptomane disponibile
CAPOLISTA
ADATT.SOMM. freq.
SCRIPT parcheggiati__In attesa di un scriptomane disponibile
Codice:
'I 90 Adattatori Sommativi, con il Capolista del Ritardo e,
'l'ultima Cinquina Sincrona. Statistiche Tradizionali e Dinamiche V.7.0. By Joe
Sub Main()
Dim Nu(6),Ru(1),Rt(10,90),Mx(10,90),Rp(10,90,5),Rd(10,90,5),Pd(10,90,5)
Fin = EstrazioneFin
Scrivi String(158,"="),1
For R = 1 To 10
Ru(1) = R
Messaggio(R)
For Es = Fin - 100 To Fin
Messaggio(SiglaRuota(R) & " " & Fin - Es)
For A = 1 To 90
For P = 1 To 5
Pd(R,A,P) = Pd(R,A,P) + 1
Next
For P = 1 To 5
Nu(P) = Fuori90(Estratto(Es - 1,Ru(1),P) + A)
PE = Posizione(Es,R,Nu(P))
For PT = 1 To 5
If PE = PT Then Rp(R,A,P) = - 1
If PE = P Then Rd(R,A,P) = - 1
Next
Rp(R,A,P) = Rp(R,A,P) + 1
Rd(R,A,P) = Rd(R,A,P) + 1
Pd(R,A,PE) = 0
Next
Nu(6) = PiuRitardatario(Es - 1,R)
If SerieFreq(Es,Es,Nu,Ru,2) >= 1 Then Rt(R,A) = - 1
Rt(R,A) = Rt(R,A) + 1
If Mx(R,A) < Rt(R,A) Then Mx(R,A) = Rt(R,A)
Next
Next
Next
For A = 1 To 90
For R = 1 To 10
If Rt(R,A) > 200 Then
Scrivi "+" & Format2(A) & " ",1,0
ColoreTesto 2
Gr = 1
Scrivi SiglaRuota(R) & " ",1,0
Scrivi FormatSpace(Rt(R,A),3,1) & "/",CInt(Gr),0
If Mx(R,A) > 400 Then
ColoreTesto 1
GR = 1
End If
Scrivi FormatSpace(Mx(R,A),3,1) & " ",CInt(Gr),0
ColoreTesto 0
Gr = 0
MicroDin Fin,R,A
End If
Next
Next
Messaggio "Preparazione Tabelle"
'Determinati: 1 Posizione a 5 Posizioni
Scrivi
ColoreTesto 2
Scrivi "DA 1 Posizione Determinata ... A tutte le 5 Posizioni",1
ColoreTesto 0
Scrivi "Ruota ",1,0
For R = 1 To 10
Scrivi FormatSpace(NomeRuota(R),20) & " ",1,0
Next
Scrivi
For A = 1 To 90
Scrivi "+",1,0
Scrivi Format2(A),1,0
For R = 1 To 10
S = 0
For P = 1 To 5
If Rp(R,A,P) > 120 Then
ColoreTesto 2
Gr = 1
End If
Scrivi FormatSpace(Rp(R,A,P),4,1),CInt(Gr),0
ColoreTesto 0
GR = 0
S = S + Rp(R,A,P)
Next
If S > 250 Then
ColoreTesto 2
Scrivi "*",1,0
ColoreTesto 0 Else Scrivi "|",1,0
End If
Next
Scrivi ""
Next
'Determinati: 1 Posizione a 1 Posizione
Scrivi
ColoreTesto 2
Scrivi "DA 1 Posizione Determinata ... Alla stessa Posizione Determinata",1
ColoreTesto 0
Scrivi "Ruota ",1,0
For R = 1 To 10
Scrivi FormatSpace(NomeRuota(R),20) & " ",1,0
Next
Scrivi
For A = 1 To 90
Scrivi "+",1,0
Scrivi Format2(A),1,0
For R = 1 To 10
S = 0
For P = 1 To 5
If Rd(R,A,P) > 499 Then
ColoreTesto 2
Gr = 1
End If
Scrivi FormatSpace(Rd(R,A,P),4,1),CInt(Gr),0
ColoreTesto 0
GR = 0
S = S + Rd(R,A,P)
Next
If S > 999 Then
ColoreTesto 2
Scrivi "*",1,0
ColoreTesto 0 Else Scrivi "|",1,0
End If
Next
Scrivi ""
Next
'Determinati: 5 Posizioni a 1 Posizione
Scrivi
ColoreTesto 2
Scrivi "DA 5 Posizioni Determinate ... AD 1 Posizione Determinata",1
ColoreTesto 0
Scrivi "Ruota ",1,0
For R = 1 To 10
Scrivi FormatSpace(NomeRuota(R),20) & " ",1,0
Next
Scrivi
For A = 1 To 90
Scrivi "+",1,0
Scrivi Format2(A),1,0
For R = 1 To 10
S = 0
For P = 1 To 5
If Pd(R,A,P) > 150 Then
ColoreTesto 2
Gr = 1
End If
Scrivi FormatSpace(Pd(R,A,P),4,1),CInt(Gr),0
ColoreTesto 0
GR = 0
S = S + Pd(R,A,P)
Next
If S > 250 Then
ColoreTesto 2
Scrivi "*",1,0
ColoreTesto 0 Else Scrivi "|",1,0
End If
Next
Scrivi ""
Next
ColoreTesto 2
Scrivi "Script By Joe",1
End Sub
Sub MicroDin(Fin,R,A)
Dim Nx(6)
Scrivi SiglaRuota(R) & " ",1,0
PR = PiuRitardatario(Fin,R)
Nx(1) = PR
ColoreTesto 1
Scrivi Format2(PR),1,0
ColoreTesto 0
For P = 1 To 5
Scrivi ".",0,0
CT = P + 1
If P = 4 Then
CT = 7
End If
Nx(P + 1) = Fuori90(Estratto(Fin,R,P) + A)
ColoreTesto CT
Scrivi Format2(Nx(P + 1)),1,0
ColoreTesto 0
Next
Scrivi 'a capo
Scrivi
TSP Fin,Nx
STX Fin,R,Nx
Scrivi String(158,"="),1
End Sub
Sub TSP(Fin,Cx)
For Nr = 1 To 10
Scrivi FormatSpace(NomeRuota(nr),16),1,0
Next
Scrivi
For Ex = Fin - 17 To Fin
For Rt = 1 To 10
For P = 1 To 5
E = Estratto(Ex,Rt,p)
For Px = 1 To 6
CT = PX
If Px = 5 Then
CT = 7
End If
If E = Cx(Px) Then
GR = 1
ColoreTesto CT
End If
Next
Scrivi Format2(E) & " ",CInt(Gr),0
ColoreTesto 0
Gr = 0
Next
Scrivi " ",0,0
Next
Scrivi
Next
Scrivi String(158,"="),1
End Sub
Sub STX(Fin,R,Nm)
ReDim Nt(1),Rt(1),Bi(2)
Rt(1) = R
Scrivi DataEstrazione(Fin) & " " & NomeRuota(R),1
Scrivi
Scrivi " Nu Ra Rs",1
For XX = 1 To 6
Nt(1) = Nm(XX)
Scrivi " " & Format2(Nm(XX)) & " ",1,0
Scrivi FormatSpace(SerieRitardo(3950,Fin,Nt,Rt,1),4,1) & " ",0,0
Scrivi FormatSpace(SerieStorico(3950,Fin,Nt,Rt,1),4,1)
Next
Scrivi
For XX = 1 To 5
Bi(1) = Nm(1)
Bi(2) = Estratto(Fin,R,XX)
Scrivi Format2(Bi(1)) & "." & Format2(Bi(2)) & " ",1,0
Scrivi FormatSpace(SerieRitardo(3950,Fin,Bi,Rt,2),4,1) & " ",0,0
Scrivi FormatSpace(SerieStorico(3950,Fin,Bi,Rt,2),4,1) & " CL & " & xx & "° E."
Next
Scrivi
For XX = 1 To 5
For YY = XX + 1 To 6
Bi(1) = Nm(XX)
Bi(2) = Nm(YY)
Scrivi Format2(Bi(1)) & "." & Format2(Bi(2)) & " ",1,0
Scrivi FormatSpace(SerieRitardo(3950,Fin,Bi,Rt,2),4,1) & " ",0,0
Scrivi FormatSpace(SerieStorico(3950,Fin,Bi,Rt,2),4,1) & " ",0,0
Scrivi
Next
Next
End Sub
Codice:
'Calcola Rp1 ed Rp2 dei maggiori ritardatari di ogni ruota + Naz, v2.6 by gennaro fu sangennaro, scritto per SpazioMetria 1.3.63 o superiore
'Calcola Rp2 sulle 10 ruote + Naz, in base alla profondita' scelta
'Attenzione che l'aumento di profondità allunga il tempo di esecuzione in maniera sensibile
Sub Main()
Dim matr(12,4),Rp1(12,360),VettAppoggio(12),ruo(1),num(1)
nStart = Timer 'Partenza tempo di elaborazione
ini = EstrazioneIni 'EstrazioneFin - 360
fin = EstrazioneFin
Rp2 = 0
OldMaxRp1 = 0
ProfScelta = InputBox("Profondità di calcolo Rp2 (Max=360) ","Profondità",10)
For estr = ProfScelta To 0 Step - 1
If ScriptInterrotto Then Exit For
For r = 1 To 11
If r = 11 Then r = 12
matr(r,1) = PiuRitardatario(fin - estr,r)
Next 'r
For r = 1 To 11
If r = 11 Then r = 12
If estr = 0 Then 'Eseguo questo ciclo SOLO una volta quando estr=0
ruo(1) = r
num(1) = matr(r,1)
Call StatisticaFormazione(num,ruo,1,Rit,RitMax,IncrRitMax,Freq,ini,fin - estr)
matr(r,2) = Rit
matr(r,3) = r
matr(r,4) = RitMax
End If
Rp1(r,estr) = RitPos(matr(r,1),r,fin - estr) - 1
Messaggio "Ruota: " & r & ", Numero: " & matr(r,1) & ", Estr: " &(fin - estr)
Call AvanzamentoElab(1,11,r)
Next 'r
MaxRp1=0
For rr = 1 To 11
If rr = 11 Then rr = 12
If Rp1(rr,estr)>MaxRp1 Then
MaxRp1=Rp1(rr,estr)
MaxR=rr
End If
Next 'rr
If MaxRp1 > OldMaxRp1 Then
Rp2 = Rp2 + 1
Else
Rp2 = 0
End If
OldMaxRp1 = MaxRp1
Next 'estr
Scrivi "Riepilogo nel sistema virtuale SV00 (quindi quello reale):",1
Scrivi
Scrivi "LEGENDA: Rc === Ritardo Cronologico ATTUALE"
Scrivi " RcMax === Ritardo Cronologico Massimo"
Scrivi " Rp1 ===== Ritardo di posizione ATTUALE"
Scrivi " Rp1(-1) = Ritardo di posizione PRECEDENTE"
Scrivi " Rp2 ===== Ritardo di posizione di 2° livello"
Scrivi
For r = 1 To 11
If r = 11 Then r = 12
Scrivi "Ruota_" & Left(NomeRuota(matr(r,3)),3) & " Num_" & Format2(matr(r,1)) & _
" Rc_" & FormatSpace(matr(r,2),3,1) & " RcMax_" & FormatSpace(matr(r,4),3,1) & _
" Rp1_" & FormatSpace(Rp1(r,0),3,1) & " Rp1(-1)_" & FormatSpace(Rp1(r,1),3,1) & " Rp1(-2)_" & FormatSpace(Rp1(r,2),3,1) & _
" Rp1(-3)_" & FormatSpace(Rp1(r,3),3,1) & " Rp1(-4)_" & FormatSpace(Rp1(r,4),3,1) & " Rp1(-5)_" & FormatSpace(Rp1(r,5),3,1) & _
" Rp1(-6)_" & FormatSpace(Rp1(r,6),3,1) & " Rp1(-7)_" & FormatSpace(Rp1(r,7),3,1) & " Rp1(-8)_" & FormatSpace(Rp1(r,8),3,1) & _
" Rp1(-9)_" & FormatSpace(Rp1(r,9),3,1) & " Rp1(-10)_" & FormatSpace(Rp1(r,10),3,1)
Next
Scrivi
Scrivi "Il maggiore degli Rp1 (" & MaxRp1 & ") lo detiene " & NomeRuota(MaxR) & " con un Rp2 = " & Rp2 &" su una storicità di " & ProfScelta & " estrazioni.",1
Scrivi
Scrivi "Estremi di ricerca dei Massimi: dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)
Scrivi
Call TestoInBandaPassante(" ~ ~ ~ ~ ~ Scripted by gennaro! " & Chr(169) & _
" 2012 ... San Gennà, pienz'c tu! ~ ~ ~ ~ ~ ",1,vbYellow,1)
Scrivi
nEnd = Timer ' fine tempo di elaborazione
Scrivi("Tempo di elaborazione (by Mike58) " & FormattaSecondi((nEnd + 1) - nStart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim Hh,Mm,Ss,TimeStr
Hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((Hh * 3600) +(Mm * 60))
TimeStr = Format2(Hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim ru(1),posta(10),num(5),nu(5)
r1 = CInt(InputBox("1°RUOTA DI RICERCA?",,2))
ad = CInt(InputBox("Quale adattatore",,90))
ru(1) = r1
'ru(2) = r2
posta(1) = 1
'posta(2) = 1
fin = EstrazioneFin
ini = fin - 180
ReDim atitoli(18)
atitoli(1) = " Casi "
atitoli(2) = " DataEstrazione "
atitoli(3) = " EstrazionePrecedente "
atitoli(4) = " Adattatore "
atitoli(5) = " Esito "
'atitoli(6) = ""'qui al posto di 'atitoli(5) = " RET_ESTRATTI " metto L'EVOLzione del 1° estratto
'atitoli(7) = ""
'atitoli(8) = ""
atitoli(8) = "Pos1"
atitoli(9) = "Pos2"
atitoli(10) = "Pos3"
atitoli(11) = "Pos4"
atitoli(12) = "Pos5"
atitoli(13) = " Numeri DA Giocare "
atitoli(14) = " UltimaEstrazione " & NomeRuota(r1)
Call InitTabella(atitoli,1,,2,4)
CreaTabella
ReDim atitoli(18)
atitoli(1) = "Casi"
atitoli(2) = " DataEstrazione "
atitoli(3) = " EstrazionePrecedente "
atitoli(4) = " Adattatore "
atitoli(5) = " Esito "
'atitoli(6) = ""'qui al posto di 'atitoli(5) = " RET_ESTRATTI " metto L'EVOLzione del 1° estratto
'atitoli(7) = ""
'atitoli(8) = ""
atitoli(8) = "Pos1"
atitoli(9) = "Pos2"
atitoli(10) = "Pos3"
atitoli(11) = "Pos4"
atitoli(12) = "Pos5"
atitoli(13) = " Numeri DA Giocare "
atitoli(14) = " UltimaEstrazione " & NomeRuota(r1)
Call InitTabella(atitoli,1,,2,5)
For es = ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
nu(1) = Estratto(es - 1,r1,1)
nu(2) = Estratto(es - 1,r1,2)
nu(3) = Estratto(es - 1,r1,3)
nu(4) = Estratto(es - 1,r1,4)
nu(5) = Estratto(es - 1,r1,5)
num(1) = Format2(Fuori90(nu(1) + ad))
num(2) = Format2(Fuori90(nu(2) + ad))
num(3) = Format2(Fuori90(nu(3) + ad))
num(4) = Format2(Fuori90(nu(4) + ad))
num(5) = Format2(Fuori90(nu(5) + ad))
Call VerificaEsito(num,ru,es,1,1,pos,retesito,retcolpi,retestratti)
ReDim avalori(18)
avalori(1) = fin - es + 1
avalori(2) = DataEstrazione(es)
avalori(3) = StringaEstratti(es - 1,r1)
avalori(4) = ad
avalori(5) = retesito
For x = 1 To UBound(num)
Next
If IsNumeroPresenteInEstrazione(es,r1,Fuori90(nu(1) + ad),retpos) Then
avalori(8) = Fuori90(nu(1) + ad)
ev1 = ev1 + 1
End If
If IsNumeroPresenteInEstrazione(es,r1,Fuori90(nu(2) + ad),retpos) Then
avalori(9) = Fuori90(nu(2) + ad)
ev2 = ev2 + 1
End If
If IsNumeroPresenteInEstrazione(es,r1,Fuori90(nu(3) + ad),retpos) Then
avalori(10) = Fuori90(nu(3) + ad)
ev3 = ev3 + 1
End If
If IsNumeroPresenteInEstrazione(es,r1,Fuori90(nu(4) + ad),retpos) Then
avalori(11) = Fuori90(nu(4) + ad)
ev4 = ev4 + 1
End If
If IsNumeroPresenteInEstrazione(es,r1,Fuori90(nu(5) + ad),retpos) Then
avalori(12) = Fuori90(nu(5) + ad)
ev5 = ev5 + 1
End If
avalori(13) = StringaNumeri(num)
avalori(14) = StringaEstratti(es,r1)
Call AddRigaTabella(avalori,,,3)
'Call SetColoreCella(4,,7)
'Call SetColoreCella(5,,7)
Call SetColoreCella(6,,2)
Call SetColoreCella(8,,7)
Call SetColoreCella(9,,7)
Call SetColoreCella(10,,7)
Call SetColoreCella(11,,7)
Call SetColoreCella(12,,7)
Call SetColoreCella(13,,1)
If retesito = "Estratto" Then
Totali = Totali + 1
Call SetColoreCella(5,vbYellow)
End If
If retesito = "Ambo" Then
Totambi = Totambi + 1
Call SetColoreCella(5,vbMagenta)
End If
Totspesa = Totspesa + 1
If retesito = "Terno" Then
Call SetColoreCella(5,vbGreen)
Totterni = Totterni + 1
End If
Next
ReDim avalori(18)
avalori(1) = "Totali Estratti "
avalori(2) = " "
avalori(5) = Totali
'avalori(6) = " "
avalori(8) = ev1
avalori(9) = ev2
avalori(10) = ev3
avalori(11) = ev4
avalori(12) = ev5
Call AddRigaTabella(avalori,vbGreen,,3)
ReDim avalori(18)
avalori(1) = "Tot. Ambi "
avalori(2) = " "
avalori(5) = Totambi
Call AddRigaTabella(avalori,vbRed,,3)
ReDim avalori(18)
avalori(1) = "Tot.Terni "
avalori(2) = " "
avalori(5) = Totterni
Call AddRigaTabella(avalori,vbMagenta,,3)
Call CreaTabella(1,1)
Scrivi
End Sub
Ultima modifica:
Giulio LG
Banned
StatisticaVeloce Analitica ( Autore Mike58 )
StatisticaVeloce Analitica ( Autore Mike58 )
NUMERI IN ORDINE CRESCENTE
NUMERI RITARDATARI
RITARDATARI SINGOLA RUOTA
CAPOLISTA
StatisticaVeloce Analitica ( Autore Mike58 )
NUMERI IN ORDINE CRESCENTE
Codice:
Sub Main()
Dim num(1),numero(10),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota analizzare ","RUOTA",1))
nstart = Timer
Ini = EstrazioneFin - 300
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri per Ruota scelta " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = " Ruota "
atitoli(2) = " NUMERI "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
'atitoli(12) = " - esito - "
atitoli(13) = " RP/RR "
atitoli(14) = "Pos.N "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
'For r = 1 To 1
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
For p = 1 To 90
If k = NumeroPosRit(fin,r,p) Then' And RitPos(k,r,fin) Then
'Next
Call Messaggio("Ruota... " & NomeRuota(r))
Call AvanzamentoElab(1,11,r)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,1,rit,ritmax,incrRitMax,freq,Ini,fine)
'Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(19)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
'avalori(12) = retesito
avalori(13) = RitPos(k,r,fin)
'End If
'RitPos(num(1),r,fin)
avalori(14) = PosNumeroRit(fin,r,k) & "°"
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(num,ruota,1,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(8,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(13,vbMagenta)
If rit > 100 Then Call SetColoreCella(8,vbGreen)
End If
Next
'Next
Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella By Mike58 ",1,- 1,6
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numero(10),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota analizzare ","RUOTA",1))
nstart = Timer
Ini = EstrazioneFin - 300
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri per Ruota scelta " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = " Ruota "
atitoli(2) = " Ritardatario "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
'atitoli(12) = " - esito - "
atitoli(13) = " RP/RR "
atitoli(14) = "Pos.N "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
'For r = 1 To 1
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
For p = 1 To 90
If k = NumeroPosRit(fin,r,p) Then' And RitPos(k,r,fin) Then
'Next
Call Messaggio("Ruota... " & NomeRuota(r))
Call AvanzamentoElab(1,11,r)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,1,rit,ritmax,incrRitMax,freq,Ini,fine)
'Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(19)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
'avalori(12) = retesito
avalori(13) = RitPos(k,r,fin)
'End If
'RitPos(num(1),r,fin)
avalori(14) = PosNumeroRit(fin,r,k) & "°"
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(num,ruota,1,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(8,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(13,vbMagenta)
If rit > 100 Then Call SetColoreCella(8,vbGreen)
End If
Next
'Next
Next
Call CreaTabella(8)' ordina colonne
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella By Mike58 ",1,- 1,6
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numero(10),ruota(1),sorte,k
nstart = Timer
Ini = EstrazioneFin - 300
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri Ritardatari " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = " Ruota "
atitoli(2) = " Ritardatario "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
'atitoli(12) = " - esito - "
atitoli(13) = " RP/RR "
atitoli(14) = "Pos.N "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 11
If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
For p = 1 To 5
If k = NumeroPosRit(fin,r,p) Then' And RitPos(k,r,fin) Then
'Next
Call Messaggio("Ruota... " & NomeRuota(r))
Call AvanzamentoElab(1,11,r)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,1,rit,ritmax,incrRitMax,freq,Ini,fine)
'Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(19)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
'avalori(12) = retesito
avalori(13) = RitPos(k,r,fin)
'End If
'RitPos(num(1),r,fin)
avalori(14) = PosNumeroRit(fin,r,k) & "°"
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(num,ruota,1,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(8,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(13,vbMagenta)
If rit > 100 Then Call SetColoreCella(8,vbGreen)
End If
Next
Next
Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella By Mike58 ",1,- 1,6
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numero(10),ruota(1),sorte,k
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri Ritardatari " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = " Ruota "
atitoli(2) = " Ritardatario "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
'atitoli(12) = " - esito - "
'atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,1,rit,ritmax,incrRitMax,freq,Ini,fine)
'Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(19)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
'avalori(12) = retesito
'avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(num,ruota,1,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(8,,1)
Call SetColoreCella(2,,2)
End If
Next
Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella By Mike58 ",1,- 1,6
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ultima modifica:
Giulio LG
Banned
NUMERI EQUIDISTANTI__Terzine Cinquine Settine Novine ( Autore Mike58 )
NUMERI EQUIDISTANTI__Terzine Cinquine Settine Novine ( Autore Mike58 )
NUMERI EQUIDISTANTI__Terzine Cinquine Settine Novine ( Autore Mike58 )
Codice:
Sub Main()
Dim num(1),numad(3),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri Ritardatari e laterali " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Num + Lat "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
numad(1) = num(1)
numad(2) = Fuori90(num(1) + 1)
numad(3) = Fuori90(num(1) - 1)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(2) & "." & numad(1) & "." & numad(3)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(5),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
sorte = InputBox("Quale sorte verificare",,2)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri Ritardatari e laterali " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Num + Lat "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
numad(1) = num(1)
numad(2) = Fuori90(num(1) + 2)
numad(3) = Fuori90(num(1) - 2)
numad(4) = Fuori90(num(1) + 4)
numad(5) = Fuori90(num(1) - 4)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(4) & "." & numad(2) & "." & numad(1) & "." & numad(3) & "." & numad(5)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(7),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,2))
sorte = InputBox("Quale sorte verificare",,2)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri Ritardatari e laterali " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Num + Lat "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
numad(1) = num(1)
numad(2) = Fuori90(num(1) + 3)
numad(3) = Fuori90(num(1) - 3)
numad(4) = Fuori90(num(1) + 6)
numad(5) = Fuori90(num(1) - 6)
numad(6) = Fuori90(num(1) + 9)
numad(7) = Fuori90(num(1) - 9)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(6) & "." & numad(4) & "." & numad(2) & "." & numad(1) & "." & numad(3) & "." & numad(5) & "." & numad(7)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(9),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,3))
sorte = InputBox("Quale sorte verificare",,2)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri Ritardatari e laterali " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Num + Lat "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
numad(1) = num(1)
numad(2) = Fuori90(num(1) + 4)
numad(3) = Fuori90(num(1) - 4)
numad(4) = Fuori90(num(1) + 8)
numad(5) = Fuori90(num(1) - 8)
numad(6) = Fuori90(num(1) + 12)
numad(7) = Fuori90(num(1) - 12)
numad(8) = Fuori90(num(1) + 16)
numad(9) = Fuori90(num(1) - 16)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(8) & "." & numad(6) & "." & numad(4) & "." & numad(2) & "." & numad(1) & "." & numad(3) & "." & numad(5) & "." & numad(7) & "." & numad(9)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ultima modifica:
Giulio LG
Banned
NUMERO FISSO + NUM.EQUID.<> TerzineCinquineSettineNovine ( AUTORE Mike58 )
NUMERO FISSO + NUM.EQUID.<> TerzineCinquineSettineNovine ( AUTORE Mike58 )
NUMERO FISSO + NUM.EQUID.<> TerzineCinquineSettineNovine ( AUTORE Mike58 )
Codice:
Sub Main()
Dim num(1),numad(3),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
fisso = CInt(InputBox("Quale Numero ",,10))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri fisso + AD. equidistanti " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(4) = " Num + Lat "
atitoli(3) = " EQ "
atitoli(5) = " RD1 "
atitoli(6) = " RD2 "
atitoli(7) = " RD3 "
atitoli(8) = " RD4 "
atitoli(9) = " RD5 "
atitoli(10) = " Ritardo attuale "
atitoli(11) = "Rit.Max"
atitoli(12) = "incr. storico"
atitoli(13) = "Frequenza"
atitoli(14) = " - esito - "
atitoli(15) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 44
ruota(1) = r
num(1) = fisso
numad(1) = num(1)
numad(2) = Fuori90(num(1) + k)
numad(3) = Fuori90(num(1) - k)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = fisso
avalori(3) = Differenza(numad(1),numad(2))
avalori(4) = numad(2) & "." & numad(1) & "." & numad(3)
avalori(5) = RitDiPos(numad,1,ruota)
avalori(6) = RitDiPos(numad,2,ruota)
avalori(7) = RitDiPos(numad,3,ruota)
avalori(8) = RitDiPos(numad,4,ruota)
avalori(9) = RitDiPos(numad,5,ruota)
avalori(10) = rit
avalori(11) = ritmax
avalori(12) = incrRitMax
avalori(13) = freq
avalori(14) = retesito
avalori(15) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(10,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(3,,1)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal Numero Fisso + AD equidistanti...",1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(5),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
fisso = CInt(InputBox("Quale Numero ",,10))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri fisso + AD. equidistanti " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(4) = " Num + Lat "
atitoli(3) = " EQ "
atitoli(5) = " RD1 "
atitoli(6) = " RD2 "
atitoli(7) = " RD3 "
atitoli(8) = " RD4 "
atitoli(9) = " RD5 "
atitoli(10) = " Ritardo attuale "
atitoli(11) = "Rit.Max"
atitoli(12) = "incr. storico"
atitoli(13) = "Frequenza"
atitoli(14) = " - esito - "
atitoli(15) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 44
ruota(1) = r
num(1) = fisso
numad(1) = num(1)
numad(2) = Fuori90(num(1) + k)
numad(3) = Fuori90(num(1) - k)
numad(4) = Fuori90(numad(2) + k)
numad(5) = Fuori90(numad(3) - k)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = fisso
avalori(3) = Differenza(numad(1),numad(2))
avalori(4) = numad(4) & "." & numad(2) & "." & numad(1) & "." & numad(3) & "." & numad(5)
avalori(5) = RitDiPos(numad,1,ruota)
avalori(6) = RitDiPos(numad,2,ruota)
avalori(7) = RitDiPos(numad,3,ruota)
avalori(8) = RitDiPos(numad,4,ruota)
avalori(9) = RitDiPos(numad,5,ruota)
avalori(10) = rit
avalori(11) = ritmax
avalori(12) = incrRitMax
avalori(13) = freq
avalori(14) = retesito
avalori(15) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(10,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(3,,1)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal Numero Fisso + AD equidistanti...",1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(7),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
fisso = CInt(InputBox("Quale Numero ",,10))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri fisso + AD. equidistanti " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(4) = " Num + Lat "
atitoli(3) = " EQ "
atitoli(5) = " RD1 "
atitoli(6) = " RD2 "
atitoli(7) = " RD3 "
atitoli(8) = " RD4 "
atitoli(9) = " RD5 "
atitoli(10) = " Ritardo attuale "
atitoli(11) = "Rit.Max"
atitoli(12) = "incr. storico"
atitoli(13) = "Frequenza"
atitoli(14) = " - esito - "
atitoli(15) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 44
ruota(1) = r
num(1) = fisso
numad(1) = num(1)
numad(2) = Fuori90(num(1) + k)
numad(3) = Fuori90(num(1) - k)
numad(4) = Fuori90(numad(2) + k)
numad(5) = Fuori90(numad(3) - k)
numad(6) = Fuori90(numad(4) + k)
numad(7) = Fuori90(numad(5) - k)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = fisso
avalori(3) = Differenza(numad(1),numad(2))
avalori(4) = numad(6) & "." & numad(4) & "." & numad(2) & "." & numad(1) & "." & numad(3) & "." & numad(5) & "." & numad(7)
avalori(5) = RitDiPos(numad,1,ruota)
avalori(6) = RitDiPos(numad,2,ruota)
avalori(7) = RitDiPos(numad,3,ruota)
avalori(8) = RitDiPos(numad,4,ruota)
avalori(9) = RitDiPos(numad,5,ruota)
avalori(10) = rit
avalori(11) = ritmax
avalori(12) = incrRitMax
avalori(13) = freq
avalori(14) = retesito
avalori(15) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(10,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(3,,1)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal Numero Fisso + AD equidistanti...",1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(9),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
fisso = CInt(InputBox("Quale Numero ",,10))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri fisso + AD. equidistanti " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(4) = " Num + Lat "
atitoli(3) = " EQ "
atitoli(5) = " RD1 "
atitoli(6) = " RD2 "
atitoli(7) = " RD3 "
atitoli(8) = " RD4 "
atitoli(9) = " RD5 "
atitoli(10) = " Ritardo attuale "
atitoli(11) = "Rit.Max"
atitoli(12) = "incr. storico"
atitoli(13) = "Frequenza"
atitoli(14) = " - esito - "
atitoli(15) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 44
ruota(1) = r
num(1) = fisso
numad(1) = num(1)
numad(2) = Fuori90(num(1) + k)
numad(3) = Fuori90(num(1) - k)
numad(4) = Fuori90(numad(2) + k)
numad(5) = Fuori90(numad(3) - k)
numad(6) = Fuori90(numad(4) + k)
numad(7) = Fuori90(numad(5) - k)
numad(8) = Fuori90(numad(6) + k)
numad(9) = Fuori90(numad(7) - k)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = fisso
avalori(3) = Differenza(numad(1),numad(2))
avalori(4) = numad(8) & "." & numad(6) & "." & numad(4) & "." & numad(2) & "." & numad(1) & "." & numad(3) & "." & numad(5) & "." & numad(7) & "." & numad(9)
avalori(5) = RitDiPos(numad,1,ruota)
avalori(6) = RitDiPos(numad,2,ruota)
avalori(7) = RitDiPos(numad,3,ruota)
avalori(8) = RitDiPos(numad,4,ruota)
avalori(9) = RitDiPos(numad,5,ruota)
avalori(10) = rit
avalori(11) = ritmax
avalori(12) = incrRitMax
avalori(13) = freq
avalori(14) = retesito
avalori(15) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(10,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(3,,1)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal Numero Fisso + AD equidistanti...",1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ultima modifica:
Giulio LG
Banned
TERZINE di SOMMA__con CapoGioco
TERZINE di SOMMA__con CapoGioco
TERZINE di SOMMA__con CapoGioco
Codice:
Sub Main()
Dim num(1),numad(3),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
fisso = CInt(InputBox("Quale Numero ",,1))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica__CapoGioco <> Terzina di SOMMA " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(4) = " Terz.di somma "
atitoli(5) = " RD1 "
atitoli(6) = " RD2 "
atitoli(7) = " RD3 "
atitoli(8) = " RD4 "
atitoli(9) = " RD5 "
atitoli(10) = " Ritardo attuale "
atitoli(11) = "Rit.Max"
atitoli(12) = "incr. storico"
atitoli(13) = "Frequenza"
atitoli(14) = " - esito - "
atitoli(15) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 89
ruota(1) = r
num(1) = fisso
numad(1) = num(1)
numad(2) = Fuori90(num(1) + k)
numad(3) = Fuori90(numad(2) + num(1))
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = fisso
avalori(4) = numad(1) & "." & numad(2) & "." & numad(3)
avalori(5) = RitDiPos(numad,1,ruota)
avalori(6) = RitDiPos(numad,2,ruota)
avalori(7) = RitDiPos(numad,3,ruota)
avalori(8) = RitDiPos(numad,4,ruota)
avalori(9) = RitDiPos(numad,5,ruota)
avalori(10) = rit
avalori(11) = ritmax
avalori(12) = incrRitMax
avalori(13) = freq
avalori(14) = retesito
avalori(15) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(10,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(3,,1)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal Numero Fisso + AD equidistanti...",1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(3),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
sorte = InputBox("Quale sorte verificare",,2)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica <> TERZINE di SOMMA " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Terzine di Somma "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 88
ruota(1) = r
num(1) = k
numad(1) = num(1)
numad(2) = Fuori90(num(1) + 1)
numad(3) = Fuori90(numad(2) + num(1))
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(1) & "." & numad(2) & "." & numad(3)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ultima modifica:
Giulio LG
Banned
NUMERI CONSECUTIVI__Coppie Terzine Quartine Cinquine ...
NUMERI CONSECUTIVI__Coppie Terzine Quartine Cinquine ...
NUMERI CONSECUTIVI__Coppie Terzine Quartine Cinquine ...
Codice:
Sub Main()
Dim num(1),numad(2),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
fisso = CInt(InputBox("Quale Numero ",,1))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica__Coppie Consecutive " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(4) = " Coppia Cons. "
atitoli(5) = " RD1 "
atitoli(6) = " RD2 "
atitoli(7) = " RD3 "
atitoli(8) = " RD4 "
atitoli(9) = " RD5 "
atitoli(10) = " Ritardo attuale "
atitoli(11) = "Rit.Max"
atitoli(12) = "incr. storico"
atitoli(13) = "Frequenza"
atitoli(14) = " - esito - "
atitoli(15) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = fisso
numad(1) = num(1)*k
numad(2) = Fuori90(num(1) + k)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(4) = numad(1) & "." & numad(2)
avalori(5) = RitDiPos(numad,1,ruota)
avalori(6) = RitDiPos(numad,2,ruota)
avalori(7) = RitDiPos(numad,3,ruota)
avalori(8) = RitDiPos(numad,4,ruota)
avalori(9) = RitDiPos(numad,5,ruota)
avalori(10) = rit
avalori(11) = ritmax
avalori(12) = incrRitMax
avalori(13) = freq
avalori(14) = retesito
avalori(15) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(10,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(3,,1)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal Numero Fisso + AD equidistanti...",1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(3),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
fisso = CInt(InputBox("Quale Numero ",,1))
sorte = InputBox("Quale sorte verificare",,1)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica__Terzine Consecutive " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(4) = " Terzine Cons. "
atitoli(5) = " RD1 "
atitoli(6) = " RD2 "
atitoli(7) = " RD3 "
atitoli(8) = " RD4 "
atitoli(9) = " RD5 "
atitoli(10) = " Ritardo attuale "
atitoli(11) = "Rit.Max"
atitoli(12) = "incr. storico"
atitoli(13) = "Frequenza"
atitoli(14) = " - esito - "
atitoli(15) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = fisso
numad(1) = num(1)*k
numad(2) = Fuori90(num(1) + k)
numad(3) = Fuori90(numad(2) + 1)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(4) = numad(1) & "." & numad(2) & "." & numad(3)
avalori(5) = RitDiPos(numad,1,ruota)
avalori(6) = RitDiPos(numad,2,ruota)
avalori(7) = RitDiPos(numad,3,ruota)
avalori(8) = RitDiPos(numad,4,ruota)
avalori(9) = RitDiPos(numad,5,ruota)
avalori(10) = rit
avalori(11) = ritmax
avalori(12) = incrRitMax
avalori(13) = freq
avalori(14) = retesito
avalori(15) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(10,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(4,,7)
Call SetColoreCella(3,,1)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal Numero Fisso + AD equidistanti...",1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ultima modifica:
Giulio LG
Banned
NUMERI EQUIDISTANTI <> In progressione__Terzine Quartine Cinquine ...
NUMERI EQUIDISTANTI <> In progressione__Terzine Quartine Cinquine ...
NUMERI EQUIDISTANTI <> In progressione__Terzine Quartine Cinquine ...
Codice:
Sub Main()
Dim num(1),numad(3),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
sorte = InputBox("Quale sorte verificare",,2)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica Terz.EQ.in Progressione " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Terzine EQ "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
numad(1) = num(1)
numad(2) = Fuori90(num(1) + 1)
numad(3) = Fuori90(num(1) + 3)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(1) & "." & numad(2) & "." & numad(3)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Codice:
Sub Main()
Dim num(1),numad(4),ruota(1),sorte,k
r = CInt(InputBox("Quale ruota ",,1))
sorte = InputBox("Quale sorte verificare",,2)
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica Terz.EQ.in Progressione " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Terzine EQ "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
numad(1) = num(1)
numad(2) = Fuori90(num(1) + 1)
numad(3) = Fuori90(num(1) + 3)
numad(4) = Fuori90(num(1) + 7)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(1) & "." & numad(2) & "." & numad(3) & "." & numad(4)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
Ultima modifica:
Giulio LG
Banned
TERZINA & COPPIA CAPOGIOCO ( Autore rubino )
TERZINA & COPPIA CAPOGIOCO ( Autore rubino )
TERZINA & COPPIA CAPOGIOCO ( Autore rubino )
Codice:
Sub Main()
Dim terni()
ReDim terni(6,0)
rda = CInt(InputBox("1 Ruota ",,1))
ra = CInt(InputBox("2 Ruota ",,8))
cg1 = CInt(InputBox("Capogioco 1",,67))
cg2 = CInt(InputBox("Capogioco 2",,76))
cg3 = CInt(InputBox("Capogioco 3",,15))
sor = CInt(InputBox("Sorte ",,3))
lim = CInt(InputBox("Dettaglio output limite 2=Ambo 3=Terno",,2))
Inizio = 1
fine = EstrazioneFin
If rda = 11 Then
r = 1
ra = 10
Else
r = rda
End If
ColoreTesto(2)
Scrivi " Situazione ritardo dei terni sulle ruote fisse " & NomeRuota(rda) & " - " & NomeRuota(ra),1
Scrivi " Terno Capogioco composto dai nr." & Format2(cg1) & " " & Format2(cg2) & " " & Format2(cg3),1
Scrivi " Situazione Quartine per Terno uscite dall'estrazione ...... al ......" & Inizio & " " & fine,1
Scrivi " Calcola Ritardo sorte per " & sor,1
Scrivi " Dettaglio output uscite 2=Ambo 3=Terno scelto param.=(" & lim & ")",1
Scrivi "_________________________________________________ _______________________________________",1
ColoreTesto(0)
r = r - 1
For r = r + 1 To ra
For es = inizio To fine
If r = rda Or r = ra Then
Call Messaggio(" Elaborazione Quartine per Terno su Ruota..." & NomeRuota(r) & ".......Estrazione n. " & es)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(Inizio,fine,es)
a = cg1
b = cg2
c = cg3
ct = 0
For y = 1 To 5
If Estratto(es,r,y) = cg1 Or Estratto(es,r,y) = cg2 Or Estratto(es,r,y) = cg3 Then
ct = ct + 1
End If
Next
If ct >= lim Then
For p = 1 To 5
d = Estratto(es,r,p)
If d <> a And d <> b And d <> c Then
co = co + 1
ReDim Preserve terni(6,co)
terni(1,co) = a
terni(2,co) = b
terni(3,co) = c
terni(4,co) = d
terni(5,co) = es
terni(6,co) = NomeRuota(r)
ColoreTesto(1)
Scrivi " Terno in Quartina uscita...." & Format2(a) & " " & Format2(b) & " " & Format2(c) & " " & Format2(d) & "...estr.n." & es & " - " & NomeRuota(r)
ColoreTesto(0)
End If
Next
End If
End If
Next
Next
Scrivi "__________________r_i_t_a_r_d_i___p e r___Terno in__Q u a r_t_i_n_a__________",1
ColoreTesto(0)
Dim anum(4)
Dim ar(2)
For x = 1 To 90
anum(1) = cg1
anum(2) = cg2
anum(3) = cg3
anum(4) = x
ar(1) = rda
ar(2) = ra
If cg1 <> x And cg2 <> x Then
ritterno = SerieRitardo(Inizio,fine,anum,ar,sor)
Scrivi " Terno in Quartina " & Format2(cg1) & " " & Format2(cg2) & " " & Format2(cg3) & " " & Format2(x) & "...ritardo.minimo sulle 2 ruote..." & ritterno,1
End If
Next
End Sub
Codice:
Sub Main()
Dim terni()
ReDim terni(5,0)
rda = CInt(InputBox("1 Ruota ",,5))
ra = CInt(InputBox("2 Ruota ",,6))
dar = CInt(InputBox("3 Ruota ",,7))
rd = CInt(InputBox("4 Ruota ",,9))
cg1 = CInt(InputBox("Capogioco 1",,33))
cg2 = CInt(InputBox("Capogioco 2",,38))
dettaglio = InputBox("Vuoi il dettaglio delle uscite? ",,"S")
Inizio = 1
fine = EstrazioneFin
ruotta = 10
ColoreTesto(2)
Scrivi " Situazione ritardo dei terni sulle ruote fisse " & NomeRuota(rda) & " - " & NomeRuota(ra) & " - " & NomeRuota(dar) & " - " & NomeRuota(rd),1
Scrivi " Ambo Capogioco composto dai nr." & Format2(cg1) & " " & Format2(cg2),1
Scrivi " Situazione terni usciti dall'estrazione ...... al ......" & Inizio & " " & fine,1
Scrivi " Vuoi il dettaglio delle uscite? " & dettaglio,1
Scrivi "_________________________________________________ _______________________________________",1
ColoreTesto(0)
r = 0
For r = r + 1 To ruotta
For es = inizio To fine
If r = rda Or r = ra Or r = dar Or r = rd Then
Call Messaggio(" Elaborazione Terni Ruota..." & NomeRuota(r) & ".......Estrazione n. " & es)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(Inizio,fine,es)
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
If cg1 = a And cg2 = b Or cg2 = a And cg1 = b Then
For p = 1 To 5
c = Estratto(es,r,p)
If c <> a And c <> b Then
co = co + 1
ReDim Preserve terni(5,co)
terni(1,co) = a
terni(2,co) = b
terni(3,co) = c
terni(4,co) = es
terni(5,co) = NomeRuota(r)
If dettaglio = "S" Or dettaglio = "s" Then
Scrivi " Terno uscito...." & Format2(a) & " " & Format2(b) & " " & Format2(c) & "...estr.n." & es & " - " & NomeRuota(r)
End If
End If
Next
End If
Next
Next
End If
Next
Next
Scrivi "__________________r_i_t_a_r_d_i___p e r_____t_e_r_n_o__________",1
ColoreTesto(0)
Dim anum(3)
Dim ar(4)
For x = 1 To 90
anum(1) = cg1
anum(2) = cg2
anum(3) = x
ar(1) = rda
ar(2) = ra
ar(3) = dar
ar(4) = rd
If cg1 <> x And cg2 <> x Then
ritterno = SerieRitardo(Inizio,fine,anum,ar,3)
Scrivi " Terno " & Format2(cg1) & " " & Format2(cg2) & " " & Format2(x) & "...ritardo.minimo sulle 4 ruote..." & ritterno,1
End If
Next
End Sub
Ultima modifica:
Giulio LG
Banned
Coppie di Somma __ autore luigiBi __ ( DA MIGLIORARE )
Coppie di Somma __ autore luigiBi __ ( DA MIGLIORARE )
Coppie di Somma __ autore luigiBi __ ( DA MIGLIORARE )
Codice:
Sub Main
Dim nMin,nMax
Dim k,e,s,j
Dim nClasse
Dim nRuota
Dim nEstrDaContr
ReDim aNum(2)
ReDim aEstratto(1)
ReDim aRuote(1)
Dim aColonne
Dim idEstrIni,idEstr,nFrq
nMin = Int(InputBox("Inserire un numero da 1 a 90 verranno usati gli ambi con la somma MINIMA specificata","Numero",90))
nMax = Int(InputBox("Inserire un numero da 1 a 90 verranno usati gli ambi con la somma MASSIMA specificata","Numero",nMin))
nEstrDaContr = Int(InputBox("Quante estrazioni a ritroso","Controllo uscite",1000))
nRuota = ScegliRuota
idEstr = EstrazioneFin
idEstrIni =(idEstr + 1) - nEstrDaContr
If nMin > 0 And nMin <= 90 And nMax > 0 And nMax <= 90 And nRuota > 0 And nEstrDaContr > 0 And idEstrIni > 0 Then
aRuote(1) = nRuota
Call Scrivi("Elenco ambi di somma compresa tra " & nMin & " e " & nMax,True)
Call Scrivi
nClasse = 2 ' sviluppo in ambi
' sviluppo il sistema valorizzando le colonne sviluppate
aColonne = SviluppoIntegrale(GetNumPerSviluppo,nClasse)
' scrivo le colonne in output
For k = 1 To UBound(aColonne)
s = Fuori90(aColonne(k,1) + aColonne(k,2))
If s >= nMin And s <= nMax Then
aNum(1) = aColonne(k,1)
aNum(2) = aColonne(k,2)
Call Scrivi("Ambo di somma " & FormatSpace(s,3,True) & " - " & StringaNumeri(aNum,,True),True)
nFrq = SerieFreq(idEstrIni,idEstr,aNum,aRuote,2)
If nFrq > 0 Then
Call Scrivi("Uscito " & nFrq & " volte")
End If
For j = 1 To 2
aEstratto(1) = aNum(j)
nFrq = SerieFreq(idEstrIni,idEstr,aEstratto,aRuote,1)
Next
End If
Next
End If
End SubGiulio LG
Banned
CAPILISTA__Autore Rubino
CAPILISTA__Autore Rubino
CAPILISTA__Autore Rubino
Codice:
Option Explicit
Sub Main
Dim prec,r,n,x,xz,p,ps,rr,es,Ini,nestr,y,ra,ritmax,incrRitMax,freq,dett,scelta,aretritardi,aretidestr,Totterzo,ciclolen,hh,sommar,yj,i,v,Iniz
Dim rc(11,7),rp2(11,6)
prec = EstrazioneFin
scelta = CInt(InputBox("Scelte possibili da 01-90 1=Capilista ",,1))
ciclolen = CInt(InputBox("Lunghezza Ciclo variabile",,18))
dett = InputBox("Vuoi il dettaglio Costruzione RP2 ? SI/NO ",,"NO")
For r = 1 To 12
If r < 11 Or r = 12 Then
Call Messaggio("Estr. N." & prec & " Pos.Ritardo scelta= " & scelta & " In Graduatoria Ruota.." & NomeRuota(r))
Call AvanzamentoElab(1,11,r)
If ScriptInterrotto Then Exit For
Call GeneraAnalitico(prec)
n = NumeroPosRit(prec,r,scelta)
ps = ps + 1
rc(ps,0) = Format2(r) & " " & Format2(n)
rc(ps,1) = EstrattoRitardo(r,n,,prec)
rc(ps,2) = RitPos(n,r,prec) - 1
rc(ps,7) = ps
End If
Next
Call OrdinaMatrice(rc,- 1,2)
nestr = prec - rc(1,2)
If dett = "SI" Or dett = "si" Then
ColoreTesto(0)
Scrivi prec & " estr.partenza " & nestr,1
ColoreTesto(2)
For x = 1 To 11
Scrivi prec & "....." & rc(x,0) & " " & rc(x,2) & " " & rc(x,1)
Next
End If
ColoreTesto(0)
''''-------------------------------------------------------------------------------------
''''''ESTRAZIONI PRECEDENTI calcola rp2
Ini = nestr
es = EstrazioneFin
For Ini = Ini + 1 To es
ReDim rp(11,7)
ps = 0
For r = 1 To 12
If r < 11 Or r = 12 Then
Call Messaggio("Estr. N." & Ini & " Pos.Ritardo scelta= " & scelta & " Graduatoria Ruota.." & NomeRuota(r))
Call AvanzamentoElab(1,11,r)
If ScriptInterrotto Then Exit For
Call GeneraAnalitico(Ini)
n = NumeroPosRit(Ini,r,scelta)
ps = ps + 1
rp(ps,0) = Format2(r) & " " & Format2(n)
rp(ps,1) = EstrattoRitardo(r,n,,Ini)
rp(ps,2) = RitPos(n,r,Ini)
End If
Next
Call OrdinaMatrice(rp,- 1,2)
'''calcola rp2 tabella posizione
For y = 1 To 11
If rc(y,0) = rp(y,0) Then
rp2(y,4) = rp2(y,4) + 1
rp2(y,6) = rp2(y,6) + 1
Else
rp2(y,4) = 1
rp2(y,5) = Left(rp(y,0),2)
rp2(y,6) = rp(y,7)
End If
Next
If dett = "SI" Or dett = "si" Then
ColoreTesto(1)
Scrivi Ini & "------------"
For x = 1 To 11
Scrivi Ini & "....." & rp(x,0) & " " & rp(x,2) & " " & rp(x,1) & " rp2=" & rp2(x,4) & " A=" & rp2(x,5)
Next
ColoreTesto(0)
End If
Next
ColoreTesto(1)
Scrivi " Graduatoria dei Capi Lista di Ogni Ruota e relativi R.P.",1
Scrivi " Aggiornata all'estrazione n. " & prec & " del " & DataEstrazione(prec),1
ColoreTesto(2)
If scelta = 1 Then Scrivi " Scelta effettuata per i Capilista Ritardatari di ogni ruota ",1
If scelta > 1 Then Scrivi " Scelta effettuata per i numeri che occupano la posizione del ritardo uguale a " & scelta,1
Scrivi " Lunghezza Ciclo considerata " & ciclolen & " la %LeggeTerzo deve essere > del 66% ca ",1
Scrivi
ColoreTesto(0)
'--------- crea tabella---------------
ReDim atitoli(32)
ReDim avalori(32)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Rit.Corr."
atitoli(4) = " Rit.Sto "
atitoli(5) = " incr.sto "
atitoli(6) = " Frequenza"
atitoli(7) = " da Estr.n. e data "
atitoli(8) = " RpR "
atitoli(9) = " Rp2 "
atitoli(10) = " Rp/Rc "
atitoli(11) = " -A- "
atitoli(12) = " Seq.Pos- "
atitoli(13) = " Last Sinc. "
atitoli(14) = " 12°Ciclo "
atitoli(15) = " %LgTerzo"
atitoli(16) = " "
atitoli(17) = " R01 "
atitoli(18) = " R02 "
atitoli(19) = " R03 "
atitoli(20) = " R04 "
atitoli(21) = " R05 "
atitoli(22) = " R06 "
atitoli(23) = " R07 "
atitoli(24) = " R08 "
atitoli(25) = " R09 "
atitoli(26) = " R10 "
atitoli(27) = " SommaR "
atitoli(28) = " 1°Det "
atitoli(29) = " 2°Det "
atitoli(30) = " 3°Det "
atitoli(31) = " 4°Det "
atitoli(32) = " 5°Det "
' inizializzo la tabella
Call InitTabella(atitoli,2,"center",1.25,5,"Arial")
For x = 1 To 11
avalori(1) = NomeRuota(Left(rc(x,0),2))
avalori(2) = Right(rc(x,0),2)
avalori(8) = rc(x,2)
avalori(9) = rp2(x,4)
avalori(11) = " "
avalori(12) = x
avalori(13) = rp2(x,5) & " " & SiglaRuota(rp2(x,5))
ReDim anum(1),art(1)
anum(1) = Right(rc(x,0),2)
art(1) = Left(rc(x,0),2)
Call StatisticaFormazione(anum,art,1,ra,ritmax,incrRitMax,freq,EstrazioneIni,prec)
avalori(3) = ra
avalori(4) = ritmax
avalori(5) = incrRitMax
avalori(6) = freq
nestr = prec -(avalori(8) + 1)
avalori(7) = nestr & " " & DataEstrazione(nestr)
avalori(10) = Round(avalori(8) / avalori(3),3)
avalori(14) = Int(ra/ciclolen)
''''calcola storia ciclica e % legge terzo
ReDim anN(2)
ReDim arR(1)
anN(1) = Right(rc(x,0),2)
arR(1) = Left(rc(x,0),2)
' calcola uscite entro 18 colpi se % superiore al 66,66%
Call ElencoRitardi(anN,arR,1,EstrazioneIni,EstrazioneFin,aretritardi,aretidestr)
Totterzo = 0
hh = 27
sommar = 0
For xz = 1 To UBound(aretritardi)
If aretritardi(xz) < ciclolen Then
Totterzo = Totterzo + 1
End If
avalori(15) = Round((Totterzo / UBound(aretritardi)) * 100,2)
'''trova ultimi 10 ritardi e somma ritardi
If xz >= UBound(aretritardi) - 10 Then
hh = hh - 1
avalori(hh) = aretritardi(xz)
sommar = sommar + aretritardi(xz)
End If
Next
avalori(27) = sommar - ra
'''calcola ritardi posizione 1°2°3°4°5°
ReDim pos(5)
Iniz = EstrazioneIni
For Iniz = Iniz + 1 To EstrazioneFin
For v = 1 To 5
pos(v) = pos(v) + 1
If Int(anN(1)) = Estratto(Iniz,arR(1),v) Then
pos(v) = 0
End If
Next
Next
avalori(28) = pos(1)
avalori(29) = pos(2)
avalori(30) = pos(3)
avalori(31) = pos(4)
avalori(32) = pos(5)
Call AddRigaTabella(avalori,,,1.25)
Call SetColoreCella(3,RGB(247,251,172),vbBlue)
Call SetColoreCella(4,RGB(247,251,172),vbBlue)
Call SetColoreCella(8,RGB(245,198,154),vbBlue)
Call SetColoreCella(9,RGB(245,198,154),vbBlue)
Call SetColoreCella(16,RGB(43,58,253),vbBlue)
Call SetColoreCella(11,RGB(154,219,4),vbBlue)
Call SetColoreCella(28,RGB(254,233,167),vbBlue)
Call SetColoreCella(29,RGB(254,233,167),vbBlue)
Call SetColoreCella(30,RGB(254,233,167),vbBlue)
Call SetColoreCella(31,RGB(254,233,167),vbBlue)
Call SetColoreCella(32,RGB(254,233,167),vbBlue)
If avalori(15) > 66 Then
Call SetColoreCella(15,RGB(126,134,231),vbWhite)
Call SetColoreCella(2,RGB(126,134,231),vbWhite)
End If
Next
CreaTabella(8)
End SubGiulio LG
Banned
Ambi due volte BIVALENTI & semplice ( AUTORE Rubino )
Ambi due volte BIVALENTI & semplice ( AUTORE Rubino )
Ambi due volte BIVALENTI & semplice ( AUTORE Rubino )
Codice:
'ELABORA E RICERCA Ambi due volte Bivalenti ( INIZIO 3950_14/09/1946 )
Sub Main()
Dim r1,r2,r3,r4,a3,a4,w1,p,rt1,rt2,rtt,casi,pp,es,Fin,e,q,qq,estra,biv,y,Ritardo,RitardoMax,IncrRitMax,Frequenza,cth,o,oo,ox,Ord
Dim rr,tp,z,Newr,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote,Finrange,dett,rfa,aRetRitardi,aRetIdEstr,estric,U,xab,rtt1b,rtt2b
e = InputBox("Elenco dall'estrazione n.",,EstrazioneFin)
dett = InputBox("Vuoi dettaglio storia ambi bivalenti Doppi???",,"NO")
Ord = CInt(InputBox("Ordina per colonna n.",,1))
Dim ruo(10),max41(9999),max31(9999),max21(9999),max11(9999),max1btt(9999),max2btt(9999)
Dim a(2)
es = EstrazioneIni
Fin = e
Scrivi "Elenco Ambi Bivalenti DOPPI dall'estrazione n." & es & "-" & " del " & DataEstrazione(es) & " all'estrazione n." & e & "/" & DataEstrazione(e),1
Scrivi "Esclusa la Nazionale ",1
Scrivi ""
Scrivi "_R_u_b_i_n_o_",1
Scrivi ""
For y = 1 To 10
ruo(y) = y
Next
ReDim atitoli(19)
ReDim avalori(19)
' preimposto i titoli delle colonne
atitoli(1) = " casi "
atitoli(2) = " DATA "
atitoli(3) = " Coppia/1 "
atitoli(4) = ""
atitoli(5) = " Coppia/2 "
atitoli(6) = " DATA "
atitoli(7) = " "
atitoli(8) = " A m b o "
atitoli(9) = " "
atitoli(10) = " Int.Medio Rt.Lenght"
atitoli(11) = " 4x1 "
atitoli(12) = " 3x1 "
atitoli(13) = " 2x1 "
atitoli(14) = " 1x1 "
atitoli(15) = " "
atitoli(16) = " R.A.Coppia/1 "
atitoli(17) = " R.A.Coppia/2 "
atitoli(18) = " R.A.TT "
atitoli(19) = " Validità "
' ' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1.5,5,"Arial")
For es = es + 1 To Fin
Call Messaggio(" Ambi Bivalenti Periodo " & es & "/" & DataEstrazione(es) & "...al..." & Fin & "/" & DataEstrazione(Fin))
For r1 = 1 To 9
For q = 1 To 4
For qq = q + 1 To 5
a(1) = Format2(Estratto(es,r1,q))
a(2) = Format2(Estratto(es,r1,qq))
For r2 = r1 + 1 To 10
ReDim ruota(4)
ruota(1) = r1
ruota(2) = r2
For p = 1 To 4
For pp = p + 1 To 5
a3 = Format2(Estratto(es,r2,p))
a4 = Format2(Estratto(es,r2,pp))
If a3 = a(1) And a4 = a(2) Or a3 = a(2) And a4 = a(1) Then
w1 = SerieFreq(es,es,a,ruota,2)
If w1 > 1 Then
Call VerificaEsito(a,ruota,es + 1,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
If RetEsito = "Ambo" Then
If ruota(1) = aRetRuote(1) Or ruota(1) = aRetRuote(2) Or ruota(2) = aRetRuote(1) Or ruota(2) = aRetRuote(2) Then
If dett = "SI" Then
ColoreTesto 0
Scrivi "casi " & FormatSpace(casi,4,1) & " " & es & "-" & DataEstrazione(es),0,0
Scrivi " " & SiglaRuota(r1) & "-" & SiglaRuota(r2),0,0
ColoreTesto 0
Scrivi "......" & StringaNumeri(a) & "..",1,0
ColoreTesto 2
Scrivi " "
ColoreTesto(1)
Scrivi " Invalida " & RetIdEstr & "-" & DataEstrazione(RetIdEstr) & " " & SiglaRuota(aRetRuote(1)) & " " & SiglaRuota(aRetRuote(2)) & " " & a(1) & " " & a(2)
ColoreTesto(0)
End If
xab = 1
Else
xab = 1
End If
Finrange = RetIdEstr
Else
xab = 1
Finrange = EstrazioneFin
End If
If xab = 1 Then
''''cerca nuovo bivalente successivo tra il range di estrazioni (estra - retidestr)
estra = es
' Finrange = RetIdEstr
For estra = estra + 1 To Finrange
biv = SerieFreq(estra,estra,a,ruo,2)
If biv > 1 Then
Newr = ""
For rr = 1 To 10
z = 0
For tp = 1 To 5
If Format2(a3) = Format2(Estratto(estra,rr,tp)) Then
z = z + 1
End If
If Format2(a4) = Format2(Estratto(estra,rr,tp)) Then
z = z + 1
End If
Next
If z = 2 Then
Newr = Newr & Format2(rr) & " "
End If
Next
''''cerca eventuale sfaldamento del 1 bivalente prima della comparsa del 2 bivalente
r3 = Mid(Newr,1,2)
r4 = Mid(Newr,4,2)
If r1 <> Int(r3) And r1 <> Int(r4) And r2 <> Int(r3) And r2 <> Int(r4) Then
ReDim ruota(4)
ruota(1) = r1
ruota(2) = r2
rt1 = RitardoCombinazione(ruota,a,2,EstrazioneFin)
rtt1b = RitardoCombinazione(ruo,a,2,es - 1)
ReDim ruota(4)
ruota(1) = r3
ruota(2) = r4
rt2 = RitardoCombinazione(ruota,a,2,EstrazioneFin)
rtt = RitardoCombinazione(ruo,a,2,EstrazioneFin)
rtt2b = RitardoCombinazione(ruo,a,2,estra - 1)
ReDim ruota(4)
ruota(1) = r1
ruota(2) = r2
ruota(3) = Int(r3)
ruota(4) = Int(r4)
rfa = RitardoCombinazione(ruota,a,2,EstrazioneFin)
estric = estra + 1
ReDim qua(4)
ox = 0
For oo = 1 To 4
qua(oo) = 0
Next
'''ricerca ritardi 4x1 3x1 2x1 1x1
For U = 1 To 35
Call VerificaEsito(a,ruota,estric,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
' If RetEsito = "Ambo" Then
' Scrivi RetIdEstr & " " & aRetRuote(1) & aRetRuote(2) & "..." & a(1) & " " & a(2) & " " & ruota(1) & ruota(2) & ruota(3) & ruota(4)
' Scrivi ruota(1) & " " & ruota(2) & " " & ruota(3) & " " & ruota(4)
' End If
For o = 1 To 4
For oo = 1 To 10
If ruota(o) <> 0 And ruota(o) = aRetRuote(oo) Then
ruota(o) = 0
ox = ox + 1
qua(ox) = RetIdEstr
End If
Next
Next
Call OrdinaMatrice(ruota,- 1)
' Scrivi ruota(1) & " " & ruota(2) & " " & ruota(3) & " " & ruota(4) & "----" & qua(1) & " " & qua(2) & " " & qua(3) & " " & qua(4)
cth = 0
For oo = 1 To 4
If ruota(oo) = 0 Then
cth = cth + 1
End If
Next
If cth = 4 Then
Exit For
End If
estric = RetIdEstr + 1
Next
casi = casi + 1
max1btt(casi) = rtt1b
max2btt(casi) = rtt2b
If qua(1) > 0 Then
avalori(11) = qua(1) - estra
max41(casi) = avalori(11)
End If
If qua(2) > 0 Then
avalori(12) = qua(2) - estra
max31(casi) = avalori(12)
End If
If qua(3) > 0 Then
avalori(13) = qua(3) - estra
max21(casi) = avalori(13)
End If
If qua(4) > 0 Then
avalori(14) = qua(4) - estra
max11(casi) = avalori(14)
End If
'''prepara tabella riepilogo
avalori(1) = casi
avalori(2) = es & "-" & DataEstrazione(es)
avalori(3) = " " & SiglaRuota(r1) & " " & SiglaRuota(r2)
avalori(4) = " "
avalori(5) = " " & SiglaRuota(r3) & " " & SiglaRuota(r4)
avalori(6) = estra & "-" & DataEstrazione(estra)
avalori(7) = " "
avalori(8) = " " & a(1) & " " & a(2)
avalori(9) = " "
avalori(10) = estra - es
avalori(16) = rt1
avalori(17) = rt2
avalori(18) = rtt
ReDim ruota(4)
ruota(1) = r3
ruota(2) = r4
Call VerificaEsito(a,ruota,estra + 1,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
If RetEsito = "Ambo" Then
avalori(19) = "Chiusa estr.n." & RetIdEstr
Else
avalori(19) = "In corso..."
If avalori(11) <= 0 Then avalori(11) = EstrazioneFin - estra
If avalori(12) <= 0 Then avalori(12) = EstrazioneFin - estra
If avalori(13) <= 0 Then avalori(13) = EstrazioneFin - estra
If avalori(14) <= 0 Then avalori(14) = EstrazioneFin - estra
End If
'segnalazione ambi bivalenti ancora in corso per 4x1 3x1 2x1 1x1
If avalori(11) <= 0 Then
avalori(11) = EstrazioneFin - estra
avalori(19) = "In corso..."
End If
If avalori(12) <= 0 Then
avalori(12) = EstrazioneFin - estra
avalori(19) = "In corso..."
End If
If avalori(13) <= 0 Then
avalori(13) = EstrazioneFin - estra
avalori(19) = "In corso..."
End If
If avalori(14) <= 0 Then
avalori(14) = EstrazioneFin - estra
avalori(19) = "In corso..."
End If
Call AddRigaTabella(avalori,Bianco_,"center",1)
Call SetColoreCella(4,RGB(55,2,155),vbBlack)
Call SetColoreCella(7,RGB(55,2,155),vbBlack)
Call SetColoreCella(9,RGB(55,2,155),vbBlack)
Call SetColoreCella(15,RGB(55,2,155),vbBlack)
Call SetColoreCella(3,RGB(250,254,158),vbBlack)
Call SetColoreCella(6,RGB(250,254,158),vbBlack)
Call SetColoreCella(8,RGB(250,254,158),vbBlack)
Call SetColoreCella(10,RGB(191,251,181),vbBlack)
If avalori(19) = "In corso..." Then
Call SetColoreCella(19,RGB(191,251,181),vbBlack)
Call SetColoreCella(8,RGB(219,67,40),vbWhite)
If avalori(11) = avalori(12) Then
Call SetColoreCella(11,RGB(224,39,86),vbWhite)
Call SetColoreCella(12,RGB(224,39,86),vbWhite)
Call SetColoreCella(13,RGB(224,39,86),vbWhite)
Call SetColoreCella(14,RGB(224,39,86),vbWhite)
End If
If avalori(12) = avalori(13) Then
Call SetColoreCella(12,RGB(224,39,86),vbWhite)
Call SetColoreCella(13,RGB(224,39,86),vbWhite)
Call SetColoreCella(14,RGB(224,39,86),vbWhite)
End If
If avalori(13) = avalori(14) Then
Call SetColoreCella(13,RGB(224,39,86),vbWhite)
Call SetColoreCella(14,RGB(224,39,86),vbWhite)
Else
Call SetColoreCella(14,RGB(224,39,86),vbWhite)
End If
End If
If dett = "SI" Then
ColoreTesto 0
Scrivi "casi " & FormatSpace(casi,4,1) & " " & es & "-" & DataEstrazione(es),0,0
Scrivi " " & SiglaRuota(r1) & "-" & SiglaRuota(r2),0,0
ColoreTesto 0
Scrivi "......" & StringaNumeri(a) & "..",1,0
ColoreTesto 2
Scrivi "RC-> " & FormatSpace(rt1,4)
Scrivi " " & estra & "-" & DataEstrazione(estra) & " " & SiglaRuota(r3) & " " & SiglaRuota(r4) & "......" & StringaNumeri(a) & "..RC-> " & FormatSpace(rt2,4)
End If
Exit For
End If
End If
Next
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
CreaTabella(Ord)
Call OrdinaMatrice(max41,- 1)
Call OrdinaMatrice(max31,- 1)
Call OrdinaMatrice(max21,- 1)
Call OrdinaMatrice(max11,- 1)
Call OrdinaMatrice(max1btt,- 1)
Call OrdinaMatrice(max2btt,- 1)
ColoreTesto(0)
Scrivi " Ritardi Massimi Formazione 4x1 " & max41(1) & " __ " & max41(2) & " __ " & max41(3) & " __ " & max41(4) & " __ " & max41(5),1
Scrivi " Ritardi Massimi Formazione 3x1 " & max31(1) & " __ " & max31(2) & " __ " & max31(3) & " __ " & max31(4) & " __ " & max31(5),1
Scrivi " Ritardi Massimi Formazione 2x1 " & max21(1) & " __ " & max21(2) & " __ " & max21(3) & " __ " & max21(4) & " __ " & max21(5),1
Scrivi " Ritardi Massimi Formazione 1x1 " & max11(1) & " __ " & max11(2) & " __ " & max11(3) & " __ " & max11(4) & " __ " & max11(5),1
Scrivi ""
Scrivi ""
Scrivi " Ritardi Massimi* 1°Ambo Biv.TT__ " & max1btt(1) & " __ " & max1btt(2) & " __ " & max1btt(3) & " __ " & max1btt(4) & " __ " & max1btt(5),1
Scrivi ""
Scrivi " Ritardi Massimi 2°Ambo Biv.TT__ " & max2btt(1) & " __ " & max2btt(2) & " __ " & max2btt(3) & " __ " & max2btt(4) & " __ " & max2btt(5),1
End Sub
Codice:
'ELABORA E RICERCA Ambi bivalenti -- TERNO LIMONE
Sub Main()
Dim r1,r2,r3,r4,a3,a4,w1,p,rt1,rt2,rtt,casi,pp,es,Fin,e,q,qq,Ritardo,RitardoMax,IncrRitMax,Frequenza,cth,capogioco
Dim rr,tp,z,Newr,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote,dett,rfa,aRetRitardi,aRetIdEstr,xab,y,x,xx
e = InputBox("Elenco dall'estrazione n.",,EstrazioneFin)
capogioco = InputBox("Vuoi riepilogo degli ambi con capogioco ?",,16)
dett = InputBox("Vuoi dettaglio storia ambi bivalenti ???",,"NO")
Dim ruo(10),sig(9999),pre(9999)
Dim a(2)
es = EstrazioneIni
Fin = e
Scrivi "Elenco Ambi Bivalenti (In Corso) dall'estrazione n." & es & "-" & " del " & DataEstrazione(es) & " all'estrazione n." & e & "/" & DataEstrazione(e),1
Scrivi "Esclusa la Nazionale ",1
Scrivi "Capogioco richiesto " & capogioco,1
Scrivi "_________b_y_____R_u_b_i_n_o____________________________________________________________________________________________________________",1
For y = 1 To 10
ruo(y) = y
Next
ReDim atitoli(19)
ReDim avalori(19)
' preimposto i titoli delle colonne
atitoli(1) = " casi "
atitoli(2) = " Estrazione n.data "
atitoli(3) = " Ruote "
atitoli(4) = " "
atitoli(5) = " n.Estr. e data "
atitoli(6) = " Ruota "
atitoli(7) = " "
atitoli(8) = " A m b o "
atitoli(9) = " "
atitoli(10) = " Int.Medio Rt.Lenght"
atitoli(11) = " 4x1 "
atitoli(12) = " 3x1 "
atitoli(13) = " 2x1 "
atitoli(14) = " 1x1 "
atitoli(15) = " "
atitoli(16) = " R.Att.1e2 Ruota "
atitoli(17) = " R.Att.3e4 Ruota "
atitoli(18) = " R.Att. Tutte "
atitoli(19) = " Validità "
' ' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1.5,5,"Arial")
For es = es + 1 To Fin
Call Messaggio(" Ambi Bivalenti Periodo " & es & "/" & DataEstrazione(es) & "...al..." & Fin & "/" & DataEstrazione(Fin))
For r1 = 1 To 9
For q = 1 To 4
For qq = q + 1 To 5
a(1) = Format2(Estratto(es,r1,q))
a(2) = Format2(Estratto(es,r1,qq))
For r2 = r1 + 1 To 10
ReDim ruota(2)
ruota(1) = r1
ruota(2) = r2
For p = 1 To 4
For pp = p + 1 To 5
a3 = Format2(Estratto(es,r2,p))
a4 = Format2(Estratto(es,r2,pp))
If a3 = a(1) And a4 = a(2) Or a3 = a(2) And a4 = a(1) Then
w1 = SerieFreq(es,es,a,ruota,2)
If w1 > 1 Then
Call VerificaEsito(a,ruota,es + 1,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
If RetEsito = "Ambo" Then
If ruota(1) = aRetRuote(1) Or ruota(1) = aRetRuote(2) Or ruota(2) = aRetRuote(1) Or ruota(2) = aRetRuote(2) Then
If dett = "SI" Then
ColoreTesto 0
Scrivi "casi " & FormatSpace(casi,4,1) & " " & es & "-" & DataEstrazione(es),0,0
Scrivi " " & SiglaRuota(r1) & "-" & SiglaRuota(r2),0,0
ColoreTesto 0
Scrivi "......" & StringaNumeri(a) & "..",1,0
ColoreTesto 2
Scrivi "RC-> " & FormatSpace(rt1,4)
ColoreTesto(1)
Scrivi " Invalida " & RetIdEstr & "-" & DataEstrazione(RetIdEstr) & " " & SiglaRuota(aRetRuote(1)) & " " & SiglaRuota(aRetRuote(2)) & " " & a(1) & " " & a(2)
ColoreTesto(0)
End If
rt1 = RitardoCombinazione(ruota,a,2,es - 1)
rtt = RitardoCombinazione(ruo,a,2,es - 1)
If a(1) = capogioco Or a(2) = capogioco Then
xx = xx + 1
pre(xx) = es & "-" & SiglaRuota(r1) & "-" & SiglaRuota(r2) & " " & a(1) & " " & a(2) & " Ritardi...RC=." & FormatSpace(rt1,4) & " .....RTT=." & FormatSpace(rtt,4)
End If
xab = 1
End If
Else
''' elenca ambi bivalenti attivo o in corso
casi = casi + 1
rt1 = RitardoCombinazione(ruota,a,2,EstrazioneFin)
rtt = RitardoCombinazione(ruo,a,2,EstrazioneFin)
ColoreTesto 0
Scrivi "---in corso------casi " & FormatSpace(casi,4,1) & " " & es & "-" & DataEstrazione(es),0,0
Scrivi " " & SiglaRuota(r1) & "-" & SiglaRuota(r2),0,0
ColoreTesto 0
Scrivi "......" & StringaNumeri(a) & "..",1,0
ColoreTesto 2
Scrivi "RC-> " & FormatSpace(rt1,4) & "..",0,0
Scrivi " RTT-> " & FormatSpace(rtt,4),1
ColoreTesto(1)
If a(1) = capogioco Or a(2) = capogioco Then
x = x + 1
sig(x) = es & "-" & SiglaRuota(r1) & "-" & SiglaRuota(r2) & " " & a(1) & " " & a(2) & " Ritardi...RC=." & FormatSpace(rt1,4) & " .....RTT=." & FormatSpace(rtt,4)
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
' CreaTabella(1)
Scrivi " ___i_n__C_o_r_s_o________________"
For y = 1 To x
Scrivi sig(y)
Next
Scrivi " ___P_r_e_c_e_d_e_n_t_i___________"
For y = 1 To xx
Scrivi pre(y)
Next
End Sub
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 22 luglio 2025Bari2903792786Cagliari2254555029Firenze5238302983Genova0862206926Milano1745556773Napoli6439356202Palermo8433604328Roma3379274181Torino3558387056Venezia6411075727Nazionale5315385266Estrazione Simbolotto
Nazionale
1824032115
