Ambi Isotopi su Ruote Diametrali

[Blackmore]

Codice: Seleziona tutto

' Se usate L8 o Lottodesk togliete la virgola e l' 1 dopo Gioca es
Sub Main()
ColoreTesto 1
Scrivi:Scrivi String(23," ")&"Ambi Isotopi su Ruote Diametrali... Metodo e Script By Blackmore",1
Scrivi:ColoreTesto 0 
Dim ruote(10)
Dim n(1)
Dim num(4)
Dim a(4)
Dim posta(1)
Dim poste(4)
posta(1)=1
poste(2)=1
poste(3)=1
poste(4)=0.50
k = InputBox("COLPI DI GIOCO",,8)
ini = InputBox("ESTRAZIONE DI PARTENZA",,4748)
fin = InputBox("ULTIMA ESTRAZIONE",,EstrazioneFin)
For es = ini To fin
AvanzamentoElab Ini,fin,es
Messaggio " "& DataEstrazione(es)&" "& String(4," ")&"AMBI ISOTOPI SU RUOTE DIAMETRALI...By BLACKMORE" 
For r1 = 1 To 5
r2 = r1 + 5
For p1 = 1 To 4
For p2 = p1+1 To 5

n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)

If n3 = n1 Or n3 = n2 Then
If n4 = n1 Or n4 = n2 Then
ruote(1)= r1 : ruote(2)= r2
casi=casi+1
ColoreTesto 1:Scrivi String(100,"*")&" Caso n°"& Format2(casi),1:ColoreTesto 0
Scrivi DataEstrazione(es)&" - "& SiglaRuota(r1)&" - "& StringaEstratti(es,r1)&" - Ambo Isotopo [ "& Format2(n1)&"-"& Format2(n2)&" ]"
Scrivi DataEstrazione(es)&" - "& SiglaRuota(r2)&" - "& StringaEstratti(es,r2)&" - Ambo Isotopo [ "& Format2(n3)&"-"& Format2(n4)&" ]"

If r1= 1 And r2 = 6 Then a(1)= Fuori90(Decina(Estratto(es,BA_,4))+1):a(2)=Fuori90(Estratto(es,RO_,1)*5 +28):a(3)=Fuori90(Estratto(es,FI_,1)*3 +9):a(4)=Fuori90(Estratto(es,PA_,4)*Estratto(es,PA_,4)+4)
If r1= 2 And r2 = 7 Then a(1)= Fuori90(Estratto(es,CA_,3)+ Estratto(es,TO_,1)+2):a(2)=Fuori90(Estratto(es,BA_,1)+Estratto(es,GE_,3)+38):a(3)=Fuori90(Estratto(es,CA_,1)+Estratto(es,NA_,5)+46):a(4)=Fuori90(Estratto(es,CA_,4)+Estratto(es,TO_,4)+61)
If r1= 3 And r2 = 8 Then a(1)= Fuori90(Estratto(es,BA_,1)+ Estratto(es,FI_,2)+1):a(2)=Fuori90(Estratto(es,NA_,5)+Estratto(es,PA_,1)+32):a(3)=Fuori90(Estratto(es,CA_,2)+Estratto(es,RO_,4)):a(4)=Fuori90(Estratto(es,RO_,3)+Estratto(es,TO_,4)+6)
If r1= 4 And r2 = 9 Then a(1)= Fuori90(Estratto(es,BA_,1)+ Estratto(es,CA_,3)+1):a(2)=Fuori90(Estratto(es,FI_,3)+Estratto(es,VE_,1)+88):a(3)=Fuori90(Estratto(es,PA_,2)+Estratto(es,TO_,1)+14):a(4)=Fuori90(Estratto(es,MI_,3)+Estratto(es,RO_,5)+9)
If r1= 5 And r2 = 10 Then a(1)= Fuori90(Estratto(es,BA_,5)+ Estratto(es,GE_,5)+1):a(2)=Fuori90(Estratto(es,PA_,5)+Estratto(es,TO_,1)+87):a(3)=Fuori90(Estratto(es,MI_,3)+Estratto(es,VE_,3)+11):a(4)=Fuori90(Estratto(es,GE_,4)+Estratto(es,TO_,1)+55)

co=0
n(1)= a(1)
co=co+1
ImpostaGiocata co,n,ruote,posta,k,1
num(1)= a(1)
num(2)= a(2)
num(3)= a(3)
num(4)= a(4)
co=co+1
ImpostaGiocata co,num,ruote,poste,k,2
Gioca es,1  ' Se usate L8 o Lottodesk togliete la virgola e l'1 dopo Gioca es
End If
End If 
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi String(50,"=")&"> Matematica Sommativa By Blackmore",1
Scrivi
Scrivi
ScriviResoconto 
End Sub

[DjNomade]

Interessante Black