Inserita la "ricerca mensile", opzione da scegliere tra le 13 possibili.
Cordialità
----------------------------
Scrivi ColoreTesto (1) & Chr(10) & Space (11) & "Mavit per Superlotto sez. Listati e Script" & _
Chr(10) & Space (5) & "titolo: metodo per ambata e ambo secco unico una ruota" & _
Chr(10) & Chr(10) & String (66,"•") ,1
Scrivi ColoreTesto (0) & "Nota: approfondimenti:
https://superlotto.blogfree.net/?t=4814885" & _
Chr(10) & Chr(10) & Space (6) & "Raccomandazione di rito: giocare moderatamente." & _
Chr(10) & String (66,"•") & Chr(10)
Sub main()
Dim nr(10)
Dim ruote(10)
Dim posta (5)
Dim n
fin = CInt (InputBox ("ultima estrazione da veriicare...","max",EstrazioneFin))
ini = CInt (InputBox ("estrazioni pregresse...","max",50))
k = CInt (InputBox ("colpi di gioco...","max",10))
w = CInt (InputBox ("indice mensile (1...13)","max",1))
If w < 1 Or w > 13 Then
MsgBox ("ATTENZIONE!!!" & Chr(10) & Chr(10) &_
"Digitato valore non compreso nel range prestabilito." & Chr(10) & Chr(10) & Space (22) & "Corretto con il valore 1.")
w = 1
End If
posta(1) = 1
posta(2) = 1
ruote(1) = 1
For n = fin - ini +1 To fin
If IndiceMensile (n) = w Then
nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))
ImpostaGiocata 1,nr,ruote,posta,k
Gioca n
End If
Next
ScriviResoconto
End Sub