Help (Blackissimo o chi vorrà)

[CocoNut]

...Ricerca distanza 3 in verticale su ruote consecutive.
Avrei bisogno degli ultimi casi usciti tra Ottobre / Novembre
e cortesemente se si puo' avere anche lo script L8.

Esempio:

Bari
75 52 50 27 78
Cagliari
72 25 79 76 70

72 75
(numeri appartenenti alla decina cabalistica della settantina a distanza 3 )

Esempio non valido</u>:
69 72
distanza 3 ma non facenti parte della stessa decina

Grazie in anticipo !



Dicette Pulicenella:
I' nun so' fesso, ma aggi' 'a fà 'o fesso,
pecché facenno 'o fesso, ve pozzo fà fesse!

La Lingua Italiana ci insegna che l'ignoranza puo' essere:
SEMPLICE:
se non capisci niente
AGRICOLA:
se non capisci un cavolo
IDRAULICA:
se non capisci un tubo
SESSUALE:
se non capisci un ca**o!

 

[kimorina]

mamma mia Coco sei proprio un "cervellone"....quanto ti ammiro

kimorina

 

[CocoNut]

Vediamo cosa ne verrà fuori, Kimo...
Sto valutando queste condizioni, al momento ne ho una in auge,
ma mi serve prima lo script per approfondirla meglio.



Dicette Pulicenella:
I' nun so' fesso, ma aggi' 'a fà 'o fesso,
pecché facenno 'o fesso, ve pozzo fà fesse!

La Lingua Italiana ci insegna che l'ignoranza puo' essere:
SEMPLICE:
se non capisci niente
AGRICOLA:
se non capisci un cavolo
IDRAULICA:
se non capisci un tubo
SESSUALE:
se non capisci un ca**o!

 

[imported_marilu]

coco ma parli tedesca?

MC

 

[CocoNut]

Sì, Marilu.

Dicette Pulicenella:
I' nun so' fesso, ma aggi' 'a fà 'o fesso,
pecché facenno 'o fesso, ve pozzo fà fesse!

La Lingua Italiana ci insegna che l'ignoranza puo' essere:
SEMPLICE:
se non capisci niente
AGRICOLA:
se non capisci un cavolo
IDRAULICA:
se non capisci un tubo
SESSUALE:
se non capisci un ca**o!

 

[imported_marilu]

ho vissuto 20 anni in germania koln ich kann auch

MC

 

[morena59]

Ogni tanto parla anche in italiano
Patata ma che stai escogitando?

 

[CocoNut]

Ja, halloechen! Eine Koelsche, sehr schoen. [8D]
Ich bin geborene Baden-Wuerttembergerin

Cicci, sto escogitando l'ambo ...
lo sto testando a ruota, ma escono solo le ambate,
mentre su ruote consecutive la situazione è piu' proficua.

Dicette Pulicenella:
I' nun so' fesso, ma aggi' 'a fà 'o fesso,
pecché facenno 'o fesso, ve pozzo fà fesse!

La Lingua Italiana ci insegna che l'ignoranza puo' essere:
SEMPLICE:
se non capisci niente
AGRICOLA:
se non capisci un cavolo
IDRAULICA:
se non capisci un tubo
SESSUALE:
se non capisci un ca**o!

 

[morena59]

Ah! Ok,
quando sei pronta posta la super bomba
Ricordo quando ero ragazzetto che ce passavo anch'io
per Colonia quandi me ne annavo a Amsterdam
a fare er porcellino

 

[master4]

[:0][:0][:0]a questo punto ti mando messaggio privato ciaoooooooooooo

chi non ama il lotto non ama le emozioni della vita

 

[Roby]

Ciao Coco,intanto metto questo (se qualcuno lo vede e lo vuole modificare è ben accetto, anche perchè questo NON VA BENE, calcola tutte le ruote)
ora do uno sguardo nel mio archivio per vedere se trovo di meglio........

Sub main()
Scrivi: ColoreTesto 1: Scrivi "PER COCONUT BY BLACK - Distanza 3" 
Scrivi: ColoreTesto 0 
Dim ruote(2) 
di= 3 '<-------- QUI CAMBIA LA DISTANZA A PIACIMENTO 
fin=EstrazioneFin
ini=fin-100
For es = ini To fin 
AvanzamentoElab ini,fin,es 
For r1 = 1 To 10
For p1 = 1 To 5

a = Estratto (es,r1,p1) 

If Distanza (a,b)=di Then 
For r2 =r1+1 To 10
For p2= 1 To 5
b = Estratto (es,r2,p2)
 
If Distanza (a,b)=di Then 
Scrivi 
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a) 
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b) 
End If : Next : Next 
End If : Next : Next : Next 
End Sub

Blackmore

 

[coim41]

Se ti puo interessare:

6 ottobre 2011: MI 66.76.50.32.43/NA 30.31.40.60.46
18 ottobre 2011: PA 4.81.61.12.83/ RO 49.84.76.25.18
27 ottobre 2011: PA 1.49.36.71.63/RO 72.46.67.42.37
2 novembre 2011: RO 24.30.52.21.34/TO 48.86.14.24.81
5 novembre 2011: PA 41.61.34.85.17/RO 83.51.

Scusa, ma ho capito bene? Devono essere nella stessa posizione o basta solo che le ruote siano consecutive?
Attendo tuoi studi, Ciao coim41

 

[Roby]

Ciao CocoNut

Se usi spaziometria è facile farlo anche velocemente

Segui l'istruzioni :

Poi segui questii punti :

e il gioco è fatto !


Spero che sia quello che cerchi e che ti sia utile.


ciao[8D]



Frank

 

[CocoNut]

Coim, le ruote devono essere consecutive, la posizione isotopa.

Per Blackissimo:
In effetti non va bene, ma fiduciosa so che ti renderai disponibile.

Kjo, proverò a cimentarmi anche con Spaziometria...
un grazie per avermi inserito anche la procedura. Kiss !



Dicette Pulicenella:
I' nun so' fesso, ma aggi' 'a fà 'o fesso,
pecché facenno 'o fesso, ve pozzo fà fesse!

La Lingua Italiana ci insegna che l'ignoranza puo' essere:
SEMPLICE:
se non capisci niente
AGRICOLA:
se non capisci un cavolo
IDRAULICA:
se non capisci un tubo
SESSUALE:
se non capisci un ca**o!

 

[Roby]

Prego ! chiedi e ti sarà dato, disse.....

per come la vedo io, il vantaggio sta anche nel avere uno sguardo globale fra estrazioni e tutti gli altri parametri.


Ciao


Frank

 

[Sinergy]

SALVO ERRORI HO MODIFICATO SCRIPT

Sub main()
Scrivi: ColoreTesto 1: Scrivi "PER COCONUT BY BLACK - Distanza 3"
Scrivi: ColoreTesto 0
Dim ruote(2)
di= 3 '<-------- QUI CAMBIA LA DISTANZA A PIACIMENTO
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
r2 =r1+1
For p1 = 1 To 5
a = Estratto (es,r1,p1) :aa=decina(a)
b = Estratto (es,r2,p1) :bb=Decina(b)
If aa=bb And Distanza (a,b)=di Then
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a)
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b)
End If : Next : Next : Next
End Sub

 

[Roby]

GRAZIE INFINITE SINERGY

HO INSERITO NELLO SCRIPT I 5 NUMERI DELLE 2 RUOTE IN
MODO CHE COCO POSSA VEDERLE E FARE I SUOI CALCOLI
PIU' DI COSì NON SO FARE..... SORRY [:I]

Sub main()

Scrivi: ColoreTesto 1: Scrivi "PER COCONUT BY BLACK - Distanza 3" 

Scrivi: ColoreTesto 0 

Dim ruote(2) 

di= 3 '<-------- QUI CAMBIA LA DISTANZA A PIACIMENTO 

fin=EstrazioneFin

ini=fin-100

For es = ini To fin 

AvanzamentoElab ini,fin,es 

For r1 = 1 To 9

r2 =r1+1

For p1 = 1 To 5

a = Estratto (es,r1,p1) :aa=Decina(a)

b = Estratto (es,r2,p1) :bb=Decina(b)

If aa=bb And Distanza (a,b)=di Then 

Scrivi 

Scrivi DataEstrazione(es)&" "& StringaEstratti (es,(r1))&" "& Left(NomeRuota(r1),2) & " " & Format2(a)

Scrivi Space(10)&" " & StringaEstratti (es,(r2))&" "& Left(NomeRuota(r2),2) & " " & Format2(b) 

End If : Next : Next : Next

End Sub

Blackmore

 

[coim41]

Grazie della risposta. La ricerca che ti ho inserito e' di ruote consecutive e posizione isotopa. Spero ti sia utile.

6 ottobre 2011: MI 66.76.50.32.43
NA 30.31.40.60.46
18 ottobre 2011: PA 4.81.61.12.83
RO 49.84.76.25.18
27 ottobre 2011: PA 1.49.36.71.63
RO 72.46.67.42.37
2 novembre 2011: RO 24.30.52.21.34
TO 48.86.14.24.81
5 novembre 2011: PA 41.61.34.85.17
RO 83.51.6.82.88
Ciao. Coim41

 

[Lo studente]

Ciao CocoNut....vedi se può servire...
Estraz. del 06.10.2011: MI..43..NA..46-
43: 4+3=7...4x3=12. vert.70...21-
46: 4+6=10...4x6=24. vert.1...42-
1° colpo napoli ambo 10.12.----------------------
Estraz.18.10.2011 PA 81..RO 84-
81: 8+1=9...8x1=8 vert.90...80-
84: 8+4=12...8x4=32 vert.21...23-
3° colpo Palermo ambo 9.21-----------------------

Estraz.del27,10.2011.PA 49..RO 46-
49: 4+9=13...4x9=36 vert.31...63-
46: 4+6=10...4x6=24 vert.1...42-
1° colpo Torino ambo 60.2--------------------------
2° colpo Torino TERNO 2.80.30----------------------

Spero che ti serva......ciao.

 

[Lo studente]

Scusate l'errore....quella del 27.10.è sbagliata...quella giusta è la seguente;
Estraz.del 02.11.2011.RO 21..TO 24.
21: 2+1= 3...2x1= 2 vert.30...20-
24: 2+4= 6...2x4= 8 vert.60...80-
1° colpo TO ambo 60.2--------------
2° colpo TO Terno 2.80.30----------
scusate la confusione grazie