PER L' ESPERTO ENPLEIN

[Roby]

Ciao ENPLEIN,
seguo con costanza il forum e ti leggo spesso ed insieme a max
postate spesso le statistiche dei metodi proposti. Ti chiedo
gentilmente visto che nessuno mi risponde, di risolvermi questo
quesito; di questo listatino che propondo devo fare anche il
vertibile di (x) come devo fare ? me lo fai vedere ? grazie e ciao

lola



Sub main()
Dim ruote(11)
Dim numeri1(10)
Dim poste(10)
poste(1)=0
poste(2)=3
For n=7694 To EstrazioneFin
If IndiceMensile=3 Then

ruote(1)=1
ruote(2)=2
ruote(3)=3
ruote(4)=4
ruote(5)=5
ruote(6)=6
ruote(7)=7
ruote(8)=8
ruote(9)=9
ruote(10)=10
ruote(11)=12


K=13

numeri1(1)=x

x=Fuori90(Estratto(n,1,2)+7)
numeri1(2)=4
If Cadenza(x)=0 Then x=Fuori90(x+3) End If
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,K,2

Gioca n
End If
Next
ScriviResoconto
End Sub



livia

 

[franca46]

ciao Lola

Sub main()
Dim ruote(11)
Dim numeri1(3)
Dim poste(2)
poste(1)=0
poste(2)=3
For n=7694 To EstrazioneFin
If IndiceMensile(n)=3 Then

ruote(1)=1
ruote(2)=2
ruote(3)=3
ruote(4)=4
ruote(5)=5
ruote(6)=6
ruote(7)=7
ruote(8)=8
ruote(9)=9
ruote(10)=10
ruote(11)=12

K=13

x=Fuori90(Estratto(n,1,2)+7)

numeri1(1)=x
numeri1(2)=Vert(x) '*********
numeri1(3)=4

If Cadenza(x)=0 Then x=Fuori90(x+3) End If 
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,K,0

Gioca n
End If
Next
ScriviResoconto
End Sub

te l'ho fatto provalo nel listato è segnato con ****

ho corretto Dim numeri1(3)inutile mettere 10

ho corretto Dim poste(2) inutile mettere 5

un caro saluto

Franca46

 

[lola]

Ciao Franca46,

grazie, grazie per la risposta sollecita a buon rendere ciao

lola

livia

 

[franca46]

Franca46