Errore Script, ma credo errore mio

[Xeroxs]

Buongiorno a Tutti Voi
Nel creare un metodo sui Gemelli ripetuti su due Ruote in posizioni determinate volevo calcolare l'ambata usando la ruota diametrale della seconda ruota di ricerca del gemello,
ma non riesco a fargli fare il calcolo, sicuramente sbaglio nell'impostare la ruota che mi interessa, dove sto sbagliando?

e poi non esegue la sola gioca dell'ambata e quì per me un mistero assoluto in quanto la creo nello stesso modo di altri script ma quì nulla...

Questo è lo script

Sub Main()
   Dim A,B,C,nu(10)
   Dim r1,r2,r3,p1,ruote(3),ambata(2),posta(1),poste(5)
   Dim Ini,fin,es,K,Clp
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   Clp = 9
   Scrivi String(30," ") & "****** Metodo Numero Gemello Ripetuto ****** ",1
   Scrivi String(42," ") & "** Versione.1.0  ** ",1
   Scrivi String(40," ") & "****** By Xeroxs ****** ",1
   Scrivi
   ColoreTesto 1
   Ini = 9500
   fin = EstrazioneFin
   For es = Ini To fin
      AvanzamentoElab Ini,fin,es
      r1 = MI_
      For r2 = 1 To 10
         p1 = 5
         r3 = RuotaDiametrale(r2)
         A = Estratto(es,r1,1) ' 1 Estratto di Milano
         B = Estratto(es,r2,p1) ' Numero Gemello della Ruota di Milano
         C = Estratto(es,r3,1) ' 1 Estratto della Ruota Diametrale del numero Gemello
         If Gemello(A) Then
            If A = B Then
               '-------------------------------------------------------------------------- Ruote di Gioco Base
               ruote(1) = r1
               ruote(2) = r2
               '-------------------------------------------------------------------------- Ambata
               ambata(1) = Fuori90(Estratto(es,r1,1) + Estratto(es,r3,1))
               nu(1) = ambata(1)
               '-------------------------------------------------------------------------- Abbinamenti per Ambo
               nu(2) = DiametraleD(ambata(1))
               'nu(3) = 12
               'nu(4) = 18
               '-------------------------------------------------------------------------- Abbinamenti per Ambo
               ColoreTesto 1
               K = K + 1 : Scrivi String(96,"*") & " Caso n° " & K,1
               Scrivi DataEstrazione(es) & " Ambata " & Format2(ambata(1)),1
               Scrivi "Ritardo Attuale sulla Ruota di " & NomeRuota(ruote(1)) & " è di Estrazioni " & _
               EstrattoRitardo(ruote(1),nu(1))
               Scrivi "Ritardo Attuale sulla Ruota di " & NomeRuota(ruote(2)) & " è di Estrazioni " & _
               EstrattoRitardo(ruote(2),nu(1))
               ColoreTesto 1 : Scrivi String(106,"*"),1
               Scrivi
               ColoreTesto 0
               ImpostaGiocata 1,nu(1),ruote,posta,Clp
               'ImpostaGiocata 1,ambata(1),ruote,posta,Clp,0
               ImpostaGiocata 2,nu,ruote,poste,Clp
               Gioca es
            End If
         End If
      Next
   Next
   ScriviResoconto
End Sub

Io vorrei fare come da ultimo caso rilevato dove ho il gemello 77 in prima posizione su Milano e lo rintraccio in 5 posizione su Napoli, queste sono posizioni fisse,
quindi vorrei eseguire il calcolo con il primo estratto della ruota diametrale di Napoli, ovvero Bari, ma non so perchè non lo esegue...
e poi capire perchè non espone la giocata dell'ambata..


Qualcuno mi può aiutare

Grazie come sempre.

 

[Mike58]

Ciao Xerox , vedi l'esempio tuo riportato.
Chiaramente devi prima trovate la condizione dei gemelli e poi ricercare la ruota diametrale e l'estratto.

prova esempio

Sub Main
   Ini = 9000
   fin = EstrazioneFin
   For es = Ini To fin
      r1 = MI_
      For r2 = 1 To 10
         p1 = 1 : p2 = 5
         a = Estratto(es,r1,p1)
         b = Estratto(es,r2,p2)
         If Gemello(a) And a = b Then
            r3 = RuotaDiametrale(r2)
            p3 = p1
            c = Estratto(es,r3,p3)
            Scrivi es & vbTab & StringaEstratti(es,r1) & vbTab & a & vbTab & SiglaRuota(r1) & vbTab & "Pos : " & p1
            Scrivi es & vbTab & StringaEstratti(es,r2) & vbTab & b & vbTab & SiglaRuota(r2) & vbTab & "Pos : " & p2
            Scrivi es & vbTab & StringaEstratti(es,r3) & vbTab & c & vbTab & SiglaRuota(r3) & vbTab & "Pos : " & p3
            Scrivi
         End If
      Next
   Next
End Sub

 

[Xeroxs]

Grazie Mike58
Non avevo neanche pensato alle posizioni, credendo che bastasse l'estratto a o b, una nuova indicazione che mi saà utile.
Grazie Ancora.

 

[joe]

Non so ...

... ma quando R2 = MI_ (=5) il caso è sempre presente

perché il valore di r2 è compreso tra 1 e 10.

 

[joe]

Mike ... come sovente capita,

le risposte si accavallano ed è probabile che la tua sia migliore.

Dunque ti chiedo di perdonare quella mia che non vuole assolutamente

essere una contro replica ma "una cosa" che ho visto senza eseguire lo script.

 

[Xeroxs]

Scusate se Re intervengo, Per quanto Riguarda la Ruota è Ok, ma non comprendo come mai non evidenzia la giocata della sola ambata ambata, non capisco, visto che poi la carica nella giocata 2, quale vettore sbaglio nel richiamarla o altro mio errore non compreso.
Mi aiutate a capire.

Grazie.

 

[salvo50]

Ciao a Tutti

dato che sono solo 2 numeri, non serve giocare anche per terno e quaterna

'poste(3) = 1
'poste(4) = 1

metti l'apice
---------------------------------------------

ImpostaGiocata 1,ambata,ruote,posta,Clp

ImpostaGiocata 2,nu,ruote,poste,Clp

prova così

 

[Xeroxs]

Grazie Salvo50, appena rientro lo disattivo e provo.

 

[joe]

In impostagiocata non devi mettere ruota(1) e/o numeri(1)

Ma semplicemente Numeri e Ruote

Dove come numeri(1) avrai messo il numero

e in ruote(1) avrai messo la ruota.

Poi naturalmente la posta dovrà essere commisurata al numero di numeri.

Per esempio:

Se giochi un numero non dovresti giocare anche 1 Euro per quaterna.

 

[Xeroxs]

Grazie anche a Te, joe

 

[Mike58]

Ciao Raga, leggendo il tutto è difficile rispondere su + fronti.
Le Ruota diametrale cone dice Joe può essere trovata anche + volte nel caso di Mi-VE-Mi etc è chiaro che ci vuole il controllo per definirle se queste devono essere diverse.
Invece L'ambata in IMPOSTAGIocata il vettore deve essere solo Numero Vettore e non singolo Numero
ImpostaGiocata 1,nu(1),ruote,posta,Clp ' deve essere - nu -
'ImpostaGiocata 1,ambata(1),ruote,posta,Clp,0
ImpostaGiocata 2,nu,ruote,poste,Clp
ecco perchè l'ambata non viene giocata perchè impostata male.

Per il resto valgono i consigli tutti sopra menzionati.

Ciao

 

[Xeroxs]

Ciao, Mike58,
Grazie per il tuo contributo, ed hai ragione su tutta la tua esposizione infatti eseguivo la giocta come da te esposto ma poi non capisco perchè non la eseguiva, e così ho fatto delle prove ecco perchè ho scritto in quel modo la giocata, pur sapendoo che era errata, poi per aggiornamento pc ho riavviato è tutto funzionava regolarmente...
A volte non capisco il perchè di certe anomalie del PC, poi di incanto tutto riprende a funzionare, Io penso che avendo caricato vari script per i miei test in qualche modo sia andato in Tilt il programma come accade a volte, non ho altre spiegazioni...

Comunque Grazie a Tutti Voi come Sempre.