Modifica listato

[Roby]

Ciao ragazzi, avrei bisogno di modificare questo listato, se qualcuno è tanto gentile d'aiutarmi.

Vorrei inserire anche la giocata a "Tutte" + la "Nazionale".

Sub main()
Dim ruote(2)
Dim am(2)
Dim poste(5)
poste(2)=1
TabellaGiocate
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 12
If r<>11 Then
For p1=1 To 4
p2=p1+1
a=Estratto (es-1,r,p1)
b=Estratto (es-1,r,p2)
For r1=1 To 12
If r1<>r And r1<>11 Then
For p3=1 To 4
p4=p3+1
c=Estratto (es,r1,p3)
d=Estratto (es,r1,p4)
If (a=c And b=d) Then
Scrivi "-----------------------"
Scrivi DataEstrazione(es-1)&" "& Left(NomeRuota(r),3) & " "& Format2(a)&"-"& Format2(b)
Scrivi DataEstrazione(es) &" "& Left(NomeRuota(r1),3) & " "& Format2(c)&"-"& Format2(d)
Scrivi "-----------------------"
ruote(1)=r : ruote(2)=r1
am(1)=Fuori90(a+85) : am(2)=Fuori90(b+85)
ImpostaGiocata 1,am,ruote,poste,20,2
Gioca es
End If
Next
End If
Next
Next
End If
Next
Next
ScriviResoconto
End Sub



Ciao e grazie.

 

[maxma62]

La giocata su nz il listato gia' la gioca, se trova su questa un ambo ripetuto, forse intendi giocare anche sulla nz oltre alle altre due in gioco?

Sub main()
Dim ruote(4)
Dim am(2)
Dim poste(5)
poste(2)=1
'TabellaGiocate
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 12
If r<>11 Then
For p1=1 To 4
p2=p1+1
a=Estratto (es-1,r,p1)
b=Estratto (es-1,r,p2)
For r1=1 To 12
If r1<>r And r1<>11 Then
For p3=1 To 4
p4=p3+1
c=Estratto (es,r1,p3)
d=Estratto (es,r1,p4)
If (a=c And b=d) Then
Scrivi "-----------------------"
Scrivi DataEstrazione(es-1)&" "& Left(NomeRuota(r),3) & " "& Format2(a)&"-"& Format2(b)
Scrivi DataEstrazione(es) &" "& Left(NomeRuota(r1),3) & " "& Format2(c)&"-"& Format2(d)
Scrivi "-----------------------"
ruote(1)=r : ruote(2)=r1:ruote(3)=11:ruote(4)=12
am(1)=Fuori90(a+85) : am(2)=Fuori90(b+85)
ImpostaGiocata 1,am,ruote,poste,20,2
Gioca es
End If
Next
End If
Next
Next
End If
Next
Next
ScriviResoconto
End Sub

max

 

[Roby]

Grazie Max del pronto interessamento, mi sono spiegato male io.

La ricerca e la giocata la fà su 2 ruote ( da Ba fino alla Nz), vorrei allargare la "giocata" anche alle altre ruote rimanenti(cioè a Tutte).

grazie ancora.

 

[Roby]

Grazie Max, perfetto (ti avevo risposto senza controllare il listato che mi avevi fatto).