CODICE
Sub main()
Dim nu1(1),nu2(10),ruote(2)
Dim posta(1),poste(3)
Dim nn(3),ruota(1)
posta(1)=5:poste(2)=3:poste(3)=1.5
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8251)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "triangolo simmetrico di lino63 (script by maxma62)",1
Scrivi String(80,"="),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 12 'con nz
If r1=11 Then r1=12 'con nz
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
If Distanza(a,b)=30 Then
n1=(a+b)
n2=(n1)/2
n3=diametrale(n2)
For r2=1 To 12 'con nz
If r2=11 Then r2=12 'con nz
If r2<>r1 Then
For p3=1 To 5
c=Estratto(es,r2,p3)
If (p1=1 And p2=3 And p3=2) Or (p1=2 And p2=4 And p3=3) Or _
(p1=3 And p2=5 And p3=4) Or (p1=1 And p2=5 And p3=3) Then
If c=(n2) Or c=Vert(n3) Then
casi=casi+1:Scrivi String(65,"=")&" scrip by maxma62",2
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] in "&(p1)&"/"&(p2)&"^ pos."
Scrivi "somma ambo simmetrico : 2 ("&format2(a)&"+"&format2(b)&"="&format2(n1)&":2) = "&format2(n2)
Scrivi "numero da rintracciare [ "&format2(n2)&" ] oppure suo diametrale [ "&format2(n3)&" ]"
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&_
" ] [ "&format2(c)&" ] in "&(p3)&"^ pos."
Scrivi String(68,"-")&" caso n° " & casi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
num1=Fuori90(c+Diametrale(c)) 'ambata
num2=n2 'abb
num3=n3 'abb
nu1(1)=num1
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1)=num1:nu2(2)=num2:nu2(3)=num3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
Gioca es
End If
End If
Next
End If
Next
End If
Next:Next:Next:Next
Scrivi String(65,"=")&" scrip by maxma62",2
ScriviResoconto
Scrivi "triangolo simmetrico di lino63 (script by maxma62)",1
End Sub