primi passi

genios · 22 Maggio 2015

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

LuigiB · 22 Maggio 2015

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.

genios · 22 Maggio 2015

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

Joe91 · 22 Maggio 2015

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.

LuigiB · 22 Maggio 2015

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

genios · 22 Maggio 2015

Grazie LuigiB postale pure stavolta mi ci metto d' impegno.
Ciao Eugenio

Joe91 · 22 Maggio 2015

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]

i legend · 22 Maggio 2015

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

LuigiB · 22 Maggio 2015

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

i legend · 22 Maggio 2015

Bravo disaronno , non ricordavo stringaNumeri

, Luigi smart , super compatto

Imparo da voi tutti

genios · 22 Maggio 2015

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

genios · 22 Maggio 2015

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

genios · 23 Maggio 2015

No Title

LuigiB · 23 Maggio 2015

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

Joe91 · 23 Maggio 2015

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.

genios · 23 Maggio 2015

E si avevo pensato anche io questo . Un altro ciclo for LuigiB ? :

genios · 24 Maggio 2015

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

LuigiB · 24 Maggio 2015

ciao Genios , in realta con stringanumeri ottieni la stessa cosa ma scrivendo meno codice.

ecco le dispense .. risalgono al 2013 .. mi ero pure deimenticato dia averle fatte

http://www.mediafire.com/download/lqmi85c6kdj1f11/DispenseSpazioScript.rar

genios · 24 Maggio 2015

Grazie LuigiB. Ciao Eugenio

kira · 24 Maggio 2015

Joe91;n1887512 ha scritto:
No. Uno.

Con due ... ci scleri.

io già sclero solo nel leggervi

x me è ARABO

primi passi

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Premium Member

LuigiB

Guest

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Allegati

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Member >PLATINUM<

Premium Member