Se a qualcuno interessa ed ha L8+ questo è il listato del metodo con aggiunto anche la NZ (i conteggi naturalmente ora partono ora dal maggio 05 introduzione della NZ)
il listato:
--------------------------------------------------
'metodo per ambata di vincenzina
'estr. ultima mese
'si prende l' ultimo estratto di una
'ruota e si gioca con il suo versibile
'il metodo è valido per ogni ruota
Sub main()
Dim ruote1(1)
Dim ruote2(1)
Dim ruote3(1)
Dim ruote4(1)
Dim ruote5(1)
Dim ruote6(1)
Dim ruote7(1)
Dim ruote8(1)
Dim ruote9(1)
Dim ruote10(1)
Dim ruote11(1)
Dim numeri1(10) 'giocata 1 x ba
Dim numeri2(10) 'giocata 2 x ca
Dim numeri3(10) 'giocata 3 x fi
Dim numeri4(10) 'giocata 4 x ge
Dim numeri5(10) 'giocata 5 x mi
Dim numeri6(10) 'giocata 6 x na
Dim numeri7(10) 'giocata 7 x pa
Dim numeri8(10) 'giocata 8 x rm
Dim numeri9(10) 'giocata 9 x to
Dim numeri10(10) 'giocata 10 x ve
Dim numeri11(10) 'giocata 11 x nz
Dim poste(10)
poste(1)=1 'posta x ambata
poste(2)=1 'posta x ambo
c=InputBox("Colpi Gioco?","Colpi di Gioco",10)
ruote1(1)=1 'ba
ruote2(1)=2 'ca
ruote3(1)=3 'fi
ruote4(1)=4 'ge
ruote5(1)=5 'mi
ruote6(1)=6 'na
ruote7(1)=7 'pa
ruote8(1)=8 'rm
ruote9(1)=9 'to
ruote10(1)=10 've
ruote11(1)=12 've
For n=EstrazioneFin-230 To EstrazioneFin
'If IndiceMensile
=1 Then 'numero estr. mensile
If IndiceMensile(n+1)=1 Then 'per ultima estr. mensile
Scrivi
Scrivi String(65,"*")
ColoreTesto 2 : Scrivi " < metodo di vicenzina >",1
ColoreTesto 0 : Scrivi String(45,"-")& "gioca dal "&dataestrazione(n+1)
numeri1(1)=Fuori90(Estratto(n,1,5))
numeri1(2)=Vert(numeri1(1))
ImpostaGiocata 1,numeri1,ruote1,poste,c,2
numeri2(1)=Fuori90(Estratto(n,2,5))
numeri2(2)=Vert(numeri2(1))
ImpostaGiocata 2,numeri2,ruote2,poste,c,2
numeri3(1)=Fuori90(Estratto(n,3,5))
numeri3(2)=Vert(numeri3(1))
ImpostaGiocata 3,numeri3,ruote3,poste,c,2
numeri4(1)=Fuori90(Estratto(n,4,5))
numeri4(2)=Vert(numeri4(1))
ImpostaGiocata 4,numeri4,ruote4,poste,c,2
numeri5(1)=Fuori90(Estratto(n,5,5))
numeri5(2)=Vert(numeri5(1))
ImpostaGiocata 5,numeri5,ruote5,poste,c,2
numeri6(1)=Fuori90(Estratto(n,6,5))
numeri6(2)=Vert(numeri6(1))
ImpostaGiocata 6,numeri6,ruote6,poste,c,2
numeri7(1)=Fuori90(Estratto(n,7,5))
numeri7(2)=Vert(numeri7(1))
ImpostaGiocata 7,numeri7,ruote7,poste,c,2
numeri8(1)=Fuori90(Estratto(n,8,5))
numeri8(2)=Vert(numeri8(1))
ImpostaGiocata 8,numeri8,ruote8,poste,c,2
numeri9(1)=Fuori90(Estratto(n,9,5))
numeri9(2)=Vert(numeri9(1))
ImpostaGiocata 9,numeri9,ruote9,poste,c,2
numeri10(1)=Fuori90(Estratto(n,10,5))
numeri10(2)=Vert(numeri10(1))
ImpostaGiocata 10,numeri10,ruote10,poste,c,2
numeri11(1)=Fuori90(Estratto(n,12,5))
numeri11(2)=Vert(numeri11(1))
ImpostaGiocata 11,numeri11,ruote11,poste,c,2
'TabellaGiocate
Gioca n
End If
Next
'ScriviResoconto 1
'ScriviResoconto 2
'ScriviResoconto 3
'ScriviResoconto 4
'ScriviResoconto 5
'ScriviResoconto 6
'ScriviResoconto 7
'ScriviResoconto 8
'ScriviResoconto 9
'ScriviResoconto 10
'ScriviResoconto 11
ScriviResoconto
ColoreTesto 1 : scrivi" ciao da maxma62",1
End Sub
------------------------------------------------
ciao, max
