variabili numeriche

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

esercitazione a livello didattico elementare
con sintassi e applicazione variabili
numeriche con visual basic su powerpoint

esercitazione a livello
didattico elementare con sintassi e applicazione variabili
numeriche con visual basic su powerpoint

Private Sub commandbutton1_Click()
Rem esempio di assegnazione contenuto a
variabili numeriche
Rem mediante codice, input e output
Rem nome e tipo variabili numeriche semplici

Dim a, b, c, somma, prodotto As Integer
Rem valore assegnato a variabile da codice
a = 10
b = 20
c = 30
somma = a + b + c
prodotto = a * b * c
Rem visualizza dati in Listbox1
ListBox1.AddItem ("a=" & a)
ListBox1.AddItem ("b=" & b)
ListBox1.AddItem ("c=" & c)
ListBox1.AddItem ("somma=" & somma)
ListBox1.AddItem ("prodotto=" & prodotto)
Label1.Caption = ("somma=" & somma & "
prodotto=" & prodotto)
ListBox1.AddItem
("——————————————")
End Sub

Private Sub CommandButton2_Click()
Rem esempio di assegnazione contenuto a
variabili numeriche
Rem mediante tastiera,input output
Rem nome e tipo variabili numeriche semplici

Dim x As Integer
Dim y, z As Long
Rem valore assegnato a variabile da utente
mediante TextBox1
Rem controlla che numero sia inferiore a limite indicato 30

x = TextBox1
If x > 30 Then
MsgBox ("deve essere minore o uguale a 30:riprova")
End If
Rem assegna operazione da compiere su x
y = x * x
z = x * x * x
Rem visualizza dati Listbox1
ListBox1.AddItem ("x=" & x)
ListBox1.AddItem ("quadrato=" & y)
ListBox1.AddItem ("cubo=" & z)
ListBox1.AddItem ("——————————–")
End Sub

Private Sub CommandButton3_Click()
Rem esempio di assegnazione contenuto a
variabili numeriche
Rem mediante codice e ciclo For-Next
Rem input e output
Rem nome e tipo variabili numeriche semplici

Dim c, cp, cq, kp, kq, p, q As Integer
Rem stampa interi da 1 a 5 passo 1 e loro
quadrati

cp = 1
kp = cp + 5 ‘per limite iterazione
p = 1 ‘per step
cq = 10
kq = cq + 10
q = 2 ‘per step
Rem valore assegnato a variabile da ciclo
for

ListBox1.AddItem ("—————————–")
For c = cp To kp Step p
ListBox1.AddItem (c & " " & c * c)
Next c

ListBox1.AddItem
("—————————–")
Rem stampa interi da 10 a 20 passo 2 e loro quadrati

For c = cq To kq Step q
ListBox1.AddItem (c & " " & c * c)
Next c

ListBox1.AddItem ("—————————-")
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
TextBox1 = ""
Label1 = ""
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...