Start de Visual Basic-toepassing . Open uw bestaand project of klik op ' Nieuw project . " Kopen van 2

Rol uw cursor over de Toolbox menu aan de linkerkant en dubbelklik op twee tekstvakken , een knop en een label . Dit voegt deze toetsen om de vorm in het ontwerp venster .
3

Sleep de controles rond op het formulier totdat ze goed zijn uitgelijnd op een manier die lijkt georganiseerd en zinvol . De twee tekstvakken zal input van de gebruiker , het label zal de resultaten van uw code te ontvangen , en de knop zal daadwerkelijk de code uit te voeren houden .
4

Dubbelklik op de knop op het formulier . Het venster Coding wordt geopend en de Visual Basic editor zal uw cursor tussen een Sub- Procedure rubriek en een End Sub lijn . Uw code zal gaan tussen deze lijnen . Wanneer u daadwerkelijk uw programma uit te voeren , dit is de code die wordt uitgevoerd wanneer u op de knop .
Toevoegen Waarden Numerieke
5

Om nummers toe te voegen , voeg je de volgende code tussen de Sub Procedure lijn en de End Sub lijn om twee nummers toe te voegen :

Dim Num1 , Num2 , TotalNum als Integer

als TextBox1.Text > Niets dan

Als Textbox2.Text > Niets dan

Probeer

Num1.Focus
( ) op

Num1 = Integer.Parse ( TextBox1.Text )

Num2.Focus
( )

Num2 = Integer.Parse ( Textbox2.Text )

TotalNum = Num1 + Num2

Label1.Text = TotalNum.ToString
( ) op

catch

MessageBox.Show
( " Een geldig nummer is vereist " )

End of Probeer

Else

MessageBox.Show
( "Een aantal is vereist in het tweede veld " )

Return

Else

MessageBox.Show
( " Een aantal is vereist in het eerste veld " )

Return

End If

de Dim statement verklaart drie variabelen van het type Integer , en de daarop volgende code dwingt de gebruiker om numerieke waarden of een foutmelding in te voeren wordt gegenereerd . Klikken op de knop zorgt ervoor dat de code uit te voeren en ontleden de snaren om nummer voor wiskundige bewerkingen door Visual Basic . De nummers worden samengevoegd en geplaatst in het veld TotalNum , die VB zet vervolgens naar een string waarde en plaatsen in het Label1.Text veld .
6

Klik op de groene pijl om uw project te debuggen . Uw formulier moet openen voor het testen van uw code .
7

Voer een positieve test , die soms wordt genoemd naar beneden de " happy pad . " Intoetsen van een nummer in het eerste veld en een aantal in het tweede veld . Klik op de knop . Je moet het resultaat zien verschijnen in het veld label .
8

Voer een negatieve test door het intoetsen alfabetische tekens in een of beide velden en klik op de knop . Je moet een foutmelding voor elk gebied waar je ingetoetst niet-numerieke tekens .
Toevoegen ( aaneenschakelen ) Character Strings
9

Plaats de volgende code tussen de sub- procedure header en de End Sub lijn achter :

Als TextBox1.Text > Niets dan

Als Textbox2.Text > Niets dan

Label1.Text = TextBox1.Text & Textbox2.Text

Else

MessageBox.Show
( " Een tekenreeks is vereist in het tweede veld " )

Terugkeer

Else

MessageBox.Show ( " een tekenreeks is vereist in het eerste veld " )

Return

End
Als

Deze code controleert om ervoor te zorgen dat een waarde in elk veld wordt ingevoerd en dan aaneengeschakeld de twee snaren , het plaatsen van de resulterende tekenreeks in het Label1.Text veld .
10

Klik op de groene pijl om uw project te debuggen . Uw formulier moet openen voor het testen van uw code .
11

Voer een positieve test door het intoetsen van een string in het eerste veld en een string in het tweede veld . Klik op de knop en de code moet tack de twee strings aan elkaar en zet het resultaat in het Label1.Text veld .
12

Voer een negatieve test door het intoetsen niets in een of beide velden en klik op de knop . Je moet een foutmelding voor elk gebied waar je niet sleutel niets