per joe91 richiesta per modifica script

Zetrix · 8 Marzo 2013

ciao joe91 potresti aggiung l opzione del diam della somma ripetuta grazie

Sub Main()

Dim am(6)
Dim ter(3)
Dim ruota(1)
Dim ruote(2)
Dim poste(2)

poste(2) = 1

ca = 0
Ini = EstrazioneFin - 2 ' <-- imposta estr precedenti
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es

For r = 1 To 10
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 12
If r1 <> 11 Then
For p1 = 1 To 4
For q1 = p1 + 1 To 5
c = Estratto(es,r1,p1)
d = Estratto(es,r1,q1)
'-----------------------------------------
' quadrato a b
' ' c d
'-----------------------------------------
d1 = Distanza(a,b)' oriz
d2 = Distanza(c,d)' oriz
'-------------------------------------------
d3 = Distanza(a,c)' vert
d4 = Distanza(b,d)' vert
'-------------------------------------------
d5 = Distanza(a,d)' diag
d6 = Distanza(b,c)' diag

If d1 = 18 And d2 = d1 Xor d3 = 18 And d4 = d3 Xor d5 = 18 And d6 = d5 Then '<-- imposta distanza ciclometrica

If p1 = p And q1 = q Then

Scrivi String(65,"-")
ca = ca + 1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(a) & " " & Format2(b)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " " & Format2(c) & " " & Format2(d)
'-------------------------------
n1 = Fuori90(a + b)
n2 = Fuori90(c + d)
n3 = Fuori90(a + c)
n4 = Fuori90(b + d)
n5 = Fuori90(a + d)
n6 = Fuori90(b + c)
'-------------------------------
ruote(1) = r
ruote(2) = r1
ruota(1) = 11
'-------------------------------
am(1) = n1
am(2) = n2
am(3) = n3
am(4) = n4
am(5) = n5
am(6) = n6
'-------------------------------
Scrivi String(65,"-")
ImpostaGiocata 1,am,ruote,poste,9,0
'ImpostaGiocata 2,ter,ruota,poste,9,2

Gioca es

End If
End If
Next
Next
End If
Next
Next
Next
Next
Next

End Sub

Joe91 · 8 Marzo 2013

Ciao Zetrix, non so se ho interpretato bene la tua richiesta.

Sicchè ... ho inserito nello script una procedura per individuare il numero ripetuto,

e quale posizione esso occupa, nella lunghetta in gioco.

Il NUMERO RIPETUTO e la sua posizione nella lunghetta ... Sono scritti in ROSSO, nell'output dello script.

E' giusta, questa interpretazione ?

Per cui devo sostituire il numero Rosso con il DIAMETRALE del medesimo ?

Fammi sapere.

Codice:

[FONT=Courier New][SIZE=2][COLOR=#000000]-----------------------------------------------------------------
28.02.2013 Bar 22 40
28.02.2013 Gen 69 51
[/COLOR][COLOR=#ff0000]1 4°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08658 [ 26 - 28/02/2013]
G 0001
Numeri in gioco : 62.30.01.01.73.19 su BA GE per Ambo
  N. [62.30.01.01.73.19             ] [BA]     [.. .. .. .. ..] C.   1            08659 [ 27 - 02/03/2013]
  N. [62.30.01.01.73.19             ] [GE]     [.. .. .. .. ..] C.   1            08659 [ 27 - 02/03/2013]
  N. [62.30.01.01.73.19             ] [BA]     [.. .. .. .. ..] C.   2            08660 [ 28 - 05/03/2013]
  N. [62.30.01.01.73.19             ] [GE]     [.. .. .. .. ..] C.   2            08660 [ 28 - 05/03/2013]

In corso per altre 7 estrazioni
-----------------------------------------------------------------
28.02.2013 Bar 22 40
28.02.2013 Nap 63 81
[/COLOR][COLOR=#ff0000]13 6°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08658 [ 26 - 28/02/2013]
G 0001
Numeri in gioco : 62.54.85.31.13.13 su BA NA per Ambo
  N. [62.54.85.31.13.13             ] [BA]     [.. .. .. .. ..] C.   1            08659 [ 27 - 02/03/2013]
  N. [62.54.85.31.13.13             ] [NA]     [.. .. .. .. ..] C.   1            08659 [ 27 - 02/03/2013]
  N. [62.54.85.31.13.13             ] [BA]     [.. .. .. .. ..] C.   2            08660 [ 28 - 05/03/2013]
  N. [62.54.85.31.13.13             ] [NA]     [13 .. .. .. ..] C.   2 Estratto   08660 [ 28 - 05/03/2013]

In corso per altre 7 estrazioni
-----------------------------------------------------------------
28.02.2013 Gen 69 51
28.02.2013 Nap 63 81
[/COLOR][COLOR=#ff0000]42 4°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08658 [ 26 - 28/02/2013]
G 0001
Numeri in gioco : 30.54.42.42.60.24 su GE NA per Ambo
  N. [30.54.42.42.60.24             ] [GE]     [24 .. .. .. ..] C.   1 Estratto   08659 [ 27 - 02/03/2013]
  N. [30.54.42.42.60.24             ] [NA]     [.. .. .. .. ..] C.   1            08659 [ 27 - 02/03/2013]
  N. [30.54.42.42.60.24             ] [GE]     [.. .. .. .. ..] C.   2            08660 [ 28 - 05/03/2013]
  N. [30.54.42.42.60.24             ] [NA]     [.. 60 .. .. ..] C.   2 Estratto   08660 [ 28 - 05/03/2013]

In corso per altre 7 estrazioni
-----------------------------------------------------------------
02.03.2013 Fir 19 81
02.03.2013 Rom 63 37
[/COLOR][COLOR=#ff0000]10 2°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08659 [ 27 - 02/03/2013]
G 0001
Numeri in gioco : 10.10.82.28.56.54 su FI RO per Ambo
  N. [10.10.82.28.56.54             ] [FI]     [.. .. .. .. ..] C.   1            08660 [ 28 - 05/03/2013]
  N. [10.10.82.28.56.54             ] [RO]     [.. .. .. .. 10] C.   1 Estratto   08660 [ 28 - 05/03/2013]

In corso per altre 8 estrazioni
-----------------------------------------------------------------
05.03.2013 Gen 39 57
05.03.2013 Pal 76 04
[/COLOR][COLOR=#ff0000]43 6°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08660 [ 28 - 05/03/2013]
G 0001
Numeri in gioco : 06.80.25.61.43.43 su GE PA per Ambo
In corso per altre 9 estrazioni
-----------------------------------------------------------------
05.03.2013 Gen 39 57
05.03.2013 Tor 64 46
[/COLOR][COLOR=#ff0000]13 4°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08660 [ 28 - 05/03/2013]
G 0001
Numeri in gioco : 06.20.13.13.85.31 su GE TO per Ambo
In corso per altre 9 estrazioni
-----------------------------------------------------------------
05.03.2013 Mil 42 32
05.03.2013 Tor 24 14
[/COLOR][COLOR=#ff0000]56 6°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08660 [ 28 - 05/03/2013]
G 0001
Numeri in gioco : 74.38.66.46.56.56 su MI TO per Ambo
In corso per altre 9 estrazioni
-----------------------------------------------------------------
05.03.2013 Nap 60 39
05.03.2013 Naz 42 21
[/COLOR][COLOR=#ff0000]81 6°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08660 [ 28 - 05/03/2013]
G 0001
Numeri in gioco : 09.63.12.60.81.81 su NA NZ per Ambo
In corso per altre 9 estrazioni
-----------------------------------------------------------------
05.03.2013 Pal 76 04
05.03.2013 Tor 64 46
[/COLOR][COLOR=#ff0000]50 4°[/COLOR][COLOR=#000000]
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08660 [ 28 - 05/03/2013]
G 0001
Numeri in gioco : 80.20.50.50.32.68 su PA TO per Ambo
In corso per altre 9 estrazioni

[/COLOR][/SIZE][/FONT]

Zetrix · 8 Marzo 2013

ciao joe91 a me servirebbe dal num ripetuto inserire anke il suo diam dist 45 e deve essere visualizzato insieme agli altri num se riesci ad inserire questa opzione nello script va bene anke se riesci ad individuare il num rip poi da questo inserisco quale dist da applicare va bene lo stesso

Joe91 · 8 Marzo 2013

Ciao Zetrix,

Ritengo di non poter rispondere o di non poter modificare lo script,

perchè non capisco l'oggetto della richiesta e quest'ultimo sembra essere differente ed incompatibile con quanto ho scritto.

Quindi per essere più esplicito ... ho corretto il mio messaggio precedente riformulando quanto avevo espresso.

Fammi sapere.

Zetrix · 8 Marzo 2013

ciao joe a me nn serve la pos della lunghetta se riesci ad inserire una stringa ke richiami il numero ke si ripete nella lunghetta poi da questo posso vedere se applicare il suo diam o altro, nota > il diam del num ripetuto deve essere presente ank esso nella lunghetta> faccio un esempio se nella lunghetta e presente il doppio 48 deve trovarsi anke il suo diam cioe il 3 oppure 48*2=96 il 6 ma quello ke mi serve e proprio il num ke si ripete nella lunghetta

Joe91 · 8 Marzo 2013

Ripeto la domanda:

I NUMERI ROSSI sono quelli che vuoi sostituire ?

(Se non sai qual'è e/o dov'è quello da sostituire ... come fai a sapere quale cambiare ?)

Con cosa ... è un problema successivo!

Non credi ?

Zetrix · 8 Marzo 2013

va bene joe91 imposta lo script poi vedro se va bene

Joe91 · 8 Marzo 2013

Codice:

Sub Main()
 Dim am(6)
 Dim ter(3)
 Dim ruota(1)
 Dim ruote(2)
 Dim poste(2)
 poste(2) = 1
 ca = 0
 Ini = EstrazioneFin - 2 ' <-- imposta estr precedenti
 fin = EstrazioneFin
 For es = ini To fin
  AvanzamentoElab ini,fin,es
  For r = 1 To 10
   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 12
      If r1 <> 11 Then
       For p1 = 1 To 4
        For q1 = p1 + 1 To 5
         c = Estratto(es,r1,p1)
         d = Estratto(es,r1,q1)
         '-----------------------------------------
         ' quadrato a b
         ' ' c d
         '-----------------------------------------
         d1 = Distanza(a,b)' oriz
         d2 = Distanza(c,d)' oriz
         '-------------------------------------------
         d3 = Distanza(a,c)' vert
         d4 = Distanza(b,d)' vert
         '-------------------------------------------
         d5 = Distanza(a,d)' diag
         d6 = Distanza(b,c)' diag
         If d1 = 18 And d2 = d1 Xor d3 = 18 And d4 = d3 Xor d5 = 18 And d6 = d5 Then '<-- imposta distanza ciclometrica
          If p1 = p And q1 = q Then
           Scrivi String(65,"-")
           ca = ca + 1
           Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(a) & " " & Format2(b)
           Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " " & Format2(c) & " " & Format2(d)
           '-------------------------------
           am(1) = Fuori90(a + b)
           am(2) = Fuori90(c + d)
           am(3) = Fuori90(a + c)
           am(4) = Fuori90(b + d)
           am(5) = Fuori90(a + d)
           am(6) = Fuori90(b + c)
           For x = 1 To 5
            For y = x + 1 To 6
             If am(x) = am(y) Then Nu = am(y)            
            Next
           Next
           ColoreTesto 2 : Scrivi Nu : ColoreTesto 0
          '-------------------------------
          ruote(1) = r
          ruote(2) = r1
          ruota(1) = 11
          '-------------------------------
          Scrivi String(65,"-")
          ImpostaGiocata 1,am,ruote,poste,9,0
          'ImpostaGiocata 2,ter,ruota,poste,9,2
          Gioca es
         End If
        End If
       Next
      Next
     End If
    Next
   Next
  Next
 Next
Next
End Sub

Zetrix · 8 Marzo 2013

Sub Main()
Dim am(7)
Dim ter(3)
Dim ruota(1)
Dim ruote(2)
Dim poste(2)
poste(2) = 1
ca = 0
Ini = EstrazioneFin - 2 ' <-- imposta estr precedenti
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
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 12
If r1 <> 11 Then
For p1 = 1 To 4
For q1 = p1 + 1 To 5
c = Estratto(es,r1,p1)
d = Estratto(es,r1,q1)
'-----------------------------------------
' quadrato a b
' ' c d
'-----------------------------------------
d1 = Distanza(a,b)' oriz
d2 = Distanza(c,d)' oriz
'-------------------------------------------
d3 = Distanza(a,c)' vert
d4 = Distanza(b,d)' vert
'-------------------------------------------
d5 = Distanza(a,d)' diag
d6 = Distanza(b,c)' diag
If d1 = 18 And d2 = d1 Xor d3 = 18 And d4 = d3 Xor d5 = 18 And d6 = d5 Then '<-- imposta distanza ciclometrica
If p1 = p And q1 = q Then
Scrivi String(65,"-")
ca = ca + 1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(a) & " " & Format2(b)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " " & Format2(c) & " " & Format2(d)
'-------------------------------
am(1) = Fuori90(a + b)
am(2) = Fuori90(c + d)
am(3) = Fuori90(a + c)
am(4) = Fuori90(b + d)
am(5) = Fuori90(a + d)
am(6) = Fuori90(b + c)
am(7) = Diametrale(nu) <--- simbolo da inserire del num ripetuto
For x = 1 To 5
For y = x + 1 To 6
If am(x) = am

Then Nu = am

Next
Next
ColoreTesto 2 : Scrivi Nu : ColoreTesto 0
'-------------------------------
ruote(1) = r
ruote(2) = r1
ruota(1) = 11
'-------------------------------
Scrivi String(65,"-")
ImpostaGiocata 1,am,ruote,poste,9,0
'ImpostaGiocata 2,ter,ruota,poste,9,2
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
Next
End Sub

Zetrix · 8 Marzo 2013

ciao joe91 e tutto ok ce solo un problema ke mi visualizza il diam nella estr successiva

Joe91 · 8 Marzo 2013

Vedi ...

non ti basta sapere qual'è il numero ripetuto.

devi anche sapere dove è ... e solo poi, con quale sostituirlo.

Come hai fatto ... hai 7 numeri invece di 6 ed anche uno doppio (o ripetuto).

Il problema che lamenti invece è perchè il Pc elabora le linee dello script dall'alto al basso (legge come noi!)

quindi non può sapere prima di averlo trovato qual'è in il Nu-mero di cui calcolare il Diametrale.

quindi sa, meglio ricorda, quello della volta prima ... e non quello attuale (ancora da calcolare).

Correzione:
...

ColoreTesto 2 : Scrivi Nu : ColoreTesto 0

am(7) = Diametrale(nu) <--- simbolo da inserire del num ripetuto
....

Poi, ti dicevo, che è utile sapere cosa sostituire ...

Quindi lo scrip t secondo me dorebbe essere così:

Codice:

Sub Main()
 Dim am(6)
 Dim ter(3)
 Dim ruota(1)
 Dim ruote(2)
 Dim poste(2)
 poste(2) = 1
 ca = 0
 Ini = EstrazioneFin - 2' <-- imposta estr precedenti
 fin = EstrazioneFin
 For es = ini To fin
 AvanzamentoElab ini,fin,es
 For r = 1 To 10
 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 12
 If r1 <> 11 Then
 For p1 = 1 To 4
 For q1 = p1 + 1 To 5
 c = Estratto(es,r1,p1)
 d = Estratto(es,r1,q1)
 '-----------------------------------------
 ' quadrato a b
 ' ' c d
 '-----------------------------------------
 d1 = Distanza(a,b)' oriz
 d2 = Distanza(c,d)' oriz
 '-------------------------------------------
 d3 = Distanza(a,c)' vert
 d4 = Distanza(b,d)' vert
 '-------------------------------------------
 d5 = Distanza(a,d)' diag
 d6 = Distanza(b,c)' diag
 If d1 = 18 And d2 = d1 Xor d3 = 18 And d4 = d3 Xor d5 = 18 And d6 = d5 Then '<-- imposta distanza ciclometrica
 If p1 = p And q1 = q Then
 Scrivi String(65,"-")
 ca = ca + 1
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(a) & " " & Format2(b)
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " " & Format2(c) & " " & Format2(d)
 '-------------------------------
 am(1) = Fuori90(a + b)
 am(2) = Fuori90(c + d)
 am(3) = Fuori90(a + c)
 am(4) = Fuori90(b + d)
 am(5) = Fuori90(a + d)
 am(6) = Fuori90(b + c)
 'am(7) = Diametrale(nu) <--- simbolo da inserire del num ripetuto
 For x = 1 To 5
 For y = x + 1 To 6
 If am(x) = am(y) Then Nu = am(y) : Pos = Y : Un = Diametrale (Nu)
 Next
 Next
 Scrivi "Sostituisco " ,0,0  
 ColoreTesto 2 : Scrivi Nu,1,0 : ColoreTesto 0
 Scrivi " con ",0,0
 ColoreTesto 2 : Scrivi Un,1 : ColoreTesto 0
 am (Pos) = Un
 '-------------------------------
 ruote(1) = r
 ruote(2) = r1
 ruota(1) = 11
 '-------------------------------
 Scrivi String(65,"-")
 ImpostaGiocata 1,am,ruote,poste,9,0
 'ImpostaGiocata 2,ter,ruota,poste,9,2
 Gioca es
 End If
 End If
 Next
 Next
 End If
 Next
 Next
 Next
 Next
 Next
 End Sub

Buona Serata a Tutti.

AUGURI ALLE DONNE DEL FORUM

Zetrix · 8 Marzo 2013

ok grazie joe91 lo script va bene grazie anke a disaronno per lo script proposto ciao

Joe91 · 9 Marzo 2013

Ok ...

L'importante è raggiungere il risultato desiderato.

Chiedo scusa a disaronno, ieri, il suo messaggio è stato inserito mentre stavo editando il mio,

e per questa ragione, non l'ho visto. Quindi quanto ho inserito non è, e non voleva (e neppure poteva),

essere una correzione o sovrascrittura. Comunque chiedo scusa, ma non sapevo ... ci fosse il suo messaggio.

Come sempre ed anche in questo caso evidentemente di soluzioni script,

se ne possono individuare ed applicare molte, l'ideale sarebbe trovare anche la migliore.

Ma in casi come questo ... quando funziona va già bene.

Il risparmio di qualche frazione di secondo ...a fronte di uno script molto più "difficile"

da redigere e/o gestire non giustificano ricerche di soluzioni ancora ... migliori.

Con gli auguri di una buona giornata.

Cordiali saluti

Zetrix · 9 Marzo 2013

ciao joe91 premesso ke nn sono bravo a fare gli script pero se ho delle basi su cui lavorare allora riesco ad impostare un tipo di gioco pero dovrei riconoscere quali sono questi punti poi diventa piu facile diciamo ke dopo circa due anni adesso ne so qualkosa in piu all inizio nn sapevo nemmeno cosa fossero gli script pero dopo ho trovato molto interessante nn solo dal punto di vista della tecnica ma anke del resoconto se una tecnica nel corso del tempo dia risultati o meno e questo e molto utile per sapere se unatecnica e buona ed e affidabile oppure cambiare tecnica pero sappiamo anke ke una tecnica puo funzionare per un certo tempo e poi smette di funzionare e magari poi riprende a funzionare comunque grazie per la tua disponibilita per imparare qualkosa sugli script, grazie anke a disaranno per lo script preposto sono quasi uguali vanno bene entrambi. ciao zetrix

Cerca

Cerca

per joe91 richiesta per modifica script

Zetrix

Banned

Joe91

Advanced Member >PLATINUM PLUS<

Zetrix

Banned

Joe91

Advanced Member >PLATINUM PLUS<

Zetrix

Banned

Joe91

Advanced Member >PLATINUM PLUS<

Zetrix

Banned

Joe91

Advanced Member >PLATINUM PLUS<

Zetrix

Banned

Zetrix

Banned

Joe91

Advanced Member >PLATINUM PLUS<

Zetrix

Banned

Joe91

Advanced Member >PLATINUM PLUS<

Zetrix

Banned

Ultima estrazione Lotto

Ultimi Messaggi