QUESTO SCRIPT CALCOLA SU BARI UN'AMBO ,CHE VIENE RICALCOLATO OGNI 4 ESTRAZIONI,SI GIOCA QUINDI SU BARI PER 4 COLPI.LO SCRIPT DA' LA POSSIBILITA' DI SCELTA DELL'ESTRAZIONE INIZIALE E DEL FUORI QUOTA DA ESEGUIRE(FUORI 90 O 91)
'Metodo sommativo su Bari X Codicebinario e listato da Enplein
Sub main()
Dim ab(2),ambo1(2),ambo2(2),ambo3(2),ambo4(2)
Dim ruota(1),ruote(2),poste1(2)
poste1(2)=1
t=0
im=CInt (InputBox ("Quale indice mensile vuoi? 1= fine mese, 5= 4° del mese, 9= 8° del mese ",,1))
fq=CInt (InputBox ("F.90=1 o F.91=2 ???",,1))
'Imposta la giocata su Ba
r1 =1
ini=6982 '3/1/2001
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es
If Indicemensile (es+1)=im Then
If im=1 Then riga="fine mese"
If im=5 Then riga="4° del mese"
If im=9 Then riga="8° del mese"
n1=Estratto (es,1,1):n2=Estratto (es,2,2)
n3=Estratto (es,10,1):n4=Estratto (es,2,1)
If fq=1 Then
q=90
k=0
ambo1(1) = Fuori90 (n1*50) :ambo1(2) =Fuori90 (n2+63)
ambo2(1) = Fuori90 (n1+2) :ambo2(2) =Fuori90 (n1+59)
ambo3(1) = Fuori90 (n1+40) :ambo3(2) =Fuori90 (n3+65)
ambo4(1) = Fuori90 (n1+24) :ambo4(2) =Fuori90 (n4+39)
If ambo1(1)=ambo1(2) Then ab(1)=ambo1(1):ab(2)=91-ambo1(1)
k=1
If ambo2(1)=ambo2(2) Then ab(1)=ambo2(1):ab(2)=91-ambo2(1)
k=1
If ambo3(1)=ambo3(2) Then ab(1)=ambo3(1):ab(2)=91-ambo3(1)
k=1
If ambo4(1)=ambo4(2) Then ab(1)=ambo4(1):ab(2)=91-ambo4(1)
k=1
End If
If fq=2 Then
q=91
k=0
ambo1(1) = fuori91 (n1*50) :ambo1(2) =fuori91 (n2+63)
ambo2(1) = fuori91 (n1+2) :ambo2(2) =fuori91 (n1+59)
ambo3(1) = fuori91 (n1+40) :ambo3(2) =fuori91 (n3+65)
ambo4(1) = fuori91 (n1+24) :ambo4(2) =fuori91 (n4+39)
If ambo1(1)=ambo1(2) Then ab(1)=ambo1(1):ab(2)=91-ambo1(1)
k=1
If ambo2(1)=ambo2(2) Then ab(1)=ambo2(1):ab(2)=91-ambo2(1)
k=1
If ambo3(1)=ambo3(2) Then ab(1)=ambo3(1):ab(2)=91-ambo3(1)
k=1
If ambo4(1)=ambo4(2) Then ab(1)=ambo4(1):ab(2)=91-ambo4(1)
k=1
End If
ruota(1)=r1:ruote(1)=r1:ruote(2)=11
t=t+1
Scrivi "------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "& NomeRuota (r1)&" "& (riga)&" con il fuori "&q& Chr (10)&_
"1°BA "& Format2 (n1)&"*50 e 2°CA "& Format2 (n2)&"+63"& Chr (10)&_
"1°BA "& Format2 (n1)&"+02 e 1°BA "& Format2 (n1)&"+59"& Chr (10)&_
"1°BA "& Format2 (n1)&"+40 e 1°VE "& Format2 (n3)&"+65"& Chr (10)&_
"1°BA "& Format2 (n1)&"+24 e 1°CA "& Format2 (n4)&"+39",1
Scrivi "---------------------------------------------"& "Giocata n° "& Format2(t)
ImpostaGiocata 1,ambo1,ruota,poste1,4,2
ImpostaGiocata 2,ambo2,ruota,poste1,4,2
ImpostaGiocata 3,ambo3,ruota,poste1,4,2
ImpostaGiocata 4,ambo4,ruota,poste1,4,2
If ok=1 Then ImpostaGiocata 5,ab,ruote,poste1,4,2
Gioca es
End If
Next
ScriviResoconto
End Sub
Function fuori91(numero)
nn=Int (numero/91)
If numero-(nn*91)=0 Then fuori91=90 Else fuori91= numero-(nn*91)
End Function
SUERTE !!!!