Ciao trader io ho un listato sugli ambi , non e' mio non sono capace di fare script , spero ti vada bene , altrimenti puoi chiedere a qualcuno di fartelo modificare per le tue esigenze , ciao .
ColoreTesto 1
Scrivi "=================METODO DA AMBO RIPETUTO DI OSVALDO1.================",1
Scrivi
Scrivi String(28,32) & "Listato da Pescespada37",1
ColoreTesto 0
Sub Main()
Dim num(5)
Dim nu1(4)
Dim nu2(4)
Dim nu3(4)
Dim nu4(4)
Dim ruote(10),ruotee(10)
Dim posta(2),poste(2)
posta(1) = 11
poste(2) = 1
Dim post(4)
post(2) = 1.5
post(3) = 0.5
tmp = InputBox("Quante estrazioni controllo?",,6)
fin = EstrazioneFin
ini = fin - tmp
t = 0
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
k = 3
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,q)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For pp = 1 To 4
For qq = pp + 1 To 5
c = Estratto(es,r1,pp)
d = Estratto(es,r1,qq)
If(c = a And d = b) Or(c = b And d = a) Then
b1 = Fuori90(c + d)
a1 = Diametrale(b1)
b2 = Abs(d - c)
a2 = Diametrale(b2)
a3 = Vert(a2)
t = t + 1
Scrivi
ColoreTesto 2
Scrivi "============================================================" & "Giocata n° " & Format2(t),2
ColoreTesto 0
Scrivi" - - - - - - - - - - - - - - - - - " & DataEstrazione(es) & " - - - - - - - - - - - - - - ",True
Scrivi" " & Left(NomeRuota(r),3) & " " & " " & StringaEstratti(es,r) & " - - - > " & Format2(a) & " - " & Format2(b)
Scrivi" " & Left(NomeRuota(r1),3) & " " & " " & StringaEstratti(es,r1) & " - - - > " & Format2(c) & " - " & Format2(d)
ruote(1) = r
ruote(2) = r1
ruotee(1) = r
ruotee(2) = r1
ruotee(3) = 11
nu1(1) = a1
EliminaRipetuti nu1
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a1
nu2(2) = a2
EliminaRipetuti nu2
ImpostaGiocata 2,nu2,ruote,poste,k
nu2(1) = a1
nu2(2) = a3
EliminaRipetuti nu2
ImpostaGiocata 3,nu2,ruote,poste,k
nu3(1) = a1
nu3(2) = a2
nu3(3) = a3
EliminaRipetuti nu3
ImpostaGiocata 4,nu3,ruotee,post,k
Gioca es
Scrivi"========================================="
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "----------------------METODO DA AMBO RIPETUTO DI OSVALDO1.-----",1
Scrivi
Scrivi String(28,32) & "Listato da Pescespada37",1
End Sub