errore di sintassi su programma di Marco -Elle ambo con numeretti 1 e 5 ps su Pa

[Alberto Anderlini]

qualcuno mi può correggere il programma? grazie ho evidenziato dove mi da errore.

Sub Main()
ColoreTesto 2
Scrivi "Ambo con i numeretti in 1° e 5° posizione su PA "
Scrivi "Gioca previsione su GE-MI "
Scrivi "Metodo e List by Marco"
ColoreTesto 0
Dim posta(1)
Dim poste(2)
Dim ruota(2)
Dim am(1)
Dim a1(2)
Dim a2(4)
posta(1) = 1
poste(2) = 1
clp = 12
ini = EstrazioneFin - 9900
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 7 To 7
For p1 = 1 To 1
For p2 = 5 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = < 10 And b = < 10 Then
ruota(1) = 4
ruota(2) = 5
co = co + 1
ColoreTesto 1
Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " ambo spia sortito su PA " & a & " - " & b,1
Scrivi String(80,"^"),1
ColoreTesto 0
am(1) = 11
ImpostaGiocata 1,am,ruota,posta,clp
a1(1) = 11
a1(2) = 27
ImpostaGiocata 2,a1,ruota,poste,clp
a1(1) = 11
a1(2) = 52
ImpostaGiocata 3,a1,ruota,poste,clp
a1(1) = 11
a1(2) = 69
ImpostaGiocata 4,a1,ruota,poste,clp
a1(1) = 11
a1(2) = 71
ImpostaGiocata 5,a1,ruota,poste,clp
a2(1) = 2
a2(2) = 11
a2(3) = 25
a2(4) = 69
ImpostaGiocata 6,a2,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[80Sete]

Ciao Alberto, ho fatto dei tentativi x farlo funzionare, ti anticipo che di script non ne capisco nulla,
però ora funziona, io cambio le Ruote, cambio i sommativi e l'estrazione di partenza (se serve)
devi solo togliere i 2 uguali e resta così:

If a < 10 And b < 10 Then

a me va a buon fine, perchè risulta la ricerca giusta,
se poi la soluzione è un'altra...... ben venga.

Ciao

 

[Xeroxs]

Ciao,
Va modificata quella riga di Codice in questo modo (vedi sotto) altrimenti non trova le giuste condizioni.
Comunque non è un errore, nel tempo per varie modifiche e programmi diversi il giusto modo di scriverlo e salvarlo è questo:

If a <= 10 And b <= 10 Then

il vecchio codice in spaziometria funziona se elimini lo spazio ma poi non lo salva.

 

[Alberto Anderlini]

Ciao Alberto, ho fatto dei tentativi x farlo funzionare, ti anticipo che di script non ne capisco nulla,
però ora funziona, io cambio le Ruote, cambio i sommativi e l'estrazione di partenza (se serve)
devi solo togliere i 2 uguali e resta così:

If a < 10 And b < 10 Then

a me va a buon fine, perchè risulta la ricerca giusta,
se poi la soluzione è un'altra...... ben venga.

Ciao

grazie

 

[Alberto Anderlini]

Ciao,
Va modificata quella riga di Codice in questo modo (vedi sotto) altrimenti non trova le giuste condizioni.
Comunque non è un errore, nel tempo per varie modifiche e programmi diversi il giusto modo di scriverlo e salvarlo è questo:

If a <= 10 And b <= 10 Then

il vecchio codice in spaziometria funziona se elimini lo spazio ma poi non lo salva.

grazie

 

[boris]

prova

If a < 10 And b < 10 Then

vedo che non è positivo saluti