Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Sub Main()
Dim ruote(1)
Dim numeri1(4)
Dim numeri2(4)
Dim numeri3(4)
Dim postA(4)
k = 10
postA(2) = 1
postA(3) = 1
postA(4) = 0.5
ruote(1) = 8
ini = 10070
For es = ini To EstrazioneFin
If IndiceMensile(es) = 2 Then
caso = caso + 1...
Sub Main()
Scrivi
Scrivi " ALLA 8° ESTRAZIONE MENSILE ",- 1,,,1,3
Scrivi
Scrivi
Scrivi " METODO IMAGING ",- 1,,,2,3
Scrivi
Dim ruote(10)
Dim nn1(10): Dim nn2(10) : Dim nn3(5) : Dim nn4(5) : Dim poste(2)
poste(2) = 1
klp = 9
ini = EstrazioneFin - 610 'imposta...
ALLA 8° ESTRAZIONE MENSILE
METODO IMAGING
******************************************************************************** Caso n° 1
18.08.2018---> 8° Estrazione Mensile
Estrazione generatrice del pronostico 09514 [ 99 - 18/08/2018]
G 0001 Numeri in gioco : 90.75 su MI per Ambo
V N...
ALLA 8° ESTRAZIONE MENSILE
******************************************************************************** Caso n° 1
18.08.2018---> 8° Estrazione Mensile
Estrazione generatrice del pronostico 09514 [ 99 - 18/08/2018]
G 0001 Numeri in gioco : 90.75 su MI per Ambo
V N. [90.75...
Sub Main()
Scrivi
Scrivi " ALLA ULTIMA° ESTRAZIONE MENSILE ",- 1,,,1,3
Scrivi
Scrivi
Scrivi " METODO TIZI",- 1,,,1,3
Scrivi
Dim ruote(10)
Dim nn1(1) : Dim nn2(2) : Dim postee(1)
postee(1) = 1
klp = 13
ini = EstrazioneFin - 100 'imposta l'intervallo di ricerca...
Ciao a tutti io ho trovato questo script:
Option Explicit
Sub Main
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r,p
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
Dim Ia,sVV,x,pp
sLink = "http://lottoscar.altervista.org/ArchivioLotto.italia.csv"
b = False...