codice visual basic
fasi
operative per creare programmi in visual basic utilizzando
codici forniti e immagine oggetti necessari
copiare e inserire programma visual basic
vengono
forniti i listati del programma in visual basic
e una immagine che indica gli oggetti da creare
fase
operativa:
copiare (es. su notes) il listato del programma fornita su pagina
htm(prova1pro.htm)
aprire powerpoint-editor visual basic-userform vuoto
creare gli oggetti che sono visualizzati nel disegno
(eventualmente cercare di riconoscere gli oggetti anche leggendo
il codice)
inserire testi informativi (non essenziali)
aprire Visualizza codice e copiare il codice dal notes
attivare programma con Esegui-Esegui UserForm
listato del programma copiato file.htm in rete(prova1pro.htm)
Private Sub UserForm_Click() Dim numero As Double numero = TextBox1 Label1.Caption = numero * 10 End Sub
vedi esempio
più complesso
(per modifica a proprietà oggetti vedi anche visax.htm)
dalla immagine si
vede che si deve creare un pulsante
da rinominare :calcolare
una casella di
testo (il codice
indicherà il nome da assegnare:cifra)
tre etichette per inserire risultato
(label1,label2,label3 poi modificato)
(il codice indicherà il nome da assegnare:calcola1,calcola2,calcola3)
quattro altre
etichette per
inserire testo informativo (il codice indicherà il nome da
assegnare:
(immutato
label1,label2,label3,label4)
non compare nel codice
immagine del form attivato
Rem
calcolo area con raggio da inserire e raggi forniti:codice
Function area(raggio As Double) As Double
area = raggio * raggio * 3.14
End Function
Private Sub calcolare_Click() (pulsante)
Dim n As Double
Dim area1 As Double
Dim area2 As Double
Dim area3 As Double
n = cifra (casella
di testo)
area1 = area(n)
area2 = area(10)
area3 = area(100)
calcola1.Caption = area1 (label1 > calcola1)
calcola2.Caption = area2 (label2 >calcola2)
calcola3.Caption = area3 (label3 > calcola3)
End Sub