variabili con vba

esercitazioni a livello didattico elementare per descrivere
e applicare sintassi varia con visual basic su powerpoint
descrizione, immagini, animazione presentazione.ppt
codice da copiare e incollare su form con oggetti creato
da utente
http://digilander.libero.it/francescovise/visualpre/visapre.htm

http://digilander.libero.it/francescovise/visualpre/numerica3.htm
http://digilander.libero.it/francescovise/visualpre/numerica3.ppt

esercitazione a livello didattico con variabili
indicizzate tipo stringa e visual basic
su powerpoint:indicizzazione 12 mesi,
 assegnazione contenuto a variabili indicizzate
in maniera diretta o con ciclo For;
visualizzazione singoli contenuti
o lista completa mesi
chiamata di Funzione

esercitazione a livello
didattico con variabili indicizzate tipo stringa e visual basic
su powerpoint:indicizzazione 12 mesi, assegnazione contenuto a
variabili indicizzate
in maniera diretta o con ciclo For; visualizzazione singoli
contenuti o lista completa mesi
chiamata di Funzione

Private Sub CommandButton1_Click()
Rem variabili indicizzate da 1 a 12
Rem stampa tutti i mesi

Dim x As Integer
Dim mesi(12) As String
mesi(1) = "gennaio" & " inverno"
mesi(2) = "febbraio" & " inverno"
mesi(3) = "marzo" & " inverno-primavera"
mesi(4) = "aprile" & " primavera"
mesi(5) = "maggio" & " primavera"
mesi(6) = "giugno" & " primavera ed
estate"
mesi(7) = "luglio" & " estate"
mesi(8) = "agosto" & " estate"
mesi(9) = "settembre" & " estate-autunno"
mesi(10) = "ottobre" & " autunno"
mesi(11) = "novembre" & " autunno"
mesi(12) = "dicembre" & "
autunno-inverno"
Rem assegna con ciclo For contenuto a
variabili indicizzate vettore

Dim nomi(12) As String
For x = 1 To 12
ListBox1.AddItem (mesi(x))
Next x
ListBox1.AddItem ("—————-")
End Sub

Private Sub CommandButton2_Click()
Rem inserire numero per indicare il mese
richiesto da 1 a 12
Rem stampa mese richiesto

Label2 = nomemese(TextBox1)
End Sub

Private Function nomemese(numero As
Integer)
Rem assegna mesi a numeri

Dim mesi(12) As String
Dim x As Integer
mesi(1) = "gennaio" & " inverno"
mesi(2) = "febbraio" & " inverno"
mesi(3) = "marzo" & " inverno-primavera"
mesi(4) = "aprile" & " primavera"
mesi(5) = "maggio" & " primavera"
mesi(6) = "giugno" & " primavera-estate"
mesi(7) = "luglio" & " estate"
mesi(8) = "agosto" & " estate"
mesi(9) = "settembre" & " estate-autunno"
mesi(10) = "ottobre" & " autunno"
mesi(11) = "novembre" & " autunno"
mesi(12) = "dicembre" & "
autunno-inverno"
nomemese = mesi(numero)
TextBox1.SetFocus
End Function

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox1.SetFocus
End Sub

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...