Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub main()
Dim amba(2),n(4),amba1(2),n1(4),n2(10),ruote(2),ruot(3),posta(2),poste(3),post(3),pos(4)
posta(1)=1 : posta(2)=1
poste(2)=1 : poste(3)=1
post(2)=1 : post(3)=1
pos(3)=0.5 : pos(4)=0.5
quante=InputBox("Quante estrazioni vuoi controllare?",100)
If quante=False Then Exit Sub
For es = (EstrazioneFin - quante) To EstrazioneFin : Messaggio es
If IndiceMensile(es)=1 Then
a=Estratto(es,BA_,1)
b=Estratto(es,BA_,2)
c=Estratto(es,BA_,3)
d=Estratto(es,CA_,1)
e=Estratto(es,CA_,2)
f=Estratto(es,CA_,3)
cont=cont+1
Scrivi
ColoreTesto 2 : Scrivi String(23,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&" BARI "&Space(2)&_
""& StringaEstratti(es,BA_)&""&Space(5)&""& Format2(a)&""&Space(1)&""& Format2(b)&""& Space(1)&""& Format2(c)
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&"CAGLIARI "&Space(2)&_
""& StringaEstratti(es,CA_)&""&Space(5)&""& Format2(d)&""&Space(1)&""& Format2(e)&""& Space(1)&""& Format2(f)
Scrivi
s1=Fuori90(a+b)
s2=Fuori90(d+e)
s3=Fuori90(s1+s2) ' 1°ambata
s4=Fuori90(a+c)
s5=Fuori90(d+f)
s6=Fuori90(s4+s5) ' 2°ambata
s7=Abs(a-b)
s8=Abs(d-e)
s9=Fuori90(s7+s8)
s10=Abs(a-c)
s11=Abs(d-f)
s12=Fuori90(s10+s11)
ruote(1)=BA_ : ruote(2)=CA_
ruot(1)=1 : ruot(2)=2 : ruot(3)=11
amba(1)=s3
amba(2)=s6
ImpostaGiocata 1,amba,ruote,posta,12
n(1)=s3
n(2)=Vert(s3)
n(3)=s6
n(4)=Vert(s6)
ImpostaGiocata 2,n,ruot,poste,12
amba1(1)=s9
amba1(2)=s12
ImpostaGiocata 3,amba1,ruote,posta,12
n1(1)=s9
n1(2)=Vert(s9)
n1(3)=s12
n1(4)=Vert(s12)
ImpostaGiocata 4,n1,ruot,poste,12
n2(1)=n(1)
n2(2)=n(2)
n2(3)=n(3)
n2(4)=n(4)
n2(5)=n1(1)
n2(6)=n1(2)
n2(7)=n1(3)
n2(8)=n1(4)
ImpostaGiocata 5,n2,ruot,pos,12
Scrivi : Gioca es : Scrivi String(68,151)
End If
Next
ScriviResoconto : ColoreTesto 2 :
End Sub
franca46;n2057410 ha scritto:ciao a tutti , sono riuscita a costruire il listato , però x L8 , se può servire
Codice:Sub main() Dim amba(2),n(4),amba1(2),n1(4),n2(10),ruote(2),ruot(3),posta(2),poste(3),post(3),pos(4) posta(1)=1 : posta(2)=1 poste(2)=1 : poste(3)=1 post(2)=1 : post(3)=1 pos(3)=0.5 : pos(4)=0.5 quante=InputBox("Quante estrazioni vuoi controllare?",100) If quante=False Then Exit Sub For es = (EstrazioneFin - quante) To EstrazioneFin : Messaggio es If IndiceMensile(es)=1 Then a=Estratto(es,BA_,1) b=Estratto(es,BA_,2) c=Estratto(es,BA_,3) d=Estratto(es,CA_,1) e=Estratto(es,CA_,2) f=Estratto(es,CA_,3) cont=cont+1 Scrivi ColoreTesto 2 : Scrivi String(23,32)&" Pronostico n° " &cont&"",1 ColoreTesto 0 : Scrivi Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&" BARI "&Space(2)&_ ""& StringaEstratti(es,BA_)&""&Space(5)&""& Format2(a)&""&Space(1)&""& Format2(b)&""& Space(1)&""& Format2(c) Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&"CAGLIARI "&Space(2)&_ ""& StringaEstratti(es,CA_)&""&Space(5)&""& Format2(d)&""&Space(1)&""& Format2(e)&""& Space(1)&""& Format2(f) Scrivi s1=Fuori90(a+b) s2=Fuori90(d+e) s3=Fuori90(s1+s2) ' 1°ambata s4=Fuori90(a+c) s5=Fuori90(d+f) s6=Fuori90(s4+s5) ' 2°ambata s7=Abs(a-b) s8=Abs(d-e) s9=Fuori90(s7+s8) s10=Abs(a-c) s11=Abs(d-f) s12=Fuori90(s10+s11) ruote(1)=BA_ : ruote(2)=CA_ ruot(1)=1 : ruot(2)=2 : ruot(3)=11 amba(1)=s3 amba(2)=s6 ImpostaGiocata 1,amba,ruote,posta,12 n(1)=s3 n(2)=Vert(s3) n(3)=s6 n(4)=Vert(s6) ImpostaGiocata 2,n,ruot,poste,12 amba1(1)=s9 amba1(2)=s12 ImpostaGiocata 3,amba1,ruote,posta,12 n1(1)=s9 n1(2)=Vert(s9) n1(3)=s12 n1(4)=Vert(s12) ImpostaGiocata 4,n1,ruot,poste,12 n2(1)=n(1) n2(2)=n(2) n2(3)=n(3) n2(4)=n(4) n2(5)=n1(1) n2(6)=n1(2) n2(7)=n1(3) n2(8)=n1(4) ImpostaGiocata 5,n2,ruot,pos,12 Scrivi : Gioca es : Scrivi String(68,151) End If Next ScriviResoconto : ColoreTesto 2 : End Sub