Ako vytvoriť samohláska počítanie aplikácie v jazyku Visual Basic

Visual Basic poskytuje dostatok nástrojov na vykonanie jednoduché operácie , ako je počítanie slov , písmen alebo dokonca zvláštnymi znakmi ako samohlások a spoluhlások , bez toho by to vyžadovalo veľa práce . Veci , ktoré budete potrebovať
Visual Basic
Zobraziť ďalšie inštrukcie Cestuj 1

Vytvoriť nový projekt Visual Basic otvorením Visual Basic a výberom " Vytvoriť projekt ... " od posledný dialóg Project , ktorý sa objaví . Prípadne môžete ísť do menu Súbor a vyberte " Nový projekt " . To bude základné aplikácie pre Windows , tak jednoducho kliknite na tlačidlo Ďalej alebo OK u všetkých ostatných dialógoch , ktoré sa objavujú na predvolené nastavenie , až kým sa stretávajú s prázdnym formulárom v GUI designer .
2

Pridať RichTextBox pretiahnutím zložky RichTextBox zo zoznamu komponentov do formulára . Pretiahnite okraje tak , že zaberá väčšinu formuláre , ale ponechať priestor na dne .
3

Pridať popisek pretiahnutím zo zoznamu zložiek a umiestniť ho pod RichTextBox . Prejsť na dialógovom okne Vlastnosti , ktoré je na pravom dolnom rohu okna v predvolenom nastavení . Nájdite vlastnosť text a zmeniť ho na " samohlásky Count : " " . Label " z Uistite sa , že nastavenie štítok dosť ďaleko od pravá strana , takže môžete pridať samohláska počítať s textom neskôr bez textu vyjdenie hranice okná .
4

tlačidlo Pridať v zozname zložiek a umiestnite ju vedľa počtu samohláska štítku . Opäť sa uistite , že dávate štítku priestor pre tri alebo štyri ďalšie znaky , ktoré majú byť pridané do neho pre počet samohlásky . Zmeniť vlastnosť Text tlačidlá tak , že číta " Počet samohlásky " namiesto " Button " .
5

Dvakrát kliknite na tlačidlo . Tým sa otvorí zdrojový kód pre okná a automaticky vytvoriť funkciu pre organizovanie akcií , ktorá bude volaná pri každom kliknutí na tlačidlo užívateľom . Názov funkcie bude veľmi podobná " Button1_Click . " Všetok kód bude pokračovať v tejto funkcii .
6

zadajte nasledujúci kód .

Dim písmená ( RichTextBox1.Text . dĺžka ) Ako Charletters = RichTextBox1.Text.ToUpper.ToCharArray ( )

Dim count = 0

každé písmeno v lettersSelect veci letterCase " A " , " E " , " I" , , " O " , " U " počítať + = 1End SelectNext

Label1.Text = " samohlásky Count : " + CStr ( počet )

Chystáte sa riadok po riadku , tento funkcia vytvorí pole charakterov mena " písmen " . to skopíruje text z RichTextBox , zmení kópiu tak , že je to všetko veľkými písmenami . Tým sa zníži počet samohlások , ktoré potrebujete hľadať iba ich veľká verzia .

Ďalej , číslo je vytvorený , aby sa zhodujú samohlások , ako sú počítané .

Potom, kód začína postupovať v zozname písmen , jeden po druhom , a kontroly každé písmeno , či je samohláska . Ak áno , potom sa premenná počet sa zvýši o jednu .

Konečne , počet samohláska štítok je nastavená vytlačiť výsledok .
7

Stlačte zelenú šípku , ktorá preverí vašu aplikácie .

• Predchádzajúca strana: Ako si vyrobiť VBS súbor 
• Ďalšia strana: Ako zmeniť aktívnom zošite vo VBA