Novità

X Joe91

solare

solare

Advanced Member >PLATINUM<
Ciao, in merito al listato da te fatto ho notato un errore, probabilmente mi ero spiegato male io.
In sostanza il listato conta le presenze della decina nel primo ciclo da 5 estrazioni, nel secondo ciclo sempre cinque estrazioni.
In sostanza il modo giusto sarebbe il primo ciclo da 5 estrazioni, mentre nel semiciclo dovrebbe contare le presenze che si sono avute nelle ultime 3 estrazioni del primo ciclo.
Indipendentemente dallapossibilità di effettuare questa modifica ringrazio comunque della tua disponibilità.

Option Explicit

'Ricerca BiCiclica By Joe Rev 2.1 (su script di LuigiB ?).

Sub Main
Dim TipoArc
Dim nCicli
Dim Inizio,Fine
Dim idEstr
Dim idDecina
Dim sErr
Dim nTotale
Dim nTotale2
Dim nTotale3
Dim nTotale4
Dim CL
ReDim aNum(10)
ReDim aRuote(1)
CL = 5 'SemiciCiclo di 5 Estrazioni
nCicli = Int(InputBox("Inserire il numero dei cicli da " & CL,,3))
TipoArc = ScegliArchivio
Call ImpostaArchivio10ELotto(TipoArc)
Inizio =(EstrazioniArchivioDL -(nCicli * 2 * CL)) + 1
Fine = EstrazioniArchivioDL - CL + 1
If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
For idDecina = 1 To 9
nTotale = 0
Call AlimentaNumeri(idDecina,aNum)
ReDim aTitoli(5)
aTitoli(1) = " Range (" & CL & "+" & CL & ") Estrazioni."
aTitoli(2) = " Primo "
aTitoli(3) = " Secondo "
aTitoli(4) = " Totali "
aTitoli(5) = " Ultimo Diff tra ciclo e semiciclo "
Call InitTabella(aTitoli)
For idEstr = Inizio To Fine Step 2 * CL
ReDim aValori(5)
aValori(1) = CStr(idEstr) & "-" & CStr(idEstr + CL - 1) & " + " & CStr(idEstr) + CL & "-" & CStr(idEstr + 2 * CL - 1)
aValori(2) = SerieFreqDL(idEstr,idEstr + CL - 1,aNum,1)
aValori(3) = SerieFreqDL(idEstr + CL,idEstr + 2 * CL - 1,aNum,1)
aValori(4) = aValori(2) + aValori(3)
aValori(5) = aValori(3) - aValori(2)
nTotale = nTotale + aValori(5)
nTotale2 = nTotale2 + CLng(aValori(2))
nTotale3 = nTotale3 + CLng(aValori(3))
nTotale4 = nTotale4 + CLng(aValori(4))
Call AddRigaTabella(aValori)
Next
ReDim aValori(5)
aValori(1) = "T O T A L I"
aValori(2) = nTotale2
aValori(3) = nTotale3
aValori(4) = nTotale4
aValori(5) = nTotale
Call AddRigaTabella(aValori,vbYellow)
nTotale2 = 0
nTotale3 = 0
nTotale4 = 0
Call Scrivi("Pres in Dec : " & StringaNumeri(aNum,,True),True)
Call Scrivi
Call CreaTabella
Next
Else
If nCicli <= 0 Then
sErr = "Numero di cicli non valido"
End If
If Inizio <= 0 Then
sErr = "Troppi cicli rispetto alle estrazioni del range"
End If
If idDecina <= 0 Then
sErr = "Nessuna decina selezionata"
End If
If TipoArc <= 0 Then
sErr = "Specificare quale archivio 10 e lotto"
End If
MsgBox sErr,vbCritical
End If
End Sub
Function ScegliDecina()
ReDim aVoci(8)
Dim k,i
For k = 1 To 81 Step 10
aVoci(i) = "Decina " & k & " - " & k + 9
i = i + 1
Next
ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
Dim i,k,y
i =((idDecina - 1) * 10) + 1
For k = i To(i - 1) + 10
y = y + 1
aNum(y) = k
Next
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "Dieci e lotto"
aVoci(1) = "Dieci e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function
 
solare ha scritto:
Ciao, in merito al listato da te fatto ho notato un errore, probabilmente mi ero spiegato male io.
In sostanza il listato conta le presenze della decina nel primo ciclo da 5 estrazioni, nel secondo ciclo sempre cinque estrazioni.
In sostanza il modo giusto sarebbe il primo ciclo da 5 estrazioni, mentre nel semiciclo dovrebbe contare le presenze che si sono avute nelle ultime 3 estrazioni del primo ciclo.
Indipendentemente dallapossibilità di effettuare questa modifica ringrazio comunque della tua disponibilità.
Clicca per espandere...
Ciao ...

non dovrebbero esserci problemi dal punto di vista puramente scriptico.

Per il Pc ... 4 / 5 / 8 / 10 / 50 estrazioni è praticamente la stessa cosa.

Per contro dobbiamo specificare bene ... altrimenti tra chi redige lo script ... chi lo descrive

e i risultati che esso produce ci possono essere differenze.

Cioè ognuno dei tre "dice" una cosa diversa dagli altri...

Sperando che le discordanze rimangano circoscritte alla copia Committente-Script. :)

Quindi 5 Estrazioni in Totale (+5) sarebbero ricerche del tipo (+3) del primo ciclo ... MENO (-2) della seconda parte ?

3 Estrazioni nella prima parte e 2 nella seconda ?

O in atre parole la seconda parte ... è interna o esterna, è ricompresa o non ricompresa, nella prima ?

:) Fammi sapere.
 
Si ti confermo, Quindi 5 Estrazioni in Totale (+5) sarebbero ricerche del tipo (+3) del primo ciclo ... MENO (-2) della seconda parte ?

3 Estrazioni nella prima parte e 2 nella seconda ? si
 
Ultima modifica:
Ok ...

appena riesco provo a modificare lo script, secondo qusta richiesta.

:) Buona Giornata a tutte/i.
 
Ciao Solare.

Ho solo controllato che nella condizione "5+5" produca gli stessi risultati dello script che hai proposto.

Che ... i totali di "7+3" siano ancora uguali a quelli di "5+5".

Mentre, le ulteriori verifiche, a breve, non ho il tempo per effettuarle.

Quindi consiglio di controllare bene, prima di affidarsi a questi calcoli.

Codice: 
'Ricerca SemiCiclica By Joe Rev. 3.0 del 9/7/2014(su script di LuigiB ?).
 Option Explicit
Sub Main
 Dim TipoArc
 Dim nCicli
 Dim Inizio,Fine
 Dim idEstr
 Dim idDecina
 Dim sErr
 Dim nTotale
 Dim nTotale2
 Dim nTotale3
 Dim nTotale4
 Dim CL,CL1,CL2
 ReDim aNum(10)
 ReDim aRuote(1)

 CL1 = 7 : CL1 = CInt(InputBox("Esempio: " & CL1 & " Estrazioni.","PRIMO SEMICICLO",CL1))
 CL2 = 3 : CL2 = CInt(InputBox("Esempio: " & CL2 & " Estrazioni.","SECONDO SEMICICLO",CL2))

 CL = CL1 + CL2 'Ciclo Completo

 nCicli = 5 : nCicli = CInt(InputBox("Esempio: " & nCicli ,"NUMERO DI CICLI (di " & CL & " estrazioni).",5))

 TipoArc = ScegliArchivio
 Call ImpostaArchivio10ELotto(TipoArc)
 Inizio =(EstrazioniArchivioDL -(nCicli * CL)) + 1
 Fine = EstrazioniArchivioDL - CL + 1
 If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
 For idDecina = 1 To 9
 nTotale = 0
 Call AlimentaNumeri(idDecina,aNum)
 ReDim aTitoli(5)
 aTitoli(1) = " Range (" & CL1 & "+" & CL2 & ") Estrazioni."
 aTitoli(2) = " Primo "
 aTitoli(3) = " Secondo "
 aTitoli(4) = " Totali "
 aTitoli(5) = " Ultimo Diff tra ciclo e semiciclo "
 Call InitTabella(aTitoli)
 For idEstr = Inizio To Fine Step CL
 ReDim aValori(5)
 aValori(1) = CStr(idEstr) & "-" & CStr(idEstr + CL1 - 1) & " + " & CStr(idEstr) + CL1 & "-" & CStr(idEstr + CL - 1)
 aValori(2) = SerieFreqDL(idEstr,idEstr + CL1 - 1,aNum,1)
 aValori(3) = SerieFreqDL(idEstr + CL1,idEstr + CL - 1,aNum,1)
 aValori(4) = aValori(2) + aValori(3)
 aValori(5) = aValori(3) - aValori(2)
 nTotale = nTotale + aValori(5)
 nTotale2 = nTotale2 + CLng(aValori(2))
 nTotale3 = nTotale3 + CLng(aValori(3))
 nTotale4 = nTotale4 + CLng(aValori(4))
 Call AddRigaTabella(aValori)
 Next
 ReDim aValori(5)
 aValori(1) = "T O T A L I"
 aValori(2) = nTotale2
 aValori(3) = nTotale3
 aValori(4) = nTotale4
 aValori(5) = nTotale
 Call AddRigaTabella(aValori,vbYellow)
 nTotale2 = 0
 nTotale3 = 0
 nTotale4 = 0
 Call Scrivi("Pres in Dec : " & StringaNumeri(aNum,,True),True)
 Call Scrivi
 Call CreaTabella
 Next
 Else
 If nCicli <= 0 Then
 sErr = "Numero di cicli non valido"
 End If
 If Inizio <= 0 Then
 sErr = "Troppi cicli rispetto alle estrazioni del range"
 End If
 If idDecina <= 0 Then
 sErr = "Nessuna decina selezionata"
 End If
 If TipoArc <= 0 Then
 sErr = "Specificare quale archivio 10 e lotto"
 End If
 MsgBox sErr,vbCritical
 End If
 End Sub
 Function ScegliDecina()
 ReDim aVoci(8)
 Dim k,i
 For k = 1 To 81 Step 10
 aVoci(i) = "Decina " & k & " - " & k + 9
 i = i + 1
 Next
 ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
 End Function
 Sub AlimentaNumeri(idDecina,aNum)
 Dim i,k,y
 i =((idDecina - 1) * 10) + 1
 For k = i To(i - 1) + 10
 y = y + 1
 aNum(y) = k
 Next
 End Sub
 Function ScegliArchivio()
 ReDim aVoci(1)
 aVoci(0) = "Dieci e lotto"
 aVoci(1) = "Dieci e lotto 5 min"
 ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
 End Function

:) Buona Giornata a tutte/i.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 aprile 2025
    Bari
    23
    30
    43
    69
    25
    Cagliari
    63
    73
    02
    18
    12
    Firenze
    38
    11
    13
    32
    15
    Genova
    09
    27
    84
    16
    11
    Milano
    73
    30
    70
    60
    02
    Napoli
    60
    81
    05
    79
    89
    Palermo
    26
    28
    69
    07
    31
    Roma
    82
    38
    76
    44
    31
    Torino
    05
    62
    73
    46
    84
    Venezia
    42
    14
    45
    35
    52
    Nazionale
    48
    80
    78
    16
    23
    Estrazione Simbolotto
    Genova
    10
    22
    15
    09
    34
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto