Da uno script apparentemente mooolto interessante

Sub Main()
Dim idEstr
Dim Inizio
Dim Fine
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim Analisi
Dim ColpiDiGioco
Dim n(2)
Dim am(4)
posta(1) = 1
poste(2) = 1
Analisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"120"))
ColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"13"))
Inizio = EstrazioneFin - Analisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruote(1) = 1
ruote(2) = 12
a = Estratto(idEstr,1,1)
b = Estratto(idEstr,12,1)
c = Differenza(a,b)
n(1) = c
n(2) = Vert(n(1))
am(1) = n(1)
am(2) = n(2)
am(3) = Fuori90(a + b)
am(4) = Vert(am(3))
co = co + 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " -- " & SiglaRuota(12) & " - " & StringaEstratti(idEstr,12) & " ** " & " Previsione :  Ambate " & n(1) & " - " & n(2) & "  ***  X Ambo " & am(3) & " - " & am(4),1
Scrivi String(110,"°"),1
ImpostaGiocata 1,n,ruote,posta,ColpiDiGioco,1
ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2
Gioca idEstr,1,,1
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea by francesco57 listato by  Lanfranco60 "),1,3,0
ScriviResoconto
End Sub

Option Explicit
Sub Main

'queste righe dichiarano le variabili che sono richiamate nello script.

'SCRIPTuzzo di lotto_tom75 x inviduare tutti i parametri voluti per qualsiasi lunghetta e/o ruota separata!

Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot
'ReDim aRuote(1)


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)


ReDim aRuoteSel(12)
'RuoteSelezionate = ScegliRuote(aRuoteSel)




'tentativo di identificare la/e ruota/e selezionata/e






   'Dim RuoteSelezionate
   'Dim k
   ReDim aRuoteSel(12)
   RuoteSelezionate = ScegliRuote(aRuoteSel)
   
   Call Scrivi(" ---------------------------------------------------------------- ")
   Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
   Call Scrivi(" ---------------------------------------------------------------- ")


   For k = 1 To RuoteSelezionate
      Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
      
   Next










'----------fine dichiarazione variabili-------------------------------

'Call StatisticaFormazioneTurbo(aCol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)


'Assegno alla sorte ricercata il valore 3
nSorte = 2

'Assegno al valore k i possibili numeri da 1 a 90 e ci costruisco un array aNum
'For k = 1 To 90
'aNum(k) = k
'Next


'Assegno alla variabile classe il valore 5 ovvero chiedo di generare le cinquine
Classe = 2


'Con questa espressione chiedo la generazione effettiva di tutte le cinquine


ColTot = InitSviluppoIntegrale(aNum,Classe)


'Si chiede di sviluppare tutte le combinazioni
If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)


For k = 1 To RuoteSelezionate
      
      'Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
aRuoteTmp(1) = aRuoteSel(k)


'RetRit1 = RitardoCombinazioneTurbo(aRuoteTmp,aCol,nSorte,Fine)

'RetRit1 = StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)

'RetRit1 = RitardoCombinazioneTurbo (aRuoteTmp,aCol,nSorte,Fine)

Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Dim Diff
Diff = RetRitMax - RetRit1

'Se questi ritardi sono maggiori di 1830 estrazioni
'If RetFreq > 0 Then
'If RetIncrRitMax > 0 Then

'If(RetRit1 >= 0) Then

Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax

If(RetRit1 >= 0) Then' And RetIncrRitMax = 0) Then
'If(RetRit1 >= 0 And Diff < 10 And RetIncrRitMax = 0) Then

'Call Scrivi("---QUI CI ANDREBBE IL NOME DELLA RUOTA ANALIZZATA---")
'si scrive a video il numero di combinazione generata , la combinazione generata e il suo RA
'Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RUOTA: " & NomeRuota(aRuoteSel(k)))

Call Scrivi(StringaNumeri(aCol))

End If


'---Procedura analoga per la ruota di CA e FI
'fine procedura analoga per CA e FI


'Si genera una barra verde... che ci segnala dove siamo e quanto manca per il termine dell'elaborazione...


Call AvanzamentoElab(1,ColTot,i) 'QUESTO E' IL TENTATIVO PER LA PROGRESS BAR


'Si scrive insieme alla barra il numero di colonna in fase di elaborazione...
Call Messaggio("Colonna " & i)
'Se si preme lo "STOP" del bottone apposito durante l'esecuzione dello script questo s'interrompe.
If ScriptInterrotto Then Exit Do
Next
Loop
End If
End Sub

Option Explicit
Sub Main


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot,aRetcol
Dim valoreInizioelaborazione,valorefineelaborazione

Dim aRuoteTmp


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
ReDim aRuoteSel(12)


'ReDim aRuoteSel(12)
'RuoteSelezionate = ScegliRuote(aRuoteSel)


Call Scrivi(" ---------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
Call Scrivi(" ---------------------------------------------------------------- ")




'For k = 1 To RuoteSelezionate


'Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))


'Next




valoreInizioelaborazione = 1
valorefineelaborazione = 10000
Classe = 2


'GetColonnaCasuale(Classe,aRetcol,aNum)


'ReDim aRuoteTmp(1)


ReDim aRuote(2)


aRuote(1) = BA_
aRuote(2) = CA_


'aRuote(11) = NZ_


'For k = 1 To RuoteSelezionate


'aRuoteTmp(2) = aRuote(2)



'Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & ))




For i = valoreInizioelaborazione To valorefineelaborazione

Call GetColonnaCasuale(Classe,aRetcol,aNum)

Call StatisticaFormazioneTurbo(aRetcol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

'Call Scrivi(StringaNumeri(aRetcol,,True))

'sorte = 1

Call AvanzamentoElab(1,valorefineelaborazione,i)


Call Messaggio("Colonna " & i)

nSorte = 2

'Call StatisticaFormazioneSE(aRetcol,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)


Dim Diff
Diff = RetRitMax - RetRit1

'If(RetRit1 >= 0 And Diff = 0 And RetIncrRitMax = 0) Then

'If(RetRit1 >= 0 And Diff < 2 And RetIncrRitMax = 0) Then

'RA > 5 RA < 10 INCMAX = 0 FRQ > 75 FRQ < 80

If(RetRit1 > 0) Then

Call Scrivi("Ruota: " & "ruote decise" & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)

End If





'Dim Diff
'Diff = RetRitMax - RetRit1


'If(RetRit1 >= 0) Then


'Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " DIFF " & Diff)


'End If




If ScriptInterrotto Then Exit For

Next

'Next


'Loop


End Sub