UN AIUTINO?...GRAZIE

Ciao a tutti,chiedo cortesemente un aiuto a chi è capace su uno script che stò cercando di fare..

....sono un novello negli script anche se di semplici riesco a farli...la difficoltà che ho incontrato è il numero non isotopo....

...non sò come fare x dare il comando di ricerca........lo stesso numero,in unica ruota, in due estrazioni consecutive non isotopi ma di una posizione prima o dopo rispetto alla prima estrazione.....

esempio.......il numero 10 in 2 posizione su una ruota,l'estrazione successiva ritrova il 10 o in 1 pos o in 3 posizione.....e così tutte le posizioni.

,magari se si potrebbe rilevare anche su 2 ruote sempre in 2 estrazioni magari a cavallo in 5 pos la prima ruota e in 1 pos la 2 ruota o viceversa

ringrazio in anticipo chi vorrà aiutarmi....grazie grazie

grazieeee black...ci provo...ciao

Ciao black,ho provato ma non riesco ad andare avanti,

ti spiego quello che cerco di fare,una volta che lo script ha trovato
la condizione,vorrei fare la "quadratura"cioè faccio un esempio reale
roma

in data 27\11 = 86-70-38-7-57
in data 29\11 = 87-24-47-22-7

una volta trovata la condizione vorrei che lo script mi fà la somma fuori 90 del 57 e 22....il risultato = 79-77 saranno le ambate come abbinamenti  gli estratti e i diametrali in decina , il numero della condizione e il suo vertibile grazie

ho trovato difficoltà nel dare il comando x fare la somma .....


if p1 = 1 then p2 = 5



if p1 = 5 then p2 = 1

...ma questo è x la ricerca della condizione su 2 ruote vero?

Spero sia corretto anche perchè non ho il tempo di modificarlo
al limite ci pensi tu, è un buon allenamento, ciao

Codice:

Sub Main
   Dim ruota(1),ambata(2),frm(5),posta(1),poste(3)
   posta(1)=1 : poste(2)=1 : poste(3)=1
   Ini = CInt(InputBox("Inizio dal ",,8500))
   colpi = CInt(InputBox("Colpi di gioco ",,10))
   fin = EstrazioneFin
   For es = Ini To fin
   AvanzamentoElab 1,10,100
   For r = 1 To 12
   If r = 11 Then r = 12
   For p1 = 1 To 5
   a = Estratto(es,r,p1)
   For p2 = 1 To 5
   If p2 = p1+1 Or p2 = p1-1 Then
   b = Estratto(es+1,r,p2)
   If b = a Then
   n1 = Estratto(es,r,p2)
   n2 = Estratto(es+1,r,p1)
   conta=conta+1:Scrivi String(100,"*")&"Caso n°"& Format2(conta),1
   Scrivi DataEstrazione(es)&"  "& SiglaRuota(r)&"  "& StringaEstratti(es,r)&"  n° "& Format2(a)&"  Quadratura: "& Format2(n1),1
   Scrivi DataEstrazione(es+1)&"  "& SiglaRuota(r)&"  "& StringaEstratti(es+1,r)&"  n° "& Format2(b)&"  Quadratura: "& Format2(n2),1
   ruota(1) = r
   ambata(1)= Fuori90(n1+n2)
   ambata(2)= Vert(ambata(1))
   ImpostaGiocata 1,ambata,ruota,posta,colpi,1
   frm(1)= ambata(1)
   frm(2)= ambata(2)
   frm(3)= n1
   frm(4)= n2
   frm(5)= a
   ImpostaGiocata 2,frm,ruota,poste,colpi,2
   Gioca es+1,1
   End If
   End If
   Next
   Next
   Next
   If ScriptInterrotto Then Exit For
   Next
   Scrivi + vbCrLf + vbCrLf
   ScriviResoconto
End Sub

grazie black gentilissimo,x gli abbinamenti lo sistemo io...

...ecco dove non arrivavo....invertire le posizioni x fare la quadratura

....ancora grazie....

ps; ma i 2 comandi dati prima sono x le 2 ruote vero? in 5 pos e 1 pos

Sono per le posizioni della stessa ruota ma
In 2 estrazioni consecutive... es e es+1
Forse dovrai aggiungere una condizione else if
Quando p1 si trova in 1' o 5' posizione nell'estrazione es.......
Buon studio  

grazie,ci provo ciaoo