Πώς να δημιουργήσετε ένα φωνήεν Μετρώντας Εφαρμογή σε Visual Basic

Visual Basic παρέχει αρκετά εργαλεία για να εκτελέσει απλές εργασίες , όπως η καταμέτρηση λέξεων , γράμματα ή ακόμα και συγκεκριμένους χαρακτήρες , όπως φωνήεντα και σύμφωνα , χωρίς να απαιτείται πολλή δουλειά . Τα πράγματα που θα χρειαστείτε
Visual Basic
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο της Visual Basic με το άνοιγμα της Visual Basic και την επιλογή "Δημιουργία έργου ... " από το Πρόσφατες διαλόγου Project που σκάει επάνω . Εναλλακτικά , μπορείτε να πάτε στο μενού Αρχείο και επιλέξτε "New Project . " Αυτό θα είναι μια βασική εφαρμογή των Windows , έτσι απλά κάντε κλικ στο κουμπί Επόμενο ή OK για όλα τα άλλα παράθυρα διαλόγου που εμφανίζονται για μια προεπιλεγμένη ρύθμιση έως ότου είστε αντιμέτωποι με μια κενή φόρμα σε ο σχεδιαστής GUI . 2

Προσθήκη RichTextBox σύροντας το συστατικό RichTextBox από τη λίστα συστατικών στη φόρμα σας . Σύρετε τις άκρες , έτσι ώστε να καταλαμβάνει το μεγαλύτερο μέρος του εντύπου , αλλά αφήνουν χώρο στο κάτω μέρος .
Εικόνων 3

Προσθήκη ετικέτας , σύροντάς το από τη λίστα συστατικών και τοποθετήστε το κάτω από το RichTextBox . Πηγαίνετε στο παράθυρο Properties , η οποία βρίσκεται στην κάτω δεξιά γωνία του παραθύρου σας από προεπιλογή . Βρείτε το ακίνητο κειμένου και αλλάξτε την σε " φωνήεν Count : " " . Label » από Φροντίστε να ρυθμίσετε την ετικέτα αρκετά μακριά από τη δεξιά πλευρά , ώστε να μπορείτε να προσθέσετε το φωνήεν μετράνε στο κείμενο αργότερα χωρίς το κείμενο τρέχει από τα σύνορα της το παράθυρο .
Η 4

Προσθέστε ένα κουμπί από τη λίστα συστατικών και τοποθετήστε το δίπλα στην ετικέτα μετράνε φωνήεν . Για άλλη μια φορά , να είστε βέβαιος να δώσει χώρο της ετικέτας σας για τρεις ή τέσσερις χαρακτήρες που θα προστεθούν σε αυτό για καταμέτρηση φωνήεν σας . Αλλάξτε την ιδιότητα Κείμενο του κουμπιού έτσι ώστε να διαβάζεται « Count Φωνήεντα " αντί του " κουμπιού. "
5

Κάντε διπλό κλικ στο κουμπί . Αυτό θα ανοίξει τον πηγαίο κώδικα για το παράθυρό σας και να δημιουργήσετε αυτόματα μια λειτουργία περίπτωση να καλείται όταν το κουμπί πατηθεί από το χρήστη . Το όνομα της συνάρτησης θα είναι πολύ παρόμοια με " Button1_Click . " Όλος ο κώδικας θα πάει μέσα αυτή τη λειτουργία .
Η 6

Εισάγετε τον παρακάτω κωδικό .

Δημ. γράμματα ( RichTextBox1.Text . μήκος) Όπως Charletters = RichTextBox1.Text.ToUpper.ToCharArray ( )

Dim count = 0

για κάθε γράμμα lettersSelect υπόθεση letterCase " A " , " Ε " , " I " ? , " O" , " U " count + = 1End SelectNext

Label1.Text = " Φωνήεν Count : " + CStr ( count)

Πηγαίνοντας γραμμή, αυτό λειτουργία δημιουργεί μια σειρά από χαρακτήρες ονόματα " γράμματα ". στη συνέχεια αντιγράφει το κείμενο από το RichTextBox , αλλάζει το αντίγραφο έτσι ώστε να είναι όλα σε κεφαλαία . Αυτό θα μειώσει τον αριθμό των φωνηέντων που πρέπει να κοιτάξουμε για να μόνο κεφαλαία εκδόσεις τους .

Στη συνέχεια , ένας ακέραιος που έχει δημιουργηθεί για να κρατήσει την αντιστοιχία μεταξύ των φωνηέντων , όπως αυτά υπολογίζονται .

Στη συνέχεια , η κωδικός αρχίζει να προχωρήσει μέσα από τη λίστα των γραμμάτων , ένα προς ένα , και ελέγχει κάθε γράμμα για να δείτε αν είναι ένα φωνήεν . Αν είναι , τότε η μεταβλητή αριθμός αυξάνεται κατά ένα .

Τέλος , η ετικέτα μετράνε φωνήεν έχει οριστεί να εκτυπώσετε το αποτέλεσμα .
Η

7 Πατήστε το πράσινο βέλος για να ελέγξετε σας εφαρμογή .
Η
εικόνων