-
.
Ciauz grazie....
Tu come sei arrivato al 51?
Ambata: DiametrDec 3 di Fi + 5 di Ro + 80
75 -->DiametrDec 70 + 71+80=221 =41
Questo è il listato
SPOILER (clicca per visualizzare)ColoreTesto 1
Scrivi String(20,"=")&"AMBO SPIA 09-90 TUTTE O NAZIONALE by DjNomade ",1
Scrivi String(40,"=")&"listato by DjNomade ",1
ColoreTesto 0
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ruote(5)
Dim am(10),cinq(10)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
postee(4)=0.5
casi=0
k=10
fin=EstrazioneFin
ini=8620
For es=ini To fin
For r=1 To 12
If r=11 Then r=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto (es,r,p1)
n2=Estratto (es,r,p2)
If ((n1=09 And n2=90) Or (n1=90 And n2=09) )And (r=1 Or r=2 Or r=3 Or r=4 Or r=5 Or r=6 Or r=7 Or r=8 Or r=9 Or r=10 Or r=12 ) Then 'CONDIZIONE DA RILEVARE :
Messaggio DataEstrazione (es)
casi=casi+1
Scrivi String (80,"=")&" Caso n° "&casi,1
ColoreTesto 2:Scrivi "AMBO SPIA 09-90 TUTTE O NAZIONALE by DjNomade ",1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r) & " " & StringaEstratti(es,r),1
co=co+1
cont=cont+1
amb=Fuori90(DiametraleD(Estratto(es,3,3))+Estratto(es,8,5)+80)
abb1=Fuori90(90-Estratto(es,2,1)+Estratto(es,3,2)+66)
abb2=Fuori90(90-Estratto(es,4,1)+Estratto(es,8,2)+48)
abb3=Fuori90(90-Estratto(es,2,3)+Estratto(es,4,4)+86)
amb1=Fuori90(Cadenza(Estratto(es,2,2))+Estratto(es,5,1)+70)
abb4=Fuori90(Diametrale(Estratto(es,2,5))+Estratto(es,7,2)+85)
abb5=Fuori90(DiametraleD(Estratto(es,5,4))+Estratto(es,8,1)+06)
abb6=Fuori90(Vert(Estratto(es,3,3))+Estratto(es,5,2)+41)
ruote(1)=1
am(1)=amb
am(2)=amb1
ImpostaGiocata 1,am,ruote,posta,k
am(1)=amb
am(2)=abb1
ImpostaGiocata 2,am,ruote,poste,k
am(1)=amb
am(2)=abb2
ImpostaGiocata 3,am,ruote,poste,k
am(1)=amb
am(2)=abb3
ImpostaGiocata 4,am,ruote,poste,k
am(1)=amb1
am(2)=abb4
ImpostaGiocata 5,am,ruote,poste,k
am(1)=amb1
am(2)=abb5
ImpostaGiocata 6,am,ruote,poste,k
am(1)=amb1
am(2)=abb6
ImpostaGiocata 7,am,ruote,poste,k
Gioca es
casi=casi+1
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi "=============================AMBO SPIA 09-90 TUTTE O NAZIONALE by DjNomade",1
Scrivi "================================================ List. DjNomade",1
Scrivi String(70,"="),1
End Sub. -
crimano56.
User deleted
Ciao Dj
io uso questa formula per fare il diametrale in decina:
=SE(E12072=5;90;SE(E12072=90;5;SE(RESTO(E12072;10)>5;RESTO(E12072;10)-5;5+RESTO(E12072;10))+INT(E12072/10)*10))
calcolando da 0 a 5 sommo (10 piu 5 uguale 15)
da 5 a 9 sottraggo (16 meno 5 uguale 11)
forse non conosco bene la procedura del diametrale in dicina
se è così chiedo venia
Cordialmente
Crimano56. -
.
bravo DJ . -
.Ciao Dj
io uso questa formula per fare il diametrale in decina:
=SE(E12072=5;90;SE(E12072=90;5;SE(RESTO(E12072;10)>5;RESTO(E12072;10)-5;5+RESTO(E12072;10))+INT(E12072/10)*10))
calcolando da 0 a 5 sommo (10 piu 5 uguale 15)
da 5 a 9 sottraggo (16 meno 5 uguale 11)
forse non conosco bene la procedura del diametrale in dicina
se è così chiedo venia
Cordialmente
Crimano56
Premesso che di excels non ci capisco nulla, in giro ho trovato questa formula
=SE(C32<10;SE((DESTRA(C32)+5)>9;(DESTRA(C32)-5);(DESTRA(C32)+5));SINISTRA(C32;1)&SE((DESTRA(C32)+5)>9;(DESTRA(C32)-5);(DESTRA(C32)+5)))
poi vedi tu
Ciauz tommasong Grazieeeeeeee. -
.
Questa sera si è ripresentata
la condizione con il 09-90 a Torino
seguendo gli algoritmi la condizione in gioco per 10 colpi èBARI
AMBATA
15
ABB. X AMBO:
17.13.84
AMBATA
10
ABB. X AMBO:
15.40.14. -
.
Questa sera si è ripresentata
la condizione con il 09-90 a NAPOLI
seguendo gli algoritmi la condizione in gioco per 10 colpi èBARI
AMBATA
41
ABB. X AMBO:
23-45-48
******
AMBATA
58
ABB. X AMBO:
68-71-19
AMBATA 41 BARI. -
.
Questa sera si è ripresentata
la condizione con il 09-90 a Cagliari
seguendo gli algoritmi la condizione in gioco per 10 colpi èBARI
AMBATA
62
ABB. X AMBO:
27.87.56
AMBATA
05
ABB. X AMBO:
18.53.13. -
.
AMBATA 62 BARI
AMBO SECCO 62-87 BARI. -
.
Bellissimo colpo, complimenti!!!
. -
.
Ieri sera si è ripresentata
la condizione con il 09-90 a Firenze
seguendo gli algoritmi la condizione in gioco per 10 colpi èBARI
AMBATA
89
ABB. X AMBO:
90.67.79
AMBATA
56
ABB. X AMBO:
87.78.37
. -
.
A COLPO AMBATA 89 BARI. -
.
bravo DJ complimenti . -
.
Purtroppo il gioco a tutte non era previsto....
Terno a tutte 56-37-87(Firenze)
ruota dove è uscito il 09-90. -
.
peccato cmq bravo complimenti, aspettiamo aggiornamenti, buona domenica . -
.
Ieri sera si è ripresentata la condizione con 09-90 a Roma
chissa' se il metodo è ancora valido.......
Se puo servire metto anche il listato
CiauzCODICELISTATO BY DjNomade
10.11.2015 Rom 90.80.85.29.09 -> 90 09
================================================================================
mar 10.11.2015 [9080]
G 1: M 62.59 Ba 0/10
n.i. (10 colpi)
G 2: A 62.89 Ba 0/10
n.i. (10 colpi)
G 3: A 62.29 Ba 0/10
n.i. (10 colpi)
G 4: A 62.45 Ba 0/10
n.i. (10 colpi)
G 5: A 59.87 Ba 0/10
n.i. (10 colpi)
G 6: A 59.88 Ba 0/10
n.i. (10 colpi)
G 7: A 59.36 Ba 0/10
n.i. (10 colpi)SPOILER (clicca per visualizzare)ColoreTesto 1
Scrivi String(20,"=")&" Da Ambo spia 09-90 a Tutte o Nazionale by DjNomade ",1
Scrivi String(40,"=")&"listato by DjNomade ",1
ColoreTesto 0
Sub main()
Dim ruota(2)
Dim ambata1(5),ambo2(3),amb1(5),amb2(5)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
k=10
co=0
ruota(1)=1
ini=8647
fin=EstrazioneFin
For es=ini To fin
For r=1 To 12
If r=11 Then r=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto (es,r,p1)
n2=Estratto (es,r,p2)
If (n1=09 And n2=90) Or (n1=90 And n2=09) Then 'CONDIZIONE DA RILEVARE :
Messaggio DataEstrazione (es)
casi=casi+1
Scrivi String (80,"=")&" Caso n° "&casi,1
ColoreTesto 2:Scrivi "LISTATO BY DjNomade ",1
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),3)&" "&_
StringaEstratti(es,r) &" -> "& Format2(n1)&" "& Format2(n2),True
ColoreTesto 0: Scrivi String (80,"="),1
co=co+1
amb1(1) = Fuori90(DiametraleD (Estratto(es,FI_,3))+Estratto(es,RO_,5)+80) '1° AMBATA
amb1(2) = Fuori90((90-Estratto(es,CA_,1))+Estratto(es,FI_,2)+66) 'ABBINAMENTO
amb1(3) = Fuori90((90-Estratto(es,GE_,1))+Estratto(es,RO_,2)+48) 'ABBINAMENTO
amb1(4) = Fuori90((90-Estratto(es,CA_,3))+Estratto(es,GE_,4)+86) 'ABBINAMENTO
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 3
For y = x + 1 To 4
If amb1(x) = amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
Next
Next
Wend
End If
Rem fine formula
amb2(1) = Fuori90(Cadenza(Estratto(es,CA_,2))+Estratto(es,MI_,1)+70) '2° AMBATA
amb2(2) = Fuori90(Diametrale(Estratto(es,CA_,5))+Estratto(es,PA_,2)+85) 'ABBINAMENTO
amb2(3) = Fuori90(DiametraleD(Estratto(es,MI_,4))+Estratto(es,RO_,1)+06) 'ABBINAMENTO
amb2(4)= Fuori90(Vert(Estratto(es,FI_,3))+Estratto(es,MI_,2)+41) 'ABBINAMENTO
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 3
For y = x + 1 To 4
If amb2(x) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
Next
Next
Wend
End If
Rem fine formula
'------------------------------------------------------------------------------------
ambata1(1)= amb1(1)
ambata1(2)= amb2(1)
ImpostaGiocata 1,ambata1,ruota,posta,k
'----------------------------- ---------------------------------
ambo2(1)= amb1(1)
ambo2(2)= amb1(2)
ImpostaGiocata 2,ambo2,ruota,poste,k
ambo2(1)= amb1(1)
ambo2(2)= amb1(3)
ImpostaGiocata 3,ambo2,ruota,poste,k
ambo2(1)= amb1(1)
ambo2(2)= amb1(4)
ImpostaGiocata 4,ambo2,ruota,poste,k
ambo2(1)= amb2(1)
ambo2(2)= amb2(2)
ImpostaGiocata 5,ambo2,ruota,poste,k
ambo2(1)= amb2(1)
ambo2(2)= amb2(3)
ImpostaGiocata 6,ambo2,ruota,poste,k
ambo2(1)= amb2(1)
ambo2(2)= amb2(4)
ImpostaGiocata 7,ambo2,ruota,poste,k
Gioca es
End If
Next
Next
Next
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub.