HTML
Dim nu1(2),nu2(4),nu3(5),ruote1(2),ruote2(2),ruote3(1),ruota(1)
Dim posta(1),poste(3),post(4),pos(5)
Dim rt(1),nr1(2),nr2(2) 'contr. ambi su tutte
posta(1)=5:poste(2)=1.5
post(2)=1.5:post(3)=1.5:post(4)=1.5
pos(2)=1.5:pos(3)=1.5:pos(4)=1.5:pos(5)=1.5
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8224)
k=InputBox ("per quanti colpi?","colpi di gioco",7)
ini=ce
fin=EstrazioneFin
Scrivi "due ruote in rampa di lancio di paolo carta_variante 2",1
Scrivi "script by maxma62_formula metodo by ramco",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
If a=d And b=c Or a=c And b=d Then
d1=Diametrale(a):d2=Diametrale(b)
For r3=1 To 10
For p5=1 To 5
e=Estratto(es,r3,p5)
For r4=r3+1 To 12
If r2=11 Then r2=12
If r3<>r4 And r1<>r3 And r1<>r4 And r2<>r3 And r2<>r4 Then 'su ruote diverse
For p6=1 To 5
f=Estratto(es,r4,p6)
'If e=d1 And f=d2 Or e=d2 And f=d1 Then
'------------------------------
'formula di ramco
n1=a
If n1<10 And Cadenza(n1)>0 And Cadenza(n1)<6 Then a1=(6)-n1
If n1<10 And Cadenza(n1)>5 Then a1=(15)-n1
If n1>9 And Cadenza(n1)>0 And Cadenza(n1)<6 Then a1=Fuori90((90+66)-n1)
If n1>9 And Cadenza(n1)>5 Then a1=Fuori90((90+75)-n1)
If n1>9 And Cadenza(n1)=0 Then a1=Fuori90((90+66)-n1) : b1=Fuori90((90+60)-n1)
'------------------------------
n2=b
If n2<10 And Cadenza(n2)>0 And Cadenza(n2)<6 Then a2=(6)-n2
If n2<10 And Cadenza(n2)>5 Then a2=(15)-n2
If n2>9 And Cadenza(n2)>0 And Cadenza(n2)<6 Then a2=Fuori90((90+66)-n2)
If n2>9 And Cadenza(n2)>5 Then a2=Fuori90((90+75)-n2)
If n2>9 And Cadenza(n2)=0 Then a2=Fuori90((90+66)-n2) : b2=Fuori90((90+60)-n2)
'------------------------------
n3=d1
If n3<10 And Cadenza(n3)>0 And Cadenza(n3)<6 Then a3=(6)-n3
If n3<10 And Cadenza(n3)>5 Then a3=(15)-n3
If n3>9 And Cadenza(n3)>0 And Cadenza(n3)<6 Then a3=Fuori90((90+66)-n3)
If n3>9 And Cadenza(n3)>5 Then a3=Fuori90((90+75)-n3)
If n3>9 And Cadenza(n3)=0 Then a3=Fuori90((90+66)-n3) : b3=Fuori90((90+60)-n3)
'------------------------------
n4=d2
If n4<10 And Cadenza(n4)>0 And Cadenza(n4)<6 Then a4=(6)-n4
If n4<10 And Cadenza(n4)>5 Then a4=(15)-n4
If n4>9 And Cadenza(n4)>0 And Cadenza(n4)<6 Then a4=Fuori90((90+66)-n4)
If n4>9 And Cadenza(n4)>5 Then a4=Fuori90((90+75)-n4)
If n4>9 And Cadenza(n4)=0 Then a4=Fuori90((90+66)-n4) : b4=Fuori90((90+60)-n4)
'------------------------------
If (e=a3 And e=a4) Or (e=a4 And f=a3) Or (e=a3 And f=a3) Or (e=a4 And f=a4) Then
'------------------------------
nm1=a1:nm2=a2:nm3=a3:nm4=a4
If n1>9 And Cadenza(n1)=0 Then nm5=b1
If n2>9 And Cadenza(n2)=0 Then nm5=b2
If n3>9 And Cadenza(n3)=0 Then nm5=b3
If n4>9 And Cadenza(n4)=0 Then nm5=b4
'------------------------------
'se 1 ambo presente non giocare
'nr1(1)=nm1:nr1(2)=nm2
'rt(1)=11 'tutte
'nr2(1)=nm3:nr2(2)=nm4
'rt(1)=11 'tutte
'if SerieFreq(es-15,es-1,nr1,rt,2)=0 Or SerieFreq(es-15,es2-1,nr2,rt,2)=0 Then
'------------------------------
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
Scrivi "diametrale "&format2(a)&" = "&format2(d1)&" / diametrale "&format2(b)&" = "&format2(d2)
Scrivi String(70,"-")
Scrivi "numeri mediani da rintracciare "&format2(a3)&"."&format2(a4)
Scrivi String(70,"-")
Scrivi "numeri trovati su: "
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r3)& " - "&StringaEstratti(es,r3)&" ] [ "&_
Format2(e)&" ] in "&(p5)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r4)& " - "&StringaEstratti(es,r4)&" ] [ "&_
Format2(f)&" ] in "&(p6)&"^ pos."
Scrivi String(70,"-")
ruote1(1)=r1:ruote1(2)=r2:ruote2(1)=r3:ruote2(2)=r4:ruote3(1)=12:ruota(1)=11:co=0
If n1>9 And Cadenza(n1)=0 Then Scrivi "con "&Format2(a)&" numero da giocare "&_
Format2(a1)&" pił facoltativo "&format2(b1) Else Scrivi "con "&Format2(a)&" numero da giocare "&format2(a1)
If n2>9 And Cadenza(n2)=0 Then Scrivi "con "&Format2(b)&" numero da giocare "&_
Format2(a2)&" pił facoltativo "&format2(b2) Else Scrivi "con "&Format2(b)&" numero da giocare "&format2(a2)
If n3>9 And Cadenza(n3)=0 Then Scrivi "con "&Format2(d1)&" numero da giocare "&_
Format2(a3)&" pił facoltativo "&format2(b3) Else Scrivi "con "&Format2(d1)&" numero da giocare "&format2(a3)
If n4>9 And Cadenza(n4)=0 Then Scrivi "con "&Format2(d2)&" numero da giocare "&_
Format2(a4)&" pił facoltativo "&format2(b4) Else Scrivi "con "&Format2(d2)&" numero da giocare "&format2(a4)
Scrivi String(70,"-")
nu1(1)=nm1:nu1(2)=nm2
co=co+1
ImpostaGiocata co,nu1,ruote1,posta,k,0
co=co+1
ImpostaGiocata co,nu1,ruote2,posta,k,0
'co=co+1
'ImpostaGiocata co,nu1,ruote3,posta,k,0 'nz
co=co+1
ImpostaGiocata co,nu1,ruote1,poste,k,0
co=co+1
ImpostaGiocata co,nu1,ruote2,poste,k,0
'co=co+1
'ImpostaGiocata co,nu1,ruote3,poste,k,0 'nz
nu2(1)=nm1:nu2(2)=nm2:nu2(3)=nm3:nu2(4)=nm4
co=co+1
ImpostaGiocata co,nu2,ruote1,post,k
co=co+1
ImpostaGiocata co,nu2,ruote2,post,k
'co=co+1
'ImpostaGiocata co,nu2,ruote3,post,k 'nz
'co=co+1
'ImpostaGiocata co,nu2,ruota,post,k 'tutte
If n1>9 And Cadenza(n1)=0 Or n2>9 And Cadenza(n2)=0 Or _
n3>9 And Cadenza(n3)=0 Or n4>9 And Cadenza(n4)=0 Then
nu3(1)=nm1:nu3(2)=nm2:nu3(3)=nm3:nu3(4)=nm4:nu3(5)=nm5
co=co+1
ImpostaGiocata co,nu3,ruote1,pos,k
co=co+1
ImpostaGiocata co,nu3,ruote2,pos,k
'co=co+1
'ImpostaGiocata co,nu3,ruote3,pos,k 'nz
'co=co+1
'ImpostaGiocata co,nu3,ruota,pos,k 'tutte
End If
Gioca es
End If
'End If 'x ambo unico
Next
End If
Next:Next:Next
End If
Next:Next:Next:Next:Next:Next:Next
ScriviResoconto
Scrivi "due ruote in rampa di lancio di paolo carta_variante 2",1
Scrivi "script by maxma62_formula metodo by ramco",1
End Sub
