omaggio :
Sub main()
Dim N1(6),N2(6)
Dim ruota(10),ruote(10)
Dim posta(5),poste(5)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'TUTTE LE RUOTE
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
posta(1)=5.0
posta(2)=6.0
'--------------------
poste(2)=2.0
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ini=8117
fin=EstrazioneFin
Messaggio DataEstrazione(es)
For es=ini To Fin
If IndiceMensile(es)=2 Then
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For R1=4 To 4
'ruota(1)=11'R1
'ruota(1)=r1
'ruota(2)=2
ruota(3)=3
'ruota(4)=4
'ruota(5)=5
'ruota(6)=6
'ruota(7)=7
'ruota(8)=8
'ruota(9)=9
ruota(10)=10
'--------------
ruote(1)=11
'ruote(2)=2
'ruote(3)=3
'ruote(4)=4
'ruote(5)=5
'ruote(6)=6
'ruote(7)=7
'ruote(8)=8
'ruote(9)=9
'ruote(10)=10
'-------------------------------------------------------
X=4
Y=4
'--------------------------
For K1=3 To 3
If Estratto(es,R1,K1)>0 And Cadenza(Estratto(es,R1,K1))=0 Then
For K2=5 To 5
If Estratto(es,R1,K2)>0 And Cadenza(Estratto(es,R1,K2))=0 Then
M1= inserite qui i numeri che volete
M2= inserite qui i numeri che volete
M3=
M4=
M5=
M6=
'-------------------------------
'-----------------------
'N1(1)=M1
'N1(2)=M2
N1(3)=M3'
N1(4)=M4'
N1(5)=M5'
N1(6)=M6'
'------------------------
N2(1)=M1
'N2 (2)=M2
N2(3)=M3'
N2(4)=M4'
N2(5)=M5'
N2(6)=M6'
SCRIVI""
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
co=co+1 : Scrivi String(70,"=")&" Caso n°"& Format2(co)&" indice mensile ES "& Format2(IndiceMensile(es)),1
Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K1))&" in pos. "& Format2(K1)&"° ",1
Scrivi("ESTRATTO ANALIZZATO---> ")&" "& Format2(Estratto(es,R1,K2))&" in pos. "& Format2(K2)&"° ",1
'scrivi""
ColoreTesto 0
Scrivi String(50,"=")
Scrivi DataEstrazione(es) &" ES "& Format2(ES) & " "& StringaEstratti(es,R1)&" "& Left(NomeRuota(R1),9),1
Scrivi("Estrazione del ---> ")&" "&DataEstrazione(es) &" dalla ES "& Format2(IndiceMensile(es)+1) &" alla ES "& Format2(IndiceMensile(es)+1+4),1
'-----------------------------------------
ImpostaGiocata 1,N1,ruota,posta,X,Y
ImpostaGiocata 2,N2,ruote,poste,X+7,Y+7
'TabellaGiocate
Gioca es
End If
Next
End If
Next
Next
End If
Next
ScriviResoconto 1
ScriviResoconto 2
End Sub