Programas De Vb2008

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")

End If

...