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.
.......Dato che comunque mi appassiona, abbozzo su queste "cose" e tento la fortuna, quello che mi spiace è che, nonostante lo sforzo di Moro80 (con l'aiuto del maestro LuigiB), non sia possibile gestire il numero oro......
Scusa luigi...non so' se avesi letto questa richiesta..la metto pure in questo post.....
Ciao Mike, Luigi, Moro, siccome ho cercato in spaziom. una funzione e' non l'ho trovata voi avete qualche script oppure potete creare uno script che mi permatta di trovare i terni usciti una sola volta in un range x e poi merterli in ordine di ritardo?
Ciao
x il 10elotto 5minuti
Sub Main
Dim Nu(3)
est = CInt(InputBox("Quante estrazioni",,10))
ImpostaArchivio10ELotto(2)
Ini = EstrazioniArchivioDL - est
fin = EstrazioniArchivioDL
Scrivi " Numeri " & Space(6) & "FreQ" & Space(4) & "Ritardo Cronologico"
For es = Ini To fin
For p1 = 1 To 18
For p2 = p1 + 1 To 19
For p3 = p2 + 1 To 20
a = EstrattoDL(es,p1)
b = EstrattoDL(es,p2)
c = EstrattoDL(es,p3)
Nu(1) = a
Nu(2) = b
Nu(3) = c
sf =SerieFreqDL(Ini,fin,Nu,3)
sr = SerieRitardoDL(Ini,fin,Nu,3)
If sf = 1 Then
k = k + 1
Scrivi StringaNumeri(Nu,,1) & vbTab & sf & vbTab & sr
End If
Next
Next
Next
Next
Scrivi "Casi trovati...." & k,1
End Sub
grazie , mi serviva per fare le modifice necessarie.
Le richieste script le risolvono spesso altri ..
Option Explicit
Sub Main
Dim k,j
Dim Inizio,Fine
Dim RetRit,RetRitMax,RetIncRitMax,RetFreq
Dim NumOroUltimaEst
Call ImpostaArchivio10ELotto(2)
Inizio = 1
Fine = EstrazioniArchivioDL
NumOroUltimaEst = NumeroOroDL(Fine)
Call Scrivi("Data Estrazione " & GetInfoEstrazioneDL(Fine))
Call Scrivi("NumeroOro ; " & NumOroUltimaEst)
Call Scrivi
Call Scrivi
' esempio di giocata con numero oro
ReDim aNum(1)
aNum(1) = NumOroUltimaEst
' gioco considerando il numero oro
Call ImpostaGiocataDL(1,aNum,,10,1,,,True)
' gioco non considerando il numero oro
'Call ImpostaGiocataDL(1,aNum,,10,1)
Call GiocaDL(Fine - 1)
Call ScriviResocontoDL
' esempio tabella statistica numero oro
ReDim aT(5)
aT(1) = "Numero"
aT(2) = "Rit"
aT(3) = "Ritmax"
aT(4) = "IncrRitMax"
aT(5) = "Fre"
Call InitTabella(aT)
For k = 1 To 90
Call StatisticaNumeroOroDL (k,RetRit,RetRitMax,RetIncRitMax,RetFreq,Inizio,Fine)
'Call ElencoRitardiNumeroOroDL(k,1,EstrazioniArchivioDL,aRit,aEstr)
aT(1) = k
aT(2) = RetRit
aT(3) = RetRitMax
aT(4) = RetIncRitMax
aT(5) = RetFreq
Call AddRigaTabella(aT)
DoEventsEx
If ScriptInterrotto Then Exit For
Next
Call CreaTabella
Call Scrivi
Call Scrivi
' esempio lista ritardi numero oro
For k = 1 To 90
Call Scrivi("Elenco ultimi 5 ritardi numero " & k,True)
ReDim aRit(0)
ReDim aEstr(0)
Call ElencoRitardiNumeroOroDL(k,1,EstrazioniArchivioDL,aRit,aEstr)
For j = UBound(aRit)To 1 Step -1
Call Scrivi(aRit(j))
If j = UBound(aRit) -5 Then Exit For
Next
DoEventsEx
If ScriptInterrotto Then Exit For
Next
'
End Sub