Per gli esperti di listato una piccola modifica x metodo ambata direi ottimo

[solare]

Ciao, chiedo agli esperti se è possibile apportare una modifica a questo listato per ambata. Normalmente opera alla 1 del mese però i risultati sono eccellenti anche alla 4 alla 9 ecc.
Magari inserendo la possibilità di selezionare se elaborare la 1,2 ecc.
Sub Main()
Dim numeri(10)
Dim ruote(10)
Dim poste(5)
ruote(1) = BA_
'ruote(2)=CA_
poste(1) = 10
'poste(2)=10
For n = EstrazioneIni To EstrazioneFin
If IndiceMensile = 1 Then
valore = Fuori90(Estratto(n - 1,BA_,2) + Estratto(n - 1,CA_,1))
Select Case valore
Case 4,6,15,26,27,29,31,32,40,44,48,49,59,76,77
'in questo caso non fa nulla.
Case Else
a = Fuori90(16 + valore)
b = Fuori90(60 + valore)
numeri(1) = a
numeri(2) = b
ImpostaGiocata 1,numeri,ruote,poste,18,1
End Select
Gioca n
ResettaGiocate
End If
Next
ScriviResoconto 1
End Sub

 

[Cinzia27]

Ciao, Solare. Eccolo con la modifica. Puoi scegliere l' indice e la quantità di estrazioni da esaminare

Sub Main()
Dim numeri(10)
Dim ruote(10)
Dim poste(5)
ruote(1) = BA_
'ruote(2)=CA_
poste(1) = 10
'poste(2)=10
ex=CInt(InputBox(" Indice estrazione ",,1))
If ex="" Then Exit Sub
exx=CInt(InputBox(" Quante estrazioni vuoi esaminare ? Ultime ",,100))
If exx="" Then Exit sub
For n = EstrazioneFin-exx To EstrazioneFin
If Indicemensile = ex Then
valore = Fuori90(Estratto(n - 1,BA_,2) + Estratto(n - 1,CA_,1))
Select Case valore
Case 4,6,15,26,27,29,31,32,40,44,48,49,59,76,77
'in questo caso non fa nulla.
Case Else
a = Fuori90(16 + valore)
b = Fuori90(60 + valore)
numeri(1) = a
numeri(2) = b
ImpostaGiocata 1,numeri,ruote,poste,18,1
End Select
Gioca n
ResettaGiocate
End If
Next
ScriviResoconto 1
End Sub

 

[solare]

Ciao Cinzia, grazie infinite...!!!!

 

[Cinzia27]

Se poi vuoi l' ultima ( che non si sa mai quella che è), al primo listato al posto di
If IndiceMensile = 1 Then
metti
If Indicemensile(n+1) = 1 Then

 

[solare]

Ok
Gentilissima come sempre..!

 

[joe]

Spaziometria è in grado di calcolare,

con buona precisione, quale sia l'ultima estrazione mensile.

La vecchia tecnica del "+1" funziona quando

la prima estrazione del nuovo mese è già stata effettuata.

Dunque quando si è all'ultima del mese, non funziona, quando dovrebbe.

Option Explicit
Sub Main
   Dim Ini,Fin,Es
   Ini = EstrazioneFin - 200 : Fin = EstrazioneFin
   For Es = Ini To Fin
      If IsUltimaDelMese(Es) Then Scrivi DataEstrazione(Es)
   Next
End Sub

 

[Cinzia27]

Per far rispondere Joe devo rispondere prima io

 

[Cinzia27]

Joe, ho provato con Spaziometria la "vecchia tecnica", portando l' archivio al 31/7

Option Explicit
Sub Main
Dim Ini,Fin,Es
Ini = EstrazioneFin - 200 : Fin = EstrazioneFin
Scrivi " Estr. fin "&DataEstrazione(Fin)&" "&Fin
Scrivi
For Es = Ini To Fin
If IndiceMensile(Es+1)=1 Then Scrivi DataEstrazione(Es)
Next
End Sub


Estr. fin 31.07.2021 9958

21.03.2020
30.05.2020
30.06.2020
30.07.2020
29.08.2020
29.09.2020
31.10.2020
28.11.2020
31.12.2020
30.01.2021
27.02.2021
30.03.2021
29.04.2021
29.05.2021
29.06.2021
31.07.2021

Mi sembra invece che funzioni.

 

[joe]

Ciao Cinzia,

No ...

... è che se vedo promuovere un sommativo mi salgono i fumi.

Dunque, normalmente, preferisco tacermi.

Però è alla coincidenza del fatto che, molti anni fa,

si è deciso con Luigi di fare ciò che sembrava impossibile.

Cioè far decidere allo script se ... una prossima estrazione ...

si sarebbe dovuto farla appartenere, al mese dopo.

Dunque, mi è sembrato giusto ricordare questo fatto, in questo contesto,

superando la ritrosia che mi è normale a queste risposte.

Nello specifico in genere un metodo all'ultima del mese

ci si aspetta che formuli il pronostico all'ultima del mese.

Se c'è l'estrazione del mese successivo si è pesrsa la giocata.

Se non c'è l'estrazione 1 non c'è il "+1= 1"

Dunque dovresti aspettare l'ultima di questo mese.

Oppure troncare l'archivio togliendo tutte le estrazioni di agosto

a queste condizioni potrai riscontrare la differenza tra le due soluzioni.

 

[Cinzia27]

So che non sei molto propenso ai metodi, come del resto anch' io.
Ma tornando alla tecnica, ho impostato la fine dell' archivio al 31/7, questa estrazione è riconosciuta,
quindi dovrebbe dare il pronostico ancor prima che sopraggiunga l' estrazione n. 1 del mese successivo.
Di più non saprei. Possiamo aspettare il' ultima di questo mese che è martedì 31 e provare.

 

[joe]

Si è vero che adesso funziona.

Ma quando sarà l'ultima d l mese non funzionerà.

Giustissimo provare.

 

[Cinzia27]

Sicuramente sarà così ma chi lo hai insegnato è un grande, allora forse era il solo escamotoge.

 

[farfalla2]

IO HO TOLTO ALCUNE COSE E....MI VIENE COSI'.... BELLO PER AMBATA ..BARI

Sub Main()
Dim numeri(10)
Dim ruote(10)
Dim poste(5)
ruote(1) = BA_
'ruote(2)=CA_
poste(1) = 10
'poste(2)=10
ex=CInt(InputBox(" Indice estrazione ",,1))
If ex="" Then Exit Sub
exx=CInt(InputBox(" Quante estrazioni vuoi esaminare ? Ultime ",,100))
If exx="" Then Exit Sub
For n = EstrazioneFin-exx To EstrazioneFin

valore = Fuori90(Estratto(n - 1,BA_,2) + Estratto(n - 1,CA_,1))
Select Case valore
Case 4,6,15,26,27,29,31,32,40,44,48,49,59,76,77
'in questo caso non fa nulla.
Case Else
a = Fuori90(16 + valore)
b = Fuori90(60 + valore)
numeri(1) = a
numeri(2) = b
ImpostaGiocata 1,numeri,ruote,poste,18,1
End Select
Gioca n
ResettaGiocate

Next
ScriviResoconto 1
End Sub

 

[solare]

Non male, chissà che qualcuno non metta degli abbinamenti x ambo !