terno

[Roby]

QUALCUNO MI PUO DIRE SE CE' UN SISTEMA O METODO
PER RINTRACCARE SU QUALSIASI ESTRAZIONE DEI TERNI
CHE ABBIANO LA SOMMA DI DUE NUMERI E' UGUALE AL TERZO

SE SI PUO' FARE UN LISTATO CON L8+ grazie

 

[gary62]

Ciao, perchè non lo chiedi a maxma62?. So che con i listati, vedendo il forum, se la cava bene.
Ciao

gary62

 

[imported_n/a]

infatti...worki cambia l'intestazione al topic... scrivi "PER MAXMA62"...vedrai che max ti dara' una mano!!!

 

[maxma62]

Qualche caso:

===========================================================================
mer 07.01.2009 [ Ba - 66.70.63.26.61 ] [ 66.63 ] somma 39 in 1^/3^ pos.
mer 07.01.2009 [ Fi - 40.39.13.20.14 ] [ 39 ] in 2^ pos.
---------------------------------------------------------- caso n° 1
===========================================================================
mer 07.01.2009 [ Ba - 66.70.63.26.61 ] [ 66.61 ] somma 37 in 1^/5^ pos.
mer 07.01.2009 [ Ve - 68.37.42.09.27 ] [ 37 ] in 2^ pos.
---------------------------------------------------------- caso n° 2
===========================================================================
mer 07.01.2009 [ Ba - 66.70.63.26.61 ] [ 70.63 ] somma 43 in 2^/3^ pos.
mer 07.01.2009 [ Nz - 16.43.70.55.33 ] [ 43 ] in 2^ pos.
---------------------------------------------------------- caso n° 3
===========================================================================
mer 07.01.2009 [ Ba - 66.70.63.26.61 ] [ 63.26 ] somma 89 in 3^/4^ pos.
mer 07.01.2009 [ Mi - 50.04.60.34.89 ] [ 89 ] in 5^ pos.
---------------------------------------------------------- caso n° 4
===========================================================================
mer 07.01.2009 [ Ba - 66.70.63.26.61 ] [ 63.61 ] somma 34 in 3^/5^ pos.
mer 07.01.2009 [ Ca - 81.16.70.31.34 ] [ 34 ] in 5^ pos.
---------------------------------------------------------- caso n° 5
===========================================================================
mer 07.01.2009 [ Ba - 66.70.63.26.61 ] [ 63.61 ] somma 34 in 3^/5^ pos.
mer 07.01.2009 [ Mi - 50.04.60.34.89 ] [ 34 ] in 4^ pos.
---------------------------------------------------------- caso n° 6
===========================================================================
mer 07.01.2009 [ Ca - 81.16.70.31.34 ] [ 81.70 ] somma 61 in 1^/3^ pos.
mer 07.01.2009 [ Ba - 66.70.63.26.61 ] [ 61 ] in 5^ pos.
---------------------------------------------------------- caso n° 7
===========================================================================
mer 07.01.2009 [ Ca - 81.16.70.31.34 ] [ 81.34 ] somma 25 in 1^/5^ pos.
mer 07.01.2009 [ Pa - 35.36.76.25.05 ] [ 25 ] in 4^ pos.
---------------------------------------------------------- caso n° 8
===========================================================================
mer 07.01.2009 [ Ca - 81.16.70.31.34 ] [ 16.34 ] somma 50 in 2^/5^ pos.
mer 07.01.2009 [ Mi - 50.04.60.34.89 ] [ 50 ] in 1^ pos.
---------------------------------------------------------- caso n° 9
===========================================================================
mer 07.01.2009 [ Ca - 81.16.70.31.34 ] [ 70.34 ] somma 14 in 3^/5^ pos.
mer 07.01.2009 [ Fi - 40.39.13.20.14 ] [ 14 ] in 5^ pos.
---------------------------------------------------------- caso n° 10
===========================================================================

-------------------------
audaces fortuna iuvat
max

 

[franca46]

quote:Originally posted by worki

QUALCUNO MI PUO DIRE SE CE' UN SISTEMA O METODO
PER RINTRACCARE SU QUALSIASI ESTRAZIONE DEI TERNI
CHE ABBIANO LA SOMMA DI DUE NUMERI E' UGUALE AL TERZO

SE SI PUO' FARE UN LISTATO CON L8+ grazie

ciao workitempo fa Ramco mi ha aiutato a farlo il listato vedi se fa al caso tuo.

'Ricerca Elemento derivato dalla somma ambo su ruota 
'stessa estrazione 
'Ramco 04/03/08 x Franca 
Sub main() 
Dim rt(1),nu(2),nu1(4),posta(5),poste(5) 
posta(1)=1 
poste(2)=1 
fin=EstrazioneFin 
ini=fin-100 
co=0 
For es=ini To fin 
For r=1 To 10 'scorri le ruote 
rt(1)=r 'assegni la variabile r al vettore rt() 
a=Estratto (es,r,1) 'gli estratti in posizione... 
b=Estratto (es,r,5) 
s1=Fuori90 (a+b) ' la somma o altro.. 
c=Estratto (es,r,3) 
If c=s1 Then 'trovata la condizione 
co=co+1 
Scrivi String (65,"=") 
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r) 
Scrivi "Ambo Generatore "& a &"."& b 
Scrivi "SommAmbo "& s1 &" trovato nella stessa estrazione in " & 3 &"° pos." 
'--------------qui imposti le giocate---------- 
nu(1)=Diametrale (c) 
nu(2)=Vert (nu(1)) 
ImpostaGiocata 1,nu,rt,posta,12,0
'--------------se vuoi aggiungere altre giocate... 
nu1(1)=nu(1)
nu1(2)=nu(2)
nu1(3)=Abs(90-nu(1))
nu1(4)=Abs(90-nu(2))
ImpostaGiocata 2,nu1,rt,poste,12,0
Gioca es 
End If 
Next 
Next 
Scrivi : Scrivi "Casi Contabilizzati "& CInt (co) 
ScriviResoconto 
End Sub

=================================================================
14.02.2009 Ba 32.75.14.67.72
Ambo Generatore 32.72
SommAmbo 14 trovato nella stessa estrazione in 3° pos.
sab 14.02.2009  [8026]
  G  1:  M    59.55         Ba    7/12    
     M  59               su Ba    5° colpo   [8031/26.02.2009]
     in corso (7° su 12)
  G  2:  A    59.55.31.35   Ba    7/12    
     in corso (7° su 12)

ciaooooooo



Franca46