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 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto