Script Senza Sorpresa

[fillotto]

Parafrasando BAFFO con il suo "Script con sorpresa" ecco lo script senza sorpresa aperto alle migliorie di chiunque:
Sulla falsariga dello script "Script con sorpresa" ho aggiunto la possibilità di cambiare a piacere l'ambo spia di cambiare a piacere la ruota e la possibilità di aggiungere gli adattatori ai tre numeri residui della cinquina contenente l'ambo spia.
In pratica l'ho reso + elastico e ottengo lo stesso risultato di Baffo moltiplicato per tutte le ruote che volete voi e per tutti gli ambi spia possibili, ovviamente si sceglieranno quegli ambi spia recenti per vedere i risultati..
MA c'è un MA le prove per raggiungere il risultato sono un po lunghe e per questo chiedo l'aiuto dei MAGNIFICI 5 (quelli delle variabili) che ho mantenuto accorciandoli a tre lettere potrete fare le prove impostando con i parametri di baffo
ambo spia 1 e 52 Ruota BA con i 3 adattatori 90 ,90,90 ovvero la ripetizione degli stessi , oppure quelli suggeriti script 27 e 50 con gli adattatori 5 10 e 13( anora in corso) e prenderete confidenza con lo script
Sub Main()
ColoreTesto 1
Scrivi "========= M E T O D O B Y F I L B A F =========",1
ColoreTesto 0
Scrivi "========RICERCA 3 AMBATE al 100x100 DOPO AMBO SPIA ==============",1
ColoreTesto 1
Scrivi "============Ambo spia a piacere, Ruota a Piacere =========================",1
Scrivi "=Con l'aiuto dell'output si cambiano i tre adattatori fino ad ottenere la copertura positiva di tutti i cicli =",1

'Esempio:Impostando ambo spia 27 e 50 Ruota 1(BA), adattatori 5-10-13 si coprono tutti i colpi !!
Scrivi
ColoreTesto 0
Dim ruota(1),ruote(1),ptt(10)
Dim n(3)
ptt(1) = 1 'è la puntata
amb1 = CInt(InputBox("inserisci il 1° num dell'ambo Spia...","primo",27))
amb2 = CInt(InputBox("inserisci il 2° num dell'ambo Spia...","secondo",50))
ruo = CInt( InputBox("inserisci la Ruota...",,1))
fil = CInt(InputBox("inserisci il 1° fuori90...","adattatore 1",5))
fil2 = CInt(InputBox("inserisci il 2° fuori90...","adattatore 2",10))
fil3 = CInt(InputBox("inserisci il 3°fuori90...","adattatore 3",13))

clp = 8
ini = EstrazioneIni
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = ruo
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,ruo,p)
b = Estratto(es,ruo,p1)
ok = 0
If a = amb2 And b = amb1 Or a = amb1 And b = amb2 Then 'Cambiare l'ambo a piacere
lui = Estratto(es,ruo,1)
cla = Estratto(es,ruo,2)
ele = Estratto(es,ruo,3)
bla = Estratto(es,ruo,4)
djn = Estratto(es,ruo,5)
If lui = amb2 And cla = amb1 Or lui = amb1 And cla = amb2 Then
n(1) = Fuori90(ele + fil)
n(2) = Fuori90(bla + fil2)
n(3) = Fuori90(djn + fil3)
ok = 1
End If
If lui = amb2 And ele = amb1 Or lui = amb1 And ele = amb2 Then
n(1) = Fuori90(cla + fil)
n(2) = Fuori90(bla + fil2)
n(3) = Fuori90(djn + fil3)

ok = 1
End If
If lui = amb2 And bla = amb1 Or lui = amb1 And bla = amb2 Then
n(1) = Fuori90(cla + fil)
n(2) = Fuori90(ele + fil2)
n(3) = Fuori90(djn + fil3)


ok = 1
End If
If lui = amb2 And djn = amb1 Or lui = amb1 And djn = amb2 Then
n(1) = Fuori90(cla + fil)
n(2) = Fuori90(ele + fil2)
n(3) = Fuori90(bla + fil3)
ok = 1
End If
If cla = amb2 And ele = amb1 Or cla = amb1 And ele = amb2 Then
n(1) = Fuori90(lui + fil)
n(2) = Fuori90(bla + fil2)
n(3) = Fuori90(djn + fil3)


ok = 1
End If
If cla = amb2 And bla = amb1 Or cla = amb1 And bla = amb2 Then
n(1) = Fuori90(lui + fil)
n(2) = Fuori90(ele + fil2)
n(3) = Fuori90(djn + fil3)


ok = 1
End If
If cla = amb2 And djn = amb1 Or cla = amb1 And djn = amb2 Then
n(1) = Fuori90(lui + fil)
n(2) = Fuori90(ele + fil2)
n(3) = Fuori90(bla + fil3)
o

 

[joi_lotto]

.

 

[Baffoblu]

[8D][8D][8D]