Visual Basic - programa en visual 6.0

Life is soft - evento anual de software empresarial
   
Vista:

programa en visual 6.0

Publicado por andrea (1 intervención) el 26/07/2014 06:28:46
chicos pliss necesito q me ayuden con un programa para empleados que calcule sueldo mensual horas extra si son 10 horas extras mensuales el precio es un 50%mayor si es entre 10 y 20 es un 40% mayory si es un 20 es un 20 % mayor
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
Imágen de perfil de Hector

programa en visual 6.0

Publicado por Hector (17 intervenciones) el 26/07/2014 14:34:18
Andrea debes crear un formulario a cual le agregas 4 textbox uno para pedir el sueldo mensual (llamalo sueldo), otro para las horas extras(llamalo extras), otra par el valor de las horas extras (llamalo monto)y otro para desplagar el valor obtenido (llamalo salida), mas un boton comando al cual llamas calcular, presionas el boton calcular para que escribas el codigo refrente al evento click asi

Private sub calcular_Click
dim sueldo,extras,monto,salario as single

select case extras
case is = 10
let monto= monto+( monto *50/100)
case is 11 to 19
let monto= monto+( monto *40/100)
case is = 20
let monto= monto+( monto *20/100)
end select

let salario = sueldo +monto
let salida = Format(salario, "##########,##0.00")
End sub

luego le das a ejectar y lo depuras

Espero que te haya servido en tu orientacion
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

programa en visual 6.0

Publicado por Juan Gilberto (277 intervenciones) el 26/07/2014 17:33:07
Usando tu codigo solo declaras salario como Single, las demas variables las declaras Variant
-------------------------------------------------------------
dim sueldo,extras,monto,salario as single
-------------------------------------------------------------

La sintaxis correcta es la siguiente:
1
Dim sueldo As Single, extras As Single, monto As Single ,salario As Single
...o la mas tradicional
1
2
3
4
Dim sueldo As Single
Dim extras As Single
Dim monto As Single
Dim salario As single
...o utilizando multilinea
1
Dim sueldo As Single : Dim extras As Single : Dim monto As Single : Dim salario As single
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