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
[email protected]
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
__________________________________________________________
