Gentilmente uno script

[Alien.]

Metodo Somma (ruota Ca.)

Metodo Somma Spia Data inizio Ricerca: 5/1/2000 Data fine Ricerca: 20/2/2021 Condizione di gioco: sortita ambo di somma 15 Ruota/e di ricerca condizione: Ca Ruota/e di Gioco: Ca Colpi di Gioco: 9 Operazioni da eseguire: Calcolo Capogioco: Capogioco: 1° To - 83 Calcolo...

forum.lottoced.com

grazie.

 

[toon]

Bisogna aggiungere il +1 in caso di numeri ripetuti, io ho messo l'eliminazione degli stessi.
Questo è il mio massimo..

Modificato col +1, spero vada bene...
Ambata 48 e Ambo 48 35 a colpo...

Sub Main()
   Dim num(5):Dim num1(5):Dim ruota(10):Dim ruote(12):Dim poste(5):Dim posta(5)
   poste(2) = 1
   posta(1) = 1
   fin = EstrazioneFin
   ini = fin - 190
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 2 To 2
         For p = 1 To 4
            For p1 = p + 1 To 5
               a = Fuori90(Estratto(es,r,p))
               b = Fuori90(Estratto(es,r,p1))
               If(Fuori90(a + b)) = 15 Then
                  n1 = Fuori90(Estratto(es,9,1) - 83)
                  n2 = Fuori90(Estratto(es,7,4) *(Estratto(es,1,5)))
                  n3 = Fuori90(Estratto(es,3,3) *(Estratto(es,7,4)))
                  '--------x1------------
                  k = 9
                  Scrivi String(65,"-"),1
                  ColoreTesto 0 : Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " " & Format2(a) & "-" & Format2(b)
                  '--------------------
                  ruote(1) = 2
                  '--------x1------------
                  num(1) = n1
                  ImpostaGiocata 1,num,ruote,posta,k
                  num1(1) = n1
                  num1(2) = n2
                  num1(3) = n3
                  If num1(2) = num1(3) Or num1(1) Then
                  num1(2) = Fuori90(num1(2) + 1)
                  End If
                  ImpostaGiocata 2,num1,ruote,poste,k
                  '--------x1-----------
                  Gioca es,1
                  Scrivi
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[Alien.]

grazie toon ottimo lavoro.

 

[Marco-elle]

Ciao Toon,
se vuoi eliminare gli eventuali numeri ripetuti....inserisci questo codice subito sopra imposta giocata
Eliminaripetuti num1
ImpostaGiocata 2,num1,ruote,poste,k

 

[toon]

Il mio problema era aggiungere il +1 ai numeri ripetuti, che ho cercato di risolvere alla bene e meglio, non so se nel modo più adeguato, ma pare che fonzioni...
Sei sempre gentilissimo, Grazie mille e sono in attesa di tuoi nuovi magici script..

 

[fabri.m]

salve ,
si puo modificare queste linee, per renderlo completo

n1 = Fuori90((90+Estratto(es,9,1))- 83)

If num1(1) = num1(2) Then
num1(2) = Fuori90(num1(2) + 1)
ElseIf num1(1) = num1(3) Then
num1(3) = Fuori90(num1(3) + 1)
ElseIf num1(2) = num1(3) Then
num1(3) = Fuori90(num1(3) + 1)
End If

o usre questa function

Sub NumeriUguali(nu)
Dim rip,x,y : rip = 00
If NumeriRipetuti(nu) Then
rip = 01
While NumeriRipetuti(nu)
For x = 01 To 02 : For y = x + 01 To 03
If nu(x) = nu(y) Then nu(y) = Fuori90(nu(y) + 01)
Next : Next
Wend
End If
End Sub

 

[Alien.]

Ciao si può avere lo script completo aggiornato,grazie.

 

[toon]

Aggiunto il suggerimento di fabri.m (GRAZIE), ecco il definitivo, provato e funzionante..

Sub Main()
   Dim num(5):Dim num1(5):Dim ruota(10):Dim ruote(12):Dim poste(5):Dim posta(5)
   poste(2) = 1
   posta(1) = 1
   fin = EstrazioneFin
   ini = fin - 190
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 2 To 2
         For p = 1 To 4
            For p1 = p + 1 To 5
               a = Fuori90(Estratto(es,r,p))
               b = Fuori90(Estratto(es,r,p1))
               If(Fuori90(a + b)) = 15 Then
                  n1 = Fuori90(Estratto(es,9,1) - 83)
                  n2 = Fuori90(Estratto(es,7,4) *(Estratto(es,1,5)))
                  n3 = Fuori90(Estratto(es,3,3) *(Estratto(es,7,4)))
                  '--------x1------------
                  k = 9
                  Scrivi String(65,"-"),1
                  ColoreTesto 0 : Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " " & Format2(a) & "-" & Format2(b)
                  '--------------------
                  ruote(1) = 2
                  '--------x1------------
                  num(1) = n1
                  ImpostaGiocata 1,num,ruote,posta,k
                  num1(1) = n1
                  num1(2) = n2
                  num1(3) = n3
                  Dim rip,x,y : rip = 00
                  If NumeriRipetuti(num1) Then
                     rip = 01
                     While NumeriRipetuti(num1)
                        For x = 01 To 02 : For y = x + 01 To 03
                           If num1(x) = num1(y) Then num1(y) = Fuori90(num1(y) + 01)
                        Next : Next
                     Wend
                  End If
                  ImpostaGiocata 2,num1,ruote,poste,k
                  '--------x1-----------
                  Gioca es,1
                  Scrivi
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub