Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

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
 

armando59

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

Senior Member
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
 

armando59

Advanced Member >GOLD<
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
    giovedì 21 gennaio 2021
    Bari
    18
    43
    19
    69
    15
    Cagliari
    17
    27
    61
    09
    76
    Firenze
    69
    63
    81
    26
    61
    Genova
    89
    36
    07
    81
    66
    Milano
    39
    82
    74
    12
    40
    Napoli
    07
    53
    05
    73
    88
    Palermo
    27
    58
    08
    52
    19
    Roma
    17
    38
    39
    40
    29
    Torino
    66
    90
    17
    74
    29
    Venezia
    08
    12
    88
    40
    87
    Nazionale
    71
    21
    54
    79
    77
    Estrazione Simbolotto
    Bari
    38
    04
    36
    33
    01
Alto