Programas De Vb2008
Enviado por robertoeyzaguirr • 25 de Julio de 2011 • 1.251 Palabras (6 Páginas) • 665 Visitas
EJERCICIOS DE LOGICA DE PROGRAMACION
1. Diseñar un formulario que permita ingresar 2 números (numero 1 y numero 2) y calcule las 4 operaciones aritméticas: suma, resta, multiplicación y división (resultado)
a. Diseño del Form.
b. Programación del Form.
Public Class Form1
Dim numero1 As Double, numero2 As Double, resultado As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
numero1 = Val(TextBox1.Text)
numero2 = Val(TextBox2.Text)
resultado = numero1 + numero2
Label4.Text = resultado
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
numero1 = Val(TextBox1.Text)
numero2 = Val(TextBox2.Text)
resultado = numero1 - numero2
Label4.Text = resultado
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
numero1 = Val(TextBox1.Text)
numero2 = Val(TextBox2.Text)
resultado = numero1 * numero2
Label4.Text = resultado
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
numero1 = Val(TextBox1.Text)
numero2 = Val(TextBox2.Text)
If numero2 <> 0 Then
resultado = numero1 / numero2
Else
MsgBox("El divisor debe ser diferente de cero")
End If
Label4.Text = resultado
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label4.Text = ""
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
End
End Sub
End Class
2. Diseñar y programar un formulario que permita ingresar el número de horas trabajadas (ej. 100 horas) durante el todo el mes por un empleado y el pago por hora trabajada (ej. S/. 30.00) que recibirá, además deberá calcular el sueldo total mensual.
a. Diseño del Form
b. Programación del Form.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim horas As Integer, precio As Double, sueldo As Double
If (IsNumeric(TextBox1.Text) And IsNumeric(TextBox1.Text)) Then
horas = Val(TextBox1.Text)
precio = Val(TextBox2.Text)
sueldo = horas * precio
Label4.Text = sueldo
Else
MsgBox("Debe ingresar valores numericos")
...