|
|
| X Beppone
N.B. Per evitare tante previsioni, consiglierei di prendere i casi
con l'ambo simmetrico isotopo.
Nella speranza di non aver commesso errori, saluto.
Ciao, Enplein.CODICE Sub main()
Dim ruote(1),ruota(3)
Dim posta(1)
Dim poste(2)
Dim poste1(3)
Dim amb(1),ab(3)
'-----------------
posta(1)=1
poste(2)=1
poste1(3)=1
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(30," ")&"******Ambo simmetrico in verticale con 1 elemento uguale su 2 ruote unite by Beppone ****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(75,"=")&"List. by Enplein ",1
ColoreTesto 0
rs=InputBox ("Quante estrazioni vuoi controllare?","Enplein",100)
cl=InputBox ("Quanti colpi vuoi controllare?","Enplein",14)
For es= EstrazioneFin-rs To EstrazioneFin
AvanzamentoElab EstrazioneFin-rs,EstrazioneFin, es
For r1= 1 To 10 'ciclo sulle ruote
For p1= 1 To 4 : a1=Estratto(es,r1,p1)
For p2= p1+1 To 5 : a2=Estratto(es,r1,p2)
r2=r1+1
If r2=11 Then r2=12
For p3=1 To 4 :b1=Estratto(es,r2,p3)
For p4=p3+1 To 5 : b2=Estratto(es,r2,p4)
If (Distanza (a1,b1)=30 And a2=b2)Or (Distanza (a1,b2)=30 And a2=b1)_
Or (Distanza (a2,b1)=30 And a1=b2)Or (Distanza (a2,b2)=30 And a1=b1) Then
If (Distanza (a1,b1)=30 And a2=b2) Then pm1=(a1+b1)/2 : nc=a2 : ns=Cadenza (a1)
If (Distanza (a1,b2)=30 And a2=b1) Then pm1=(a1+b2)/2 : nc=a2 : ns=Cadenza (a1)
If (Distanza (a2,b1)=30 And a1=b2) Then pm1=(a2+b1)/2 : nc=a1 : ns=Cadenza (a2)
If (Distanza (a2,b2)=30 And a1=b1) Then pm1=(a2+b2)/2 : nc=a1 : ns=Cadenza (a2)
If Cadenza (pm1)=ns Then ab(1)=pm1 Else ab(1)=Diametrale (pm1)
ab(2)=Fuori90 (nc+30) : ab(3)=Fuori90 (nc+60)
ruota(1)=r1 'imposta ruote
ruota(2)=r2
ruota(3)=11
Scrivi" ===================================================================="
t=t+1
Scrivi
Scrivi "----------------------------------------------------------------------------"& "Giocata n° "& Format2(t),2
Scrivi DataEstrazione(es)&" "& SiglaRuota (r1) & " "& StringaEstratti(es,r1) & "---->" & Format2(a1) &" "& Format2 (a2)&_
" Pos. "&p1&"^ "&p2&"^",1
Scrivi DataEstrazione(es)&" "& SiglaRuota (r2) & " "& StringaEstratti(es,r2) & "---->"& Format2 (b1) &" "& Format2 (b2)&_
" Pos. "&p3&"^ "&p4&"^",1
ImpostaGiocata 1,ab,ruota,poste,cl
Gioca es
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto 'scrive il resoconto totale di tutte le giocate effettuate
ColoreTesto 1
Scrivi String(70,"=")&"listato da Enplein",1
ColoreTesto 0
End Sub
|
| | |
