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
    sabato 13 giugno 2026
    Bari
    25
    62
    86
    19
    37
    Cagliari
    03
    65
    84
    69
    63
    Firenze
    84
    34
    83
    08
    26
    Genova
    19
    29
    90
    53
    32
    Milano
    75
    70
    86
    51
    35
    Napoli
    46
    48
    68
    37
    19
    Palermo
    16
    39
    87
    84
    74
    Roma
    29
    42
    65
    54
    80
    Torino
    77
    67
    68
    57
    45
    Venezia
    05
    82
    85
    42
    19
    Nazionale
    75
    27
    45
    33
    39
    Estrazione Simbolotto
    Napoli
    42
    15
    27
    08
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto