AIUTO X UN LISTATO

[Roby]

Chi mi può aiutare a fare un listato(personalmente non so metterci le mani sono proprio negato)mi servirebbe un listato con queste caratteristiche:si devono trovare in ogni estrazione 2 ambi con la stessa differenza ciclometrica ad incrocio es:BA 8-44 / VE 71 35
infatti 8 35 dist.27
44 71 dist.27
x la posizione degli ambi e indifferente vanno bene in qualsiasi posizione.

ringrazio in anticipo x l'eventuale aiuto.

un saluto e una buona domenica a tutti

ciuao

SAMPEI

 

[Sampei]

quote:Originally posted by SAMPEI

Chi mi può aiutare a fare un listato(personalmente non so metterci le mani sono proprio negato)mi servirebbe un listato con queste caratteristiche:si devono trovare in ogni estrazione 2 ambi con la stessa differenza ciclometrica ad incrocio es:BA 8-44 / VE 71 35
infatti 8 35 dist.27
44 71 dist.27
x la posizione degli ambi e indifferente vanno bene in qualsiasi posizione.

ringrazio in anticipo x l'eventuale aiuto.

un saluto e una buona domenica a tutti

ciuao

SAMPEI

 

[Sampei]

UNA PRECISAZIONE

il listato dovrebbe girare sul programma L8 versione 5.2.

ancora saluti

SAMPEI

 

[maxma62]

Ciao, questo dovrebbe andare bene.
Puoi scegliere o tutte le distanze uguali o 1 distanza fissa.

Sub main()

'di=eval(InputBox("Qual'e la distanza ?","Distanza",25)) 'distanza fissa

ini=EstrazioneFin-10
fin=EstrazioneFin
For es=ini To fin
For r1=1 To 9
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 10
For p3=1 To 4
For p4=p3+1 To 5 
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
dis1=distanza(a,d):dis2=distanza(b,c)

If dis1=dis2 then 'tutte le distanze
'If dis1=dis2 And dis1=di Then 'distanza fissa

Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "&StringaEstratti(es,r1)&" ] [ "&Format2(a)&"."&Format2(b)&_
" pos. "&(p1)&"^ e "&(p2)&"^ ]"
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "&StringaEstratti(es,r2)&" ] [ "&Format2(c)&"."&Format2(d)&_
" pos. "&(p3)& "^ e "&(p4)&"^ ]"
Scrivi "distanza tra "&Format2(a)&"."&Format2(d)& " e "&Format2(b)&"."&Format2(c)&" = "&Format2(dis1)
End If
Next:Next:Next:Next:Next:Next:Next
End Sub

Max

 

[Sampei]

Ciao maxma62, ti ringrazio per il listato che gentilmente mi hai
messo a disposizione,sono andato a provarlo su L8+5.2.31,
ma mi da questo errore che adesso ti scrivo
errore 1014 previsto end (riga8)
io purtroppo non ci capisco niente potresti
dirmi cosa fare?
ti ringrazio ancora

ciao
SAMPEI

 

[maxma62]

Non saprei, dovrebbe funzionare anche su L8 5.2.
Prova a copiarlo e poi incollarlo su notepad per poi ricopiarlo da notepad in L8. Controlla se nel copiare non salti qualcosa.
Max

 

[franca46]

ciao sampei

fai di nuovo il copia ed incolla adesso non dovresti avere problemi

Max mi sono permessa di copiarmelo e a me funziona anche sull'ultima versione

Sub main()
 'di=eval(InputBox("Qual'e la distanza ?","Distanza",25)) 'distanza fissa
 ini=EstrazioneFin-10 
fin=EstrazioneFin 
For es=ini To fin
 For r1=1 To 9 
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 10
 For p3=1 To 4 
For p4=p3+1 To 5
 c=Estratto(es,r2,p3) 
d=Estratto(es,r2,p4) 
dis1=Distanza(a,d):dis2=Distanza(b,c)
 If dis1=dis2 Then 'tutte le distanze
 'If dis1=dis2 And dis1=di Then 'distanza fissa 
Scrivi String(65,"="),1 
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "&StringaEstratti(es,r1)&" ] [ "&Format2(a)&"."&Format2(b)&_ 
" pos. "&(p1)&"^ e "&(p2)&"^ ]" 
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "&StringaEstratti(es,r2)&" ] [ "&Format2(c)&"."&Format2(d)&_ 
" pos. "&(p3)& "^ e "&(p4)&"^ ]" 
Scrivi "distanza tra "&Format2(a)&"."&Format2(d)& " e "&Format2(b)&"."&Format2(c)&" = "&Format2(dis1)
 End If 
Next:Next:Next:Next:Next:Next:Next
 End Sub

ciao a tutti!!!

Franca46

 

[maxma62]

Nessun problema franca, sicuramente era solo un probema di cpia/icolla.
Max

 

[Sampei]

ciao max e franca vi ringrazio ancora per la gentilezza
di questo listato,ma purtroppo con il mio L8-5.2.31
proprio non va,ho provato a fare il copia e incolla
come dite voi poi ho provato con quello di franca niente da fare
mi da sempre lo stesso errore,
per me purtroppo i listati sono come scritture arabe.

vi ringrazio ancora di cuore

ciao

SAMPEI

 

[franca46]

sampei forse ho capito il problema.

quando hai fatto il copia ed incolla te lo ha copiato tutto su una riga??

allora se lo controlli con questo sai dove mandarlo a capo???




Franca46

 

[maxma62]

Mi sa che la causa sia la tua versione 5.
I listati fatti con L8 5 funzionano su la 6 ma non il contrario.
Non avendo la versione 5 l'unica cosa che mi viene in mente e' che la versione 5 non accetta "siglaRuota(r1)" ma solo "nomeRuota(r1)".
Prova questo:

Sub main()

'di=eval(InputBox("Qual'e la distanza ?","Distanza",25)) 'distanza fissa

ini=EstrazioneFin-10
fin=EstrazioneFin
For es=ini To fin
For r1=1 To 9
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 10
For p3=1 To 4
For p4=p3+1 To 5 
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
dis1=distanza(a,d):dis2=distanza(b,c)

If dis1=dis2 then 'tutte le distanze
'If dis1=dis2 And dis1=di Then 'distanza fissa

Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "& nomeRuota(r1)&" "&StringaEstratti(es,r1)&" ] [ "&Format2(a)&"."&Format2(b)&" pos. "&(p1)&"^ e "&(p2)&"^ ]"
Scrivi DataEstrazione(es,1)&" [ "& nomeRuota(r2)&" "&StringaEstratti(es,r2)&" ] [ "&Format2(c)&"."&Format2(d)&" pos. "&(p3)& "^ e "&(p4)&"^ ]"
Scrivi "distanza tra "&Format2(a)&"."&Format2(d)& " e "&Format2(b)&"."&Format2(c)&" = "&Format2(dis1)
End If
Next:Next:Next:Next:Next:Next:Next
End Sub

max

 

[Sampei]

bravo max, sei un genio
sembra che funzioni,sembra che non da più errore
ora devo uscire ti farò sapere meglio domani sera dopo il lavoro come va .

ancora salutoni
anche a franca46 molto gentili

ciao SAMPEI

 

[aldino]

ciao a tutti

e scusate se mi intrometto...........

in molti metodi viene attribuita una notevole importanza al rilevamento di due ambi a distanza 30 ed appartenenti alla stessa tripla figurale .......le triple sono 1-4-7 ///2-5-8 //3-6-9

si protrebbe incominciare ad inserire anche queste condizioni nel listato e poi , con il contributo di tutti ,trovare la via per confezionare belle la previsione...

Che ne dite?????


un saluto a tutti da aldino

 

[Sampei]

ciao max,ho provato il listato
tutto bene ,ora dovrò trovare un pò di tempo
per vedere se si può provare a cacciarci qualcosa di buono,
ancora ti ringrazio x la disponibilità

ti saluto

ciao

SAMPEI