R
Roby
Guest
<div align="left">GENTILMENTE RINGAZIO ANTICIPATAMENTE CHI MI PUO' AIUTARE
DESCRIVO QUANTO SEGUE:
1) LISTATO ADATTATO
2) RESOCONTO
seguendo le istruzioni del Signor LuigiB, e copiando un pò di qua ed un pò di la,
del lavoro altrui, ho provato a compilare uno script:
una sestina x ambo su napoli, tutto bene?, ma mi sono accorto che a volte il fuori90
mi da errori, specialmente quando lo script mi deve sottrarre un numero inferiore con un
numero maggiore e moltiplicarlo. DOVE SBAGLIO!
1) LISTATO ADATTATO
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1
ruote(1) = 1
ruote(2) = 0
ruote(3) = 0
es = InputBox("Quante estrazioni controllo?","Estrazioni",125)
ini = EstrazioneFin - es
fin = EstrazioneFin
For n = ini To EstrazioneFin
If IndiceMensile = 5 Then
numeri1(1) = Fuori90(Estratto(n,5,4) - Estratto(n,2,1) + 8)
numeri1(2) = Fuori90(Estratto(n,1,3) - Estratto(n,7,5) +84)
numeri1(3) = Fuori90(Estratto(n,2,3) * Estratto(n,1,5) * Estratto(n,5,1))
numeri1(4) = Fuori90(Estratto(n,3,1) + Estratto(n,3,4) + Estratto(n,10,3))
numeri1(5) = Fuori90(Estratto(n,4,1) + Estratto(n,1,1) * Estratto(n,5,5))
numeri1(6) = Fuori90(Estratto(n,5,1) * Estratto(n,5,3) - Estratto(n,2,5))
ImpostaGiocata 1,numeri1,ruote,poste,1
Gioca n
End If
Next
ScriviResoconto
End Sub
2) R E S O C O N T O
Estrazione generatrice del pronostico 08169 [ 5 - 12/01/2010]
G 0001
Numeri in gioco : 33.54.30.49.10.44 su BA per Ambo
N. [33.54.30.49.10.44 ] [BA] [.. .. .. .. 49] C. 1 Estratto 08170 [
6 - 14/01/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 12/01/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =33 Ok
2) 3° DI BA - 5° DI PA +84 =54 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =30 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =49 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =40 Ok SCRIPT MI DA =10 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =44 Ok
Estrazione generatrice del pronostico 08182 [ 18 - 11/02/2010]
G 0001
Numeri in gioco : 90.18.44.12.51.49 su BA per Ambo
V N. [90.18.44.12.51.49 ] [BA] [.. .. 90 12 ..] C. 1 Ambo 08183 [
19 - 13/02/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 11/02/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =86 Ok SCRIPT MI DA =90 ERRATO
2) 3° DI BA - 5° DI PA +84 =18 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =44 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =12 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =21 Ok SCRIPT MI DA =51 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =49 Ok
Estrazione generatrice del pronostico 08194 [ 30 - 11/03/2010]
G 0001
Numeri in gioco : 04.39.90.70.17.69 su BA per Ambo
N. [04.39.90.70.17.69 ] [BA] [.. .. .. .. 17] C. 1 Estratto 08195 [
31 - 13/03/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 11/03/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =04 Ok
2) 3° DI BA - 5° DI PA +84 =39 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =90 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =70 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =65 Ok SCRIPT MI DA =17 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =69 Ok
Estrazione generatrice del pronostico 08207 [ 43 - 10/04/2010]
G 0001
Numeri in gioco : 11.41.42.23.58.12 su BA per Ambo
N. [11.41.42.23.58.12 ] [BA] [.. .. .. .. 11] C. 1 Estratto 08208 [
44 - 13/04/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 10/04/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =11 Ok
2) 3° DI BA - 5° DI PA +84 =41 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =42 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =23 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =06 Ok SCRIPT MI DA =58 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =12 Ok
Estrazione generatrice del pronostico 08220 [ 56 - 11/05/2010]
G 0001
Numeri in gioco : 01.44.04
DESCRIVO QUANTO SEGUE:
1) LISTATO ADATTATO
2) RESOCONTO
seguendo le istruzioni del Signor LuigiB, e copiando un pò di qua ed un pò di la,
del lavoro altrui, ho provato a compilare uno script:
una sestina x ambo su napoli, tutto bene?, ma mi sono accorto che a volte il fuori90
mi da errori, specialmente quando lo script mi deve sottrarre un numero inferiore con un
numero maggiore e moltiplicarlo. DOVE SBAGLIO!
1) LISTATO ADATTATO
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1
ruote(1) = 1
ruote(2) = 0
ruote(3) = 0
es = InputBox("Quante estrazioni controllo?","Estrazioni",125)
ini = EstrazioneFin - es
fin = EstrazioneFin
For n = ini To EstrazioneFin
If IndiceMensile = 5 Then
numeri1(1) = Fuori90(Estratto(n,5,4) - Estratto(n,2,1) + 8)
numeri1(2) = Fuori90(Estratto(n,1,3) - Estratto(n,7,5) +84)
numeri1(3) = Fuori90(Estratto(n,2,3) * Estratto(n,1,5) * Estratto(n,5,1))
numeri1(4) = Fuori90(Estratto(n,3,1) + Estratto(n,3,4) + Estratto(n,10,3))
numeri1(5) = Fuori90(Estratto(n,4,1) + Estratto(n,1,1) * Estratto(n,5,5))
numeri1(6) = Fuori90(Estratto(n,5,1) * Estratto(n,5,3) - Estratto(n,2,5))
ImpostaGiocata 1,numeri1,ruote,poste,1
Gioca n
End If
Next
ScriviResoconto
End Sub
2) R E S O C O N T O
Estrazione generatrice del pronostico 08169 [ 5 - 12/01/2010]
G 0001
Numeri in gioco : 33.54.30.49.10.44 su BA per Ambo
N. [33.54.30.49.10.44 ] [BA] [.. .. .. .. 49] C. 1 Estratto 08170 [
6 - 14/01/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 12/01/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =33 Ok
2) 3° DI BA - 5° DI PA +84 =54 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =30 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =49 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =40 Ok SCRIPT MI DA =10 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =44 Ok
Estrazione generatrice del pronostico 08182 [ 18 - 11/02/2010]
G 0001
Numeri in gioco : 90.18.44.12.51.49 su BA per Ambo
V N. [90.18.44.12.51.49 ] [BA] [.. .. 90 12 ..] C. 1 Ambo 08183 [
19 - 13/02/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 11/02/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =86 Ok SCRIPT MI DA =90 ERRATO
2) 3° DI BA - 5° DI PA +84 =18 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =44 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =12 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =21 Ok SCRIPT MI DA =51 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =49 Ok
Estrazione generatrice del pronostico 08194 [ 30 - 11/03/2010]
G 0001
Numeri in gioco : 04.39.90.70.17.69 su BA per Ambo
N. [04.39.90.70.17.69 ] [BA] [.. .. .. .. 17] C. 1 Estratto 08195 [
31 - 13/03/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 11/03/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =04 Ok
2) 3° DI BA - 5° DI PA +84 =39 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =90 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =70 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =65 Ok SCRIPT MI DA =17 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =69 Ok
Estrazione generatrice del pronostico 08207 [ 43 - 10/04/2010]
G 0001
Numeri in gioco : 11.41.42.23.58.12 su BA per Ambo
N. [11.41.42.23.58.12 ] [BA] [.. .. .. .. 11] C. 1 Estratto 08208 [
44 - 13/04/2010]
Interrotta per raggiunta durata
CALCOLO GIOCATA NR.1 DEL 10/04/2010 DA ME EFFETTUATA
1) 4° DI MI - 1° DI CA +8 =11 Ok
2) 3° DI BA - 5° DI PA +84 =41 Ok
3) 3° DI CA * 5° DI BA * 1° DI MI =42 Ok
4) 1° DI FI + 4° DI FI + 3° DI VE =23 Ok
5) 1° DI GE + 1° DI BA * 5° DI MI =06 Ok SCRIPT MI DA =58 ERRATO
6) 1° DI MI * 3° DI MI - 5° DI CA =12 Ok
Estrazione generatrice del pronostico 08220 [ 56 - 11/05/2010]
G 0001
Numeri in gioco : 01.44.04