2 bei listati

[flapis]

Vi posto 2 listati che si giocano dall'ultima etrazione mensile, uno è un mio metodo. Sono molto semplici ma funzionano. Fatemi sapere:

Sub main()
Dim ruote(10)
Dim numeri1(10),numeri(10)
Dim posta(5), poste(5)
poste(1)=1
ruote(2)=2
ruote(9)=9
For n=8163 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
numeri(1)=(90-(Fuori90(Estratto(n,6,5)+9)))
numeri(2)=(Diametrale(Fuori90(Estratto(n,6,5)+9)))

ImpostaGiocata 1,numeri,ruote,poste,5
Gioca n
End If
Next
ScriviResoconto
End Sub

Questo è il mio:

' si gioca dalla ultima °
Sub main()
Dim ruote(11) 'indica il totale delle ruote
Dim a(10)
Dim poste(10)
poste(1)=1
ruote(10)=10
ruote(11)=12
For n=7850 To EstrazioneFin
If IndiceMensile (n+1)=1 Then 'indica la settimana di inizio gioco
a(1)=Fuori90(Estratto(n,5,5)+Estratto(n,6,3)+Estratto(n,1,1))/3
a(2)=Vert(Fuori90(Estratto(n,5,5)+Estratto(n,6,3)+Estratto(n,1,1))/3)
ImpostaGiocata 1,a,ruote,poste,7
Gioca n
ColoreTesto 2: SCRIVI"------------------------------------------------------------------------------<<<flapis>>>",1

End If
Next
ColoreTesto 7:
ScriviResoconto
ColoreTesto 2: SCRIVI"flapis flapis",1
End Sub


Sono vecchi ma funzionano ancora!!!!!!!!!

 

[sengirb]

Sul secondo script ho un errore di compilazione ...

 

[flapis]

se mi dici dove lo correggo, a me funzione bene

 

[flapis]

HAI RAGIONE, CORRETTO:
Sub main()
Dim ruote(11) 'indica il totale delle ruote
Dim a(10)
Dim poste(10)
poste(1)=1
ruote(10)=10
ruote(11)=12
For n=7850 To EstrazioneFin
If IndiceMensile (n+1)=1 Then 'indica la settimana di inizio gioco
a(1)=Fuori90(Estratto(n,5,5)+Estratto(n,6,3)+Estratto(n,1,1))/3
a(2)=Vert(Fuori90(Estratto(n,5,5)+Estratto(n,6,3)+ Estratto(n,1,1))/3)
ImpostaGiocata 1,a,ruote,poste,7
Gioca n
ColoreTesto 2: SCRIVI"------------------------------------------------------------------------------<<<flapis>>>",1

End If
Next
ColoreTesto 7:
ScriviResoconto
ColoreTesto 2: SCRIVI"flapis flapis",1
End Sub

FAMMI SAPERE

 

[flapis]

L'errore è questo ma non lo elimina:
a(1)=Fuori90(Estratto(n,5,5)+Estratto(n,6,3)+Estra tto(n,1,1))/3
devi togliere lo spazio, a me non lo fa fare

 

[franca46]

ciao sono riuscita a correggerlo

Sub main()
Dim ruote(11) 'indica il totale delle ruote
Dim a(10)
Dim poste(10)
poste(1)=1
ruote(10)=10
ruote(11)=12
For n=7850 To EstrazioneFin
If IndiceMensile (n+1)=1 Then 'indica la settimana di inizio gioco
a(1)=Fuori90(Estratto(n,5,5)+Estratto(n,6,3)+Estratto(n,1,1)/3)
a(2)=Vert(Fuori90(Estratto(n,5,5)+Estratto(n,6,3)+ Estratto(n,1,1))/3)
ImpostaGiocata 1,a,ruote,poste,7
Gioca n
ColoreTesto 2: SCRIVI"------------------------------------------------------------------------------<<<flapis>>>",1

End If
Next
ColoreTesto 7:
ScriviResoconto
ColoreTesto 2: SCRIVI"flapis flapis",1
End Sub

alla prossima

 

[flapis]

Il primo listato ha dato l'ambata 72 a TO

 

[franca46]

ciao flapis complimenti!!!!