Este programa se hiso a partir de un problema que nos
puso el profesor:
En base a
esto, a nosotros nos tocaba Diseñar un programa en visual basic usando
únicamente sentencia “If” para que la empresa pueda determinar el valor a pagar
por cada empleado según su categoría y días trabajados, subsidio por número de
hijos y los descuentos. El programa debe tener interfaz gráfica y controles de
tipo Combo. Así que este programa lo que hace es solucionar esto, y decirle a
la empresa cuanto se le debe pagar a cada trabajador según su categoría, cuántos
hijos tiene y según los descuentos que están en el problema.
A
continuación se mostrara el código que se utilizó:
Public Class
Form1
Private Property MsgBox As String
Private
Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "A" Then
Label1.Text = 750000
Else
If ComboBox1.Text = "B" Then
Label1.Text = 900000
Else
If ComboBox1.Text = "C"
Then
Label1.Text = 1500000
End If
End If
End If
End
Sub
Private
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
ComboBox1.Items.Add("A")
ComboBox1.Items.Add("B")
ComboBox1.Items.Add("C")
ComboBox2.Items.Add("1-3")
ComboBox2.Items.Add("4-6")
ComboBox2.Items.Add("Mas de
6")
ComboBox2.Items.Add("No Tiene
Hijos")
End Sub
Private
Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox2.Text = "1-3" Then
Label2.Text = 8
Else
If ComboBox2.Text = "4-6" Then
Label2.Text = 12
Else
If ComboBox2.Text = "Mas
de 6" Then
Label2.Text = 16
Else
If ComboBox2.Text = "No
Tiene Hijos" Then
Label2.Text = 0
End If
End If
End If
End If
End
Sub
Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
TextBox3.Text = (((Label1.Text / 30) * TextBox5.Text) + ((Label2.Text *
Label1.Text) / 100))
TextBox1.Text = TextBox3.Text - ((TextBox3.Text * 9) / 100)
End Sub
End Class
La parte gráfica de este programa se ve así:
 |
| PROBLEMA SALARIOS DE
EMPRESA |
EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES:
No hay comentarios:
Publicar un comentario
Su comentario seria de gran ayuda para nosotros.