Diagrama De Flujo
Inicio
A=3
X= A+B+C
C=1
FIN
B=5
X
Private Sub BtnSuma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuma.Click
Dim Dato1, Dato2, Dato3 As Single
Dato1 = Single.Parse(TextBox1.Text)
Dato2 = Single.Parse(TextBox2.Text)
Dato3 =Single.Parse(TextBox3.Text)
LblSuma.Text = Dato1 + Dato2 + Dato3
End Sub
2.- Diseñar diagrama de flujo para el programa que imprima la multiplicación de dos números.
X= A*B
FIN
X
B=5
A=3
Inicio
Private Sub BtnMultiplicar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMultiplicar.Click
Dim Dato1, Dato2 As Single
Dato1 = Single.Parse(TxtO.Text)Dato2 = Single.Parse(TxtR.Text)
LblMulti.Text = Dato1 * Dato2
End Sub
Inicio
V= D/T
T= 4.5
D= 475
3.- Diseñar diagrama de flujo para el programa que imprima la velocidad de un automóvil que recorre una distancia de 475km en un tiempo de 4hrs y 30mn.
V
FIN
Private Sub BtnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnCalcular.Click
Dim Dato1, Dato2 As Single
Dato1 = Single.Parse(TxtD.Text)
Dato2 = Single.Parse(TxtT.Text)
LblResultado.Text = Dato1 / Dato2
End Sub
FIN
X=(A+B+C)/D
D=2
C=1
B=2
A=3
Inicio
4.- Diseñar diagrama de flujo para el programa que imprima la suma de tres números dados y el resultado dividirlo entre otro numero dado.
x
Private SubBtnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click
Dim Dato1, Dato2, Dato3 As Single
Dato1 = Single.Parse(TxtA.Text)
Dato2 = Single.Parse(TxtB.Text)
Dato3 = Single.Parse(TxtC.Text)
LblSuma.Text = Dato1 + Dato2 + Dato3
LblDivision.Text = (Dato1 + Dato2 + Dato3) / 6
End Sub
5.- Diseñardiagrama de flujo para el programa que imprima la conversión de grados centígrados a Fahrenheit de las siguientes dos cantidades:
2° c a °f 20 °c a °f °F= 1.8*C+32
FIN
°F
°F=(1.8*°C) +32
°C=20
°F
°F=(1.8*°C) +32
°C=2
Inicio
Private Sub BtnConv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConv.Click
Dim Dato1, Dato2 As SingleDato1 = Single.Parse(Txt1C.Text)
Dato2 = Single.Parse(Txt2C.Text)
Lbl1F.Text = (1.8 * Dato1) + 32
Lbl2F.Text = (1.8 * Dato2) + 32
End Sub
6.- Diseñar diagrama de flujo para el programa que imprima la conversión de grados centígrados a Fahrenheit de las siguientes dos cantidades: 12° c a °f 40 °c a °f °F= 1.8*C+32
°C=12
Inicio
°F
°F=(1.8*°C) +32°C=40
FIN
°F
°F=(1.8*°C) +32
Private Sub BtnConv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConv.Click
Dim Dato1, Dato2 As Single
Dato1 = Single.Parse(Txt1.Text)
Dato2 = Single.Parse(Txt2.Text)
Lbl1F.Text = (1.8 * Dato1) + 32
Lbl2F.Text = (1.8 * Dato2) + 32
End Sub
7.- Diseñar diagrama de flujo para elprograma que imprima el promedio de 4 calf.de un alumno que son las siguientes:
Inicio
FIN
X
X= (A+B+C+D)/4
D=10
C=3
B=10
A=10
Private Sub BtnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalc.Click
Dim Dato1, Dato2, Dato3, Dato4 As Single
Dato1 = Single.Parse(Txt1.Text)
Dato2 = Single.Parse(Txt2.Text)
Dato3 =Single.Parse(Txt3.Text)
Dato4 = Single.Parse(Txt4.Text)
LblPromedio.Text = (Dato1 + Dato2 + Dato3 + Dato4) / 4
End Sub
A=10
A
Inicio
A=1
8.- Diseñar el diagrama de flujo para el programa que imprima todos los números enteros naturales del uno al diez
A=A+1
FIN
NO SI
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...
Regístrate para leer el documento completo.