Option Explicit
' Non si garantisce che lo script dia risultati esatti
' lo script è regalato cosi com è spetta all utilizzatore finale fare le verifiche
' l utilizatore fibnale è l unico rsponsabile del suo utilizzo'
'https://forum.lottoced.com/threads/richiesta-per-salvo50-o-chi-vuole.2206986/'
' Script richiesto da utente solare LottoCed'
' lo script è stato modificato piu volte per aggiunte richieste controllare ulteriormente se i dati delle nuove richieste sono esatte '
Sub Main
Dim aN(1),N,idEstr,aR(1),i,col
Dim Fin:Fin = EstrazioneFin
aR(1) = GetRuote
Scrivi "Ruota: " & NomeRuota(aR(1))
Scrivi "IdEstr| Num|RitC.|IdEstr-1| Cinquina1 |IdEstr-2| Cinquina2 |IdEstr-3| Cinquina3 |",1,,RGB(240,240,240)
For N = 1 To 90
aN(1) = N
idEstr = SerieUltima(1,Fin,aN,aR,1)
Scrivi idEstr & " | " & Format2(N) & " | " & FormatSpace(Fin - idEstr,3) & " | ",,0
For i = 1 To 3
ReDim aE(0): Call GetArrayNumeriRuota(idEstr - i,aR(1),aE)
col = 0: If SerieRitardoTurbo(1,Fin,aE,aR,1) = 0 Then col = 2
Scrivi idEstr - i & " | " & StringaEstratti(idEstr - i,aR(1)),,0,,col
Scrivi " | ",,0
Next
Scrivi
Next
End Sub
Function GetRuote
Dim r,c
r = 11
Do While r = 11
r = ScegliRuota
If r = 11 Then c = c + 1:Call MsgBox("La ruota Tutte non è Valida" & vbCrLf & "Seleziona Un altra Ruota" & vbCrLf & "Restano " &(3 - c) & " tentativi",vbOKOnly," Informazione")
If c > 2 Then r = 1: Exit Do
Loop
GetRuote = r
End Function
