Script per 2 ambate su 1 ruota.

[Juri]

C8iao a tutti.

Vorrei,per piacere,uno script dove si giocano sulla ruota successiva i numeri della terzina simmetrica usciti sulla ruota prima.Sotto gli esempi in corso.
Ho controllato circa 50-60 casi ed è costante.Anche 20-30 anni fa funzionava bene in max 7-9 colpi.

Grazie mille.



Il 4 agosto su mi 20-80.Su na per 2 c dal 23 agosto 20-80.

Il 4 agosto su ge 49-19.Su mi per 2 c dal 23 agosto 20-80.

Il 7 agosto su mi 38-8.Su na per 3 c dal 23 agosto 38-8.

Il 14 agosto su to 13-43.Su ve 13-43 per 6 c dal 23 agosto.

 

[salvo50]

Ciao a Tutti

 'Proposto da Juri
'Vorrei,per piacere,uno script dove si giocano sulla ruota successiva
'i numeri della terzina simmetrica usciti sulla ruota prima.Sotto gli
'esempi In corso.
'Ho controllato circa 50-60 casi ed è costante.Anche 20-30 anni fa
'funzionava bene In max 7-9 colpi.
'script by Salvo50
'ho aggiunto a scelta, anche la ricerca dell'ambo, a ruota e per tutte
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,P1,P2,P3,Clp1,E1
   Dim A,B,C,D,Caso,Casi,DAB,Salvo50,Ambo
   Dim Ambata(2),Ruo(1),Posta(1),Poste(3)
   Dim Ru(2),Terno(3)
   Clp1 = 7
   Posta(1) = 1
   Poste(2) = 1
   'Poste(3) = 1
   Ini = 9400
   Ambo = CInt(InputBox("Vuoi fare la ricerca per AMBO su ruota e per Tutte? SI = 1 - NO = qualunque altra cifra",Salvo50,0))
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1) : If A > 0 Then
               B = Estratto(Es,R1,P2)
               DAB = Distanza(A,B)
               If(DAB = 30 Or DAB = 60) Then
                  '-----------------------------------------------------------------
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then
                        Call ColoreTesto(2)
                     Else
                        Call ColoreTesto(0)
                     End If
                     Call Scrivi(Format2(E1) & " ",1,0)
                     Call ColoreTesto(0)
                  Next
                  Scrivi
                  Scrivi
                  Ruo(1) = R2
                  Ambata(1) = A : Ambata(2) = B
                  ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
                  If Ambo = 1 Then
                     Ru(1) = R1 : Ru(2) = TU_
                     Terno(1) = A : Terno(2) = B : Terno(3) = Fuori90(A + B)
                     EliminaRipetuti Terno
                     ImpostaGiocata 2,Terno,Ru,Poste,Clp1
                  End If
                  Gioca Es
               End If
            End If
         Next
      Next
   Next
   If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

 

[Juri]

Grazie mille Salvo.

Q

 

[Alien.]

è...Salvo puoi aggiungere il terzo numero sommando le due ambate ,come sull'altro metodo dei numeretti? Grazie.

 

[salvo50]

è...Salvo puoi aggiungere il terzo numero sommando le due ambate ,come sull'altro metodo dei numeretti? Grazie.

Ho aggiunto il terzo numero

 

[Alien.]

Dimenticavo se.............è possibile quando vi è un pronostico es: su Bari dove esce l'ambo TO-VE
Pronostico su FI= esce ambo a PA . TO ECC...
Quindi ad ogni pronostico Su BARI si metta di seguito tutte le ruote in cui è uscito l'ambo es:4 volte a PA -6 volte a RO ecc
e cosi via per tutte,spero di essermi spiegato ,questo per ridurre le giocate che sono tante .....