Non capisco...

[Missione Impossibile.]

Ciao Mike
potresti farmi un resocondo anche con i vertibili, usciti con i frequenti per ambo..., se puoi Grazie .

 

[Mike58]

Ciao batter, mi costringi a scrivere righe su righe.
Comunque prova a vedere ti metto in gioco

Numero e Vertibile per AMBATA
Numero Vertibile e Abbinamenti( max 5 con ciclo for ) su Ruota 1
Numero Vertibile e Abbinamenti( max 5 con ciclo for ) su Ruota 2

Sub Main
   Dim Po(2),Ru(2),Posta(1),Nu(2),aN(2),aNN(2),Poste(2),Rt1(1),Rt2(1)
   Poste(2) = 1
   Posta(1) = 1
   '----------------------
   ritroso = 160
   r1 = 1
   p1 = 5
   r2 = 2
   p2 = 5
   colpi = 10
   '----------------------
   Ru(1) = r1 : Ru(2) = r2
   Po(1) = p1 : Po(2) = p2
   Scrivi "Ruote Analizzate " & StringaRuote(Ru)
   Scrivi "Posizioni Estratti analizzati " & StringaNumeri(Po)
   Scrivi
   For es = EstrazioneFin - ritroso To EstrazioneFin
      If IndiceMensile(es) = 1 Then ' attiva 1 del mese
         'If IsUltimaDelMese(es) Then  ' attiva ultimo del mese
         k = k + 1
         a = Estratto(es,r1,p1)
         b = Estratto(es,r2,p2)
         ab = Differenza(a,b)
         Nu(1) = ab : Nu(2) = Vert(Nu(1))
         Rt1(1) = r1 : Rt2(1) = r2
         Scrivi String(130,"=")
         Scrivi Es & "  Differenza Estratti in Posizione scelte " & "( " & Format2(a) & " - " & Format2(b) & " ) " & " = ",1,0,,1
         Scrivi Nu(1) & " Vertibile " & Nu(2),1,1,,2
         Scrivi String(130,"=") & " Caso N. " & k
         Call ImpostaGiocata(1,Nu,Ru,Posta,colpi,1)
         Gioca es
         '
         For x = 1 To 5
            Call Abbinamenti(Nu(2),abbR1,8072,EstrazioneFin,r1)
            aN(1) = Nu(2) : aN(2) = abbR1(x,1)
            riga1 = riga1 & abbR1(x,1) & " "
            Call ImpostaGiocata(x,aN,Rt1,Poste,colpi,2)
         Next
         Scrivi String(100,"-") & " Abbinamenti Veribile su Ruota1 " & riga1
         Gioca es
         riga1 = ""
         '
         For y = 1 To 5
            Call Abbinamenti(Nu(2),abbR2,8072,EstrazioneFin,r2)
            aNN(1) = Nu(2) : aNN(2) = abbR2(y,1)
            riga2 = riga2 & abbR2(y,1) & " "
            Call ImpostaGiocata(y,aNN,Rt2,Poste,colpi,2)
         Next
         Scrivi String(100,"-") & " Abbinamenti Vertibile su Ruota2 " & riga2
         Gioca es
riga2 = ""
      End If ' chiude indicemensile
   Next
   ScriviResoconto
End Sub

 

[Missione Impossibile.]

Grazie per la tua pazienza, va bene cosi.