Visual Basic
Mostrar más instrucciones
1
Crear un nuevo proyecto de Visual Basic , abra Visual Basic y elija " Crear Proyecto ..." desde el diálogo reciente proyecto que aparece. Alternativamente , usted puede ir al menú Archivo y seleccione " Nuevo proyecto ". Esto será una aplicación básica de Windows , por lo que basta con hacer clic en Siguiente o Aceptar para todos los demás cuadros de diálogo que aparecen para una configuración predeterminada hasta que se enfrentan a un formulario en blanco en el diseñador GUI.
2
Añadir un RichTextBox arrastrando el componente RichTextBox de la lista de componentes en el formulario . Arrastre los bordes de manera que ocupa la mayor parte de la forma , sino dejar espacio en la parte inferior .
3
Añadir una etiqueta arrastrándolo desde la lista de componentes y colocarlo bajo el control RichTextBox . Vaya al cuadro de propiedades , que se encuentra en la parte inferior derecha de la ventana por defecto. Encuentre la propiedad de texto y cambiarlo a " Conde Vocal : " . " Label " de Asegúrese de establecer la etiqueta lo suficientemente lejos de la parte derecha de modo que usted puede agregar la cuenta de vocales en el texto más adelante sin el texto se salga de la frontera de la ventana.
4
añadir un botón de la lista de componentes y colóquela junto a la etiqueta conteo vocal . Una vez más , asegúrese de dar su espacio etiqueta para tres o cuatro personajes que se añadirán a la misma para su conteo vocal . Cambie la propiedad Text del botón para que se lea " Vocales Count " en lugar de "Botón ".
5
doble clic en el botón. Esto abrirá el código fuente de la ventana y crear automáticamente una función de evento que se llamará cada vez que se pulsa el botón por el usuario. El nombre de la función será muy similar a " Button1_Click ". Todo el código irá dentro de esta función.
6
Escriba el siguiente código.
Letras Dim ( RichTextBox1.Text . Longitud ) Como Charletters = RichTextBox1.Text.ToUpper.ToCharArray ()
Dim count = 0
Para cada letra en la caja lettersSelect mayúsculas y minúsculas " A", " E", " I" ; , "O" , el recuento de "U " + = 1End SelectNext
Label1.Text = "Recuento vocal : " CStr (recuento )
line + A juzgar por la línea , esto función crea una matriz de nombres de personajes de "cartas ". a continuación, copia el texto del RichTextBox , cambia la copia para que sea todo en mayúsculas. Esto reducirá el número de vocales que usted necesita para buscar sólo a sus versiones en mayúsculas .
A continuación , se crea un entero para mantener el recuento de las vocales , ya que se cuentan .
Entonces, el código comienza a proceder a través de la lista de cartas, una por una, y comprueba cada letra para ver si es una vocal. Si es así, entonces el conteo variable se incrementa en uno.
Por último , la etiqueta cuenta vocal está configurada para imprimir el resultado.
7
Pulse la flecha verde para comprobar su aplicación.