Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 pm Da DjNomade

» Da Ambo Distanza 27 a Bari
Sab Lug 21, 2018 7:07 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


UN AIUTINO?...GRAZIE

Andare in basso

UN AIUTINO?...GRAZIE

Messaggio Da roy62 il Mer Dic 17, 2014 10:36 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da Blackmore il Gio Dic 18, 2014 9:34 pm

for p1 = 1 to 5
for p2 = 1 to 5


if p2 = p1+1 or p2 = p1-1 then



if p1 = 1 then p2 = 5



if p1 = 5 then p2 = 1

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da roy62 il Ven Dic 19, 2014 1:04 pm

grazieeee black...ci provo...ciao
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da roy62 il Ven Dic 19, 2014 2:22 pm

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?
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da Blackmore il Ven Dic 19, 2014 9:54 pm

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

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da roy62 il Ven Dic 19, 2014 10:24 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da Blackmore il Sab Dic 20, 2014 12:29 am

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  Very Happy

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da roy62 il Sab Dic 20, 2014 7:34 am

grazie,ci provo ciaoo
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: UN AIUTINO?...GRAZIE

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum