x Rosce14. Ho fatto lo script,potresti verificarne l' output ,grazie.
Sub Main()
Scrivi:Scrivi String(40," ") & " Metodo di Rosce14 script by Sospetto",1
Scrivi
Dim ruote(10)
Dim amba1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim lg(4)
Dim poste(2)
Dim posta(3)
poste(1) = 1
posta(2) = 1
inizio = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA :",,8495)
k = InputBox("INSERISCI I COLPI DI GIOCO",,9)
ini = inizio
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
a =Figura(Estratto(es,r1,1)) : b =Figura(Estratto(es,r1,2))
c = Figura(Estratto(es,r1,3)) : d = Figura(Estratto(es,r1,4)): e = Figura(Estratto(es,r1,5))
k1=0
k2=0
k3=0
k4=0
If a=b Then
k1=k1+1
End If
If a=c Then
k1=k1+1
End If
If a=d Then
k1=k1+1
End If
If a=e Then
k1=k1+1
End If
If b=c Then
k2=k2+1
End If
If b=d Then
k2=k2+1
End If
If b=e Then
k2=k2+1
End If
If c=d Then
k3=k3+1
End If
If c=e Then
k3=k3+1
End If
If d=e Then
k4=k4+1
End If
dec=0
If Decina(Estratto(es,r1,1))=0 Then
dec=dec+1
End If
If Decina(Estratto(es,r1,2))=0 Then
dec=dec+1
End If
If Decina(Estratto(es,r1,3))=0 Then
dec=dec+1
End If
If Decina(Estratto(es,r1,4))=0 Then
dec=dec+1
End If
If Decina(Estratto(es,r1,5))=0 Then
dec=dec+1
End If
If dec = 0 Then
If k1+k2+k3+k4=2 Then
ColoreTesto 1
casi = casi + 1
Scrivi String(105,"*") & " Caso N° " & casi,1
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),10) & " " & StringaEstratti(es,r1) & " Figure "& a & " " & b & " " & c & " " & d & " " & e & ""
ruote(1) = r1
ColoreTesto 0
n1=0
If k1=1 And k2=1 Then
n1=a+b
End If
If k1=1 And k3=1 Then
n1= a+c
End If
If k1= 1 And k4=1 Then
n1= a+d
End If
n2= 0
If k2=1 And k3=1 Then
n2=b+c
End If
If k2=1 And k4=1 Then
n2=b+d
End If
abb1=0
If a+b=a*2 Or a+c=a*2 Or a+d=a*2 Or a+e=a*2 Then
abb1=a
End If
If b+c=b*2 Or b+d=b*2 Or b+e=b*2 Then
abb1 =b
End If
If c+d=c*2 Or c+e=c*2 Then
abb1=c
End If
If d+e=d*2 Then
abb1= d
End If
'------------------------------------------------------Giocate
amba1(1) = n1+n2
ImpostaGiocata 1,amba1,ruote,poste,k,1
'------------------------------------------------------
ambo2(1) = n1+n2
ambo2(2) = abb1
ImpostaGiocata 2,ambo2,ruote,posta,k,2
'------------------------------------------------------
abb2=(amba1(1))-abb1
ambo3(1) = n1+n2
ambo3(2) = abb2
ImpostaGiocata 3,ambo3,ruote,posta,k,2
'------------------------------------------------------
ambo4(1)=n1+n2
ambo4(2)=abb1-abb2
If abb2 > abb1 Then
ambo4(2)=abb2-abb1
End If
ImpostaGiocata 4,ambo4,ruote,posta,k,2
'--------------------------------------------------------
lg(1) = n1+n2
lg(2) =abb1
lg(3) =abb2
lg(4) =ambo4(2)
ImpostaGiocata 5,lg,ruote,posta,k,2
'-------------------------------------------------------
Gioca es
End If
End If
Next
Next
ScriviResoconto
End Sub