Script da modificare...

[ananda]

Questo script rintraccia due ambate isotope su ruote unite, ma non riesco a fargli vedere e giocare la condizione in cui le ambate siano a VE e NAZ. Il rigo arancione dice che le ruote devono essere unite, ma la Nazionale, essendo la ruota 12 (11 è TUTTE), non lo vede mai. Come si fa a dire che va bene anche quando le ambate isotope sono a VE e NAZ?
Grazie

Qualcuno saprebbe modificare lo script perchè considerasse anche la ruota NAZIONALE?

Sub main()
scrivi:Scrivi String(40," ")& " 2 numeri isotopi ruote consecutive",1
Scrivi
Dim ruote(10)
Dim ambo1(6)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim poste(2)
poste(2)=1
inizio=InputBox ("INSERISCI L'ESTRAZIONE DI PARTENZA :",,10100)
k=InputBox ("INSERISCI I COLPI DI GIOCO",,12)
ini=inizio
fin=EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 12
For r2=r1+1 To 11
If r1=10 Then r2=12
For p=1 To 4
For p1 = p+1 To 5
a=Estratto(es,r1,p)
b=Estratto(es,r2,p)
If a=b And r2=r1+1 Then
casi=casi+1
Scrivi String(105,"*")& " Caso N° " & casi,1
Scrivi DataEstrazione(es)&" "& FormatSpace(NomeRuota(r1),10)& " " & StringaEstratti(es,r1)&" "& Format2(a)
Scrivi DataEstrazione(es)&" "& FormatSpace(NomeRuota(r2),10)& " " & StringaEstratti(es,r2)&" "& Format2(b)
ruote(1)=r1 : ruote(2)=r2 ': ruote(3) = 11

ambo1(1)= a
ambo1(2)= Vert(a)
ambo1(3)=45
ambo1(4)=54
ImpostaGiocata 1,ambo1,ruote,poste,k,2
Gioca es

End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[Cinzia27]

Ciao, Ananda.
Guarda se va bene.

Sub main()
scrivi:Scrivi String(40," ")& " 2 numeri isotopi ruote consecutive",1
Scrivi
Dim ruote(10)
Dim ambo1(6)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim poste(2)
poste(2)=1
inizio=InputBox ("INSERISCI L'ESTRAZIONE DI PARTENZA :",,10100)
k=InputBox ("INSERISCI I COLPI DI GIOCO",,12)
ini=inizio
fin=EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
If r1<10 Then r2=r1+1 Else r2=r1+2
For p=1 To 4
For p1 = p+1 To 5
a=Estratto(es,r1,p)
b=Estratto(es,r2,p)
If a=b  Then
casi=casi+1
Scrivi String(105,"*")& " Caso N° " & casi,1
Scrivi DataEstrazione(es)&" "& FormatSpace(NomeRuota(r1),10)& " " & StringaEstratti(es,r1)&" "& Format2(a)
Scrivi DataEstrazione(es)&" "& FormatSpace(NomeRuota(r2),10)& " " & StringaEstratti(es,r2)&" "& Format2(b)
ruote(1)=r1 : ruote(2)=r2 ': ruote(3) = 11

ambo1(1)= a
ambo1(2)= Vert(a)
ambo1(3)=45
ambo1(4)=54
ImpostaGiocata 1,ambo1,ruote,poste,k,2
Gioca es

End If
Next
Next
Next
Next

ScriviResoconto
End Sub

 

[salvo50]

Ciao a Tutti

Ciao Ananda

Ti metto lo script corretto perché gli errori sono più di uno

Sub Main()
   Scrivi:Scrivi String(40," ") & " 2 numeri isotopi ruote consecutive",1
   Scrivi
   Dim ruote(10)
   Dim ambo1(6)
   Dim ambo2(2)
   Dim ambo3(2)
   Dim ambo4(2)
   Dim ambo5(2)
   Dim poste(2)
   poste(2) = 1
   inizio = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA :",,10100)
   k = InputBox("INSERISCI I COLPI DI GIOCO",,12)
   ini = inizio
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 10
         r2 = r1 + 1
            If r2 = 11 Then r2 = 12
            For p = 1 To 5
               'For p1 = p + 1 To 5
                  a = Estratto(es,r1,p)
                  b = Estratto(es,r2,p)
                  If a = b Then
                     casi = casi + 1
                     Scrivi String(105,"*") & " Caso N° " & casi,1
                     Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),10) & " " & StringaEstratti(es,r1) & " " & Format2(a)
                     Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r2),10) & " " & StringaEstratti(es,r2) & " " & Format2(b)
                     ruote(1) = r1 : ruote(2) = r2 ': ruote(3) = 11
                     ambo1(1) = a
                     ambo1(2) = Vert(a)
                     ambo1(3) = 45
                     ambo1(4) = 54
                     ImpostaGiocata 1,ambo1,ruote,poste,k,2
                     Gioca es
                  End If
               'Next
            Next
         'Next
      Next
   Next
   ScriviResoconto
End Sub

 

[salvo50]

Ops... scusa Cinzia non avevo visto il tuo intervento

 

[Cinzia27]

No, Salvo, hai fatto bene ad intervenire, io ho focalizzato l'attenzione solo sul problema VE-NZ

 

[ananda]

Grazie Cinzia e Salvo. Molto gentili.