Visual Basic.NET - Tengo un problema

 
Vista:

Tengo un problema

Publicado por Stilwell (1 intervención) el 21/02/2008 04:37:34
Hola a todos estoy haciendo una planilla simple, pero muy simple que me esta volviendo loco, lo que pasa que para hacerlo tengo que usar un array de 5, tengo que calcular la renta e/y isss además de poder validar que si el usuario ingresa una fecha del 2007 me de una bonificación. estoy haciendo algunas pruebas pero no puedo mostrar un resultado de una función. pongo el código que tengo hasta ahorita.

Public Class Form1
Dim planilla As String

Dim empleado(5) As empleados
Dim sal As Decimal
Dim sala As Decimal
Dim salar As Decimal
Dim salari As Decimal
Dim salario As Decimal
Dim salarioe As Decimal

Structure empleados
Dim nombre As String
Dim apellido As String
Dim salario As Decimal
Dim fecha As Date
End Structure

Sub mostrar()
Me.TextBox1.Text = empleado(planilla).nombre
Me.TextBox2.Text = empleado(planilla).apellido
Me.TextBox3.Text = empleado(planilla).salario
Me.DateTimePicker1.Text = empleado(planilla).fecha
End Sub

Sub llenarplanilla()
empleado(0).nombre = "Stilwell Von"
empleado(0).apellido = "Santos Méndez"
empleado(0).salario = "200"
empleado(0).fecha = CType(Me.DateTimePicker1.MaxDate, Date)

empleado(1).nombre = "Marcela del Carmen"
empleado(1).apellido = "Martinez Gónzalez"
empleado(1).salario = "400"
empleado(1).fecha = CType(Me.DateTimePicker1.MaxDate, Date)

empleado(2).nombre = "Rut Elizabeth"
empleado(2).apellido = "Ayala Aristondo"
empleado(2).salario = "600"
empleado(2).fecha = CType(Me.DateTimePicker1.MaxDate, Date)

empleado(3).nombre = "Bessy Beatriz"
empleado(3).apellido = "Angel"
empleado(3).salario = "800"
empleado(3).fecha = CType(Me.DateTimePicker1.MaxDate, Date)

empleado(4).nombre = "Veronica"
empleado(4).apellido = "Mejia Perez"
empleado(4).salario = "1000"
empleado(4).fecha = CType(Me.DateTimePicker1.MaxDate, Date)

empleado(4).nombre = "Karen"
empleado(4).apellido = "Santos Méndez"
empleado(4).salario = "1200"
empleado(4).fecha = CType(Me.DateTimePicker1.MaxDate, Date)

sal = empleado(0).salario
sala = empleado(1).salario
salar = empleado(2).salario
salari = empleado(3).salario
salario = empleado(4).salario
salarioe = empleado(5).salario

isss0(sal)
isss1(sala)
isss2(salar)
isss3(salari)
isss4(salario)
isss5(salarioe)

renta0(sal)
renta1(sala)
renta2(salar)
renta3(salari)
renta4(salario)
renta5(salarioe)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.llenarplanilla()
Me.mostrar()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
planilla = empleado.GetLowerBound(0)
Me.mostrar()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.planilla > Me.empleado.GetLowerBound(0) Then
Me.planilla -= 1
End If
Me.mostrar()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Me.planilla < Me.empleado.GetUpperBound(0) Then
Me.planilla += 1
End If
Me.mostrar()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
planilla = empleado.GetUpperBound(0)
Me.mostrar()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Close()
End Sub

Function isss0(ByVal sal)
isss0 = (sal * 0.03)
End Function

Function isss1(ByVal sala)
isss1 = (sala * 0.03)
End Function

Function isss2(ByVal sala)
isss2 = (salar * 0.03)
End Function

Function isss3(ByVal sala)
isss3 = (salari * 0.03)
End Function

Function isss4(ByVal sala)
isss4 = (salario * 0.03)
End Function

Function isss5(ByVal sala)
isss5 = (salarioe * 0.03)
End Function

Function renta0(ByVal sal)
If sal < 0 And sal >= 100 Then
renta0 = (sal * 0.1)
Else
If sal < 100 And sal >= 200 Then
renta0 = (sal * 0.15)
Else
If sal > 200 Then
renta0 = (sal * 0.2)
End If
End If
End If
End Function

Function renta1(ByVal sala)
If sala < 0 And sala >= 100 Then
renta1 = (sala * 0.1)
Else
If sala < 100 And sala >= 200 Then
renta1 = (sala * 0.15)
Else
If sala > 200 Then
renta1 = (sala * 0.2)
End If
End If
End If
End Function

Function renta2(ByVal salar)
If salar < 0 And salar >= 100 Then
renta2 = (salar * 0.1)
Else
If salar < 100 And salar >= 200 Then
renta2 = (salar * 0.15)
Else
If salar > 200 Then
renta2 = (salar * 0.2)
End If
End If
End If
End Function

Function renta3(ByVal salari)
If salari < 0 And salari >= 100 Then
renta3 = (salari * 0.1)
Else
If salari < 100 And salari >= 200 Then
renta3 = (salari * 0.15)
Else
If salari > 200 Then
renta3 = (salari * 0.2)
End If
End If
End If
End Function

Function renta4(ByVal salario)
If salario < 0 And salario >= 100 Then
renta4 = (salario * 0.1)
Else
If salario < 100 And salario >= 200 Then
renta4 = (salario * 0.15)
Else
If salario > 200 Then
renta4 = (salario * 0.2)
End If
End If
End If
End Function

Function renta5(ByVal salarioe)
If salarioe < 0 And salarioe >= 100 Then
renta5 = (salarioe * 0.1)
Else
If salarioe < 100 And salarioe >= 200 Then
renta5 = (salario * 0.15)
Else
If salarioe > 200 Then
renta5 = (salarioe * 0.2)
End If
End If
End If
End Function

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
Me.TextBox4.Text = aqui quiero mostrar el resultado de mi función ya sea isss o renta.
End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tengo un problema

Publicado por johan (1 intervención) el 11/12/2008 23:23:52
ahora te contesto..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar