R
Roby
Guest
Salve a tutti
Lo script sottostante non è un metodo da giocare, ma solo un mezzo di ricerca da sviluppare ulteriormente.
A dispetto di quello che potrebbe sembrare, non è un sommativo, perlomeno non da intendersi con numeri fissi scelti di volta in volta.
Esegue dei calcoli, ma utilizza come base solo i 5 numeri estratti dove la condizione spia si verifica.
Ricava dai 10 ai 11 numeri per ambo, terno, quaterna, cinquina per tutte le ruote.
Il problema :
Facendo girare lo script, si possono avere i risultati per vedere tutti i casi, solo premendo ripetutamente su ok,
quando appare innumerevoli volte la finestrella "out of range", bisogna cliccare ad oltranza
fino alla fine dello scorrimento della barra verde.
Questo perche quando (certe volte) capita che i numeri sono più di 10, lo script va in errore perchè ne puo elaborare in gioco solo 10.
Aiuto!
Non sono capace di inserire la function Verifica esito in modo efficace.
Lo script sottostante non è un metodo da giocare, ma solo un mezzo di ricerca da sviluppare ulteriormente.
A dispetto di quello che potrebbe sembrare, non è un sommativo, perlomeno non da intendersi con numeri fissi scelti di volta in volta.
Esegue dei calcoli, ma utilizza come base solo i 5 numeri estratti dove la condizione spia si verifica.
Ricava dai 10 ai 11 numeri per ambo, terno, quaterna, cinquina per tutte le ruote.
Il problema :
Facendo girare lo script, si possono avere i risultati per vedere tutti i casi, solo premendo ripetutamente su ok,
quando appare innumerevoli volte la finestrella "out of range", bisogna cliccare ad oltranza
fino alla fine dello scorrimento della barra verde.
Questo perche quando (certe volte) capita che i numeri sono più di 10, lo script va in errore perchè ne puo elaborare in gioco solo 10.
Aiuto!
Non sono capace di inserire la function Verifica esito in modo efficace.
Codice:
Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,ok,x
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim am(20)
Dim nu1(4)
Dim nu2(4)
Dim nu3(4)
Dim nu4(4)
Dim nu5(4)
Dim na(20)
Dim a,b,c,d,e,co
poste(2) = 1
poste(3) = 1
poste(4) = 1
x = CInt(InputBox(" Scegli Spia Base ",,"1"))
'r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
r1 = 11
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"6"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
For r0 = 1 To 10
ruota(1) = r0
ruote(1) = r1
ok = 0
a = Estratto(es,r0,1)
b = Estratto(es,r0,2)
c = Estratto(es,r0,3)
d = Estratto(es,r0,4)
e = Estratto(es,r0,5)
If a = x Then
am(1) = Fuori90(a + b)
am(2) = Fuori90(a + c)
am(3) = Fuori90(a + d)
am(4) = Fuori90(a + e)
am(5) = Fuori90(b + a)
am(6) = Fuori90(b + c)
am(7) = Fuori90(b + d)
am(8) = Fuori90(b + e)
am(9) = Fuori90(c + a)
am(10) = Fuori90(c + b)
am(11) = Fuori90(c + d)
am(12) = Fuori90(c + e)
am(13) = Fuori90(d + a)
am(14) = Fuori90(d + b)
am(15) = Fuori90(d + c)
am(16) = Fuori90(d + e)
am(17) = Fuori90(e + a)
am(18) = Fuori90(e + b)
am(19) = Fuori90(e + c)
am(20) = Fuori90(e + d)
ok = 1
End If
If b = x Then
am(1) = Fuori90(b + a)
am(2) = Fuori90(b + c)
am(3) = Fuori90(b + d)
am(4) = Fuori90(b + e)
am(5) = Fuori90(a + b)
am(6) = Fuori90(a + c)
am(7) = Fuori90(a + d)
am(8) = Fuori90(a + e)
am(9) = Fuori90(c + a)
am(10) = Fuori90(c + b)
am(11) = Fuori90(c + d)
am(12) = Fuori90(c + e)
am(13) = Fuori90(d + a)
am(14) = Fuori90(d + b)
am(15) = Fuori90(d + c)
am(16) = Fuori90(d + e)
am(17) = Fuori90(e + a)
am(18) = Fuori90(e + b)
am(19) = Fuori90(e + c)
am(20) = Fuori90(e + d)
ok = 1
End If
If c = x Then
am(1) = Fuori90(c + a)
am(2) = Fuori90(c + b)
am(3) = Fuori90(c + d)
am(4) = Fuori90(c + e)
am(5) = Fuori90(a + b)
am(6) = Fuori90(a + c)
am(7) = Fuori90(a + d)
am(8) = Fuori90(a + e)
am(9) = Fuori90(b + a)
am(10) = Fuori90(b + c)
am(11) = Fuori90(b + d)
am(12) = Fuori90(b + e)
am(13) = Fuori90(d + a)
am(14) = Fuori90(d + b)
am(15) = Fuori90(d + c)
am(16) = Fuori90(d + e)
am(17) = Fuori90(e + a)
am(18) = Fuori90(e + b)
am(19) = Fuori90(e + c)
am(20) = Fuori90(e + d)
ok = 1
End If
If d = x Then
am(1) = Fuori90(d + a)
am(2) = Fuori90(d + b)
am(3) = Fuori90(d + c)
am(4) = Fuori90(d + e)
am(5) = Fuori90(a + b)
am(6) = Fuori90(a + c)
am(7) = Fuori90(a + d)
am(8) = Fuori90(a + e)
am(9) = Fuori90(b + a)
am(10) = Fuori90(b + c)
am(11) = Fuori90(b + d)
am(12) = Fuori90(b + e)
am(13) = Fuori90(c + a)
am(14) = Fuori90(c + b)
am(15) = Fuori90(c + d)
am(16) = Fuori90(c + e)
am(17) = Fuori90(e + a)
am(18) = Fuori90(e + b)
am(19) = Fuori90(e + c)
am(20) = Fuori90(e + d)
ok = 1
End If
If e = x Then
am(1) = Fuori90(e + a)
am(2) = Fuori90(e + b)
am(3) = Fuori90(e + c)
am(4) = Fuori90(e + d)
am(5) = Fuori90(a + b)
am(6) = Fuori90(a + c)
am(7) = Fuori90(a + d)
am(8) = Fuori90(a + e)
am(9) = Fuori90(b + a)
am(10) = Fuori90(b + c)
am(11) = Fuori90(b + d)
am(12) = Fuori90(b + e)
am(13) = Fuori90(c + a)
am(14) = Fuori90(c + b)
am(15) = Fuori90(c + d)
am(16) = Fuori90(c + e)
am(17) = Fuori90(d + a)
am(18) = Fuori90(d + b)
am(19) = Fuori90(d + c)
am(20) = Fuori90(d + d)
ok = 1
End If
If ok = 1 Then
nu1(1) = am(1)
nu1(2) = am(2)
nu1(3) = am(3)
nu1(4) = am(4)
nu2(1) = am(5)
nu2(2) = am(6)
nu2(3) = am(7)
nu2(4) = am(8)
nu3(1) = am(9)
nu3(2) = am(10)
nu3(3) = am(11)
nu3(4) = am(12)
nu4(1) = am(13)
nu4(2) = am(14)
nu4(3) = am(15)
nu4(4) = am(16)
nu5(1) = am(17)
nu5(2) = am(18)
nu5(3) = am(19)
nu5(4) = am(20)
na(1) = nu1(1)
na(2) = nu1(2)
na(3) = nu1(3)
na(4) = nu1(4)
na(5) = nu2(1)
na(6) = nu2(2)
na(7) = nu2(3)
na(8) = nu2(4)
na(9) = nu3(1)
na(10) = nu3(2)
na(11) = nu3(3)
na(12) = nu3(4)
na(13) = nu4(1)
na(14) = nu4(2)
na(15) = nu4(3)
na(16) = nu4(4)
na(17) = nu5(1)
na(18) = nu5(2)
na(19) = nu5(3)
na(20) = nu5(4)
EliminaRipetuti na
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Spia " & x,1,,,1
'...................
' VERIFICA ESITO ?
'...................
ImpostaGiocata 1,na,ruote,poste,Clp',2
Gioca es,True,,1
If ScriptInterrotto Then Exit For
End If
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" D A U N I D E A D I C E R B E R U S "),1,3,0
ScriviResoconto,False
End Sub
