per ixs

[Roby]

salve ixs ti volevo chiedere, perchè non posti il metodo di ba-ve del tentiamo l'ambo secco? penso che interesserebbe un pò a tutti, che ne dici. in attesa di un cordiale risposta porgo distinti saluti. ciao

cocuzza salvatore

 

[imported_n/a]

Ciao Salvatore, mi fa piacere poter essere utile, qui siete tutti bravissimi.... ecco il listato

Sub main()
Dim r(2)
Dim n1(2)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim p1(2)
Dim p2(2)
p1(1)=1
p1(2)=2
r(1)=1
r(2)=10
c=6
k1=2
For n=7478 To EstrazioneFin
If IndiceMensile =7 Then
n1(1)=Fuori90(Estratto(n,1,3)+30)
n1(2)=Fuori90(Estratto(n,8,1)+56)
EliminaRipetuti(n1)
ImpostaGiocata 1,n1,r,p1,c,k1
n2(1)=Fuori90(Estratto(n,1,3)+30)
n2(2)=Fuori90(Estratto(n,9,1)+86)
EliminaRipetuti(n2)
ImpostaGiocata 2,n2,r,p1,c,k1
n3(1)=Fuori90(Estratto(n,1,3)+30)
n3(2)=Fuori90(Estratto(n,4,1)+34)
EliminaRipetuti(n3)
ImpostaGiocata 3,n3,r,p1,c,k1
n4(1)=Fuori90(Estratto(n,1,3)+30)
n4(2)=Fuori90(Estratto(n,5,3)+9)
EliminaRipetuti(n4)
ImpostaGiocata 4,n4,r,p1,c,k1
Gioca n
End If
Next
ScriviResoconto
End Sub

Ne ho un'altro simile, lo posto nella sezione metodi.
Ciao iXs.

 

[imported_n/a]

Ciao Salvatore, mi fa piacere poter essere utile, qui siete tutti bravissimi.... ecco il listato

Sub main()
Dim r(2)
Dim n1(2)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim p1(2)
Dim p2(2)
p1(1)=1
p1(2)=2
r(1)=1
r(2)=10
c=6
k1=2
For n=7478 To EstrazioneFin
If IndiceMensile =7 Then
n1(1)=Fuori90(Estratto(n,1,3)+30)
n1(2)=Fuori90(Estratto(n,8,1)+56)
EliminaRipetuti(n1)
ImpostaGiocata 1,n1,r,p1,c,k1
n2(1)=Fuori90(Estratto(n,1,3)+30)
n2(2)=Fuori90(Estratto(n,9,1)+86)
EliminaRipetuti(n2)
ImpostaGiocata 2,n2,r,p1,c,k1
n3(1)=Fuori90(Estratto(n,1,3)+30)
n3(2)=Fuori90(Estratto(n,4,1)+34)
EliminaRipetuti(n3)
ImpostaGiocata 3,n3,r,p1,c,k1
n4(1)=Fuori90(Estratto(n,1,3)+30)
n4(2)=Fuori90(Estratto(n,5,3)+9)
EliminaRipetuti(n4)
ImpostaGiocata 4,n4,r,p1,c,k1
Gioca n
End If
Next
ScriviResoconto
End Sub

Ne ho un'altro simile, lo posto nella sezione metodi.
Ciao iXs.

 

[salvo68]

grazie di tutto però non so usare i listati, non puoi cortesemente scriverlo come si dice in chiaro? grazie

cocuzza salvatore

 

[salvo68]

grazie di tutto però non so usare i listati, non puoi cortesemente scriverlo come si dice in chiaro? grazie

cocuzza salvatore