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
    martedì 03 giugno 2025
    Bari
    22
    06
    19
    70
    35
    Cagliari
    63
    52
    04
    64
    43
    Firenze
    77
    56
    88
    38
    21
    Genova
    40
    86
    56
    32
    74
    Milano
    36
    42
    01
    33
    67
    Napoli
    63
    06
    37
    46
    64
    Palermo
    85
    66
    17
    42
    41
    Roma
    49
    88
    03
    80
    57
    Torino
    38
    42
    43
    53
    69
    Venezia
    50
    16
    55
    31
    32
    Nazionale
    28
    11
    73
    72
    52
    Estrazione Simbolotto
    Napoli
    13
    22
    38
    33
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto