roy
Super Member >PLATINUM<
ciao a tutti nella speranza che possa essere utile vi allego il listato
nb : ci sono delle modifiche se si vuole il gioco su tutte
....il gioco di ambata
....e l'estrazione che si vuole
...basta togliere l'apice
...anche se fatte le prove risulta il modo migliore
Sub Main()
ColoreTesto 1
Scrivi " Metodo bari venezia di roby100'''''''''''listato by ROY'''''''''''"
Dim posta(1),posta1(2)
Dim ruota(2),ruota1(3)
Dim n(1),n1(2),n2(2),n3(2)
posta(1) = 1
posta1(2) = 1
ruota(1) = 1
ruota(2) = 10
'ruota1(1) = 11 'se si vuole il gioco su tutte togliere l'apice 'ruota
ruota1(2) = 1
ruota1(3) = 10
k = 9
For es = 8600 To EstrazioneFin
If IndiceMensile(es) = 9 Then '<<<<< se si vuole cambiare estrazione mensile
casi = casi + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
n(1) = Fuori90(Estratto(es,BA_,5) + 84)
'ImpostaGiocata 1,n,ruota,posta,k 'se si vuole giocare l'ambata togliere l'apice a 'impostagiocata
n1(1) = Fuori90(Estratto(es,BA_,5) + 84)
n1(2) = 24
ImpostaGiocata 2,n1,ruota1,posta1,k
n2(1) = Fuori90(Estratto(es,BA_,5) + 84)
n2(2) = 27
ImpostaGiocata 3,n2,ruota1,posta1,k
n3(1) = Fuori90(Estratto(es,BA_,5) + 84)
n3(2) = 84
ImpostaGiocata 4,n3,ruota1,posta1,k
Gioca es,True
End If
Next
Scrivi String(100,"-")
ColoreTesto 1
Scrivi " metodo bari venezia di roby100 , listato by ROY "
Scrivi String(100,"-")
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub
nb : ci sono delle modifiche se si vuole il gioco su tutte
....il gioco di ambata
....e l'estrazione che si vuole
...basta togliere l'apice
...anche se fatte le prove risulta il modo migliore
Sub Main()
ColoreTesto 1
Scrivi " Metodo bari venezia di roby100'''''''''''listato by ROY'''''''''''"
Dim posta(1),posta1(2)
Dim ruota(2),ruota1(3)
Dim n(1),n1(2),n2(2),n3(2)
posta(1) = 1
posta1(2) = 1
ruota(1) = 1
ruota(2) = 10
'ruota1(1) = 11 'se si vuole il gioco su tutte togliere l'apice 'ruota
ruota1(2) = 1
ruota1(3) = 10
k = 9
For es = 8600 To EstrazioneFin
If IndiceMensile(es) = 9 Then '<<<<< se si vuole cambiare estrazione mensile
casi = casi + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
n(1) = Fuori90(Estratto(es,BA_,5) + 84)
'ImpostaGiocata 1,n,ruota,posta,k 'se si vuole giocare l'ambata togliere l'apice a 'impostagiocata
n1(1) = Fuori90(Estratto(es,BA_,5) + 84)
n1(2) = 24
ImpostaGiocata 2,n1,ruota1,posta1,k
n2(1) = Fuori90(Estratto(es,BA_,5) + 84)
n2(2) = 27
ImpostaGiocata 3,n2,ruota1,posta1,k
n3(1) = Fuori90(Estratto(es,BA_,5) + 84)
n3(2) = 84
ImpostaGiocata 4,n3,ruota1,posta1,k
Gioca es,True
End If
Next
Scrivi String(100,"-")
ColoreTesto 1
Scrivi " metodo bari venezia di roby100 , listato by ROY "
Scrivi String(100,"-")
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub