Novità

Richiesta script se si può fare

armando59

Advanced Member >GOLD<
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
 
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.
 
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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22

Ultimi Messaggi

Indietro
Alto