Novità

gentilmente per i bravi scripter(costruzione scrip

Joe91 ha scritto:
Buona Serata a Tutti.

Abbiamo finalmente risolto una prima parte dei "problemi"

da superare per avere lo script completo.

Ecco il riassunto, in script, di quanto sinora esposto:

Codice: 
Sub Main()
    For R1 = 1 To 10
        For R2 = 1 To 10
            K = K + 1
            If R2 > R1 Then
                KK = KK + 1
                Scrivi KK & ") ",0,0
                Scrivi SiglaRuota(R1) & " - ",0,0
                Scrivi SiglaRuota(R2)
            End If
        Next
    Next
    Scrivi K & " coppie"
End Sub

Queste "45" sono la COMBINAZIONE di 10 Ruote (Numeri) a coppie di 2 (Classe).

Quindi lo script funziona ... e allora perchè farla così lunga !?!?

Perchè così ... lo script non è efficiente. Lo spiego con un esempio.

Supponiamo di avere un archivio molto grande e che per cercare tutti

i casi e tra questi, gli storici, delle "distanze"

occorrano 100 MINUTI ... per trovare i 45 "casi" tra i 100 "casi";

Se potessimo ridurre lo script all'elaborare i soli 45 casi necessari,

risparmieremo il 55 % (del nostro tempo / di utilizzo del Pc / di corrente elettrica ...)

Quindi, sapendo tutto ciò, che abbiamo detto precedentemente,

s'è "imparato" che modificando i cicli For-Next nel loro modo di lavorare e nelle loro variabili ...

si deve sempre cercare di OTTIMIZZARE.

I cicli diventano:

Codice: 
FOR R1=1 To 9
   For R2=R1+1 To 10 
    .
    .
    .

   Next 
Next

Ed ancora ...

If R2>R1
.
.
.
End If

Diventa inutile = Sparisce = Ulteriori istruzioni in meno da elaborare.
Clicca per espandere...

Chi avesse seguito ... passo/passo ... la costruzione di questo metodo ricorderà

che Janez aveva chiesto ragguagli per l' inserimento della ruota Nazionale.

Avendo ora, richiamato il mesaggio in cui descrivevo "come" OTTIMIZZANDO ...

questi elementi di calcolo combinatorio ... potessero divenire script,

attraverso una coppia di cicli For-Next-nidificati (ovvero uno all'interno dell'altro),

avevo appunto accennato alla possibilità di poter aggiungere la Nazionale.

Si ricorderà che con 10 ruote si ottengono 45 combinazioni (a coppie).

Quindi aggiungendo la Nazionale ne "aggiungiamo" altre 10 :

Ba-Nz / Ca-Nz / Fi-Nz ... fino a ... Ve-Nz

Come ?

Semplice, modificando, ancora una volta, gli indici, dei cicli For-Next

Codice: 
Sub Main()
 For R1 = 1 To 10
  For R2 = R1 + 1 To 11
   If R2 = 11 Then R2 = 12
   K = K + 1
   Scrivi Format2(K) & ") ",0,0
   Scrivi SiglaRuota(R1) & " - ",0,0
   Scrivi SiglaRuota(R2)
  Next
 Next
End Sub

:) Buon-Week-End
 
Ultima modifica:
Buon Giorno a tutti ...

termino l'impegno assunto nel codificare questo metodo ...

aggiungendo, un esempio, di come è possibile soddisfare l'ultima parte delle richieste,

avanzate da Janez nel primo mesaggio.

In sintesi, egli chiedeva se era possibile ... mantenendo inalterata la medesima parte della ricerca ...

(prima parte dello script) effettuare calcoli e giocate diverse ... dalla quella elencata in prima istanza.

La risposta è evidentemente affermativa ed è possibile sommare le Figure dei numeri

... anzicchè i numeretti ... di cui sono composti ... i 4 estratti diversi, dai 2 isotopi in distanza 45.

Immaginando la "Main()" dello script come una complicata serratura ... capace di riconoscere ed utilizzare

"CHIAVI" differenti sarà sufficiente appunto codificare chiavi differenti per avere ... risultati differenti.

Vi riporto dunque a titolo di esempio il codice già utilizzato precedentemente ...

con la stessa Main() e ... la nuova SubRoutine "SommaNumeretti" che, questa volta, ... SOMMA LE FIGURE.

Codice: 
'05.11.2011        ==> 8453

'GE 86.62.56.60.79 ==> 86

'PA 41.61.34.85.17 ==> 41

'               P1 ==> 1

[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]
    Es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 8453 : R1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 4 : R2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 7 : P1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE]
[SIZE=2]
    

    R [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] R1 : [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]SommaNumeretti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Es,R,P1,Sn : [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Sn[/SIZE]
[SIZE=2]
    R [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] R2 : [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]SommaNumeretti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Es,R,P1,Sn : [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Sn[/SIZE]
[SIZE=2]
    

[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]SommaNumeretti[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]R[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]P1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Sn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
[SIZE=2]
    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Sn [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
[SIZE=2]
    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] P2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 5[/SIZE]
[SIZE=2]
        
 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]P1 [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] P2 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]            F [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]= [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Figura[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]R[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],P2))[/SIZE]
[SIZE=2]
            [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Sn [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]= [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Sn [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] F[/SIZE]
[SIZE=2]
            [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] +[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] F ,0,0[/SIZE]
[SIZE=2]
 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",0,0[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]

Aggiungo ... solo per i distratti ... che vorranno avere, anche il "Secondo Metodo" di Janez,

dovranno semplicemente incollare questa seconda SubRuotine SommaNumeretti ...

AL POSTO di quella che ho inerito a corredo dell' ALTRO SCRIPT. (Presente al #18)


:) Cordiali saluti.
 
Ultima modifica:
Ciao Joe91
Aggiungo ... solo per i distratti ... che vorranno avere il "Secondo Metodo" di Janez,

dovranno semplicemente incollare questa seconda SubRuotine SommaNumeretti ...

AL POSTO di quella che ho inerito a corredo dell' ALTRO SCRIPT.

Direi non è che sia distratto,e che solo dopo di questo c'è n'è un'altro.
Ed sfruttare la tua generosità non mi sembrava corretto,perchè non è un obbligo quello che stai facendo per me.
E posso solo dire.
Mille Grazie
Janez57
 
janez57 ha scritto:
Ciao Joe91
Aggiungo ... solo per i distratti ... che vorranno avere il "Secondo Metodo" di Janez,

dovranno semplicemente incollare questa seconda SubRuotine SommaNumeretti ...

AL POSTO di quella che ho inerito a corredo dell' ALTRO SCRIPT.

Direi non è che sia distratto,e che solo dopo di questo c'è n'è un'altro.
Ed sfruttare la tua generosità non mi sembrava corretto,perchè non è un obbligo quello che stai facendo per me.
E posso solo dire.
Mille Grazie
Janez57
Clicca per espandere...

Ops, allora ... sono distratto, io,

perchè, non ho visto ... altro.

:) Buona Giornata
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto