un aiutino per script

[Alien.]

Ciao,ho uno script sommativo per il lotto che quando vi è un numero spia mi da i numeri da giocare ,ma adesso non so perchè non mi da più i numeri da mettere in gioco anche se le estrazioni sono tutte in regola.QUALI parametri devo controllare,grazie,(10 giorni fà è uscito il numero spia ...ma nulla),Grazie.

 

[claudio8]

Ricopia lo script in un post.
Come pensi che un terrestre possa sapere dove sta l'errore se tu che sei alieno non lo trovi leggendo il costrutto.......???

 

[Alien.]

è appunto dato che per fortuna non sono terrestre non so dove sta il costrutto ok vedo .

 

[Alien.]

da qui si può vedere qualche cosa ?
deve uscire un numero spia sulla nazionale.

Dim ruota(3)
Dim postee(3)
Dim a1(4)
postee(2) = 2
postee(3) = 1
clp = 12
ini = EstrazioneFin - 600
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For p1 = 1 To 5
a = Estratto(es,12,p1)
ok = 0
ruota(1) = 1
ruota(2) = 2
ruota(3) = 12

 

[Alien.]

se non da la previsione forse perchè è terminata la lunghezza delle previsioni non le collega ?

 

[Alien.]

postee(2) = 2
postee(3) = 1
clp = 12
ini = EstrazioneFin - 600
fin = EstrazioneFin				è qui l'errore -600?
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For p1 = 1 To 5
a = Estratto(es,12,p1)
ok = 0
ruota(1) = 1
ruota(2) = 2
ruota(3) = 12

 

[claudio8]

Sino a qui non c'è errore. Metti il resto.

se non da la previsione forse perchè è terminata la lunghezza delle previsioni non le collega ?

Non esiste quello che scrivi.

 

[claudio8]

ini = EstrazioneFin - 600 inizio ricerca
fin = EstrazioneFin si riferisce all'ultima estrazione
questo è il range di ricerca, dalla (estrazione ultima-600) alla ( ultima) .
se non puoi renderlo pubblico mettilio velocwmente e poi cancella.
attendo.

 

[Alien.]

Sino a qui non c'è errore. Metti il resto.



Non esiste quello che scrivi.

è bell'affare me l'ha detto chi la fatto...non riesce a capire perchè non funziona poi mi ha detto bho....acc.................

 

[Alien.]

For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For p1 = 1 To 5
a = Estratto(es,12,p1)
ok = 0
ruota(1) = 1
ruota(2) = 2
ruota(3) = 12
	QUI VI è LO SVILLUPPO DEL METODO
POI……
End If
If ok = 1 Then
co = co + 1
EliminaRipetuti a1
ImpostaGiocata 1,a1,ruota,postee,clp
Gioca es,1
co = co + 1
ColoreTesto 1
Scrivi String(80,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " BA " & a & " - " & p1 & "°" & " posizione"
Scrivi String(80,"*"),1
ColoreTesto 0
End If
Next
Next
ScriviResoconto
End Sub

 

[Alien.]

Non voglio fare il prezioso ma mi ha detto non pubblicarlgni parola data è un sigillo.

 

[claudio8]

Non ci sono errori in quanto hai postato.
Controlla il fine range di spazioìmetria .

 

[Master]

Ciao a tutti
1 cosa strana
a = Estratto(es,12,p1) ----> Quindi " a " è un estratto della Nazionale in posizione p1

come mai
Scrivi DataEstrazione(es) & " BA " & a & " - " & p1 & "°" & " posizione"
Ora " a " è diventato un estratto di Bari in posizione p1


Poi proverei una modifica....

 

[Alien.]

acc.....devo cambiare BA con nazionale?