Practica 1.
1) Declarar la variable de tipo CHAR y asignarle valor inicial, su marca de vehículo favorito y luego muestre el resultado por pantalla.
2) Realice un procedimiento con la suma de X , Y denominado CALCULAR()
Public Sub CALCULAR()
Dim f, x, y As Double
Try
x = TextBox1.Text
y = TextBox2.Text
f = x + y
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Label3.Text = "LA SUMA ES: "
TextBox3.Text = f
End Sub
3) Realice un procedimiento con la suma de A + B en forma estática
SUMA DE A + B
Public Sub main()
Dim a As Double = 10
Dim b As Double = 20
Dim c As Double = 0
Try
c = a + b
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Label1.Text = "El valor es:"
TextBox1.Text = c
End Try
4) Realice un procedimiento de CONVERSION grado CELSIUS A FARENHEIT
Public Sub CONVERSION()
Dim F, C, R As Double
Dim A As Double = 9
Dim B As Double = 5
Try
R = A / B
C = TextBox1.Text
F = R * C + 32
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Label3.Text = "EL GRADO FARENHEIT ES:"
TextBox3.Text = F
End Sub
5) Segun la formula del teorema de pitagora H^2 = A^2 +B^2 de forma dinamica
Public Sub PITAGORA()
Dim A, B, H, P As Double
Try
A = TextBox1.Text
B = TextBox2.Text
H = (A * A) + (B * B)
P = H * H
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Label4.Text = "LA SUMA ES :"
TextBox3.Text = P
End Try
End Sub
Haz clic aquí para editar.
1) Declarar la variable de tipo CHAR y asignarle valor inicial, su marca de vehículo favorito y luego muestre el resultado por pantalla.
2) Realice un procedimiento con la suma de X , Y denominado CALCULAR()
Public Sub CALCULAR()
Dim f, x, y As Double
Try
x = TextBox1.Text
y = TextBox2.Text
f = x + y
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Label3.Text = "LA SUMA ES: "
TextBox3.Text = f
End Sub
3) Realice un procedimiento con la suma de A + B en forma estática
SUMA DE A + B
Public Sub main()
Dim a As Double = 10
Dim b As Double = 20
Dim c As Double = 0
Try
c = a + b
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Label1.Text = "El valor es:"
TextBox1.Text = c
End Try
4) Realice un procedimiento de CONVERSION grado CELSIUS A FARENHEIT
Public Sub CONVERSION()
Dim F, C, R As Double
Dim A As Double = 9
Dim B As Double = 5
Try
R = A / B
C = TextBox1.Text
F = R * C + 32
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Label3.Text = "EL GRADO FARENHEIT ES:"
TextBox3.Text = F
End Sub
5) Segun la formula del teorema de pitagora H^2 = A^2 +B^2 de forma dinamica
Public Sub PITAGORA()
Dim A, B, H, P As Double
Try
A = TextBox1.Text
B = TextBox2.Text
H = (A * A) + (B * B)
P = H * H
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Label4.Text = "LA SUMA ES :"
TextBox3.Text = P
End Try
End Sub
Haz clic aquí para editar.