Maak een nieuwe Visual Basic -project door het openen van Visual Basic en te kiezen voor " Project maken ... " uit de recente Project dialoogvenster dat verschijnt . Als alternatief kunt u naar het menu Bestand en kies " New Project . " Dit zal een eenvoudige Windows- applicatie zijn, dus gewoon op Volgende of OK voor alle andere dialogen die opduiken voor een standaardconfiguratie totdat je wordt geconfronteerd met een leeg formulier in de GUI ontwerper . kopen van 2

Voeg een RichTextBox door de component RichTextBox uit de lijst met onderdelen in uw formulier te slepen . Sleep de randen zodat het neemt het grootste deel van de vorm , maar laat ruimte aan de onderkant .
3

Voeg een label door deze in de lijst onderdelen te slepen en plaats het onder de RichTextBox . Ga naar het venster Eigenschappen , dat is aan de onderkant rechts van het venster van uw standaard . Zoek de eigenschap text en verander het naar " Klinker Count: " " . Label " van Zorg ervoor dat u het etiket te stellen ver genoeg van de rechterkant , zodat u kunt de telling klinker later toe te voegen aan de tekst zonder dat de tekst die van de grens van het venster .
4

Voeg een knop uit de lijst onderdelen en plaats deze naast de klinker telling label . Nogmaals , zorg ervoor dat u uw label ruimte te geven voor drie of vier meer tekens te worden toegevoegd voor uw klinker tellen . Wijzig de eigenschap Text van de knop zodat het leest " Graaf Klinkers " in plaats van " Button . "
5

Dubbelklik op de knop . Dit zal het openstellen van de broncode van uw raam en automatisch een evenement functie worden aangeroepen wanneer de knop wordt geklikt door de gebruiker te maken . De naam van de functie zal zeer gelijkaardig aan " Button1_Click . " Alle code zal gaan binnen deze functie .
6

Voer de volgende code .

Dim letters
( RichTextBox1.Text . lengte ) Zoals Charletters = RichTextBox1.Text.ToUpper.ToCharArray ( ) op

Dim count = 0

voor elke letter in lettersSelect zaak letterCase " A " , " E" , " I " , , "O" , "U" count + = 1End SelectNext

Label1.Text = " Klinker Count: "
+ CStr ( count )

Going lijn
per lijn , deze functie creëert een array van karakters namen " letters . " vervolgens kopieert de tekst uit het RichTextBox , verandert de kopie , zodat het allemaal in hoofdletters . Dit zal het aantal klinkers moet je letten om alleen hun hoofdletters versies te verminderen .

Vervolgens wordt een integer gemaakt om de aantekening van klinkers als ze worden meegeteld houden .

Dan, de code begint om verder te gaan door de lijst met letters , een voor een , en controleert elke letter om te zien of het een klinker . Als het is, dan is de variabele telling wordt verhoogd.

Slotte is de klinker telling label is ingesteld om af te drukken uit het resultaat .
7

Druk op de groene pijl om te testen uw toepassing .