Option Explicit
Sub Main
'script by lotto_tom75 per raggruppare e analizzare i numeri estratti in una determinata posizione su TT le 'ruote. Interessante per generare gruppi base estremamente ridotti per ulteriori sviluppi x s2 e superiori su TT 'unite e separate.
Dim es
Dim Ruota
Dim esito
Dim colpi
Dim sorte
Dim alcolpo,estratti,idesuscita
Dim aruote(11)
Dim colpomassimo
colpomassimo = 0
Dim esitinegativientroicolpiimpostati
esitinegativientroicolpiimpostati = 0
Dim esitipositivientroicolpiimpostati
esitipositivientroicolpiimpostati = 0
Dim EstrazioneInizio
Dim quanteultimeestrazionianalizzare
Dim EstrazioneIniziooultimeestrazioni
Dim opzioneiuscelta
aruote(1) = BA_
aruote(2) = CA_
aruote(3) = FI_
aruote(4) = GE_
aruote(5) = MI_
aruote(6) = NA_
aruote(7) = PA_
aruote(8) = RO_
aruote(9) = TO_
aruote(10) = VE_
aruote(11) = NZ_
ReDim gu(12)
Dim Estrattoinposizionevoluta
Dim Posizionevoluta
Dim sortediverifica
Dim colpidiverifica
Posizionevoluta = CInt(InputBox("posizione voluta",,1))
sortediverifica = ScegliEsito(2,1,5)
colpidiverifica = CInt(InputBox("colpidiverifica",,16))
EstrazioneIniziooultimeestrazioni = InputBox("estrazione inizio (i) o ultime estrazioni (u)",,"i")
If EstrazioneIniziooultimeestrazioni = "i" Then
EstrazioneInizio = CInt(InputBox("estrazione inizio voluta",,8117))
opzioneiuscelta = EstrazioneInizio
Else
quanteultimeestrazionianalizzare = CInt(InputBox("quante ultime estrazioni analizzare ",,180))
opzioneiuscelta = EstrazioneFin - quanteultimeestrazionianalizzare
End If
For es = opzioneiuscelta To EstrazioneFin
For Ruota = 1 To 12
If Ruota = 11 Then
Ruota = 12
End If
Estrattoinposizionevoluta = Int(Estratto(es,Ruota,Posizionevoluta))
gu(Ruota) = Estrattoinposizionevoluta
'Scrivi StringaNumeri(gu)
If ScriptInterrotto Then Exit For
Next 'x ruota
Scrivi StringaNumeri(gu)
Call VerificaEsitoTurbo(gu,aruote,es + 1,sortediverifica,colpidiverifica,,esito,alcolpo,estratti,idesuscita)
If esito <> "" Or esito <> Null Then
Scrivi esito & " - al colpo numero " & alcolpo & " con estratti " & estratti & " nell'es num. " & idesuscita
esitipositivientroicolpiimpostati = esitipositivientroicolpiimpostati +1
If alcolpo > colpomassimo Then
colpomassimo = alcolpo
End If
Else
Scrivi "no",True,,,vbRed
esitinegativientroicolpiimpostati = esitinegativientroicolpiimpostati + 1
End If
Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,es)
If ScriptInterrotto Then Exit For
Next ' x es
Scrivi
Scrivi
If opzioneiuscelta = "i" Then
Scrivi "range temporale analizzato a partire dall'es num. " & EstrazioneInizio
Else
Scrivi "range temporale analizzato : le ultime " & quanteultimeestrazionianalizzare & " estrazioni"
End If
Scrivi "posizione di raccolta " & Posizionevoluta
Scrivi "colpo massimo " & colpomassimo
Scrivi "esiti positivi entro i colpi impostati " & esitipositivientroicolpiimpostati
Scrivi "esiti negativi entro i colpi impostati " & esitinegativientroicolpiimpostati
Scrivi
Scrivi "Nessuna Certezza Solo Poca Probabilità"
Scrivi
Scrivi TempoTrascorso
End Sub