Richiesta Script

[pompeo54]

Gentilmente, vi chiedo se mi potete aiutare a realizzare uno script sulla distanza 18 di un ambo unito e isotopo su due ruote consecutive. ES: del 20/06/2013 sulle ruote di BA- 54 - 36
CA- 12 - 30
Nell'attesa vi ringrazio e saluto voi tutti del Forum.
Pompeo

[Blackmore]

Ciao, ne avevo uno nel mio archivio...

Codice: Seleziona tutto

Sub main() 
Scrivi "Cerca Ambi Isotopi Su Ruote consecutive stessa distanza (Ciclometrica) By Blackmore",1: Scrivi
Dim ruote(10)
dis = CInt(InputBox("Inserisci la distanza (da 1 a 45)",, 18))
ini = InputBox("Scegli un estrazione di partenza",,5000)
fin = EstrazioneFin
For es = ini To fin
For r1 = 1 To 9
r2 = r1+1
For p1 = 1 To 4
p2 = p1+1
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
If Distanza(n1,n2)= dis Then
If Distanza(n3,n4)= dis Then 
ColoreTesto 1:Scrivi String(77,"="),1 :coloretesto 0
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"  "& Format2(n1)&"-"& Format2(n2)&" distanza "& Format2(dis)&" [Tra il "& p1 &"° e il "& p2&"° Estratto]"
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"  "& Format2(n3)&"-"& Format2(n4)&" distanza "& Format2(dis)&" [Tra il "& p1 &"° e il "& p2&"° Estratto]"
End If
End If
Next
Next
Next
End Sub

Codice: Seleziona tutto

=============================================================================
20.06.2013  Ba  54.36.01.77.28  54-36 distanza 18 [Tra il 1° e il 2° Estratto]
20.06.2013  Ca  12.30.58.70.64  12-30 distanza 18 [Tra il 1° e il 2° Estratto]

[pompeo54]

Grazie Blackmore per l'Aiuto nella ricerca,ho commesso un errore di richiesta in quanto non era tanto interessante trovarla la distanza 18, ma bensi' uno script che dia risultato per Ambata e Ambo.
Dall'esempio di Ba.Ca 54 - 36
12 - 30
riesco a trovare Ambata dalla doppia somma 54+12= 66 e 36+30= 66. Mancano gli Abbinamenti che non riesco a trovare con doppie distanze o somme. Scusami e Grazie se ti e' possibile. Ciao Pompeo

[Blackmore]

Ciao Pompeo, ti confesso che non ho capito granchè
comunque prova questo
Ciao

Codice: Seleziona tutto

Sub main() 
Scrivi "Cerca Ambi Isotopi Su Ruote consecutive stessa distanza (Ciclometrica) By Blackmore",1: Scrivi
Dim ruote(10)
Dim ambata(1)
Dim t1(3)
Dim t2(3)
Dim t3(3)
Dim posta(1)
Dim poste(2)
posta(1)=1
poste(2)=1
dis = CInt(InputBox("Inserisci la distanza (da 1 a 45) da cercare",, 18))
k = InputBox("Colpi di Gioco",,9)
ini = InputBox("Scegli un estrazione di partenza",,5000)
fin = EstrazioneFin
For es = ini To fin
For r1 = 1 To 9
r2 = r1+1
For p1 = 1 To 4
p2 = p1+1
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
If Distanza(n1,n2)= dis Then
If Distanza(n3,n4)= dis Then 
If Fuori90(n1+n3)= Fuori90(n2+n4) Then
ruote(1)= r1 : ruote(2)= r2
ColoreTesto 1:Scrivi String(77,"="),1 :coloretesto 0
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"  "& Format2(n1)&"-"& Format2(n2)&" distanza "& Format2(dis)&" [Tra il "& p1 &"° e il "& p2&"° Estratto]"
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"  "& Format2(n3)&"-"& Format2(n4)&" distanza "& Format2(dis)&" [Tra il "& p1 &"° e il "& p2&"° Estratto]"
Scrivi Format2(n1) &"+"& Format2(n3) &" = ["& Format2(Fuori90(n1+n3))&"] e "& Format2(n2) &"+"& Format2(n4) &" = ["& Format2(Fuori90(n2+n4))&"]  Somme verticali      [AMBATA]"
Scrivi Format2(n1) &"+"& Format2(n2) &" = ["& Format2(Fuori90(n1+n2))&"] e "& Format2(n3) &"+"& Format2(n4) &" = ["& Format2(Fuori90(n3+n4))&"]  Somme orizzontali    [ABB.]"
Scrivi Format2(n1) &"-"& Format2(n3) &" = ["& Format2(Distanza(n1,n3))&"] e "& Format2(n2) &"-"& Format2(n4) &" = ["& Format2(Distanza(n2,n4))&"]  Distanze verticali   [ABB.]"
Scrivi Format2(n1) &"-"& Format2(n2) &" = ["& Format2(Distanza(n1,n2))&"] e "& Format2(n3)&"-"& Format2(n4)&" = ["& Format2(Distanza(n3,n4))&"]  Distanze orizzontali [ABB.]"
ambata(1)= Fuori90(n1+n3)
ImpostaGiocata 1,ambata,ruote,posta,k,1
t1(1)= ambata(1)
t1(2)= Fuori90(n1+n2)
t1(3)= Fuori90(n3+n4)
ImpostaGiocata 2,t1,ruote,poste,k,2
t2(1)= ambata(1)
t2(2)= Distanza(n1,n3)
t2(3)= Distanza(n2,n4)
ImpostaGiocata 3,t2,ruote,poste,k,2
t3(1)= ambata(1)
t3(2)= Distanza(n1,n4)
t3(3)= Distanza(n3,n4)
ImpostaGiocata 4,t3,ruote,poste,k,2
Gioca es
End If
End If
End If 
Next
Next
Next
ScriviResoconto
End Sub

[pompeo54]

Grazie Bleckmore, va bene cosi'. L'esito x Ambo certo e' basso quindi prendere in affidibilita' Ambata. Grazie gentilissimo ciao.

[Blackmore]

Questa soluzione sembra un po' meglio
Ciao

Codice: Seleziona tutto

Sub main() 
Scrivi "Cerca Ambi Isotopi Su Ruote consecutive stessa distanza (Ciclometrica) By Blackmore",1: Scrivi
Dim ruote(10)
Dim ambata(1)
Dim t1(5)
Dim t2(5)
Dim posta(1)
Dim poste(2)
posta(1)=1
poste(2)=1

dis = CInt(InputBox("Inserisci la distanza (da 1 a 45) da cercare",, 18))
k = InputBox("Colpi di Gioco",,8)
ini = InputBox("Scegli un estrazione di partenza",,6000) '04/01/1986
fin = EstrazioneFin
For es = ini To fin
For r1 = 1 To 9
r2 = r1+1
For p1 = 1 To 4
p2 = p1+1
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
If Distanza(n1,n2)= dis Then
If Distanza(n3,n4)= dis Then 
a = Fuori90(n1+n2+n3+n4)
ruote(1)= r1 : ruote(2)= r2
cc=cc+1
ColoreTesto 1:Scrivi String(79,"=")&" Caso N°"& Format2(cc),1 :coloretesto 0
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"  "& Format2(n1)&"-"& Format2(n2)&"  distanza "& Format2(dis)&" [Tra il "& p1 &"° e il "& p2&"° Estratto]"
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"  "& Format2(n3)&"-"& Format2(n4)&"  distanza "& Format2(dis)&" [Tra il "& p1 &"° e il "& p2&"° Estratto]"
Scrivi String(57,"-"),1
ColoreTesto 1
Scrivi "Somma dei 4 Estratti: "& Format2(n1) &" + "& Format2(n2) &" + "& Format2(n3) &" + "& Format2(n4) &" =  "& FormatSpace(Format2(a),5)&" [AMBATA]"
Scrivi Format2(n1) &"+"& Format2(n3) &" = ["& Format2(Fuori90(n1+n3))&"] e "& Format2(n2) &"+"& Format2(n4) &" = ["& Format2(Fuori90(n2+n4))&"]  Somme verticali      [ABB.]"
Scrivi Format2(n1) &"+"& Format2(n2) &" = ["& Format2(Fuori90(n1+n2))&"] e "& Format2(n3) &"+"& Format2(n4) &" = ["& Format2(Fuori90(n3+n4))&"]  Somme orizzontali    [ABB.]"
Scrivi Format2(n1) &"-"& Format2(n3) &" = ["& Format2(Distanza(n1,n3))&"] e "& Format2(n2) &"-"& Format2(n4) &" = ["& Format2(Distanza(n2,n4))&"]  Distanze verticali   [ABB.]"
Scrivi Format2(n1) &"-"& Format2(n2) &" = ["& Format2(Distanza(n1,n2))&"] e "& Format2(n3)&"-"& Format2(n4)&" = ["& Format2(Distanza(n3,n4))&"]  Distanze orizzontali [ABB.]"
ColoreTesto 0
Scrivi String(57,"-"),1
ambata(1)= a
ImpostaGiocata 1,ambata,ruote,posta,k,1
t1(1)= ambata(1)
t1(2)= Fuori90(n1+n3)
t1(3)= Fuori90(n2+n4)
t1(4)= Fuori90(n1+n2)
t1(5)= Fuori90(n3+n4)
EliminaRipetuti t1
ImpostaGiocata 2,t1,ruote,poste,k,2
t2(1)= ambata(1)
t2(2)= Distanza(n1,n4)
t2(3)= Distanza(n3,n4)
t2(4)= Distanza(n1,n3)
t2(5)= Distanza(n2,n4)
EliminaRipetuti t2
ImpostaGiocata 3,t2,ruote,poste,k,2
Gioca es
End If
End If 
Next
Next
Next
ScriviResoconto
End Sub

Codice: Seleziona tutto

=============================================================================== Caso N°44
20.06.2013  Ba  54.36.01.77.28  54-36  distanza 18 [Tra il 1° e il 2° Estratto]
20.06.2013  Ca  12.30.58.70.64  12-30  distanza 18 [Tra il 1° e il 2° Estratto]
---------------------------------------------------------
Somma dei 4 Estratti: 54 + 36 + 12 + 30 =  42    [AMBATA]
54+12 = [66] e 36+30 = [66]  Somme verticali      [ABB.]
54+36 = [90] e 12+30 = [42]  Somme orizzontali    [ABB.]
54-12 = [42] e 36-30 = [06]  Distanze verticali   [ABB.]
54-36 = [18] e 12-30 = [18]  Distanze orizzontali [ABB.]
---------------------------------------------------------
gio 20.06.2013  [8706]
  G  1:  M    42            Ba Ca    1/8   
     in corso (1° su 8)
  G  2:  A    42.66.90      Ba Ca    1/8   
     in corso (1° su 8)
  G  3:  A    42.24.18.06   Ba Ca    1/8   
     in corso (1° su 8)

[Blackmore]

Codice: Seleziona tutto

G 2: A  42.66.90      Ba Ca    2/8   
  Ambo  66.90         su Ca    2° colpo   [8708/25.06.2013]

[pompeo54]

Grazie Bleckmore, gentilissimo come sempre,questo effettivamente e' buono. Hai notato questa sera ha dato esito di Ambata al 1° colpo su Cagliari 66. ti saluto a risentirci. Ciao Pompeo

[Blackmore]

Ambata e ambo in terzina
Ambo 66.90 su Ca 2° colpo [8708/25.06.2013]

Ciao

[JUPITER25]

Bravo Black complimenti x i tuoi listati sempre perfetti
Ciao