metodo per ambata fatemi il list per favore!!

[Roby]

vi sarei grato molto semplice ma vorrei vedere la statistica

trovare ambo diametrale su una ruota esempio:

4 49 fare la somma=53
ambate 53 e il diametrale 8 da giocare su ruota come amate e ambo a tutte per recupero per 9 colpi

altro esempio:
se trviamo 23 e 68 si sommanoe diventano con il fuori 90 1 e 46 ambate e ambo a tutte

molto semplice come metodo ma non male vi assicuro per con il list volevo vedere come si comporta grazie e un saluto

forza sampdoria

 

[franca46]

Sub main() 
Dim n,t,r,n1,n2 
Dim am(2) 
Dim ruota(1)
Dim posta(5)
posta(1)=1 

ini = 6668

For n=ini To EstrazioneFin 
Messaggio DataEstrazione (n) 

t=1 
Do While DECAMBO(n,t,r,n1,n2)=True 
a=Cadenza(n1) 
b=Cadenza(n2) 
'************************************************************************************************

If (a-b)=5 Or (b-a)=5 Then ' se la differenza è 5 fai la giocata altrimenti salta alla fine ciclo

'************************************************************************************************

ruota(1)=r 
Scrivi "------------------------------------------" 
Scrivi NomeRuota(r)&"   "&CInt(n1)&"  "&CInt(n2)


e=Fuori90(n1+n2)
g=Fuori90(e+45)
am(1)=e 
am(2)=g 


y = 12 ' numero dei colpi di gioco, se li vuoi variare basta cambiare il valore

k = 1 ' 1= interrompe il gioco all'uscita dell'Ambata, 2= dell'Ambo, 3= del Terno, ecc...

ImpostaGiocata 1,am,ruota,posta,y,k 
Gioca n 
End If 


t=t+1 
Loop 
Next 
ScriviResoconto 
End Sub 


' Questa è la funzione che cerca l'Ambo in decina e lo restituisce al 
' programma principale sopra, i numeri sono contenuti in " n1 " e " n2 " la ruota in " r "
'
' se vuoi fare prove su altre ruote basta che cambi il valore di " r " nella funzione

Function DECAMBO(estrazione, tentativo, byref ruota, byref numero1, byref numero2)
Dim trovati,r,i,j
trovati=0

r= 1 ' valore da sostituire se vuoi cambiare ruota, 1=BA......10=VE

  For i= 1 To 4
    For j=i+1 To 5
      a=Estratto (estrazione,r,i)
      b=Estratto(estrazione,r,j)
      If Decina(a) = Decina(b) Then
        trovati=trovati+1
        If trovati=tentativo Then
          numero1=Estratto(estrazione,r,i)
          numero2=Estratto(estrazione,r,j)
          ruota=r
          DECAMBO=True
          Exit Function 
	  End If 
      End If
    Next
  Next 
DECAMBO=False
End Function

ciao Ste manca l'ambo su tutte

salutoni

 

[imported_n/a]

grazie franca pero l ambo da ricercare è il diametrale come si fa a cambiare il list?

forza sampdoria

 

[Ben8]

quote:
Sub main()
Dim n,t,r,n1,n2
Dim am(2)
Dim ruota(1)
Dim posta(5)
posta(1)=1
posta(2)=1
ini = 7400

For n=ini To EstrazioneFin
Messaggio DataEstrazione

t=1
Do While DECAMBO(n,t,r,n1,n2)=True
a=Cadenza(n1)
b=Cadenza(n2)
'************************************************************************************************

If (a-b)=5 Or (b-a)=5 Then ' se la differenza è 5 fai la giocata altrimenti salta alla fine ciclo

'************************************************************************************************

ruota(1)=r
Scrivi "------------------------------------------"
Scrivi NomeRuota(r)&" "&CInt(n1)&" "&CInt(n2)


e=Fuori90(n1+n2)
g=Fuori90(e+45)
am(1)=e
am(2)=Diametrale(e)


y = 9 ' numero dei colpi di gioco, se li vuoi variare basta cambiare il valore

k = 1 ' 1= interrompe il gioco all'uscita dell'Ambata, 2= dell'Ambo, 3= del Terno, ecc...

ImpostaGiocata 1,am,ruota,posta,y
Gioca n
End If


t=t+1
Loop
Next
ScriviResoconto
End Sub


' Questa è la funzione che cerca l'Ambo in decina e lo restituisce al
' programma principale sopra, i numeri sono contenuti in " n1 " e " n2 " la ruota in " r "
'
' se vuoi fare prove su altre ruote basta che cambi il valore di " r " nella funzione

Function DECAMBO(estrazione, tentativo, byref ruota, byref numero1, byref numero2)
Dim trovati,r,i,j
trovati=0

'r= 1 ' valore da sostituire se vuoi cambiare ruota, 1=BA......10=VE
For r=1 To 10
For i= 1 To 4
For j=i+1 To 5
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
If a=Diametrale(b) Then

trovati=trovati+1
If trovati=tentativo Then
numero1=Estratto(estrazione,r,i)
numero2=Estratto(estrazione,r,j)
ruota=r
DECAMBO=True
Exit Function
End If
End If
Next
Next
next
DECAMBO=False
End Function

Ben[8] </u>

 

[imported_n/a]

GRAZIE MILLE

forza sampdoria