Date post: | 01-Mar-2018 |
Category: |
Documents |
Upload: | juan-diego-montana |
View: | 235 times |
Download: | 0 times |
of 30
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
1/30
INSTITUCION EDUCATIVA JOSE ANTONIO GALANCUMRALMETA
PLANTILLA DE PRESENTACION DE PROGRAMASTERCER PERIODO
PROFESOR: JORGE ALEJANDRO OBANDO BASTIDAS
ESTUDIANTES:
1: JUAN DIEGO MONTAA ROJAS
2: DANIELA FERNANDA MONSALVE MENDEZ
PRIMER PUNTO
Problema planteadoCalcular el IVA de una venta
cuyo costo fue de $150.000
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de prueba
Venta=150000Iva=0.16
Resultados
Iva Total=24000Venta Total=174000
ObjetosNombre PropiedadesForm1 Nombre: Iva
Caption: Iva de una ventaBackColor: &H0080FFFF&
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
2/30
Picture
Label 1
Label 2
Label 3
Label 4
Label5
Label6
Caption: VentaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&
Backstyle: 0-Transparent
Caption: Iva
BackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Venta Total
BackColor: &H8000000F&
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Iva TotalBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: IvaTCaption:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: VentaTCaption:
BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Command1 Caption: IvaBackColor: &H00E0E0E0&Font: Times New Roman,
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
3/30
Command2 Caption: MenBackolor: &H00E0E0E0&Font: Times New Roman
Text1
Text2
Nombre: VentaText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: IvaText:BackColor: &H80000005&
Font: Times New Roman,ForeColor: &H80000008&
BorderStyle: 1- Fixed Single
Cdigo delprograma
Private Sub Command1_Click()VentaT.Caption = Val(Venta.Text) + Val(Venta.Text) * Val(Iva.Text)IvaT.Caption = Val(Venta.Text) * Val(Iva.Text)End Sub
Private Sub Command2_Click()Men.ShowUnload Me
End Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
4/30
SEGUNDO PUNTO
Problema planteado
P=(A+C)/3+2*B; Hallar P para
diferentes valores de A,B,C
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaValor De A=5Valor De B=4Valor De C=13
ResultadosValor De P=14
ObjetosNombre PropiedadesForm1 Nombre: ValorDeP
Caption: ValorDePBackColor: &H0080FFFF&
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
5/30
Picture
Label 1
Label 2
Label 3
Label 4
Label5
Label6
Caption: Digite El Valor De ABackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&
Backstyle: 0-Transparent
Caption: Digite El Valor De B
BackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite El Valor De CBackColor: &H8000000F&
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Valor De PBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: Valor PCaption:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 1- Fixed Single
Nombre: FormulaCaption: P=(A+C)/3+2*B
BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 1- Fixed Single
Command1 Caption: InicioBackColor: &H00E0E0E0&Font: Times New Roman,
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
6/30
Command2 Caption: MenBackolor: &H00E0E0E0&Font: Times New Roman
Text1
Text2
Text3
Nombre: ValorAText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: ValorBText:BackColor: &H80000005&
Font: Times New Roman,ForeColor: &H80000008&
BorderStyle: 1- Fixed Single
Nombre: ValorCText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo delprograma
Private Sub Command1_Click()ValorP.Caption = (Val(ValorA.Text) + Val(ValorC.Text)) / 3 + 2 *Val(ValorB.Text)End Sub
Private Sub Command2_Click()Men.ShowUnload MeEnd Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
7/30
TERCER PUNTO
Problema planteado
Calcule el volumen de un cubo
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaLado=2Lado=2Lado=2
ResultadosVolumen Del Cubo=8
Objetos Nombre PropiedadesForm1 Nombre: VolumenDeUnCuboCaption: Volumen de un cuboBackColor: &H0080FFFF&
Picture
Label 1 Caption: LadoBackColor: &H8000000F&
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
8/30
Label 2
Label 3
Label 4
Label5
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: LadoBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: LadoBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Volumen Del CuboBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: VolumenTCaption:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&
Backstyle: 1- Fixed Single
Command1
Command2
Caption: VolumenBackColor: &H00E0E0E0&Font: Times New Roman,
Caption: MenBackolor: &H00E0E0E0&Font: Times New Roman
Text1 Nombre: L1Text:
BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
9/30
Text2
Text3
Nombre: L2Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: L3Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo delprograma
Private Sub Command1_Click()
VolumenT.Caption = Val(L1.Text) * Val(L2.Text) * Val(L3.Text)End Sub
Private Sub Command2_Click()Men.ShowUnload MeEnd Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
10/30
CUARTO PUNTO
Problema planteado
Resolver para diferentes valores de
A,B,C, la expresin.
X=A+ -4AC
2*A
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaA=4B=9C=2
ResultadosValor De X=1,375
ObjetosNombre PropiedadesForm1 Nombre: ValorX
Caption: Volumen de un cuboBackColor: &H0080FFFF&
Picture
Label 1 Caption: ABackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
11/30
Label 2
Label 3
Label 4
Label5
Caption: BBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: CBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Valor De XBackColor: &H8000000F&
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: ValorTCaption:BackColor: &H80000005&
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 1- Fixed Single
Command1
Command2
Caption: InicioBackColor: &H00E0E0E0&Font: Times New Roman,
Caption: Men
Backolor: &H00E0E0E0&Font: Times New Roman
Text1 Nombre: ValorAText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
12/30
Text2
Text3
Nombre: ValorBText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: ValorCText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo delprograma
Private Sub Command1_Click()ValorT.Caption = (Val(ValorA.Text) + Sqr(Val(ValorB.Text) *Val(ValorB.Text) - 4 * Val(ValorA.Text) * Val(ValorC.Text))) / (2 *Val(ValorA.Text))End Sub
Private Sub Command2_Click()Men.ShowUnload MeEnd Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
13/30
QUINTO PUNTO
Problema planteado
Si Carlos obtuvo 3,5 en la primera
nota de matemticas, 4,2 en lasegunda, 3,7 en la tercera, Cul fue
su promedio?
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaPrimera Nota=3.5Segunda Nota=4.2Tercera Nota=3.7
ResultadosSu Promedio Es=3.8
ObjetosNombre PropiedadesForm1 Nombre: Promedio
Caption: Promedio notas dematematicasBackColor: &H0080FFFF&WindowState: 2-Maximized
Picture
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
14/30
Label 1
Label 2
Label 3
Label 4
Label5
Caption: Primera NotaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Segunda NotaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Tercera NotaBackColor: &H8000000F&Font: Times New Roman,
ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Su Promedio EsBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: PromedioCaption:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 1- Fixed Single
Command1
Command2
Caption: PromedioBackColor: &H00E0E0E0&Font: Times New Roman,
Caption: Men
Backolor: &H00E0E0E0&Font: Times New Roman
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
15/30
Text1
Text2
Text3
Nombre: PrimeraNText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: SegundaNText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: TerceraNText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo delprograma
Private Sub Command1_Click()Promedio.Caption = (Val(PrimeraN) + Val(SegundaN) + Val(TerceraN))
/ 3End Sub
Private Sub Command2_Click()Men.ShowUnload MeEnd Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
16/30
SEXTO PUNTO
Problema planteado
Sean P1,P2,P3,P4 el precio
de 4 articulo; calcule sucompra total y el IVA
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaPrimera Compra=2000Segunda Compra=3000Tercera Compra=2000Cuarta Compra=3000
ResultadosIVA De La Compra=1600Total De La Compra=10000
ObjetosNombre PropiedadesForm1 Nombre: CompraTotalEIva
Caption: Compra total e IVABackColor: &H0080FFFF&WindowState: 0 - Normal
Picture
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
17/30
Label 1
Label 2
Label 3
Label 4
Label5
Label6
Label7
Label8
Caption: Digite La Primera CompraBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Segunda CompraBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Tercera CompraBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Cuarta CompraBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Iva De La CompraBackColor: &H8000000F&
Font: Times New Roman,ForeColor: &H80000012&
Backstyle: 0-Transparent
Caption: Total De La CompraBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: CompraICaption:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&
Backstyle: 1- Fixed Single
Nombre: CompraTBackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 1- Fixed Single
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
18/30
Command1
Command2
Caption: InicioBackColor: &H00E0E0E0&Font: Times New Roman,
Caption: Men
Backolor: &H00E0E0E0&Font: Times New Roman
Text1
Text2
Text3
Text4
Nombre: Compra1Text:BackColor: &H80000005&Font: Times New Roman,
ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: Compra2
Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: Compra3Text:BackColor: &H80000005&
Font: Times New Roman,ForeColor: &H80000008&
BorderStyle: 1- Fixed Single
Nombre: Compra4Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo del programaPrivate Sub Command1_Click()CompraI.Caption = (Val(Compra1.Text) + Val(Compra2.Text) +
Val(Compra3.Text) + Val(Compra4.Text)) * 0.16CompraT.Caption = Val(Compra1.Text) + Val(Compra2.Text) +Val(Compra3.Text) + Val(Compra4.Text)End SubPrivate Sub Command2_Click()Men.ShowUnload MeEnd Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
19/30
SEPTIMO PUNTO
Problema planteado
Si la primera nota de Carlos
vale el 30%, la segunda el
40% y la tercera el 30%.
Cul fue la nota definitiva?
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaDigite La Primera Nota=3.5Digite La Segunda Nota= 4.2Digite La Tercera Nota=3.7
ResultadosNota Definitiva=3,84
ObjetosNombre PropiedadesForm1 Nombre: NotaDefinitiva
Caption: Notas definitivasBackColor: &H0080FFFF&WindowState: 0 - Normal
Picture
Label 1 Caption: Digite La Primera NotaBackColor: &H8000000F&Font: Times New Roman,
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
20/30
Label 2
Label 3
Label 4
Label5
ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Segunda NotaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Tercera NotaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Nota DefinitivaBackColor: &H8000000F&
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: NotaDCaption:BackColor: &H80000005&Font: Times New Roman,
ForeColor: &H80000012&Backstyle: 1- Fixed Single
Command1
Command2
Caption: InicioBackColor: &H00E0E0E0&Font: Times New Roman,
Caption: Men
Backolor: &H00E0E0E0&Font: Times New Roman
Text1
Text2
Nombre: Nota1Text:BackColor: &H80000005&
Font: Times New Roman,ForeColor: &H80000008&
BorderStyle: 1- Fixed Single
Nombre: Nota2Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
21/30
Text3 Nombre: Nota3
Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo del programaPrivate Sub Command1_Click()NotaD.Caption = (Val(Nota1.Text) * 0.3) + (Val(Nota2.Text) *0.4) + (Val(Nota3.Text) * 0.3)End Sub
Private Sub Command2_Click()
Men.ShowUnload Me
End Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
22/30
OCTAVO PUNTO
Problema planteado
Encontrar el nmero cuyo
doble sumado el tiple yrestado la mitad resulte 1000.
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaDigite El Valor=333
ResultadosValor Total=1000,5
ObjetosNombre PropiedadesForm1 Nombre: Operaciones
Caption: Valor de 1000BackColor: &H0080FFFF&WindowState: 0 - Normal
Picture
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
23/30
Label 1
Label 2
Label 3
Caption: Digite El ValorBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Valor TotalBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: ValorTCaption:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&
Backstyle: 1- Fixed Single
Command1
Command2
Caption: Inicio
BackColor: &H00E0E0E0&Font: Times New Roman,
Caption: Men
Backolor: &H00E0E0E0&Font: Times New Roman
Text1 Nombre: Valor
Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo del programaPrivate Sub Command1_Click()ValorT.Caption = Val(Valor.Text) + 2 * Val(Valor.Text) + 3 / 2
End Sub
Private Sub Command2_Click()Men.ShowUnload MeEnd Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
24/30
NOVENO PUNTO
Problema planteado
Encuentre el rea de un
paralelogramo
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaDigite La Base=5Digite La Altura=10
ResultadosArea Del Paralelogramo=50
ObjetosNombre PropiedadesForm1 Nombre: AreaParalelogramo
Caption: Area de un paralelogramoBackColor: &H0080FFFF&WindowState: 2 - Maximized
Picture
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
25/30
Label 1
Label 2
Label 3
Label 4
Caption: Digite La BaseBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La AlturaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Area Del ParalelogramoBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: AreaTCaption:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 1- Fixed Single
Command1
Command2
Caption: Inicio
BackColor: &H00E0E0E0&
Font: Times New Roman,
Caption: Men
Backolor: &H00E0E0E0&Font: Times New Roman
Text1
Text2
Nombre: BaseText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: AlturaText:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
26/30
Cdigo del programaPrivate Sub Command1_Click()AreaT.Caption = Val(Base.Text) * Val(Altura.Text)End Sub
Private Sub Command2_Click()Men.ShowUnload MeEnd Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
27/30
DECIMO PUNTO
Problema planteado
Calcule la nota total de un
estudiante si sabemos que:
Nota 1 = 20%Nota 2 = 10%Nota 3 = 20%Nota 4 = 30%Nota 5 = 20%
Algoritmo o diagrama de flujo
Diseo visual del programa
Variables de pruebaDigite La Primera Nota=3.5Digite La Segunda Nota=4.0
Digite La Tercera Nota=4.5
Digite La Cuarta Nota=3.0Digite La Quinta Nota=4.0
ResultadosNota Definitiva=3,7
ObjetosNombre PropiedadesForm1 Nombre: NotaEstudiante
Caption: Nota de estudiantesBackColor: &H0080FFFF&WindowState: 2 - Maximized
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
28/30
Picture
Label 1
Label 2
Label 3
Label 4
Label5
Label6
Label7
Caption: Digite La Primera NotaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Segunda NotaBackColor: &H8000000F&
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Tercera NotaBackColor: &H8000000F&Font: Times New Roman,
ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Cuarta NotaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Digite La Quinta NotaBackColor: &H8000000F&
Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Caption: Nota DefinitivaBackColor: &H8000000F&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 0-Transparent
Nombre: NotaTCaption:
BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000012&Backstyle: 1- Fixed Single
Command1 Caption: InicioBackColor: &H00E0E0E0&
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
29/30
Command2
Font: Times New Roman,
Caption: Men
Backolor: &H00E0E0E0&Font: Times New Roman
Text1
Text2
Text3
Text4
Text5
Nombre: Nota1Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: Nota2Text:BackColor: &H80000005&
Font: Times New Roman,ForeColor: &H80000008&
BorderStyle: 1- Fixed Single
Nombre: Nota3Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: Nota4Text:
BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Nombre: Nota5Text:BackColor: &H80000005&Font: Times New Roman,ForeColor: &H80000008&BorderStyle: 1- Fixed Single
Cdigo del programaPrivate Sub Command1_Click()NotaT.Caption = (Val(Nota1.Text) * 0.2) + (Val(Nota2.Text) *0.1) + (Val(Nota3.Text) * 0.2) + (Val(Nota4) * 0.3) + (Val(Nota5)* 0.2)End Sub
7/25/2019 Algoritmos Secuenciales (Visual Y Dfd)
30/30
Private Sub Command2_Click()Men.ShowUnload MeEnd Sub