Aiuto per script difficile soluzione?

[pfca]

Buongiorno a tutti,
ho la seguente difficoltà per fare una giusta valutazione economica, su uno script per Ambata Determinata.
Giocando per Ambata Determinata un numero su due posizioni, non riesco ad interrompere le due giocate alla prima uscita utile,
mentre nella realtà, ci si ferma dopo la prima uscita, non riesco a fare la stessa cosa con lo script, per cui continua a giocare sino
alla fine dei colpi o, sino a quando non esce la seconda Ambata Determinata.
Vi posto un listato di esempio, sperando che qualche esperto possa darmi il giusto aiuto, come potrete vedere, la giocata su ED3 vorrei
che si fermasse all'uscita del primo caso utile e non proseguisse.

Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(10)
Dim poste(10)
ruote(1) = 1
k = 12
n = 8398
a = Estratto(n,1,2)
numeri1(1) = Fuori90(a + 50)
If a > 20 Then y = 7
If a < 20 Then y = 8
z = y+1
posta=1
poste(z)=1
ImpostaGiocata 1,numeri1,ruote,posta,k,y
ImpostaGiocata 2,numeri1,ruote,poste,k,z

ImpostaInterruzioni 1,0,0

Gioca n
ScriviResoconto
End Sub



Francesco

 

[Roby]

Prova così

Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(10)
Dim poste(10)
ruote(1) = 1
k = 12
n = 8398
a = Estratto(n,1,2)
numeri1(1) = Fuori90(a + 50)
If a > 20 Then y = 7
If a < 20 Then y = 8
z = y+1
posta=1
poste(z)=1
ImpostaGiocata 1,numeri1,ruote,posta,k,y
ImpostaGiocata 2,numeri1,ruote,poste,k,z
,1

ImpostaInterruzioni 1,0,0

Gioca n
ScriviResoconto
End Sub


Blackmore

 

[keeper]

così funziona

Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(10)
Dim poste(10)
ruote(1) = 1
k = 12
n = 8398
a = Estratto(n,1,2)
numeri1(1) = Fuori90(a + 50)
If a > 20 Then y = 7
If a < 20 Then y = 8
z = y+1
posta=1
poste(z)=1
ImpostaGiocata 1,numeri1,ruote,posta,k,y,,1
ImpostaGiocata 2,numeri1,ruote,poste,k,z,,1

ImpostaInterruzioni 1,0,0

Gioca n
ScriviResoconto
End Sub

 

[keeper]

domanda?
perchè usi questo valore per indicare l'estrazione di ricerca?
n = 8398
e questo script quando si applica intendo sempre estrazione 1 2 del mese ultima'

 

[pfca]

Ciao Keeper,
grazie per la soluzione ed un grazie anche a Blackmore,
ho usato quella estrazione solo come esempio, ero certo
che mi dava i due risultati e faceva capire il problema.
Stò elaborando delle previsioni a posizione determinata,
ma il resoconto economico era falsato dal fatto che non si
fermava alla prima uscita utile.

Francesco

 

[imported_n/a]

Ciao a tutti c'è anche un'altra soluzione più semplice per definire l'estratto determinato e bloccare l'esito al suo esito vincente.
definire il valore posta/e con valore 6-7-8-9-10(1°,2° 3° 4° 5° ED).

Ciao Mike58
----------------------------------
Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(10)
Dim poste(10)
ruote(1) = 1
k = 12
n = 8398
a = Estratto(n,1,2)
numeri1(1) = Fuori90(a + 50)
'If a > 20 Then y = 7
'If a < 20 Then y = 8
'z = y+1
posta(7)=1
poste(8)=1
ImpostaGiocata 1,numeri1,ruote,posta,k,7
ImpostaGiocata 2,numeri1,ruote,poste,k,8

ImpostaInterruzioni 1,2,1
ImpostaInterruzioni 2,1,1


Gioca n
ScriviResoconto
End Sub

 

[keeper]

Pfca spero che non appena termini i tuoi studi ci renderaì partecipe x black non hai nella tua collezione altri determinati su bari?

 

[Roby]

quote:Originally posted by keeper

Pfca spero che non appena termini i tuoi studi ci renderaì partecipe x black non hai nella tua collezione altri determinati su bari?

Keeper ho preso un virus ed ho perso tutta la mia collezione, ora piano piano la sto ri-creando
Se trovo qualcosa lo posto
Ciao

Blackmore

 

[keeper]

cioa pfca hai terminato il lavoro su questo script che hai postato?

 

[pfca]

Ciao Keeper,
questo è il primo che ho realizzato, spero possa interessarti.

'Ambata Determinata BA • pfca •
Sub Main
Dim numeri1(2)
Dim ruote(10)
Dim poste(10)
poste(8) = 2
ruote(2) = 1
Dim cc(1)
Dim dd(1)
es = CInt(InputBox("Quante estrazioni controllo?","pfca",100))
k = CInt(InputBox("Quanti colpi di gioco?","pfca",18))
ea = CInt(InputBox("Quale estrazione vuoi esaminare? 0=Ult. 1=Prima",pfca,0))
ini = EstrazioneFin - es
fin = EstrazioneFin

k = 12

For n = ini To fin
Messaggio & " - pfca - "
If eval(ea) = 0 Then
y = 1
Else
y = 0
End If
If IndiceMensile(n + y) = 1 Then
a = Estratto(n,1,1)
b = Figura(Estratto(n,1,1))
numeri1(1) = Fuori90(a + b)
numeri1(2) = Diametrale(Fuori90(a + b))

cc(1) = numeri1(1)
dd(1) = numeri1(2)
ra1 = SerieRitardo(ini,n,cc,ruote,1)
ra2 = SerieRitardo(ini,n,dd,ruote,1)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra1)
ColoreTesto 2:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(dd(1),2) & " Rit.: " & Format2(ra2):ColoreTesto 0
ImpostaGiocata 1,numeri1,ruote,poste,k,,1

ImpostaInterruzioni 1,0,0

Gioca n,- 1
End If
Next
ColoreTesto 1
Scrivi ""
Scrivi " • pfca • ",1
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub



C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[pfca]

Ciao Keeper, questo è il secondo:

'Ambata Determinata CA • pfca •
Sub Main
Dim numeri1(2)
Dim ruote(10)
Dim ruota(1)
Dim poste(10)
Dim posta(2)
poste(6) = 1
ruote(2) = 2
Dim cc(1)
es = CInt(InputBox("Quante estrazioni controllo?","pfca",100))
k = CInt(InputBox("Quanti colpi di gioco?","pfca",9))
ini = EstrazioneFin - es
fin = EstrazioneFin
k = 12

For n = ini To fin
Messaggio & " - pfca - "
If IndiceMensile(n + 1) = 1 Then
a = Estratto(n,2,3)
b = Vert(Estratto(n,2,3))
numeri1(1) = a
cc(1) = numeri1(1)

ra1 = SerieRitardo(ini,n,cc,ruote,1)

ColoreTesto 1:Scrivi "Ritardo x Ambata del numero = " & FormatSpace(cc(1),2) & " Rit.: " & Format2(ra1):ColoreTesto 0

ImpostaGiocata 1,numeri1,ruote,poste,k,1

Gioca n,- 1
End If
Next
ColoreTesto 1
Scrivi ""
Scrivi " • pfca • ",1
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub



C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[keeper]

grazie pfca ottimo lavoro se non ti dispiace tienimi aggiornato sui determinati

 

[Roby]

Ciao Keeper, se ti può interessare, ne ho trovato uno....

Sub main()
Scrivi "1°Estrazione mensile: 3°Nazionale + 81 __ Su VENEZIA In 4° Posizione Per 9 Colpi __ By Blackmore"
Dim rt(1),nn(1),pta(9)
pta(9)=1
clp=9 'colpi di gioco
rt(1)=10 ' ruota di gioco
ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1a estrazione del mese
casi=casi+1
Scrivi String (70,"_")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,12,3)'<<--- 3° Estratto Nazionale!!!

'------------------------------ Estratto Determinato
nn(1)=Fuori90 (a+81)
ImpostaGiocata 1,nn,rt,pta,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub


Blackmore