taller algoritmos secuenciales
taller algoritmos secuencialesVISUAL BASIC
Primer punto de algoritmos secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTE:MAYERLY TATIANA URREA MEJIA PROBLEMA PLANTEADO CALCULAR EL IVA DE UNA VENTA , CUYO COSTO FUE DE 150.000
ALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBAValor venta
Valor IVA
RESULTADOS Valor de la venta:150000Valor iva:0.16Total :Venta + IVA :174000IVA: 24000
OBJETOS
NOMBRE
PROPIEDADES
Form1IVACapitn: valor del IVA Backolor: violeta
pictureimagen
Label1Caption: valor de la ventaBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label 2Caption: valor del IVA que desea restar a la venta Backstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label3Caption: valor del IVABackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label4Nombre: valor totalFont: MS Sans serif,Backolor: &H00FFFF00& , font : MS , sans serif
Label5Nombre: total Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Label6Nombre: iva1 Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Text1Nombre: ventaBackolor: &H00FFFF00&
Text2Nombre: IVABackolor: &H00FFFF00&
Command1Nombre: IVABackolor: &H00FFFF00&font : MS , sans serif
Command2Caption: finalBackolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()total.Caption = Val(VENTA.Text) + Val(VENTA.Text) * Val(iva.Text)
IVA1.Caption = Val(VENTA.Text) * Val(iva.Text)
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Segundo punto de los algoritmos secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1. MAYERLY TATIANA URREA MEJIA PROBLEMA PLANTEADO HALLAR EL VALOR DE A,B CALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA Valor aValor bValor c
Resultados :Valor a:3Valor b:3Valor c:2Total:8
OBJETOS
NOMBRE
PROPIEDADES
Form1valor de pCapitn: valor del IVA Backolor: violeta
pictureimagen
Label1Caption: introduzca el valor de aBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label2Caption: introduzca el valor de bBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label3Caption: introduzca el valor de cBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label4Nombre: valor de pFont: MS Sans serif,Backolor: &H00FFFF00& , font : MS , sans serif
Label5Nombre: total Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Text1Nombre: valoraBackolor: &H00FFFF00&
Text2Nombre: valorbBackolor: &H00FFFF00&
Text3Nombre: valorcBackolor: &H00FFFF00&
Command1Caption: valorBackolor: &H00FFFF00& , font : MS , sans serif
Command2Caption: finalBackolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA
Private Sub Command1_Click()total.Caption = (Val(VALORA.Text) + Val(VALORC.Text)) / 3 + 2 * Val(VALORB.Text)End Sub
Private Sub Text1_Change()
End Sub
Private Sub VLA_Click()
End SubPrivate Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Tercer punto de algoritmo secuencialINSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1.__mayerly Tatiana urrea mejia PROBLEMA PLANTEADO El volumen de un cubo
ALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA Valor de una lado del cuboRESULTADOS Un lado :2Total:8
OBJETOS NOMBRE
PROPIEDADES
Form1Nombre: cuboCaption : cuboBakcolor : verde
pictureimagen
Label1Caption: valor de un lado del cuboBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label2Caption: valor del rea del cuboBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Lebel3Caption: totalBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Text1Nombre: valor cuboBackolor: &H00FFFF00&
Command1Caption: cubo Backolor: &H00FFFF00& , font : MS , sans serif
Comand2Caption: finalBackolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()total.Caption = Val(VALORCUBO.Text) * Val(VALORCUBO.Text) * Val(VALORCUBO.Text)
End Sub
Private Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Cuarto punto de algoritmo secuencial
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1.________________________2.________________________PROBLEMA PLANTEADO Hallar el valor de xALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA Valor de aValor de b Valor de c
ResultadosValor de a:2Valor de b :4 Valor de c :5Total:30
OBJETOS NOMBRE
PROPIEDADES
Form 1Nombre: valor de xCaption : valor de xBakcolor: rojo
pictureimagen
Label1Caption: introduzca valor de aBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label2Caption: introduzca valor de bBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label3Caption: introduzca valor de cBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label4Caption: valor es de Backstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label5Nombre: total Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Text1Nombre: vala Backolor: &H00FFFF00&
Text2Nombre: valb Backolor: &H00FFFF00&
Text3Nombre: valc Backolor: &H00FFFF00&
Command1Caption: valor Backolor: &H00FFFF00& , font : MS , sans serif
Command2Caption: fin Backolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()total.Caption = Val(vala.Text) + Sqr(valb.Text) * (valb.Text) - 4 * Val(vala.Text) * Val(valc.Text) / 2 * Val(vala.Text)End Sub
Private Sub Text1_Change()
End Sub
Private Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Quinto punto de algoritmo secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1.________________________2.________________________PROBLEMA PLANTEADOPromedio de Carlos ALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA Primera nota Segunda nota Tercera nota RESULTADOS Primera nota :3.5Segunda nota :3.5Tercera nota: 3.7Total:3.5
OBJETOS NOMBRE
PROPIEDADES
Form1Nombre: notadecarlos Caption : notadecarlosBakcolor: morado
pictureimagen
Label1Caption: valor de la primera notaBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label2Caption: valor del la segunda nota Backstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label3Caption: valor del la tercera notaBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label4Caption: valor definitivo de las notasBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label5Nombre: final Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Text1Nombre: n1Backolor: &H00FFFF00&
Text2Nombre: n2Backolor: &H00FFFF00&
Text3Nombre: n3Backolor: &H00FFFF00&
Command1Caption: notaBackolor: &H00FFFF00& , font : MS , sans serif
Command2Caption: final Backolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()final.Caption = (Val(n1.Text) + Val(n2.Text) + Val(n3.Text)) / 3
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Sexto punto de los algoritmos secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1.mayerly Tatiana urrea mejia PROBLEMA PLANTEADO Valor total de los artculos y su compra ALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA Articulo 1 Articulo 2 Articulo 3 Articulo 4Iva RESULTADOS Artculo 1:200 Artculo 2 : 300Artculo 3 : 400 Artculo 4 : 500IVA : 0.16Total :IVA a sumar :224Totalcompra:1400Total :1624
OBJETOS NOMBRE
PROPIEDADES
Form1Nombre: artculosCaption : artculos Bakcolor: piel
pictureImagen
Label1Caption: valor del primer artculoBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label2Caption: valor del segundo artculoBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label3Caption: valor del tercer artculoBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label4Caption: valor del cuarto artculoBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label5Caption: valor del iva que va a sumar Backstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label6Caption: total del IVA a sumar Backstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label7Caption: totalBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label8Caption: valor total de la compra con el IVA Backstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label9Nombre: totaliva Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Label10Nombre: total Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Label11Nombre: valor final Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Text1Nombre: art1Backolor: &H00FFFF00&
Text2Nombre: art2Backolor: &H00FFFF00&
Text3Nombre: art3Backolor: &H00FFFF00&
Text4Nombre: art4Backolor: &H00FFFF00&
Text5Nombre: ivaBackolor: &H00FFFF00&
Command1Caption: suma Backolor: &H00FFFF00& , font : MS , sans serif
Comman2Caption: total Backolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()total.Caption = Val(Val(art1.Text) + Val(art2.Text) + Val(art3.Text) + Val(art4.Text))totaliva = Val(total.Caption) * Val(iva.Text)valorfinal.Caption = Val(totaliva.Caption) + Val(total.Caption)
End Sub
Private Sub Command3_Click()MENU.ShowLoad Me
End Sub
Septimo punto de algoritmos secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODOPROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1. PROBLEMA PLANTEADO:Nota definitiva de Carlos
ALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA Primera nota Segunda nota Tercera nota
RESULTADOSPrimera nota :5.0 Segunda nota :4.5Tercera nota :3.3Total:4.29
OBJETOS
NOMBRE
PROPIEDADES
Form1Nombre: porcentaje de la nota Capitn: porcentaje de la nota Bakcolor: rosado
Label1
Caption: primera notaBackolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent.
Label2
Label3Caption: segunda notaBackolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent.
Label4
Caption: tercera notaBackolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent.
Label5
Nombre: notadefcaption: , Backolor: &H00FFFF00& , font : MS , sans serif
Text1
Nombre: nota1Backolor: &H00FFFF00&
Text2Nombre: nota2Backolor: &H00FFFF00
Text3Nombre: nota3Backolor: &H00FFFF00
Command 1Caption: suma de las notas Backolor: &H00FFFF00& , font : MS , sans serif
Command2Caption: total Backolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()notadef.Caption = Val(nota1.Text) * 0.3 + Val(nota2.Text) * 0.4 + Val(nota3.Text) * 0.3
End Sub
Private Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Octavo punto de algoritmos secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1. PROBLEMA PLANTEADO Nmero que al realizar una operacin da 1000ALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA
Nmero adecuado
RESULTADOS Nmero adecuado =333Total 1000,5
OBJETOS
NOMBRE
PROPIEDADES
Form1Nombre: valor1000Caption : valor de 1000Bakcolor: rosado calro
pictureimagen
Label1Caption:introduzca el nmero adecuado para la operacinBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label2Caption:numero total de la operacin Backstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label3 Nombre: totalCaption: Font: MS Sans serif, bakcolor: &H00FFFF00&,
Text1Nombre: valor de 1000 Backolor: &H00FFFF00&
Command 1Caption: operacionBackolor: &H00FFFF00& , font : MS , sans serif
Command2Caption: final Backolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA
Private Sub Command1_Click()total.Caption = Val(numeroad.Text) + 2 * Val(numeroad.Text) + 3 / 2End Sub
Private Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Noveno punto de algoritmos secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1. mayerly Tatiana Urrea meja PROBLEMA PLANTEADO paralelogramoALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PRUBA Base: baseAltura: inicio RESULTADOS Altura:7Base:5Resultado:35
OBJETOS
NOMBRE
PROPIEDADES
Form1ParalelogramoCapitn: paralelogramoBackolor: rosado
pictureimagen
Label1Caption: alturaBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label 2Caption: baseBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label3Caption: valor totalBackstyle: transparent Font: MS Sans serif, forecolor: &H00FFFF00&,
Label4Nombre: final Caption: Backolor: &H00FFFF00& , font : MS , sans serif
Text1Nombre: inicioBackolor: &H00FFFF00&
Text2Nombre: baseBackolor: &H00FFFF00&
Command1 Caption: inicio Backolor: &H00FFFF00& , font : MS , sans serif
Command2Caption: finalBackolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()final.Caption = Val (inicio.Text) * Val (base. Text)End Sub Private Sub Command3_Click()MENU. ShowUnload MeEnd Sub
Decimo punto de algoritmos secuenciales
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMARAL-METAPLANTILLA DE PRESENTACION DE PROGRAMAS-TERCER PERIODO PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS ESTUDIANTES1. PROBLEMA PLANTEADO:
Nota total ALGORITMO O DIAGRAMA DE FLUJO
DISEO VISUAL DEL PROGRAMA
VARIABLES DE PROMEDIO Nota 1Nota2Nota3Nota 4Nota5
RESULTADONota 1:3.0Nota2 : 4.0Nota3 : 2.9Nota 4: 3.5Nota5: 4.5TOTAL: 3.5
OBJETOS
NOMBRE
PROPIEDADES
Form1Nombre: nota totalCaption : nota totalBakcolor: verde
pictureimagen
Label1Caption: primera notaBackolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent.
Label2
Caption: segunda nota Backolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent.
Label3
Caption: tercera notaBackolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent.
Label4
Caption: cuarta nota Backolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent.
Label5
Caption: quinta nota Backolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent
Label6Caption: nota totalBackolor: &H00FFFF00&, Font: MSSans serif, forecolor: &H00FFFF00&,Backstyle: transparent
Label7Nombre: final Caption: Backolor: &H00FFFF00& font : MS , sans serif
Text1Nombre: n1Backolor: &H00FFFF00&
Text2Nombre:n2Backolor: &H00FFFF00&
Text3Nombre:n3Backolor: &H00FFFF00&
Text4
Nombre:n4Backolor: &H00FFFF00&
Text5Nombre:n5Backolor: &H00FFFF00&
Command1Caption: nota Backolor: &H00FFFF00& , font : MS , sans serif
Command2Caption: final Backolor: &H00FFFF00& , font : MS , sans serif
CODIGO DEL PROGRAMA Private Sub Command1_Click()final.Caption = Val(n1.Text) * (0.2) + Val(n2.Text) * (0.1) + Val(n3.Text) * (0.2) + Val(n4.Text) * (0.3) + Val(n5.Text) * (0.2)
End Sub
Private Sub Command3_Click()MENU.ShowUnload MeEnd Sub
Top Related