| Ciao a Tutti!
Se volete che lo script elabori fino all'ultima estrazione, alla terza domanda QUANTE ESTRAZIONI VUOI CONTROLLARE, mettete un numero alto, ad esempio 2000 oppure chi riesce a modificare un pochino dentro lo script, alla riga
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,8))
al posto dell'8, mettete FIN, oppure un numero alto, dopo questa piccola modifica dentro lo script, non dovete tutte le volte che lanciate lo script mettere un numero alto
Per chi volesse vedere tutte le ruote, posto un altro script, ho gią messo FIN, ed ho aumentato i colpi di gioco, ma questi parametri voi potete modificarli come volete, senza modificare lo script.
Anche questo gira in Spaziometria.
'Progetto - IL COEFFICIENTE MEDIO INTEGRATORE - by FABARRI
'Script - by Aretuseo
'Per tutte le ruote
Option Explicit
Sub Main
TestoInBandaPassante "***** Progetto IL COEFFICIENTE MEDIO INTEGRATORE by Fabarri, script by Aretuseo ****** ",1,5,0
Dim r1,p,pp,es,r2,estr1,estr2,clp,esq
Dim fin,Ini,ru(1),poste(2)
Dim amb(2),amb2(2),idestr,ruota,col,esqcol
'poste(1) = 1
poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9400)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,13)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,fin))
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
AvanzamentoElab esq,esqcol,es
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
ru(1) = r1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
For p = 1 To 4
For pp = p + 1 To 5
estr1 = Format2(Estratto(es,r1,p))
estr2 = Format2(Estratto(es,r1,pp))
If estr1 > 30 Then
If estr2 < 61 And estr2 < estr1 Then
amb(1) = 121 - estr1
amb(2) = 61 - estr2
ImpostaGiocata 1,amb,ru,poste,clp
End If
End If
If estr2 > 30 Then
If estr1 < 61 And estr1 < estr2 Then
amb2(1) = 121 - estr2
amb2(2) = 61 - estr1
ImpostaGiocata 2,amb2,ru,poste,clp
End If
End If
Gioca es
Next
Next
Next
Next
ScriviResoconto
End Sub
Edited by aretuseo - 22/1/2018, 13:30
|
