x Max-lotto listato da fare

[Zetrix]

Ciao Max vorrei fare questo listato con queste caratterestiche bisogna rilevare la dist3 in 1 e 5 pos chiudere la simmetria il num rilevato si gioca x ambata sulla ruota diam x 5 colpi max ,, come da figure allegate, grazie p.s nota e importante che l ambo rilevato appartiene alla stessa decina

 

[*Max-lotto*]

Ciao ecco il script non so se ho capito bene fammi sapere

Sub Main
 Dim idEstr
 Dim Inizio
 Dim Fine
 Dim nDaFare
 Dim nFatte
 Dim nNum1,nNum2,Smtdc
 Dim VetNumeri(1),vetRuote(1),vetPoste(1)
 Scrivi + " script  per zetrix ,  by *Max-lotto*" ,,,2
 Scrivi"============================================="
 ' Imposto i limiti del range di analisi
 Inizio = EstrazioneFin - 100 ' 14.09.2013
 Fine = EstrazioneFin' 31.10.2013
 ' Calcolo estrazioni da fare
 nDaFare =(Inizio - Fine) - 1
 ' Blocco analisi estrazioni
 For idEstr = Inizio To Fine
  For r1 = 1 To 10
   nNum1 = Estratto(idEstr,r1,1)
   nNum2 = Estratto(idEstr,r1,5)
   If Distanza(nNum1,nNum2) = 3 Then
    u = Decina(nNum1)
    If Decina(nNum1) = u And Decina(nNum2) = u Then
     ReDim aNumeri(2)
     aNumeri(1) = nNum1
     aNumeri(2) = nNum2
     Call OrdinaMatrice(aNumeri,- 1)
     Smtdc = Fuori90(aNumeri(2) - 3)
     vetRuote(1) = r1 + 5
     VetNumeri(1) = Smtdc
     vetPoste(1) = 1
     ImpostaGiocata 1,VetNumeri,vetRuote,vetPoste,5
     Gioca idEstr
     Scrivi DataEstrazione(idEstr) + " " + SiglaRuota(r1) + " " + Format2(aNumeri(1)) + " " + Format2(aNumeri(2)) + " " + Format2(Smtdc)
    End If
   End If
  Next
  Call AvanzamentoElab(Inizio,Fine,idEstr)
  Call Messaggio("Estrazioni elaborate : " & nFatte)
  'Scrivi + "==================================================================================================="
  nFatte = nFatte + 1
  ' Gestione interruzione elaborazione
  If ScriptInterrotto Then Exit For
 Next
End Sub

 

[Zetrix]

Ciao Max ho visto ora lo script cosi nn va bene le terzine faccio un esempio devono essere 41.44.47,,, 42.45.48,,, 43.46.49 e cosi vale per tutte le altre terzine simmetriche in decina la cadenza zero nn la devi mettere poi se puoi mettere prima la condz rilevata dell ambo in 1 e 5 e poi il pronostico perche lo leggo in contrario ci sono da fare solo queste piccole modifiche poi il resto va bene

 

[*Max-lotto*]

Ciao ecco il listato spero che vada bene

Sub Main
 Dim idEstr
 Dim Inizio
 Dim Fine
 Dim nDaFare
 Dim nFatte
 Dim nNum1,nNum2
 Dim VetNumeri(1),vetRuote(1),vetPoste(1),Opzione_DurataColpi
 vetPoste(1) = 1
 Opzione_DurataColpi = 5 'opzione per la durata colpi
 Scrivi + " Script  per zetrix ,  by *Max-lotto* ",True,,,1,4
 ' Imposto i limiti del range di analisi
 Inizio = EstrazioneFin - 200 ' 19/03/2012
 Fine = EstrazioneFin '05/11/2013
 ' Calcolo estrazioni da fare
 nDaFare =(Inizio - Fine) - 1
 ' Blocco analisi estrazioni
 For idEstr = Inizio To Fine
  For r1 = 1 To 10
   [SIZE=2]vetRuote(1) = RuotaDiametrale(r1)[/SIZE][SIZE=2]
[/SIZE]  nNum1 = Estratto(idEstr,r1,1)
   nNum2 = Estratto(idEstr,r1,5)
   If Distanza(nNum1,nNum2) = 3 Then
    u = Decina(nNum1)
    If Decina(nNum1) = u And Decina(nNum2) = u Then
     ReDim aNumeri(2)
     aNumeri(1) = nNum1
     aNumeri(2) = nNum2
     Call OrdinaMatrice(aNumeri,1)
     VetNumeri(1) = TERZm(aNumeri(1),aNumeri(2))
     If(Cadenza(aNumeri(1)) = 0 Or Cadenza(aNumeri(2)) = 0) = False Then
      Scrivi + "======================================================================================="
      ImpostaGiocata 1,VetNumeri,vetRuote,vetPoste,Opzione_DurataColpi
      Gioca idEstr
      Scrivi DataEstrazione(idEstr) + " " + SiglaRuota(r1) + " " + Format2(nNum1) + " " + Format2(nNum2),,,3
     End If
    End If
   End If
  Next
  Call AvanzamentoElab(Inizio,Fine,idEstr)
  Call Messaggio("Estrazioni elaborate : " & nFatte)
  nFatte = nFatte + 1
  ' Gestione interruzione elaborazione
  If ScriptInterrotto Then Exit For
 Next
End Sub
Function TERZm(N1,N2)
 If Fuori90(N1 + 3) = N2 Then T1 = Fuori90(N1 + 6) Else T1 = Fuori90(N1 + 3)
 ReDim Nm(2)
 Nm(1) = N1
 Nm(2) = N2
 Call OrdinaMatrice(Nm,1)
 If Decina(T1) <> Decina(N1) Then
  T2 = Fuori90(N1 - 3)
  TERZm = T2
 Else
  TERZm = T1
 End If
End Function

 

[Zetrix]

grazie max lo script va benissimo ,, grazie ancora per la disponibilta del listato ,, ora dovro cercare l abb per ambo secco ,, anche se una ambata su ruota in modo progressivo si puo fare come gioco per soli 5 colpi ma devo fare molto di piu ,, ciao

 

[*Max-lotto*]

ok grazie a te ,visto che ti sono stato di aiuto!!