-
Luciano Alessandro Marino.
User deleted
Ciao a tutti. Io da tempo uso, con buoni risultati, questo programma (adattato un po da me). Se vi fa comodo. SPOILER (clicca per visualizzare)Sub main()
Dim tz1(3),tz2(3),tz3(3),tz4(3),tz5(5)
Dim ruota(12),poste1(3)
poste1(2)=1:poste1(3)=1
t=0
em=CInt(InputBox("Quale estrazione ","Ruote BA CA FI",1))
gg=CInt(InputBox("Quante estrazioni ",,6))
ini=7606
r1 =BA_ : r2=CA_ : r3=FI_ ': r4=11 ': r5=NZ_
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es
If IndiceMensile(es)=em Then
'1a terzina
tz1(1)=Fuori90 (90-(Estratto (es,5,1))+(Estratto (es,9,4)+32))
tz1(2)=Fuori90 (Cadenza (Estratto (es,3,5))+(Estratto (es,4,1)+7))
tz1(3)=Fuori90 ((Estratto (es,4,1))+(Estratto (es,5,4)+14))
'2a terzina
tz2(1)=Fuori90 (Figura (Estratto (es,3,5))+(Estratto (es,9,3)+40))
tz2(2)=Fuori90 (Cadenza (Estratto (es,5,5))+(Estratto (es,6,1)+13))
tz2(3)=Fuori90 (Figura (Estratto (es,1,5))+(Estratto (es,12,5)+5))
'3a terzina
tz3(1)=Fuori90 (Decina (Estratto (es,3,4))+ (Estratto (es,12,4)+54))
tz3(2)=Fuori90 ((Estratto (es,2,5)*Estratto (es,2,5))+(Estratto (es,7,1)+1))
tz3(3)=Fuori90 (Vert (Estratto (es,3,3))+ (Estratto (es,7,5)+31))
'4a terzina
tz4(1)=Fuori90 ((Estratto (es,2,4)*Estratto (es,2,4))+(Estratto (es,8,4)+3))
tz4(2)=Fuori90 (Cadenza (Estratto (es,8,3))+(Estratto (es,10,5)+34))
tz4(3)=Fuori90 (Vert (Estratto (es,1,1))+(Estratto (es,3,1)+25))
'5a terzina
tz5(1)=Fuori90 (Decina (Estratto (es,2,3))+ Cadenza (Estratto (es,2,3))+(Estratto (es,4,5)+7))
tz5(2)=Fuori90 ((Estratto (es,10,2))+(Estratto (es,12,1)+21))
tz5(3)=Fuori90 (DiametraleD (Estratto (es,1,5))+(Estratto (es,9,2)+34))
'ruota(1)=r1: ruota(2)=r2 : ruota (3)=r3 : ruota (4)=r4 : ruota (5)=r5
ruota(1)=BA_
ruota(2)=CA_
ruota(3)=FI_
ruota(4)=GE_
ruota(5)=MI_
ruota(6)=NA_
ruota(7)=PA_
ruota(8)=RO_
ruota(9)=TO_
ruota(10)=VE_
ruota(12)=NZ_
t=t+1
Scrivi "------------------------------------------------------------"
Scrivi DataEstrazione(es)&" alla "&em&"a estrazione del mese ",1
Scrivi "---------------------------------------------"& "Giocata n° "& Format2(t)
ImpostaGiocata 1,tz1,ruota,poste1,gg,3
ImpostaGiocata 2,tz2,ruota,poste1,gg,3
ImpostaGiocata 3,tz3,ruota,poste1,gg,3
ImpostaGiocata 4,tz4,ruota,poste1,gg,3
ImpostaGiocata 5,tz5,ruota,poste1,gg,3
For x= 1 To 5
For xx=2 To 5
ImpostaInterruzioni x,1,2
ImpostaInterruzioni x,xx,3
Next
Next
Gioca es
End If
Next
ScriviResoconto
End Sub.