Manua de usuario
- 1. G R U P O 2 6 3 A U L A B 2 0 PROGRAMACIÓN VISUAL BASIC MANUAL DE USUARIO Diana Prado
- 2. MENU DE PROGRAMAS EN VISUAL BASIC Con la herramienta de visual Basic crearemos diferentes menús las cuales se va ha ejecutar los siguiente programas: Determinar cuántos son pares y cuántos son impares. Determinar cual número es el mayor. Determinar el Rango Determinar la suma y el promedio.
- 3. Para ir añadiendo opciones al menú se va rellenando la caja de texto Caption en la que se indica el identificador con el que se verá la opción en la pantalla, también se rellena la caja de texto Name en la que se indica el nombre que tiene la opción (que será el que se usa para programar las acciones que ocurran al pulsar sobre ella, al ser una opción de menú Se va ha crear un menú para enlazar cada programa Clic en la flecha derecha para seguir creando más menús
- 4. Dando clic queda de esta manera Clic en formulario para crear nuevos formatos para ingresar el programa
- 5. Clic en Form, para ingresar siguiente información la misma que nos permitirá ejecutar nuestro primer programa de números pares /impares. Se debe crear los label para ingresar la información requerida y el texbox para ingresar el número de veces que se requiere que cuente el programa.
- 6. PrivateSubCommand1_Click() Dimi,N,contp,contiAsInteger DimnumeroAsDouble N=Val(Text1.Text) i=1 contp=0 conti=0 Whilei<=N numero=Val(InputBox("ingreseelnumero",numero)) IfnumeroMod2=0Then 'esnumeropar contp=contp+1 Else 'esimpar conti=conti+1 EndIf i=i+1 Wend Label4.Caption=contp EndSub PrivateSubLabel3_Click() EndSub Ingresar el algoritmo en ejecutar Y se visualiza así el código.
- 7. 5 2 3 Ingresando el 5 se coloca en el cuadro 5 números , la cual el programa cuenta los números pares e impares.
- 8. SUMA PROMEDIO Dado N números por teclado imprimir el mayor
- 9. Private Sub Command1_Click() MsgBox "NUMERO MAYOR" Dim i As Integer Dim mayor, numero As Double Dim N As Integer mayor = 0 i = 1 N = Val(Text2.Text) While i <= N numero = Val(InputBox("ingrese numero: ", "numero")) If numero > mayor Then mayor = numero End If i = i + 1 Wend Label4.Caption = mayor End Sub Private Sub Command2_Click() Text2.Text = "" Label4.Caption = "" Text2.SetFocus End Sub Dado N números por teclado imprimir el mayor.
- 10. RANGO DE NÚMEROS Ingresando 5 números el programa leerá cuántos se encuentra entre 15 y 25 , 26 - 35 , 36-37.