Creare un nuovo progetto di Visual Basic , aprire Visual Basic e scegliere "Create Progetto ..." dal finestra di recente progetto che si apre. In alternativa , si può andare al menu File e scegliere " Nuovo progetto ". Questa sarà una domanda di base di Windows , così semplicemente clic su Avanti o su OK per tutte le altre finestre di dialogo che compaiono per una configurazione di default fino a quando si trovano di fronte a un modulo vuoto in il progettista GUI .
2
Aggiungi un RichTextBox trascinando il componente RichTextBox dalla lista componenti nella vostra forma . Trascinare i bordi in modo che occupa la maggior parte della forma , ma lascia spazio alla parte inferiore .
3
aggiungere un'etichetta trascinandolo dalla lista componenti e posizionarlo sotto il RichTextBox . Andare al di dialogo Proprietà , che si trova sulla parte inferiore destra della finestra di default. Trovare la proprietà di testo e modificarlo in " Count Vocale : " " . Etichetta " dalla Assicurarsi di impostare l'etichetta abbastanza lontano dal lato destro in modo da poter aggiungere il conteggio vocale al testo in seguito senza il testo scappare il confine di la finestra.
4
aggiungere un pulsante dalla lista componenti e posizionarlo accanto all'etichetta conteggio vocale . Ancora una volta , essere sicuri di dare il vostro spazio etichetta per tre o quattro caratteri da aggiungere ad esso per il conteggio vocale . Modificare la proprietà Text del pulsante in modo che legge " Le vocali count" invece di "Pulsante ".
5 Fare doppio clic sul pulsante . Questo aprirà il codice sorgente per la vostra finestra e creare automaticamente una funzione di evento di essere chiamato ogni volta che si fa clic sul pulsante da parte dell'utente . Il nome della funzione sarà molto simile a " Button1_Click . " Tutto il codice andrà all'interno di questa funzione .
6
Inserisci il seguente codice .
Dim lettere ( RichTextBox1.Text . lunghezza ) Come Charletters = RichTextBox1.Text.ToUpper.ToCharArray ( ) per
Dim count = 0
per ogni lettera di lettersSelect caso letterCase "A" , "E" , "I" , "O " , count " U " + = 1End SelectNext
Label1.Text = "Count Vocale : " + CStr ( conteggio ) per
Andando linea per linea , questa funzione crea un array di nomi di personaggi " lettere . " E poi copia il testo dal RichTextBox , cambia la copia in modo che sia tutto in maiuscolo . Ciò consentirà di ridurre il numero di vocali che dovete cercare solo le loro versioni in maiuscolo .
Avanti , viene creato un numero intero per mantenere il conteggio delle vocali in quanto sono contati .
Poi, il codice inizia procedere attraverso l' elenco delle lettere , una per una , e controlla ogni lettera per vedere se è una vocale . Se lo è , allora la variabile count viene incrementato di uno .
Infine , l'etichetta conteggio vocale è impostato per stampare il risultato .
7
Premere la freccia verde per testare la vostra applicazione .
Programmazione © www.354353.com