Indice Mensile + Figura 3° Estratto di Bari (Sommativo)

[Blackmore]

Questo mese ha pagato, aspettiamo l' 8° estrazione del mese prossimo...

Ciao

'SE USATE L8 TOGLIETE LA VIRGOLA E L'1 DOPO Gioca Es
Sub main()
ColoreTesto 2:scrivi:scrivi String(120,"X"),1 :coloretesto 1 
scrivi:scrivi String(30," ")&" 8°ESTRAZIONE DEL MESE + FIGURA DEL 3°ESTRATTO DI BARI",1
scrivi:scrivi String(43," ")&" METODO E SCRIPT BY BLACKMORE",1
ColoreTesto 2:scrivi:scrivi String(120,"X"),1:coloretesto 0 
Scrivi " Indice Mensile / Figura Spia 3°Estratto di Bari",1
Dim ruote(10)
Dim x(10):Dim am(1):Dim a1(2):Dim a2(2):Dim a3(2):Dim q(4)
Dim posta(1):Dim poste(2):Dim postex(4)
posta(1)=1
poste(2)=2
postex(2)=1
postex(3)=0.90
postex(4)=0.10
ie = InputBox("INIZIO ESTRAZIONE:","BLACKMORE",8060)
im = CInt(InputBox("INDICE MENSILE:","BLACKMORE",8))
rg = InputBox("RUOTA DI RICERCA:","BLACKMORE",1)
pz = InputBox("POSIZIONE DELL'ESTRATTO:","BLACKMORE",3) 
kk = InputBox("COLPI DI GIOCO:","BLACKMORE",8)
ini = ie
fin = EstrazioneFin 
For es = ini To fin
Call AvanzamentoElab(ini,fin,es) 
Messaggio " [ 8°ESTRAZIONE DEL MESE + FIGURA DEL 3°ESTRATTO DI BARI By BLACKMORE ]" 
If Indicemensile(es) = im Then 
a = Figura(Estratto(es,rg,pz))
casi=casi+1
Scrivi String(110,"x")&" Caso n°"& Format2(casi),1 :coloretesto 1 
Scrivi DataEstrazione(es)&"   "& SiglaRuota(rg)&"   "& StringaEstratti(es,rg)&"  ...  "& Indicemensile(es)&"°Estrazione del mese [Figura del "& pz&"°Estratto di "&nomeruota(rg)&" = " &figura(a)&"]"

If a=1 Then x(1)=Fuori90(90-(Estratto(es,BA_,1))+Estratto(es,NZ_,5)+01):x(2)=Fuori90(Estratto(es,BA_,5)+Estratto(es,TO_,5)+09):x(3)=Fuori90(Estratto(es,GE_,3)+Estratto(es,PA_,1)+23):x(4)=Fuori90(Estratto(es,NA_,3)+Estratto(es,TO_,3)+40):r1=1:r2=6
If a=2 Then x(1)=Fuori90(90-(Estratto(es,BA_,5))+Estratto(es,MI_,4)+01):x(2)=Fuori90(Estratto(es,BA_,1)+Estratto(es,GE_,4)+06):x(3)=Fuori90(Estratto(es,BA_,5)+Estratto(es,PA_,3)+53):x(4)=Fuori90(Estratto(es,GE_,4)+Estratto(es,VE_,3)+79):r1=1:r2=7
If a=3 Then x(1)=Fuori90(90-(Estratto(es,BA_,2))+Estratto(es,RO_,3)+01):x(2)=Fuori90(Estratto(es,VE_,5)+Estratto(es,NZ_,5)+59):x(3)=Fuori90(Estratto(es,MI_,5)+Estratto(es,PA_,2)+83):x(4)=Fuori90(Estratto(es,BA_,5)+Estratto(es,MI_,2)+89):r1=1:r2=8
If a=4 Then x(1)=Fuori90(90-(Estratto(es,BA_,4))+Estratto(es,TO_,3)+01):x(2)=Fuori90(Diametrale(Estratto(es,BA_,5))+21):x(3)=Fuori90(90-(Estratto(es,RO_,3))+28):x(4)=Fuori90(Diametrale(Estratto(es,MI_,2))+50):r1=1:r2=9
If a=5 Then x(1)=Fuori90(90-(Estratto(es,BA_,1))+Estratto(es,CA_,4)+01):x(2)=Fuori90(Estratto(es,FI_,2)+Estratto(es,PA_,1)+30):x(3)=Fuori90(Estratto(es,FI_,3)+Estratto(es,NZ_,2)+52):x(4)=Fuori90(Estratto(es,NA_,5)+Estratto(es,VE_,5)+89):r1=1:r2=10
If a=6 Then x(1)=Fuori90(90-(Estratto(es,BA_,3))+Estratto(es,GE_,3)+01):x(2)=Fuori90(Estratto(es,BA_,4)+Estratto(es,MI_,2)+44):x(3)=Fuori90(Estratto(es,MI_,5)+Estratto(es,NA_,2)+57):x(4)=Fuori90(Estratto(es,TO_,5)+Estratto(es,NZ_,1)+60):r1=1:r2=2
If a=7 Then x(1)=Fuori90(90-(Estratto(es,BA_,1))+Estratto(es,VE_,1)+01):x(2)=Fuori90(Estratto(es,MI_,3)+Estratto(es,TO_,1)+09):x(3)=Fuori90(Estratto(es,GE_,5)+Estratto(es,RO_,2)+11):x(4)=Fuori90(Estratto(es,RO_,2)+Estratto(es,TO_,4)+19):r1=1:r2=3
If a=8 Then x(1)=Fuori90(90-(Estratto(es,CA_,1))+Estratto(es,GE_,3)+01):x(2)=Fuori90(Estratto(es,CA_,4)+Estratto(es,VE_,3)+09):x(3)=Fuori90(Estratto(es,CA_,3)+Estratto(es,TO_,5)+19):x(4)=Fuori90(Estratto(es,MI_,2)+Estratto(es,RO_,3)+23):r1=1:r2=4
If a=9 Then x(1)=Fuori90(90-(Estratto(es,BA_,4))+Estratto(es,NA_,5)+01):x(2)=Fuori90(Estratto(es,TO_,1)+Estratto(es,VE_,2)+82):x(3)=Fuori90(Estratto(es,BA_,2)+Estratto(es,FI_,4)+18):x(4)=Fuori90(Estratto(es,RO_,4)+Estratto(es,TO_,4)+25):r1=1:r2=5

rip=0
If NumeriRipetuti(x) Then
rip=1
While NumeriRipetuti(x)
For i=1 To 3
For y=i+1 To 4
If x(i)=x(y) Then x(y)=Fuori90(x(y)+1)
Next
Next
Wend
End If

co=0:ruote(1)=r1 : ruote(2)= r2
'-------------------------------------------------------- 1°AMBO 
a1(1)=x(1)
a1(2)=x(2)
co=co+1
ImpostaGiocata co,a1,ruote,poste,kk,2
'-------------------------------------------------------- 2°AMBO 
a2(1)=x(1)
a2(2)=x(3)
co=co+1
ImpostaGiocata co,a2,ruote,poste,kk,2
'-------------------------------------------------------- 3°AMBO 
a3(1)=x(1)
a3(2)=x(4)
co=co+1
ImpostaGiocata co,a3,ruote,poste,kk,2
'-------------------------------------------------------- QUARTINA  
q(1)=x(1)
q(2)=x(2)
q(3)=x(3)
q(4)=x(4)
co=co+1
ImpostaGiocata co,q,ruote,postex,kk,4

Gioca es,1
End If 
If scriptinterrotto Then Exit For 
Next 
ColoreTesto 1:scrivi:scrivi String(70,"*")&" Matematica Sommativa By Blackmore",1
ColoreTesto 0:Scrivi:ScriviResoconto 
End Sub

 

[rabberto]

Ciao Blackmore grazie per i lavori che regali a tutti noi , non c'e' che dire in tanti fanno metodi sommativi ma tu sei il numero uno con i sommativi , ciao.

 

[desperaux]

Ciao Blackmore grazie per i lavori che regali a tutti noi , non c'e' che dire in tanti fanno metodi sommativi ma tu sei il numero uno con i sommativi , ciao.

Ciao Blackmore grazie

non posso che essere piu' che concorde con cio' che ha scritto rabberto