| R E V I S I O N E D E L L A D I S C U S S I O N E |
| pesciolina |
Posted - 10 novembre 2008 : 15:48:51
Se qualcuno mi può fare lo script per questo metodo.
Io ho fatto dei controlli solo su Bari ma è estensibile a tutte le ruote.
Trovare su una sola ruota un ambo distanza 30 (facente parte delle terzine simmetriche).
Somma dei due numeri.
Gli altri due n. della terzina sono le ambate.
Fare il diametrale in decina dei due numeri e sommarli.
Il ricavato con i relativi n. delle terzine sono gli abbinamenti.
Faccio un esempio così è più chiaro.
19/5/07 sulla ruota di Bari uscito ambo 89-59.
89 + 59 = 58
terzine di 58 = 28 - 88 AMBATE
Diam. in decina dei due numeri 89-59 = 84 - 54
84 + 54 = 48 - 18 - 78 ABBINAMENTI
aL 3° COLPO USCITO AMBO 88.78 su Bari
C on lo script posso controllare più velocemente ed eventualmente anche le altre ruote.
Grassssiiiiieeee. |
| 6 U L T I M E R E P L I C H E (Newest First) |
| pesciolina |
Posted - 15 novembre 2008 : 14:48:44
GRAZIEEEEEEEEEEEEEE  |
| lele67 |
Posted - 12 novembre 2008 : 17:09:57
ImpostaGiocata 3,nnn,ru1 ,poste,9,3
ImpostaGiocata 4,nnn,ru2 ,poste,9,3
cancella queste due stringhe la prima analizza a tutte
la seconda sulla ruta nazionale ciao |
| pesciolina |
Posted - 11 novembre 2008 : 19:56:08
PERFETTO LELE TI RINGRAZIO.....HO AUMENTATO I COLPI DI GIOCO, IO NORMALMENTE LI FACCIO PER 12 COLPI.
UNA DOMANDA...COME FACCIO PER TOGLIERE LA GIOCATA A TUTTE? HO VISTO CHE A TUTTE ESCONO UNA MAREA DI AMBI PERO' CON 5 NUMERI IL GIOCO A TUTTE MI SEMBRA DISPENDIOSO.
CMQ LO SCRIPT VA BENISSIMO, ANCORA GRAZIE.
|
| pesciolina |
Posted - 10 novembre 2008 : 18:03:04
Grazie mille Lele domani lo provo. |
| lele67 |
Posted - 10 novembre 2008 : 17:39:28
provalo poi dimmi ciao isa |
| lele67 |
Posted - 10 novembre 2008 : 17:38:09
Sub main()
Dim ru(2)
Dim ru1(10)
Dim ru2(1)
Dim nn(2)
Dim n1(2)
Dim nnn(10)
Dim posta(5)
Dim poste(5)
posta(1)=10
poste(2)=4.5
poste(3)=0.5
poste(4)=0.5
ru1(10)=11
ru2(1)=12
co=0
ini=EstrazioneFin-235
fin=EstrazioneFin
For es=ini To fin
es1=es-1
For p=1 To 5
For p1=p+1 To 5
For r=1 To 10
a=Estratto(es,r,p)
b=Estratto(es,r,p1)
am=Distanza(a,b)
If am=30 Then
co=co+1
ab=(Fuori90(a+b))
ambata1=Fuori90(ab+30)
ambata2=Fuori90(ab+60)
abbino=(Fuori90(DiametraleD(a)+DiametraleD(b)))
abbino1=Fuori90(abbino+30)
abbino2=Fuori90(abbino+60)
ru(1)=r ' prima ruota in gioco
ru(2)=rr ' seconda ruota in gioco
nn(1)= ambata1 'prima Ambata
nn(2)=ambata2
nnn(1)=ambata1:nnn(2)=ambata2:nnn(3)=abbino:nnn(4)=abbino1:nnn(5)=abbino2
Scrivi "---------------------------------------------------------------"
ColoreTesto 2
Scrivi " Numeri : " & a & "-" & b & "- " & c & "-" & d & " su " & NomeRuota(r) & " e " & NomeRuota(rr)
ColoreTesto 0
ImpostaGiocata 1,nn,ru,posta,9,1
ImpostaGiocata 2,nnn,ru,poste,9,3
ImpostaGiocata 3,nnn,ru1 ,poste,9,3
ImpostaGiocata 4,nnn,ru2 ,poste,9,3
Gioca es
End If
Next
Next
Next
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi " CASI TROVATI : "& co
ColoreTesto 0
ScriviResoconto
Scrivi String(70,"=")&"listato by lele67 ",1
ColoreTesto 0
End Sub
|
|
|
