Richiesta script se si può fare

[armando59]

Buonasera, sarebbe possibile fare
Uno script che elabora la previsione
Nel quadro estrazionale dove esce la vincita.
Elaborato 2°estratto ba
4°estratto ve
Ruote gioco Bari Venezia
Magari con la possibilità di modificare
Le ruote e le posizioni.
Grazie mille ciao

 

[*blacklotto*]

... fammi capire meglio, potrei aiutarti !

 

[armando59]

ok faccio un esempio
estrazione del 29-12-2018
secondo estratto di bari 88
quarto estratto di venezia 27
la previsione su bari e venezia è 88 27
all'uscita di uno dei due numeri su ba o ve la previsione si interrompe
e si elabora il prossimo ambo, e così via.
spero di essermi fatto capire ti ringrazio per l'aiuto.

 

[*blacklotto*]

Ciao, poi mi dirai perché hai inserito un esempio così datato !
Comunque, prova vedere se ho capito quello che chiedevi ...

29.12.2018 : 10.88.89.34.77 BA 1° estratto n° 88 in 2° posizione
29.12.2018 : 13.12.01.27.88 VE 1° estratto n° 27 in 4° posizione

Estrazione generatrice del pronostico 09571 [156 - 29/12/2018]
G 0001 Numeri in gioco : 88.27 su BA VE per Estratto
V N. [88.27 ] [VE] [.. 27 .. .. ..] C. 4 Estratto 09575 [ 4 - 08/01/2019]

Ricordo sempre che cerco di fare del mio meglio, e spero davvero che possa andarti bene.

Sub Main()
Dim a,b,ambata(2)
Dim ruota(1),ruote(2)
Dim posta(1)
posta(1) = 1
t = 0
r1 = InputBox("Inserisce 1a Ruota...",,1)' scegli la 1a ruota
r2 = InputBox("Inserisce 2a Ruota...",,10) ' scegli la 2a ruota
rs = InputBox("Quante estrazioni vuoi controllare?",,270)
'
p1 = 2 ' <======= scegli posizione 1a ruota
p2 = 4 ' <==== scegli posizione 2a ruota
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
ambata(1) = a
ambata(2) = b
ruota(1) = r1
ruote(1) = r1:ruote(2) = r2
t = t + 1
Scrivi "------------------------------------------------------------------ Giocata n°" & t,1
Scrivi DataEstrazione(es) & " : " & StringaEstratti(es,r1) & " " & SiglaRuota(r1),1,0
ColoreTesto 2
Scrivi" 1° estratto n° " & Format2(a),1,0
ColoreTesto 0
Scrivi " in " & p1 & "° posizione ",1
Scrivi DataEstrazione(es) & " : " & StringaEstratti(es,r2) & " " & SiglaRuota(r2),1,0
ColoreTesto 1
Scrivi" 1° estratto n° " & Format2(b),1,0
ColoreTesto 0
Scrivi " in " & p2 & "° posizione ",1
Scrivi
ImpostaGiocata 1,ambata,ruote,posta,4
Gioca es,1
Next
ScriviResoconto,0
End Sub

 

[*blacklotto*]

ImpostaGiocata 1,ambata,ruote,posta,4

togli il 4 e metti 1

 

[armando59]

ciao, lo script va benissimo.
sto' facendo delle modifiche ad esempio:
ImpostaGiocata 1,ambata,ruote,posta,25 (tolto 4 messo 25)
rs = InputBox("Quante estrazioni vuoi controllare?",,269) (tolto 270 messo 269)
ero partitito da quella data per capire se sarebbe stata una cosa fattibile come idea.

------------------------------------------------------------------ Giocata n°1
29.12.2018 : 10.88.89.34.77 BA 1° estratto n° 88 in 2° posizione
29.12.2018 : 13.12.01.27.88 VE 1° estratto n° 27 in 4° posizione

Estrazione generatrice del pronostico 09571 [156 - 29/12/2018]
G 0001 Numeri in gioco : 88.27 su BA VE per Estratto
V N. [88.27 ] [VE] [.. 27 .. .. ..] C. 4 Estratto 09575 [ 4 - 08/01/2019]


------------------------------------------------------------------ Giocata n°5
08.01.2019 : 21.04.09.63.02 BA 1° estratto n° 04 in 2° posizione
08.01.2019 : 45.27.03.50.16 VE 1° estratto n° 50 in 4° posizione

Estrazione generatrice del pronostico 09575 [ 4 - 08/01/2019]
G 0001 Numeri in gioco : 04.50 su BA VE per Estratto
V N. [04.50 ] [BA] [.. .. .. .. 50] C. 7 Estratto 09582 [ 11 - 24/01/2019]

forse chiedo troppo, si possono escludere le estrazioni che si trovano tra la previsione 88 27
e l'esito 27 a venezia come da esempio.
quindi nuova previsione 04 50 e cosi via.
ti ringrazio per l'impegno sei stato bravo
ciao buona serata