Uno dei requisiti fondamentali di qualsiasi linguaggio di programmazione è la possibilità di aggiungere due valori, se numerico valore o valori di stringa. Visual Basic di Microsoft fornisce entrambe queste funzionalità per il programmatore. Per i valori numerici, è possibile scegliere un numero qualsiasi di tipi di dati, compresi numero intero, decimale e altri, più scientifici, tipi. Qualunque sia i valori è necessario aggiungere, Visual Basic deve essere in grado di gestire l'operazione abbastanza facilmente.

Istruzioni

Configurazione iniziale

1

Avviare l'applicazione di Visual Basic. Aprire il progetto esistente oppure fare clic su "Nuovo progetto".

2

Passare il cursore sopra il menu casella degli strumenti sulla sinistra e fare doppio clic su due caselle di testo, un pulsante e un'etichetta. Questo aggiunge questi controlli al form nella finestra di progettazione.

3

Trascinare i controlli intorno nel modulo fino a quando non sono correttamente allineati in un modo che sembra organizzato e ha un senso. Le due caselle di testo conterrà l'input dell'utente, l'etichetta verrà visualizzato i risultati del codice e il pulsante eseguirà effettivamente il codice.

4

Fare doppio clic sul pulsante sul form. Verrà aperta la finestra di codice e l'editor di Visual Basic verrà posizionato il cursore tra un'intestazione di routine Sub e una riga End Sub. Il codice andrà tra queste righe. Quando si esegue effettivamente il programma, questo è il codice che viene eseguito quando si sceglie il pulsante.

Aggiunta di valori numerici

5

Per aggiungere numeri, aggiungere il seguente codice tra la linea di routine Sub e la riga End Sub per aggiungere due numeri:

Dim Num1, Num2, TotalNum as Integer

If Textbox1.Text > Nothing Then

If Textbox2.Text > Nothing Then

Try

Num1.Focus()

Num1 = Integer.Parse(Textbox1.Text)

Num2.Focus()

Num2 = Integer.Parse(Textbox2.Text)

TotalNum = Num1 + Num2

Label1.Text = TotalNum.ToString()

Catch

MessageBox.Show("A valid number is required")

End Try

Else

MessageBox.Show("A number is required in the second field")

Return

Else

MessageBox.Show("A number is required in the first field")

Return

End If

L'istruzione Dim dichiara tre variabili di tipo Integer e il successivo codice impone all'utente di immettere valori numerici o viene generato un messaggio di errore. Facendo clic sul pulsante provoca il codice eseguire e analizzare le stringhe per numero di operazioni matematiche da Visual Basic. I numeri sono sommati e inseriti nel campo TotalNum, che VB poi converte in un valore di stringa e inserisce il campo Label1. Text.

6

Fare clic sull'icona freccia verde per eseguire il debug del progetto. Il modulo dovrebbe aprire per test del codice.

7

Eseguire un test positivo, che è talvolta chiamato andando lungo il "sentiero felice." Digitare un numero nel primo campo e un numero nel secondo campo. Fare clic sul pulsante. Si dovrebbe vedere il risultato vengono visualizzati nel campo etichetta.

8

Eseguire un test negativo di keying caratteri alfabetici in uno o entrambi i campi e fare clic sul pulsante. Si dovrebbe vedere un messaggio di errore per qualsiasi campo dove hai digitato caratteri non numerici.

Aggiunta di stringhe di caratteri (concatenazione)

9

Inserire il seguente codice tra l'intestazione di routine sub e la riga finale End Sub:

If Textbox1.Text > Nothing Then

If Textbox2.Text > Nothing Then

Label1.Text = Textbox1.Text & Textbox2.Text

Else

MessageBox.Show("A string is required in the second field")

Return

Else

MessageBox.Show("A string is required in the first field")

Return

End If

Questo codice verifica per garantire che un valore viene inserito in ogni campo e quindi consente di concatenare due stringhe, immettere la stringa risultante nel campo Label1. Text.

10

Fare clic sull'icona freccia verde per eseguire il debug del progetto. Il modulo dovrebbe aprire per test del codice.

11

Eseguire un test positivo digitando una stringa in una stringa nel secondo campo e il primo campo. Fare clic sul pulsante e il codice dovrebbe virare le due stringhe insieme e mettere il risultato nel campo Label1. Text.

12

Eseguire un test negativo di keying nulla in uno o entrambi i campi e fare clic sul pulsante. Si dovrebbe vedere un messaggio di errore per qualsiasi campo dove non si chiave nulla