Visual Basic - ayuda con codigo

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con codigo

Publicado por LAU (1 intervención) el 30/07/2009 20:37:17
Necesito que me ayuden con el codigo del boton aceptar para que el programa pueda calcular el salario
les dejo una imagen para que se entienda mejor
[IMG]http://img74.imageshack.us/img74/5624/aplicacion.gif[/IMG]
espero que puedan ayudarme
besos
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:ayuda con codigo

Publicado por Antoni Masana (79 intervenciones) el 31/07/2009 06:43:15
No se entiende nada.

¿Que es lo que no sabes hacer?
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

RE:ayuda con codigo

Publicado por juan carlos (518 intervenciones) el 18/08/2009 07:56:03
hola LAU me imagino que esto es lo que tratas de decir, te enviaria el codigo por correo pero no se tu correo
mi mail es mega.juca@hotmail.es
espero te sirva de algo esto

este codigo es para el ingreso de datos
__________________________________________________________
text4 = nombre
text5 = horastrabajadas
text6 = pagoporhora
label2= salida2

rem de seguro la salida de esto es el salario bruto
Private Sub Command2_Click()
g = (horastrabajadas * pagoporhora)
salida2.Caption = g
End Sub

__________________________________________________________
este codigo es para la salida de datos incluye tambien los options
los options los uni

'text1 es salariobruto
'text2 es descuento
'text3 es el salario neto
'option(0) = 20 'inserta el 20 en descuento
'option(1) = 22 'inserta el 22 en descuento
'option(2) = 25 'inserta el 25 en descuento
' pon el numero 20 por defauld en descuento

rem sacar el salario
Private Sub Command1_Click()
rem verificar que la caja de descuento no este vacia
if descuento = "" then exit sub
rem hacer el calculo
e = (salariobruto * descuento)
f = e / 100
salida.Text = f
End Sub

rem control de los options
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
descuento.Text = "20"
Case 1
descuento.Text = "22"
Case 2
descuento.Text = "25"
End Select
End Sub
__________________________________________________________
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