Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustiť Visual Basic a otvorte projekt .
2
Vytvorte dve textové polia , menovku a tlačidlo na formulári pomocou ponuky Nástroje na ľavej strane konštrukcie okna .
3
usporiadať štítok pod textových polí a usporiadať tlačidlo pod nimi všetkými .
4
Dvakrát kliknite na tlačidlo , pretože to je kde skutočný kód pôjde . Tým sa otvorí okno kód s podprocedura zvládnuť tlačidlo , udalosť click
5
Pridajte nasledujúci kód medzi " Sub procedúra " riadku a " End Sub " riadky : .
Dim FirstNumber , SecondNumber , sumNumber ako Integer
Ak TextBox1.Text > " " Tak
Ak Textbox2.Text > " " Tak
Skúste
FirstNumber.Focus ( )
FirstNumber = Integer.Parse ( TextBox1.Text )
SecondNumber.Focus ( )
SecondNumber = Integer.Parse ( Textbox2.Text )
sumNumber = FirstNumber + SecondNumber
Label1.Text = SumNumber.ToString ( )
Catch
MessageBox.Show ( " Zadajte platné číslo v oblasti " )
Späť
End Try
Else
MessageBox.Show ( " Prosím , zadajte číslo do druhého poľa " )
Späť
Else
MessageBox.Show ( " Prosím , zadajte číslo do prvej kolónky " )
Späť
End If
Tento kód nastaví tri celočíselné premenné , a potom bude vyžadovať , aby používateľ zadať číselné znaky do textových polí . Po stlačení tlačidla sa program previesť tieto reťazce znakov v textových polí do čísel , ktoré VB možno použiť robiť matematiku . Kód pridá čísla do premennej sumNumber a prevádza , že späť na reťazec znakov a zobrazí ho v poli Label1 na formulári .
6
Kliknite na " Debug " možnosť v hornej časti obrazovky a potom kliknite na tlačidlo " Štart ladenie " . Formulár by mal vyzerať , a vy by ste mali byť schopní zadať číslo do každého z textových polí , kliknite na tlačidlo a majú súčet sa zobrazí v poli nálepky . Ak sa pokúsite zadať písmená v textových polí , mali by ste dostať chybové správy , ako je uvedené v kóde .