Ciauz
Codice: Seleziona tutto
'http://www.pentambo.info/forum/viewtopic.php?f=22&p=24867&sid=52494ad218ab2e2ba8b7fdf97164d5df#p24867
Sub main()
Dim ruote(2)
Dim n(6),est(7)
Dim ambata(2)
Dim am1(2),am2(2),am3(2),am4(2),am5(2)
Dim posta(1)
Dim poste(2)
Dim poste1(4)
posta(1)=1
poste(2)=1
poste1(2)=1.50
poste1(3)=.50
Scrivi
Scrivi String(40," ")&"********* PALERMO-ROMA by XXOMBRAXX ******",1
Scrivi String(40," ")&"******* ******",1
ColoreTesto 2
Scrivi
Scrivi String(50," ")&" DjNomade",1
ColoreTesto 1
Scrivi
Scrivi String(88,"*")&_
"listato da Franco Florindi",1
ColoreTesto 0
t=0
fin=EstrazioneFin
k=InputBox("Quante estrazioni vuoi controllare?",,60)
For es = EstrazioneFin - k To EstrazioneFin
For r=7 To 7
For p= 1 To 1
a=Estratto(es,r,p)
rr=r+1
b=Estratto(es,rr,p)
If a>b Then
n1=(a-b)
n2=Vert(n1)
n3=Fuori90(n1+2)
n4=Fuori90(90+n1-2)
n5=Fuori90(n2+2)
n6=Fuori90(90+n2-2)
ruote(1)=r
ruote(2)=rr
t=t+1
Scrivi"-------------------------------------------------------------------",1
Scrivi DataEstrazione(es)&" "& NomeRuota(r)&" "& Format2(a)&" "& NomeRuota(rr)&" "& Format2(b),1
scrivi"---------------------------------------------------------Giocata n°"& Format2(t),1
ambata(1)=n1
ambata(2)=n2
ImpostaGiocata 1,ambata,ruote,posta,10,1
am1(1)=n1
am1(2)=n3
ImpostaGiocata 2,am1,ruote,poste,12,2
am2(1)=n1
am2(2)=n4
ImpostaGiocata 3,am2,ruote,poste,12,2
am3(1)=n1
am3(2)=n5
ImpostaGiocata 4,am3,ruote,poste,12,2
am4(1)=n1
am4(2)=n6
ImpostaGiocata 5,am4,ruote,poste,12,2
am5(1)=n2
am5(2)=n3
ImpostaGiocata 6,am5,ruote,poste,12,2
am5(1)=n2
am5(2)=n4
ImpostaGiocata 7,am5,ruote,poste,12,2
am5(1)=n2
am5(2)=n5
ImpostaGiocata 8,am5,ruote,poste,12,2
am5(1)=n2
am5(2)=n6
ImpostaGiocata 9,am5,ruote,poste,12,2
End If
Gioca es
Next
Next
Next
ScriviResoconto
End Sub