Novità

primi passi

genios

Advanced Member >PLATINUM<
Aiuto per migliorare lo script. ciclo for n( 5) per non ripetere di scrivere cinque volte n1 n2 n3 n4 n5

Sub Main

Dim n(5)
Dim ruote(1)

For es = EstrazioneFin - 100 To EstrazioneFin ' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
r1 = 1

n(1) =(Estratto(es,r1,1))
n(2) =(Estratto(es,r1,2))
n(3) =(Estratto(es,r1,3))
n(4) =(Estratto(es,r1,4))
n(5) =(Estratto(es,r1,5))
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5) & n(1) & "." & n(2) & "." & n(3) & "." & n(4) & "." & n(5),1




Next

End Sub

Ciao Eugenio
 
ciao la risposta alla tua domanda sta esattamente gia nel tuo script.
Infatti per evitare di scrivere 5 righe devi solo usare un altro ciclo for , visto che gia ne hai usato uno per scorrere le estrazioni ora devi usarne un altro per scorrere le posizioni.
 
Grazie mitico LuigiB dell' aiuto pero' correggimi se sbaglio ma io volevo associare l' estratto in posizione 1 ad n(1) l' estratto in posizione 2 ad n(2) e cosi via quindi occorrono forse 2 cicli for next uno per la variabile P(5) e uno per la variabile n(5).Ho visto la bella lezione sui cicli iterativi ne esistono altre ?

Ciao Eugenio
 
ma io volevo associare l' estratto in posizione 1 ad n(1) l' estratto in posizione 2 ad n(2) e cosi via quindi occorrono forse 2 cicli for next

No. Uno.

Con due ... ci scleri.
 
ciao Genios , si ne esistono altre ed io consigllio caldamente di dargli una letta .se vuoi le riposto. non dico di studiarle ma almeno una letta per metabolizzare quel po di teoria che serve per creare un po' di base ...
nel tuo caso dici voglio associare l'estrattto in posizione 1 all'1 quello in pos 2 al 2 e cosi via ...
Cosa c'è di meglio di un ciclo per sostiture la scrittura di 1 ,2,3,4,5 .. scusa se non ti scrivo il codice ma se ci rifletti e ci arrivi automaticamente avrai capito a cosa serve un ciclo
 
Ultima modifica di un moderatore:
Ciao Eugenio.

Guarda le modifiche che ho fatto al tuo script.

Codice:
 Option [B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]Explicit[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]Sub [/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  
  [B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  
  [B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]Dim [/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]R[/SIZE]
  
  [B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](5)[/SIZE]
  
  
  [B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px] 5 [/SIZE][B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px][COLOR=#008000][SIZE=10px][COLOR=#008000]' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare[/COLOR][/SIZE][/COLOR][/SIZE]
  
  [B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px] 1[/SIZE]
  
  [B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](1) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],[/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],1))[/SIZE]
  
  [B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](2) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],[/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],2))[/SIZE]
  
  [B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](3) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],[/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],3))[/SIZE]
  
  [B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](4) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],[/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],4))[/SIZE]
  
  [B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](5) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],[/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px],5))[/SIZE]

[B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]Es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px] "[/SIZE][SIZE=10px]" [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#800080][SIZE=10px][COLOR=#800080]NomeRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]([/SIZE][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px]),5) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](1) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px] "[/SIZE][SIZE=10px][COLOR=#ff8000][SIZE=10px][COLOR=#ff8000].[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=10px]" [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](2) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px] "[/SIZE][SIZE=10px][COLOR=#ff8000][SIZE=10px][COLOR=#ff8000].[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=10px]" [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](3) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px] "[/SIZE][SIZE=10px][COLOR=#ff8000][SIZE=10px][COLOR=#ff8000].[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=10px]" [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](4) [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px] "[/SIZE][SIZE=10px][COLOR=#ff8000][SIZE=10px][COLOR=#ff8000].[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=10px]" [/SIZE][B][SIZE=10px][COLOR=#ff0000][SIZE=10px][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=10px][COLOR=#ff00ff][SIZE=10px][COLOR=#ff00ff]N[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=10px](5),1[/SIZE]

[B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]

[COLOR=#0000c0][SIZE=10px][COLOR=#0000c0][B]End [/B][/COLOR][/SIZE][/COLOR][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0][B]Sub[/B]
[COLOR=#252c2f][SIZE=2]
[/SIZE][/COLOR][/COLOR][/SIZE][/COLOR]
 
Ultima modifica:
Ciao , a tutti. Connettersi per me è un impresa :) Ho provato anche io
Codice:
Option Explicit
' Spero sia corretto
Sub Main
    'Dichiaro le Variabili
    Dim Ini,fin,es
    Dim n(5)
    Dim p,sp,Ruota
    
    ' Valorizzo le variabili
    Ini = EstrazioneFin - 10 ' ultime  11 Estrazioni
    fin = EstrazioneFin
    Ruota= 1    ' la dichiaro al di fuori del ciclo
    Scrivi NomeRuota(Ruota),True


    ' Comincio i cicli: il primo per le estrazioni, il secondo per le posizioni
    For es = Ini To fin 'Ciclo le estrazioni
        sp = "" ' stringa degli estratti, l'azzero dopo ogni ciclo
        For p = 1 To 5 ' ciclo le posizioni
            n(p) = Estratto(es,Ruota,p) ' ogni singolo estratto della ruota  di Ba_
            sp = sp & Format2(n(p)) & "." ' costruisco la stringa
        Next
        sp = RimuoviLastChr(sp,".") ' tolgo l'ultimo "."
        Scrivi DataEstrazione(es) & " " & sp
    Next
End Sub

Ciao a tutti
 
Ultima modifica:
benissimo spero che Genios abbia capito la logica dei cicli.
Come sempre per realizzare un qualcosa esistono diverse strade , se si sta in spaziometria questa è la versione piu compatta

Codice:
Option Explicit
Sub Main
    Dim es
    Dim R
    Dim n
    
    
    R = 1
    For es = EstrazioneFin - 5 To EstrazioneFin' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
        
        Call GetArrayNumeriRuota(es,R,n)
        
        Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(R),5) & " " & StringaNumeri(n,,True),1
    Next
End Sub
 
Ultima modifica di un moderatore:
Io ho trovato questa soluzione ce di meglio ho visto sopra. :-)


Option Explicit

Sub Main

Dim n(5)
Dim es,r1,p
Dim ruote(1)

For es = EstrazioneFin - 100 To EstrazioneFin ' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
r1 = 1
For p= 1 To 5
n(p)=(Estratto(es,r1,p))


Next
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5) & n(1) & "." & n(2) & "." & n(3) & "." & n(4) & "." & n(5),1
Next

End Sub
 
Ultima modifica:
Ho migliorato l' uscita con Format2. Domani cerco di studiare e capire i vostri script .

Codice:
Option Explicit

Sub Main

Dim n(5)
Dim es,r1,p
Dim ruote(1)

For es = EstrazioneFin - 100 To EstrazioneFin ' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
r1 = 1
For p= 1 To 5
n(p)=(Estratto(es,r1,p))


Next
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5) &Format2( n(1)) & "." &Format2(  n(2)) & "." &Format2(  n(3)) & "." &Format2(  n(4)) & "." &Format2(  n(5)),1
Next

End Sub
 
Ultima modifica:
bravo Geniso .. mica mi aspettavo il diagramma di flusso ... mi sono quasi commosso -) ad ogni modo c'è qualcosina da migliorare ..su questa riga.. ciao

Codice:
 Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5) &Format2( n(1)) & "." &Format2(  n(2)) & "." &Format2(  n(3)) & "." &Format2(  n(4)) & "." &Format2(  n(5)),1
 
Ciao Eugenio.


Quanto t'aveva suggerito Luigi ... ed è quanto ti mancava è:

Codice:
For p= 1 To 5
n(p)=(Estratto(es,r1,p))
Next

Ovvero gererare le 5 evenienze differenti di "P" con un ciclo For-Next

e ... utilizzarle ... contemporaneamente

sia come indice di "N" .... N(P)

che ... con la funzione "Estratto" .... Estratto ( ... , ... , P )

Ove evidentemente "P" vale prima 1 poi 2 poi 3 ... fino a 5. Per entrambi.

Questo in sintesi ti permette di avere UN solo indice con cui memorizzare una corrispettiva posizione dei 5 Estratti.

Analogamente For R = 1 To 10 ... Next

ti permette di avere una "R" cioè un indice diverso ... per ognuna delle 10 ruote.

Ora che ti è chiaro e svelato l'arcano ti sarà semplicissimo interpretare per bene

TUTTO quanto è nella dispensa che Luigi ti ha fornito.

:) Buon Week-End a tutte/i.
 
Ultima modifica:
LuigiB si migliora lo script forse con la funzione stringa numeri ? Ho vi sono altre soluzioni ?

potresti mandarmi le altre dispense ?
Ciao Eugenio



Codice:
 crivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5) &Format2( n(1)) & "." &Format2(  n(2)) & "." &Format2(  n(3)) & "." &Format2(  n(4)) & "." &Format2(  n(5)),1

Codice:
 Sub Main

Dim n(5)
Dim es,r1,p
Dim ruote(1)

For es = EstrazioneFin - 100 To EstrazioneFin ' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
r1 = 1
For p= 1 To 5
n(p)=(Estratto(es,r1,p))


Next
'Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5) &Format2( n(1)) & "." &Format2( n(2)) & "." &Format2( n(3)) & "." &Format2( n(4)) & "." &Format2( n(5)),1
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),5)& " " & StringaNumeri(n,,True),1
Next

End Sub
 
Joe91;n1887512 ha scritto:
No. Uno.

Con due ... ci scleri.


Emoticons%20(181).gif
io già sclero solo nel leggervi
gif_animate_comiche_03.gif
x me è ARABO
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 06 maggio 2025
    Bari
    06
    44
    88
    74
    39
    Cagliari
    72
    46
    55
    69
    07
    Firenze
    84
    82
    56
    39
    05
    Genova
    77
    53
    57
    42
    49
    Milano
    40
    71
    11
    02
    64
    Napoli
    12
    78
    75
    59
    38
    Palermo
    16
    47
    26
    56
    05
    Roma
    20
    19
    55
    01
    72
    Torino
    54
    83
    78
    71
    41
    Venezia
    71
    41
    55
    35
    63
    Nazionale
    46
    52
    67
    78
    59
    Estrazione Simbolotto
    Milano
    34
    21
    07
    16
    01
Indietro
Alto