PER GLI SCRIPTER

[rabberto]

Ciao ragazzi volevo chiedervi un favore , avrei bisogno di uno script che mi calcoli la distanza ciclometrica per ogni ruota , pero' che mi faccia scegliere :

quale e' la prima distanza
quale e' la seconda distanza

In modo che io ci metto ad esempio la prima distanza e 10 , la seconda distanza e 20 , e lui mi calcola su ruota unica se trova una distanza 10 e 20 in una ruta , e mi da il risultato.

Spero di essere stato chiaro , grazie , ciao.

 

[rabberto]

Niente ragazzi nessuno mi puo' aiutare per favore , grazie , ciao .

 

[rabberto]

Spero che gli scripter abbiano finito le ferie e sono ritornati , grazie , ciao .

 

[DjNomade]

Ciauz prova a mettere un esempio CHIARO poi vediamo....

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[genlotto]

..cerchi qualcosa del genere??

===========================================================  by Gen..!
sab 25.06.2011 [ Ge - 69.79.82.51.09 ] [ 69.79 | 79.09 ] Ds. 10|20
1^ distanza (10) in pos. 1/2 - 2^ distanza (20) in pos. 2/5
----------------------------------------------------------- caso n° 6
===========================================================  by Gen..!
gio 07.07.2011 [ To - 41.31.61.26.03 ] [ 41.31 | 41.61 ] Ds. 10|20
1^ distanza (10) in pos. 1/2 - 2^ distanza (20) in pos. 1/3
----------------------------------------------------------- caso n° 7
===========================================================  by Gen..!
mar 12.07.2011 [ Ca - 33.43.61.41.75 ] [ 33.43 | 61.41 ] Ds. 10|20
1^ distanza (10) in pos. 1/2 - 2^ distanza (20) in pos. 3/4
----------------------------------------------------------- caso n° 8
===========================================================  by Gen..!
gio 28.07.2011 [ Ba - 84.04.15.83.14 ] [ 84.04 | 84.14 ] Ds. 10|20
1^ distanza (10) in pos. 1/2 - 2^ distanza (20) in pos. 1/5
----------------------------------------------------------- caso n° 9
===========================================================  by Gen..!
gio 28.07.2011 [ Ba - 84.04.15.83.14 ] [ 04.14 | 84.14 ] Ds. 10|20
1^ distanza (10) in pos. 2/5 - 2^ distanza (20) in pos. 1/5
----------------------------------------------------------- caso n° 10
===========================================================  by Gen..!
gio 04.08.2011 [ Fi - 20.30.50.59.88 ] [ 20.30 | 30.50 ] Ds. 10|20
1^ distanza (10) in pos. 1/2 - 2^ distanza (20) in pos. 2/3
----------------------------------------------------------- caso n° 11
===========================================================  by Gen..!
sab 06.08.2011 [ Mi - 02.53.60.72.63 ] [ 53.63 | 02.72 ] Ds. 10|20
1^ distanza (10) in pos. 2/5 - 2^ distanza (20) in pos. 1/4
----------------------------------------------------------- caso n° 12
===========================================================  by Gen..!
sab 13.08.2011 [ Ro - 08.79.09.17.07 ] [ 17.07 | 79.09 ] Ds. 10|20
1^ distanza (10) in pos. 4/5 - 2^ distanza (20) in pos. 2/3
----------------------------------------------------------- caso n° 13
===========================================================  by Gen..!
sab 13.08.2011 [ Ve - 24.14.49.52.69 ] [ 24.14 | 49.69 ] Ds. 10|20
1^ distanza (10) in pos. 1/2 - 2^ distanza (20) in pos. 3/5
----------------------------------------------------------- caso n° 14
===========================================================  by Gen..!
mar 16.08.2011 [ Ge - 28.65.38.17.37 ] [ 28.38 | 17.37 ] Ds. 10|20
1^ distanza (10) in pos. 1/3 - 2^ distanza (20) in pos. 4/5
----------------------------------------------------------- caso n° 15
===========================================================  by Gen..!
mar 23.08.2011 [ Pa - 79.87.56.77.59 ] [ 87.77 | 79.59 ] Ds. 10|20
1^ distanza (10) in pos. 2/4 - 2^ distanza (20) in pos. 1/5
----------------------------------------------------------- caso n° 16
===========================================================  by Gen..!
sab 27.08.2011 [ Nz - 01.51.86.56.66 ] [ 56.66 | 86.66 ] Ds. 10|20
1^ distanza (10) in pos. 4/5 - 2^ distanza (20) in pos. 3/5
----------------------------------------------------------- caso n° 17
===========================================================  by Gen..!
gio 08.09.2011 [ Ro - 86.06.53.01.21 ] [ 86.06 | 01.21 ] Ds. 10|20
1^ distanza (10) in pos. 1/2 - 2^ distanza (20) in pos. 4/5
----------------------------------------------------------- caso n° 18
===========================================================  by Gen..!
sab 10.09.2011 [ Pa - 59.48.37.67.47 ] [ 37.47 | 67.47 ] Ds. 10|20
1^ distanza (10) in pos. 3/5 - 2^ distanza (20) in pos. 4/5
----------------------------------------------------------- caso n° 19

Ciaoooo Gen..!
<blockquote id="quot

 

[genlotto]

..eccolo! bye bye
[}]

'Rabberto - Ricerca doppia Distanza su unica ruota
'Forum -http://forum.lottoced.com/topic.asp?TOPIC_ID=137174
'Script by Genlotto - 13.09.2011
Sub main() 
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
ds1=CInt(InputBox("Digita la 1^ distanza !","1^ Distanza",18))
ds2=CInt(InputBox("Digita la 2^ distanza !","2^ Distanza",36))

casi=0
fin=EstrazioneFin 
ini=fin-ee 
For es=ini To fin 
   Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
  For r=1 To 12  
    If r=11 Then r=12
    For p1=1 To 4
      For p2=p1+1 To 5  
        a=Estratto(es,r,p1) :b=Estratto(es,r,p2) 
        For p3=1 To 4 
          For p4=p3+1 To 5 
            aa=Estratto(es,r,p3) :bb=Estratto(es,r,p4)
            If Distanza(a,b)=ds1 And Distanza(aa,bb)=ds2 Then 
               casi=casi+1:Scrivi String(59,"="),1,0 : Scrivi "  by Gen..!",1 
               Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r)&" - "&stringaestratti(es,r)&_ 
               " ] [ "&Format2(a)&"."&Format2(b)&" | "&Format2(aa)&"."&Format2(bb)&" ] Ds. "&ds1&"|"&ds2
	         ColoreTesto 1 :Scrivi "1^ distanza ("&ds1&") in pos. "&p1&"/"&p2,1,0
		   ColoreTesto 2 :Scrivi " - 2^ distanza ("&ds2&") in pos. "&p3&"/"&p4,1 :coloretesto 0
               Scrivi String(59,"-")&" caso n° "&(casi)
            End If 
         Next 
       Next 
     Next 
    Next
  Next
Next
End Sub

..output

===========================================================  by Gen..!
gio 01.09.2011 [ Pa - 58.22.40.41.51 ] [ 58.40 | 58.22 ] Ds. 18|36
1^ distanza (18) in pos. 1/3 - 2^ distanza (36) in pos. 1/2
----------------------------------------------------------- caso n° 18
===========================================================  by Gen..!
gio 01.09.2011 [ Pa - 58.22.40.41.51 ] [ 22.40 | 58.22 ] Ds. 18|36
1^ distanza (18) in pos. 2/3 - 2^ distanza (36) in pos. 1/2
----------------------------------------------------------- caso n° 19
===========================================================  by Gen..!
sab 03.09.2011 [ Ro - 20.14.74.32.35 ] [ 14.32 | 20.74 ] Ds. 18|36
1^ distanza (18) in pos. 2/4 - 2^ distanza (36) in pos. 1/3
----------------------------------------------------------- caso n° 20
===========================================================  by Gen..!
gio 08.09.2011 [ Pa - 90.06.18.42.26 ] [ 90.18 | 06.42 ] Ds. 18|36
1^ distanza (18) in pos. 1/3 - 2^ distanza (36) in pos. 2/4
----------------------------------------------------------- caso n° 21

<center>

</center>

 

[rabberto]

Grazie genlotto e' proprio quello che cercavo , sei stato fantastico , volevo chiederti se si potrebbe cambiare una riga per fare la stessa identica cosa pero' su due ruote , grazie infinitamente , ciao .

 

[rabberto]

Ciao genlotto per favore se leggi volevo chiederti se si potrebbe cambiare una riga per fare la stessa identica cosa pero' su due ruote , grazie , ciao .

 

[rabberto]

Nessuno puo' fare niente , per favore , grazie , ciao .

 

[claudio8]

x Rabberto
controllare sempre se funge... accuratamente

'Rabberto - Ricerca doppia Distanza su unica ruota
'Forum -http://forum.lottoced.com/topic.asp?TOPIC_ID=137174
'Script by Genlotto - 13.09.2011
Sub Main()
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",10))
ds1 = CInt(InputBox("Digita la 1^ distanza !","1^ Distanza",18))
ds2 = CInt(InputBox("Digita la 2^ distanza !","2^ Distanza",36))
casi = 0
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by Genlotto ]"
For r1 = 1 To 10
For r2= r1+1 To 12
If r2 = 11 Then r2 = 12

For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
For p3 = 1 To 5
For p4 = 1 To 5
aa = Estratto(es,r1,p3)
bb = Estratto(es,r2,p4)
If Distanza(a,b) = ds1 And Distanza(aa,bb) = ds2 Then
casi = casi + 1
Scrivi String(59,"="),1,0
Scrivi " by Gen..!",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] [ " & Format2(a) & "." & Format2(b) & " | " & Format2(aa) & "." & Format2(bb) & " ] Ds. " & ds1 & "|" & ds2
ColoreTesto 1
Scrivi "1^ distanza (" & ds1 & ") in pos. " & p1 & "/" & p2,1,0
ColoreTesto 2
Scrivi " - 2^ distanza (" & ds2 & ") in pos. " & p3 & "/" & p4,1
ColoreTesto 0
Scrivi String(59,"-") & " caso n° " &(casi)
End If
Next
Next
Next
Next
Next
Next
Next
End Sub

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[rabberto]

Ciao claudio8 volevo dirti che lo script va benissimo ti ringrazio tanto , ciao .

 

[aldino]

Una buona giornata a tutti voi

volevo mostrarvi un'eventuale ricerca da fare col listato sopra riportato


=========================================================== by Gen..!
martedì, lug 5 2011 [ MI - 04.56.42.40.39 ] [ 40.39 | 42.40 ] Ds. 1|2
1^ distanza (1) in pos. 4/5 - 2^ distanza (2) in pos. 3/4
----------------------------------------------------------- caso n° 10


leggendo da sinistra a destra l'estrazione

abbiamo 39-40 (per proseguire la serie manca 41 a passo 1)

abbiamo pure 40-42 (per proseguire manca 44 a passo 2 )


il 16-7-2011 al 5° colpo abbiamo Mi 77 72 55 44 41


ambo secco 44-41

e chiaro che andrebbe giocata anche l'ambata


che ne dite ????

e' possibile continuare lo sviluppo del listato a ruota singola

per vedere se questa particolare situazione numerica vincente

si e' ripetuta su altre ruote e con che risultati ????


grazie e buon proseguimento




un saluto a tutti da aldino

 

[rabberto]

Ciao aldino , mi sembra una bella soluzione la tua , io purtroppo non so fare script , spero che qualcuno ti possa aiutare , ciao .

 

[aldino]

Una buona giornata a tutti voi


ciao,Rabberto

In effetti la ricerca proposta e' leggermente complessa,
ma penso che la professionalita' e competenza, dei programmatori presenti,su questo Forun ,vanno ben oltre la "quisquiglia" richiesta ........l'unico problema e' il tempo tiranno.

buon proseguimento



un saluto a tutti da aldino