AIUTO PER LISTATO DOVE SBAGLIO

[Roby]

<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

 

[LuigiB]

cosi ad occhio mi sa che l'errore sta qui

fuori90(Estratto(n,5,4) - Estratto(n,2,1) + 8)

in base a questo codice al fuori90 potrebbe capitare anche un valore negativo , infatti fai finta che l'estratto in posizone 4 sia ad
esempio 1 e l'estratto in posizione 1 sia 90 , la tua formula diventerebbe

fuori90(1-90+8)

quindi

fuori90(-81)

forse quando fai la sottreazione dovresti fare una differenza ciclometrica con la funzione distanza come nella riga successiva


fuori90(distanza(Estratto(n,5,4) , Estratto(n,2,1)) + 8)

dove la differenza non la fai tu con la sottrazione ma la fai fare
alla funzione distanza che ti ritorna la distanza ciclometrica tra 2 numeri.

 

[giuseppe56]

Grazie

Signor LuigiB

per l'immediata risposta

Sempre gentilissimo ed altruista

eseguiro le Sue indicazioni

Grazie

Saluti Giuseppe

NEC RECISA RECEDIT

 

[Enplein]

...con il permesso di LuigiB, posto la mia
soluzione.

Ciao, Enplein.

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(n) = 5 Then

numeri1(1) = Fuori90(((Estratto(n,5,4)+90) - Estratto(n,2,1) )+ 8)

numeri1(2) = Fuori90(((Estratto(n,1,3)+90) - 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)+90) - Estratto(n,2,5))

ImpostaGiocata 1,numeri1,ruote,poste,1,2

Gioca n

End If

Next

ScriviResoconto

End Sub

 

[giuseppe56]

Gentilissimo

Signor Enplein

La ringazio per il suo altruismo.

(listato (perfetto) per quello che volevo ottenere).

Grazie

Saluti Giuseppe

NEC RECISA RECEDIT