BaffoBlù
Advanced Member >PLATINUM<
***************************************************
Grazie
Accidenti, interessante soluzione, non ci avrei mai pensato, me la conservo (sul serio)
Mi può essere utilissima, Grazie ancora.
Se è possibile avrei una richiesta da farti.
Il motivo è che mi son ricordato di una cosa (non ho tutte le mie cose con me)
Poi metti che ho anche la memoria labile e non vorrei perderla...
Uno script per una condizione di un metodo (di cui non ricordo bene lo sviluppo)
Cercare in una ruota un ambo costituito da un elemento il doppio dell'altro
Esempio reale :
09/05/2924 - Bari - 28.56
28 * 2 = 56
il 56 è il doppio del 28.
(Ci siamo)
Per completare la condizione dobbiamo ricercare e rilevare nella stessa estrazione
e in un altra ruota, il Numero che costituisce la Somma dell'Ambo.
In questo caso troviamo a Venezia il numero 84
Infatti 28 + 56 = 84
A questo punto ho grosse lacune, non ricordo se le ambate principali capogioco
erano proprio il numero 84 e il suo vertibile 48 su Ba e Ve.
se è così, il 48 si è bruciato a Ve 1°colpo.
---------------------------------------------------------
Se provi a fare lo script per favore,
così vediamo quante condizioni si trovano tanto per iniziare..
Grazie infinite
ho fatto lo script del metodo mettendo due ambate fittizie..
Ma non è quello che cerco
Codice:
Option Explicit
Sub Main()
Dim ruote(10)
Dim numeri1(2)
Dim posta(10)
Dim s1,s2,s3,k,co,ok,es,r,p1,p2,a,b,r1,p3,c,Ini,fin
posta(1) = 1
k = 9
co = 0
ok = 0
Ini = 10400
fin = EstrazioneFin
For es = Ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
If(a / 2) = b Or(b / 2) = a Then
For r1 = 1 To 10
For p3 = 1 To 5
c = Estratto(es,r1,p3)
If(r <> r1 And(c = Fuori90(a + b))) Then
ok = 1
If ok = 1 Then
co = co + 1
Scrivi String(60,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi "" & DataEstrazione(es) & ""
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
ColoreTesto 0
Scrivi "-------------------------------------------------------- ",1
ruote(1) = r
ruote(2) = r1
numeri1(1) = 90
numeri1(2) = 45
ImpostaGiocata 1,numeri1,ruote,posta,k
End If
Gioca es,1,,1
If ScriptInterrotto Then Exit For
End If
Next
Next
End If
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End Sub