Vertibili mon amour

[ananda]

Ciao, posto questo metodo che mi sembra interessante, semplice e mette in gioco soltanto un ambata e due ambi secchi.

Rintracciare un ambo vertibile. Controllare se in altra ruota è presente la figura dei componenti l'ambo. Per ambata mettere in gioco il vertibile della figura e per abbinamenti i componenti dell'ambo vertibile.

Es: Se trovo su BA ambo vert. 12-21 e su VE il numero 3 (figura di 12), metto in gioco 30 come ambata e gli ambi 3-12 e 3-21, su BA e VE

Le ruote su cui giocare sono quella di rilevazione e quella dove era presente il numeretto-figura.

Per tentare il terno aggiungere il più ritardatario a TU.

Se qualcuno di voi può fare listato grazie mille.

Ciaoooo

 

[Roby]

Ciao Ananda, per il terno con il ritardatario a tutte non conosco la funzione
Per il resto non c'è problema

Sub main()
Scrivi " Metodo di Ananda Listato By Blackmore",1 : Scrivi 
Dim ruote(10)
Dim ruota(10)
Dim ambata(1)
Dim ambo1(2)
Dim ambo2(2)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
tr = InputBox("Estrazione di partenza ?",, 8300)
cc = InputBox("Inserisci i colpi di gioco",, 10)
casi = 0
ini = tr
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
For r2 = r1+1 To 10
For p1 = 1 To 4
For p2 = p1+1 To 5
For p3 = 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
If n2 = Vert(n1) Then 
n3 = Estratto(es,r2,p3)
If n3 = Figura(n1) Then 
ruote(1) = r1 : ruote(2) = r2 
casi = casi+1
Scrivi String(100,"*") & " Caso n° " & Format2(casi),1
Scrivi DataEstrazione(es) & "   " & SiglaRuota(r1) & "   " & StringaEstratti(es,r1)& "   Ambo Vertibile    " & Format2(n1) & "-" & Format2(n2)
Scrivi DataEstrazione(es) & "   " & SiglaRuota(r2) & "   " & StringaEstratti(es,r2)& "   Figura Ambo       " & Format2(n3)
'-------------------------------------------------- Giocata
ambata(1) = Vert(n3)
ImpostaGiocata 1,ambata,ruote,posta,cc,1
ambo1(1) = n3
ambo1(2) = n1
ImpostaGiocata 2,ambo1,ruote,poste,cc,2
ambo2(1) = n3
ambo2(2) = n2
ImpostaGiocata 3,ambo2,ruote,poste,cc,2
Gioca es
End If 
End If
Next
Next 
Next
Next
Next
Next
ScriviResoconto 
End Sub

 

[ananda]

Ciao Ananda, per il terno con il ritardatario a tutte non conosco la funzione
Per il resto non c'è problema

Sub main()
Scrivi " Metodo di Ananda Listato By Blackmore",1 : Scrivi 
Dim ruote(10)
Dim ruota(10)
Dim ambata(1)
Dim ambo1(2)
Dim ambo2(2)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
tr = InputBox("Estrazione di partenza ?",, 8300)
cc = InputBox("Inserisci i colpi di gioco",, 10)
casi = 0
ini = tr
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
For r2 = r1+1 To 10
For p1 = 1 To 4
For p2 = p1+1 To 5
For p3 = 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
If n2 = Vert(n1) Then 
n3 = Estratto(es,r2,p3)
If n3 = Figura(n1) Then 
ruote(1) = r1 : ruote(2) = r2 
casi = casi+1
Scrivi String(100,"*") & " Caso n° " & Format2(casi),1
Scrivi DataEstrazione(es) & "   " & SiglaRuota(r1) & "   " & StringaEstratti(es,r1)& "   Ambo Vertibile    " & Format2(n1) & "-" & Format2(n2)
Scrivi DataEstrazione(es) & "   " & SiglaRuota(r2) & "   " & StringaEstratti(es,r2)& "   Figura Ambo       " & Format2(n3)
'-------------------------------------------------- Giocata
ambata(1) = Vert(n3)
ImpostaGiocata 1,ambata,ruote,posta,cc,1
ambo1(1) = n3
ambo1(2) = n1
ImpostaGiocata 2,ambo1,ruote,poste,cc,2
ambo2(1) = n3
ambo2(2) = n2
ImpostaGiocata 3,ambo2,ruote,poste,cc,2
Gioca es
End If 
End If
Next
Next 
Next
Next
Next
Next
ScriviResoconto 
End Sub

Grazie infinite Black.