Script sugli ambi ripetuti pari e dispari

Rispondi
Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Script sugli ambi ripetuti pari e dispari

Messaggio da SeeLe8 » 03/12/2014, 15:28

Non ci riesco... mi sono impallinata e non poco! :ire: :ire:

Avrei bisogno di uno script che mi ricerchi gli ambi ripetuti aventi entrambi gli elementi o pari o dispari

Esempio: 30 ottobre
CA 73.47
TO 73.47
entrambi gli elementi dispari
mi dovrebbe trovare e mettere in gioco questi 4 ambi

13.60 = somma 73 distanza ciclometrica 43
15.58 = somma 73 distanza matematica 43
60.77 = somma 47 distanza ciclometrica 17
15.32 = somma 47 distanza matematica 17

il gioco degli ambi è a ruota e tutte
il gioco della sestina è a ruota per ambo e a tutte per terno
in questo caso al 5° colpo ambo 15.32 su FI + terno 15.32.13

altro esempio ambo ripetuto pari -----------------

30 ottobre
NA-PA 36.38

ambi
37.89 = somma 36 distanza 38
44.82 = somma 36 distanza 38
1.37 = somma 38 distanza 36
46.82 = somma 38 distanza 36

Esito:
1° colpo 1.82 in sestina a NA
2° colpo 1.89 a NA e ambo secco 82.44 a PA
10° colpo ambo secco 1.37 a NA

GRAZIEEEEEEEEEEEEEE
:abb:
Immagine

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Script sugli ambi ripetuti pari e dispari

Messaggio da SeeLe8 » 16/12/2014, 0:31

uppo la discussione :dent:
Immagine

Avatar utente
DjNomade
Messaggi: 598
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Script sugli ambi ripetuti pari e dispari

Messaggio da DjNomade » 19/12/2014, 1:32

Ciauz a me è venuto cosi......
purtroppo non so' come mettere tutti numeri in lunghetta



Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=23&p=26425&sid=57408f4807f75da9b15047259e82c558#p26372
ColoreTesto 2

Scrivi String(17,32) & "ambi ripetuti  o pari o dispari X per SeeLe8 ",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0

Sub main() 
Dim numeri(2)
Dim numeri1(5) 
Dim numeri2(7) 
Dim ruota(10) 
Dim poste(2)
Dim posta(1) 
posta(1)=1
poste(2)=1 

fin=EstrazioneFin 
ini=fin-50 
For es=ini To fin 
AvanzamentoElab ini,fin,es 

For r=1 To 9 
For p=1 To 4 
For q=p+1 To 5 
a=Estratto (es,r,p) 
b=Estratto (es,r,q) 

For r1=r+1 To 10 
p1=Posizione (es,r1,a) 
q1=Posizione (es,r1,b) 
If p1>0 And q1>0 And ((Pari(a)=True And Pari(b)=True)or(Pari(a)=false And Pari(b)=false)) Then 



ruota(1)=r
ruota(2)=r1
ruota(3)=11

For n11 = 1 To 89
For n22 = n11+ 1 To 90
n13 = Fuori90(n11 + n22)
n77 = Distanza(n11,n22)
bb =a
bb1 =b
bbb =a
bbb1 =b
If a>45 Then bb = a:bbb = 90-a
If b>45 Then bb1 = b:bbb1 = 90-b
If (n13 = bb And n77 = bbb1)Or (n13 = bbb1 And n77 = bb)_
Or  (n13 = bb1 And n77 = bbb)Or (n13 = bbb And n77 = bb1) Then






Scrivi : Scrivi 
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " "& StringaEstratti(es,r) & "-----> " & Format2(a) &" "& Format2 (b) 
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " "& StringaEstratti(es,r1) & "-----> "& Format2 (a) &" "& Format2 (b)  



numeri1(1)=n11
numeri1(2)=n22 
ImpostaGiocata 1,numeri1,ruota,poste,9,2


Gioca es
End If 


 Next : Next 
End If 
 Next : Next : Next :Next :Next :
 ScriviResoconto 
 End Sub 

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Script sugli ambi ripetuti pari e dispari

Messaggio da SeeLe8 » 20/12/2014, 13:09

grazie dj!!!
è già tanto che il resoconto sia in positivo :dent:

:abb: :abb:
Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti