x maxma62

[Roby]

Ciao, scusa se ti disturbo, ho seguito il consiglio che mi ai dato sullo script postato da Ramco, ma uno non mi da le due giocate come nel tuo esempio e due i risultati singoli sono differenti.

Es.:=================================================================
mar 04.03.2008 [ Ge 58.88.59.64.42 ] [ 58.59 ] [ somma 27 ]
mar 04.03.2008 [ Ro 64.53.33.23.72 ] [ 72 ]
----------------------------------------------------- caso n° 90
mar 04.03.2008 [7877]
G 1: ATQC 55.59.14.10.01 Ge Ro 8/14
A 59.10.14 su Ro 7° colpo [7884/20.03.2008]
T 59.10.14 su Ro 7° colpo [7884/20.03.2008]
in corso (8° su 14)
G 2: ATQC 73.59.14.10.01 Ge Ro 8/14
A 59.10.14.73 su Ro 7° colpo [7884/20.03.2008]
T 59.10.14.73 su Ro 7° colpo [7884/20.03.2008]
Q 59.10.14.73 su Ro 7° colpo [7884/20.03.2008]
in corso (8° su 14)
=================================================================
gio 06.03.2008 [ Ge 39.56.57.07.12 ] [ 56.57 ] [ somma 23 ]
gio 06.03.2008 [ Mi 61.47.32.46.44 ] [ 32 ]
----------------------------------------------------- caso n° 91
gio 06.03.2008 [7878]
G 1: ATQC 65.56.11.20.02 Ge Mi 7/14
A 65.56 su Mi 6° colpo [7884/20.03.2008]
in corso (7° su 14)
G 2: ATQC 33.56.11.20.02 Ge Mi 7/14
in corso (7° su 14)
=================================================================

Mi potresti postare lo script completo.

Se vuoi puoi postarlo al mio indirizzo personale: michele_mininno@VIOLAZIONE: scambio email non consentito !.it

grazie Miki.

 

[maxma62]

Non so se è questo:

Sub main()
Dim ruote(1),ruota(2)
Dim posta(2),poste(5),num1(5)
poste(2)=3:poste(3)=1.2:poste(4)=0.6:poste(5)=0.2:casi=0
ini=EstrazioneFin -180
fin=EstrazioneFin
For es=ini To EstrazioneFin 
Messaggio es
For r1 = 1 To 12 
If r1<>11 Then 
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
If Distanza(n1,n2)=1 Then 
For r2 = 1 To 12 
If r2<>11 Then 
If r1<>r2 Then 
For p3=1 To 5
n3=Estratto(es,r2,p3)
n4=Fuori90(n1+n2)
If n4=Vert(n3) Then 'vert
'If n4=n3 Then 'uguale
'------------------------------------
n5=Fuori90(n3+1) 
n6=Fuori90(n3+n5)  '1^
n7=Vert(n6)        '2^ 
n8=Diametrale(n7)  '3^ 
n9=Diametrale(n6)  '4^
n10=Vert(n9)       '5^ 
'------------------------------------
ruota(1)=r1:ruota(2)=r2:k=14
casi=casi+1 : Scrivi String(65,"=")
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1) &" "&StringaEstratti(es,r1)&_
" ] [ "&Format2(n1)&"."&Format2(n2)&" ] [ somma "&(n4)&" ]"
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" "&StringaEstratti(es,r2)&_
" ] [ "&Format2(n3)&" ]"
Scrivi String(53,"-")&" caso n° "&casi
num1(1)=n6
num1(2)=n7
num1(3)=n8
num1(4)=n9
num1(5)=n10
ImpostaGiocata 1,num1,ruota,poste,k
num1(1)=n5
num1(2)=n7
num1(3)=n8
num1(4)=n9
num1(5)=n10
ImpostaGiocata 2,num1,ruota,poste,k
Gioca es
End If
Next
End If
End If
Next
End If
Next:next
End If
Next:Next 
ScriviResoconto 
End Sub

max