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
    venerdì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto