Slideshare progra
- 1. NOMBRE: ALEXANDER TITUAÑA CURSO: B – 264 MENU DE PROGRAMAS EN VISUAL BASIC 6.0
- 2. PROGRAMAS DE CÁLCULO En esta presentación veremos como utilizar algunos programas de cálculo en Visual Basic 6.0 realizados mediante un código fuente diferente para cada programa en los cuales podemos hacer diferentes acciones; estos programas están enlazados en un menú principal del cuál podemos desglosar los diferentes programas de cálculo para realizar las acciones que este nos permita; cada uno tiene una función diferente.
- 4. Private Sub Label1_Click() End Sub Private Sub siete_Click() Form5.Show End Sub Private Sub numMayor_Click() Form3.Show End Sub Private Sub numPares_Click() Form2.Show End Sub Private Sub salir_Click() End Sub Private Sub sumaPromedio_Click() Form4.Show End Sub Private Sub fact_Click() Form6.Show End Sub Este código fuente nos permitió unir los algoritmos para realizar cálculos como: Número Mayor; Números Pares e Impares; Suma y Promedio; >= a 7 y < a 7 y el factorial de un número; todos estos programas están enlazados en una sola ventana en la cual vamos a poder ir a cualquier programas de los ya mencionados para realizar la tarea que necesitemos en ese momento. DESCRIPCIÓN
- 7. Private Sub Command1_Click() Dim N, i, contp, contimp As Integer Dim numero As Double N = Val(Text1.Text) i = 1 contp = 0 contimp = 0 While i <= N numero = Val(InputBox("Ingrese el numero: ", "numero")) If numero Mod 2 = o Then contp = contp + 1 Else: contimp = contimp + 1 End If i = i + 1 Wend Label3.Caption = contp Label5.Caption = contimp End Sub Private Sub Command2_Click() Text1.Text = " " Label3.Caption = " " Label5.Caption = " " Text1.SetFocus End Sub DESCRIPCIÓN Este algoritmo nos va a permitir calcular los número pares e impares; tenemos que ingresar N números; y el programa nos va a decir cuántos son impares y cuantos son pares de todos los números que hemos ingresado.
- 8. • Paso 1 Debemos ingresar N números es decir cuántos números vamos a ingresar. • Paso 2 Hacer clic en EJECUTAR. • Paso 3 Introducir el número y clic en aceptar hasta que hayamos completado el total de los números que teníamos que ingresar. • Paso 4 Nos va a dar el resultado de cuántos números ingresados fueron pares y cuantos fueron impares. • Paso 5 Hacer clic en LIMPIAR y volvemos hacer otra ves el proceso para introducir otros número diferentes.
- 10. Private Sub Command1_Click() Dim N, i As Integer Dim mayor, numero As Double N = Val(Text1.Text) may = 0 numero = 0 i = 1 While i <= N numero = Val(InputBox("Ingrese el número:", "numero")) If numero > mayor Then mayor = numero End If i = i + 1 Wend Label4.Caption = mayor End Sub Private Sub Command2_Click() Text1.Text = "" Label4.Caption = "" Text1.SetFocus End Sub DESCRIPCIÓN Este algoritmo nos va a permitir calcular cuál es el número mayor; tenemos que ingresar N números; y el programa nos va a decir cual es el número mayor de todos los números ingresados.
- 11. • Paso 1 Debemos ingresar N números es decir cuántos números vamos a ingresar. • Paso 2 Hacer clic en EJECUTAR. • Paso 3 Introducir el número y clic en aceptar hasta que hayamos completado el total de los números que teníamos que ingresar. • Paso 4 Nos va a dar el resultado de cuál es el número mayor del total de los números ingresados. • Paso 5 Hacer clic en LIMPIAR y volvemos hacer otra ves el proceso para introducir otros números diferentes.
- 13. Private Sub Command1_Click() Dim N, i As Integer Dim suma, numero, promedio As Double N = Val(Text1.Text) i = 1 suma = 0 promedio = 0 While i <= N numero = Val(InputBox("Ingrese el número:", numero)) suma = suma + N i = i + 1 Wend Label4.Caption = suma Label6.Caption = (suma / N) End Sub Private Sub Command2_Click() Text1.Text = "" Label4.Caption = "" Label6.Caption = "" Text1.SetFocus End Sub DESCRIPCIÓN Este algoritmo nos va a permitir calcular cuál es la suma y el promedio de N números ingresados.
- 14. • Paso 1 Debemos ingresar N números es decir cuántos números vamos a ingresar. • Paso 2 Hacer clic en EJECUTAR. • Paso 3 Introducir el número y clic en aceptar hasta que hayamos completado el total de los números que teníamos que ingresar. • Paso 4 Nos va a dar el resultado de la suma y el promedio de todos los números ingresados. • Paso 5 Hacer clic en LIMPIAR y volvemos hacer otra ves el proceso para introducir otros números diferentes.
- 16. Private Sub Command1_Click() Dim contmy, num, i, mayor As Integer i = 1 mayor = 0 contmy = 0 N = Val(Text1.Text) While i <= N num = Val(InputBox("Ingrese el numero:", "num")) If num >= 7 Then contmy = contmy + 1 End If i = i + 1 Wend Label5.Caption = contmy Label6.Caption = N - contmy End Sub Private Sub Command2_Click() Text1.Text = "" Label5.Caption = "" Label6.Caption = "" End Sub DESCRIPCIÓN Este algoritmo nos va a permitir calcular cuántos números son >= a 7 y cuántos números son < a 7 de N números ingresados.
- 17. • Paso 1 Debemos ingresar N números es decir cuantos números vamos a ingresar. • Paso 2 Hacer clic en EJECUTAR. • Paso 3 Introducir el número y clic en aceptar hasta que hayamos completado el total de los números que teníamos que ingresar. • Paso 4 Nos va a dar el resultado de cuantos números son >= a 7 y cuántos números son < a 7 esto de todos los números ingresados. • Paso 5 Hacer clic en LIMPIAR y volvemos hacer otra ves el proceso para introducir otros números diferentes.
- 19. Private Sub Command1_Click() Dim factorial As Double Dim i, N As Integer i = 1 factorial = 1 Dim serie As String N = Val(Text1.Text) While i <= N factorial = factorial * i If i = N Then serie = serie + CStr(i) + "=" Else serie = serie + CStr(i) + "*" End If i = i + 1 Wend Label4.Caption = factorial Label5.Caption = serie End Sub Private Sub Command2_Click() Label4.Caption = " " Text1.Text = " " Label5.Caption = " " End Sub DESCRIPCIÓN Este algoritmo nos va a permitir calcular el factorial de cualquier número que nosotros ingresemos.
- 20. • Paso 1 Introducir cualquier número. • Paso 2 Hacer clic en EJECUTAR. • Paso 3 Como resultado nos va a dar el factorial de cualquier número que ingresamos anteriormente. • Paso 4 Hacer clic en LIMPIAR y volvemos hacer otra ves el proceso para introducir un número diferente.