sinta2 ritorna
semplice esempio di programma con attivazione di alcuni oggetti,modifica di alcune proprietà,inserimento di istruzioni codificate. scopo:inserire da tastiera due numeri,in textbox1,textbox2 dichiarare variabili Integer necessarie x,y,prodotto,differenza visualizzare richieste e spiegazione in quattro etichette eseguire il loro prodotto x*y e assegnarlo a variabile prodotto visualizzare il loro prodotto in Textbox3 eseguire la differenza x-y e assegnarla a variabile differenza visualizzare il risultato in TextBox4 visualizzare messaggio di fine prova
preparazione degli oggetti: creare quattro caselle tipo etichetta modificare il loro colore(proprietà)e inserire legenda(label1,2,3,4) creare quattro caselle di testo(Textbox1,2,3,4) creare un pulsante e cambiare nome e stile(eseguire) cliccare su pulsante Eseguire e scrivere il codice programma
codici da inserire nell'oggetto (pulsante)
Private Sub eseguire_Click()
Dim x, y, prodotto, differenza As Integer (dichiazione variabili intere)
x = TextBox1.Text assegna a X valore inserito in textbox
y = TextBox2.Text assegna a Y valore inserito in textbox
prodotto = x * y assegna a prodotto x*y
differenza = x - y assegna a differenza x-y
TextBox3.Text = prodotto visualizza in textbox il prodotto
TextBox4.Text = differenza visualizza in textbox la differenza
MsgBox ("fine prova") mostra messaggio
End Sub fine codificazione
Nota:durante la scrittura del codice si può passare alla visualizzazione della finestra con gli oggetti e viceversa selezionando Visualizza-Codice-Oggetto Per vedere il programma in esecuzione,cliccare su menù ESEGUI-esegui subuserform Salvare con File-Esporta file Nota:possibile scrivere codice con Notes e poi copiarlo-incollarlo