X gli esperti script

Lanfranco60 · 22 Settembre 2013

Ciao a tutti

sto lavorando qualcosa da non so più quanti anni

Ho fatto un lungo script che termina con il Verifica esito.

sotto uno scorcio di output

Codice:

Call VerificaEsitoTurbo(aNum,aRuo,idEstr + 1,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr,aRetRuote)
Call Scrivi("Esito " & RetEsito)
Call Scrivi("Colpi " & RetColpi)
Call Scrivi("Estratti " & RetEstratti)
Call Scrivi("Estrazione " & RetIdEstr)
Call Scrivi("Ruota " & NomeRuota(aRetRuote(1)))
Call Scrivi("------------------------")

La domanda è :

Si ferma al primo caso vincente, ma io vorrei vedere anche gli altri casi
che si sarebbero avuti nei 9 colpi previsti.

Così comè si ferma al primo esito raggiunto e non continua,
anche se metto io il numero di colpi max.

io voglio vedere tutte le vincite che si fanno in ogni caso nei 9 colpi previsti

come ovviare a tutto ciò???

Grazie

(Guardate che sfilza di ambi e terni, e c'è anche una quaterna....
il tutto in max 3 colpi e scusate se è poco)

Codice:

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°28

Esito Ambo
Colpi 1
Estratti CA .. .. .. 31 24
Estrazione 8486
Ruota Cagliari
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°29

Esito Terno
Colpi 1
Estratti RO 39 48 .. .. 17
Estrazione 8498
Ruota Roma
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°30

Esito Ambo
Colpi 1
Estratti BA 29 07 .. .. ..
Estrazione 8504
Ruota Bari
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°31

Esito Terno
Colpi 1
Estratti RO 56 66 .. .. 81
Estrazione 8524
Ruota Roma
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°32

Esito Ambo
Colpi 3
Estratti NA 06 .. 09 .. ..
Estrazione 8536
Ruota Napoli
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°33

Esito Ambo
Colpi 1
Estratti TO 65 .. .. .. 69
Estrazione 8542
Ruota Torino
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°34

Esito Ambo
Colpi 3
Estratti NA .. 57 .. 25 ..
Estrazione 8550
Ruota Napoli
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°35

Esito Terno
Colpi 1
Estratti MI 85 60 72 .. ..
Estrazione 8564
Ruota Milano
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°36

Esito Ambo
Colpi 1
Estratti NZ 26 .. .. 80 ..
Estrazione 8599
Ruota Nazionale
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°37

Esito Ambo
Colpi 1
Estratti PA 90 .. .. 74 ..
Estrazione 8607
Ruota Palermo
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°38

Esito Terno
Colpi 1
Estratti FI 06 .. .. 08 35
Estrazione 8609
Ruota Firenze
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°39

Esito Terno
Colpi 1
Estratti PA .. 26 .. 41 06
Estrazione 8614
Ruota Palermo
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°40

Esito Ambo
Colpi 1
Estratti GE 58 .. 07 .. ..
Estrazione 8615
Ruota Genova
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°41

Esito Ambo
Colpi 1
Estratti NZ .. 61 .. 23 ..
Estrazione 8643
Ruota Nazionale
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°42

Esito Ambo
Colpi 2
Estratti CA 87 .. .. 24 ..
Estrazione 8655
Ruota Cagliari
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°43

Esito Quaterna
Colpi 2
Estratti VE 46 .. 05 57 82
Estrazione 8656
Ruota Venezia
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°44

Esito Ambo
Colpi 2
Estratti FI .. 64 48 .. ..
Estrazione 8668
Ruota Firenze
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°45

Esito Terno
Colpi 2
Estratti GE .. .. 58 76 24
Estrazione 8693
Ruota Genova
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°46

Esito Terno
Colpi 2
Estratti BA 18 .. 79 .. 55
Estrazione 8708
Ruota Bari
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°47

Esito Terno
Colpi 1
Estratti FI 41 .. .. 51 74
Estrazione 8713
Ruota Firenze
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°48

Esito Ambo
Colpi 2
Estratti VE 66 56 .. .. ..
Estrazione 8714
Ruota Venezia
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°49

Esito Terno
Colpi 1
Estratti PA 02 .. 90 65 ..
Estrazione 8725
Ruota Palermo
------------------------

  
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°50

Esito Ambo
Colpi 1
Estratti VE 20 .. 56 .. ..
Estrazione 8735
Ruota Venezia
------------------------

**************************************************

Rosanna · 22 Settembre 2013

O col Gioca senza fermare l'esito al primo positivo, oppure andando a verificare dalla estrazione in esame+1 (cioè dalla successiva), in avanti per i colpi desiderati, la sortita dei numeri da te individuati.
Io usavo "Posizione"... se posizione(numero)>0...

Mike58 · 22 Settembre 2013

Lanfranco perché non fai un ciclo for per il verifica esito ?

esempio

Codice:

Sub Main
	Dim anum(4),aruo(1)
	anum(1) = 25
	anum(2) = 63
	anum(3) = 15
	anum(4) = 6
	aruo(1) = 5
	Ini = EstrazioneFin - 10
	fin = EstrazioneFin
	For idestr = Ini To fin
		Call VerificaEsitoTurbo(anum,aruo,idEstr,1,1,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
		If RetEsito <> "" Then
			Call Scrivi("Numeri In Gioco " & StringaNumeri(anum),True,True,2,4,2)
			Call Scrivi("Esito " & RetEsito)
			Call Scrivi("Colpi " & RetColpi)
			Call Scrivi("Estratti " & RetEstratti)
			Call Scrivi("Estrazione " & RetIdEstr)
			'Call Scrivi("Ruota " & NomeRuota(aRetRuote(1)))
			Call Scrivi("------------------------")
		End If
	Next
End Sub

Rosanna · 22 Settembre 2013

Bentornato Mike!!

Mike58 · 22 Settembre 2013

Grazie Rosanna, ben ritrovata.
In questi ultimi tempi sto cercando di fare ordine, perché i neuroni scriptici si scontrano fra di loro.

Complimenti sempre a te per i tuoi ultimi script di livello eccelso.

Ciao

Lanfranco60 · 22 Settembre 2013

Rosanna ha scritto:
O col Gioca senza fermare l'esito al primo positivo, oppure andando a verificare dalla estrazione in esame+1 (cioè dalla successiva), in avanti per i colpi desiderati, la sortita dei numeri da te individuati.
Io usavo "Posizione"... se posizione(numero)>0...

Con il gioca non si può fare, perchè sono più di 10 numeri.......

sarebbe stato troppo facile......

Lanfranco60 · 22 Settembre 2013

Mike58 ha scritto:

Lanfranco perché non fai un ciclo for per il verifica esito ?

esempio

Codice:

Sub Main
    Dim anum(4),aruo(1)
    anum(1) = 25
    anum(2) = 63
    anum(3) = 15
    anum(4) = 6
    aruo(1) = 5
    Ini = EstrazioneFin - 10
    fin = EstrazioneFin
    For idestr = Ini To fin
        Call VerificaEsitoTurbo(anum,aruo,idEstr,1,1,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
        If RetEsito <> "" Then
            Call Scrivi("Numeri In Gioco " & StringaNumeri(anum),True,True,2,4,2)
            Call Scrivi("Esito " & RetEsito)
            Call Scrivi("Colpi " & RetColpi)
            Call Scrivi("Estratti " & RetEstratti)
            Call Scrivi("Estrazione " & RetIdEstr)
            'Call Scrivi("Ruota " & NomeRuota(aRetRuote(1)))
            Call Scrivi("------------------------")
        End If
    Next
End Sub

Un che senso fai il ciclo ?

c'è gia il ciclo For.....

Rosanna · 22 Settembre 2013

Grazie Rosanna, ben ritrovata.
In questi ultimi tempi sto cercando di fare ordine, perché i neuroni scriptici si scontrano fra di loro.

eh eh... si a volte sembra di stare su un'autopista scriptica... eh eh

Vedi che è importante confrontarsi perchè si ampliano le conoscenze... si rafforzano quelle incerte si chiariscono quelle dubbie etc. ciao!!

Rosanna · 22 Settembre 2013

Con il gioca non si può fare, perchè sono più di 10 numeri.......

sarebbe stato troppo facile......

ah ecco perchè tanti terniiiiiii hi hi

allora procedi o come suggerisce Mike.. (pure col turbo direi che è la soluzione migliore e più completa) o provare con il mio sistema. Sarebbe carino fare un confronto
In ogni caso il ciclo for ti serve dentro il for next principale...

ad ogni nuovo caso... fai partire un ciclo for next in avanti di tot colpi...

Lanfranco60 · 22 Settembre 2013

Rosanna ha scritto:
ah ecco perchè tanti terniiiiiii hi hi

allora procedi o come suggerisce Mike.. (pure col turbo direi che è la soluzione migliore e più completa) o provare con il mio sistema. Sarebbe carino fare un confronto
In ogni caso il ciclo for ti serve dentro il for next principale...

ad ogni nuovo caso... fai partire un ciclo for next in avanti di tot colpi...

No lo capita sta cosa....un esempio ?

Rosanna · 22 Settembre 2013

Immagino avrai un ciclo for... next "principale" per fare la scansione dell'archivio alla ricerca dei casi...

tipo un for es= ini to fin

ad ogni caso trovato (sei su una es precisa)
devi verificare gli esiti successivi... quindi aggiungi un ciclo tipo

for esf= es+1 to es+9 ' io uso solitamente esf perchè la f... mi ricorda il futuro... cioè so che quel ciclo cicla in avanti rispetto alla estrazione di riferimento
e dentro ci fai ci controlli che devi fare... es. col il verifica esito che giustamente Mike ti ha impostato per ogni colpo in modo da rilevare tutti gli esiti e non solo il primo

da notare che in qualsiasi modo tu faccia... avvicinandoti alla fine dell'archivio l'es+9 supererà la fine dell'archivio per cui è bene gestire la fine del controllo con una variabile

if es+9 > Estrazionefin then Fine=Estrazionefin else fine=es+9
for esf= es+1 to Fine

ciao

Lanfranco60 · 23 Settembre 2013

Penso di aver capito, ci proverò grazieeeeeee

Cerca

Cerca

X gli esperti script

Lanfranco60

Super Member >GOLD<

Rosanna

Super Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

Rosanna

Super Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

Lanfranco60

Super Member >GOLD<

Lanfranco60

Super Member >GOLD<

Rosanna

Super Member >PLATINUM<

Rosanna

Super Member >PLATINUM<

Lanfranco60

Super Member >GOLD<

Rosanna

Super Member >PLATINUM<

Lanfranco60

Super Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi