sintassi variabili 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/numerica33.htm
http://digilander.libero.it/francescovise/visualpre/numerica33.ppt

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

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

Private Function nomeanimale(numero As Integer)
Rem assegna animale a numeri
Dim animale(12) As String
Dim x As Integer
animale(1) = "spugna" & " poriferi"
animale(2) = "corallo" & " celenterati"
animale(3) = "farfalla" & " insetti"
animale(4) = "merlo" & " uccelli"
animale(5) = "rana" & " anfibi"
animale(6) = "vipera" & " rettili"
animale(7) = "canarino" & " uccelli"
animale(8) = "gambero" & " artropodi"
animale(9) = "leone" & " mammiferi"
animale(10) = "leopardo" & " mammiferi"
animale(11) = "tartaruga" & " rettili"
animale(12) = "orbettino" & " rettili"
nomeanimale = animale(numero)
TextBox1.SetFocus
End Function

Private Sub CommandButton1_Click()
Rem stampa tutti gli animali
Dim x As Integer
Dim animale(12) As String
animale(1) = "spugna" & " poriferi"
animale(2) = "corallo" & " celenterati"
animale(3) = "farfalla" & " insetti"
animale(4) = "merlo" & " uccelli"
animale(5) = "rana" & " anfibi"
animale(6) = "vipera" & " rettili"
animale(7) = "canarino" & " uccelli"
animale(8) = "gambero" & " artropodi"
animale(9) = "leone" & " mammiferi"
animale(10) = "leopardo" & " mammiferi"
animale(11) = "tartaruga" & " rettili"
animale(12) = "orbettino" & " rettili"
Dim amimale(12) As String
For x = 1 To 12
ListBox1.AddItem (animale(x))
Next x
ListBox1.AddItem ("———————")
End Sub

Private Sub CommandButton2_Click()
Rem stampa animale richiesto
Label8 = nomeanimale(TextBox1)
End Sub

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...