Visual Basic - Decision IF

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Decision IF

Publicado por Victor (5 intervenciones) el 20/07/2016 15:56:32
Hola Maestros, mi pregunta de novato...se podrá hacer?: si a =< 60 lo contrario o la diferencia quiero que lo presente en otra caja de texto; por ejemplo en dos cajas; si ingreso 80 la diferencia, osea 20, la ingrese en la segunda caja de texto y en la primera su valor que indica la decision. Espero heberme hecho entender, de antemano gracias.
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 xve
Val: 107
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Decision IF

Publicado por xve (208 intervenciones) el 20/07/2016 16:59:49
Hola Victor, y donde tienes el problema... segun entiendo el if seria algo así:

1
2
3
4
5
6
if(int(mitexto.text)<=60)
{
    ....
}else{
    ....
}

Es esto lo que necesitas?
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
sin imagen de perfil
Val: 147
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Decision IF

Publicado por Juan Gilberto (323 intervenciones) el 21/07/2016 18:00:53
1
2
3
4
5
6
7
8
9
10
11
Dim a As Long
 
a = 80
 
If a =< 60 Then
    Text1.Text = 60
    Text2.Text = ""
Else
    Text1.Text = Format (60)
    Text2.Text = Format( a - 60 )
End  If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Decision IF

Publicado por Victor (5 intervenciones) el 22/07/2016 17:26:39
Maestro, gracias por iluminarme.
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
sin imagen de perfil

Decision IF

Publicado por Victor (5 intervenciones) el 23/07/2016 17:32:44
Hola Señor JG, esperando se encuentre bien; le manifiesto que parece complicado este ejercicio que tengo, se lo mencionaré: "elaborar un formulario que permita ingresar el sueldo por hora y las horas trabajadas. Si las horas trabajadas son mayor a 40 cada hora de sobretiempo se pagará dobre".
Y sucede que cuando ingreso 40 funciona bien, pero cuando solo tengo 25 me el valor como si estuvieran las 40, disculpe las molestias y reitero mi agradecimiento por atenderme. envio imagen de lo que tengo.
VB6
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
sin imagen de perfil
Val: 147
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Decision IF

Publicado por Juan Gilberto (323 intervenciones) el 23/07/2016 18:27:06
Te sugiero lo siguiente:

Un textbox con el Sueldo por Hora
Un textbox con el Total de Horas Trabajadas
Un textbox con las Horas Normales
Un textbox con las Horas Dobles
Un textbox con el Importe de Sueldo por Horas Normales
Un textbox con el Importe de Sueldo por Horas Dobles
Un textbox con el Total de Sueldo

Se va a teclear solamente el Sueldo por Hora y el Total de Horas Trabajadas en sus textboxes correspondientes
Se calculan las Horas Normales y las Horas Dobles y se pone el resultado en los textboxes correspondientes
Si el TOTALdeHORAS es Menor o Igual a 40 entonces en el textbox de Horas Normales pones el Total de Horas Trabajadas
Si el TOTALdeHORAS es Mayor a 40 entonces en el textbox de Horas Normales pones el Total de Horas Trabajadas - 40 y en el textbox de Horas Dobles pones el resultado de restar 40 a Total de Horas Trabajadas
Se calculan los Importes
El Importe de Sueldo por Horas Normales = Horas Normales x Sueldo por Hora y va en el textbox corrspondiente
El Importe de Sueldo por Horas Dobles = Horas Normales x Sueldo por Hora x 2 y va en el textbox corrspondiente
Se Suman el Importe de Sueldo por Horas Normales + Importe de Suledo por Horas Dobles y va en el textbox correspondiente

sigue cada paso y veras que tan facil es

Si tienes problemas, adjunta tu codigo y no una imagen... es mas facil para porder ayudarte
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
sin imagen de perfil
Val: 147
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Decision IF

Publicado por Juan Gilberto (323 intervenciones) el 24/07/2016 18:29:02
Correccion:

Si el TOTALdeHORAS es Mayor a 40 entonces en el textbox de Horas Normales pones 40 y en el textbox de Horas Dobles pones el resultado de Horas Trabajadas menos 40
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
sin imagen de perfil

Decision IF

Publicado por Victor (5 intervenciones) el 25/07/2016 15:21:19
Buen día Maestro, eso llevo y la cabeza se me hizo nudo, do doy más...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Command1_Click()
'Para que las cajas no se dejen vacías.
If Len(Trim(txtSH.Text)) = 0 Then
    MsgBox ("Introduzca sueldo hora.")
    txtSH.SetFocus
ElseIf Len(Trim(txtTHT.Text)) = 0 Then
    MsgBox ("Introduzca las horas trabajadas.")
    txtSH.SetFocus
Else
'
Dim SH As Integer 'sueldo por hora.
Dim THT As Integer 'total horas trabajadas
Dim SHN As Currency 'sueldo horas normales
Dim SHD As Currency 'sueldo horas dobles
Dim TS As Currency 'total sueldo.
Dim HN As Integer
'
If THT <= 40 Then 'si total de ht es menor o = 40
    txtHN.Text = THT 'por verdad
    txtHN.Text = Format(40)
Else
    txtHN.Text = Format(txtTHT - 40) 'por falso o mayor que 40
End If
'
txtHD.Text = txtTHT.Text - txtHN.Text
txtSHN.Text = txtSH * txtHN
txtSHD.Text = (txtSH * txtHD) * 2
txtTS.Text = txtSHN + txtSHD
txtTS.Text = FormatCurrency(CDbl(txtTS.Text))
End If
 
End Sub
 
Private Sub Command2_Click()
txtTHT.Text = ""
txtHN.Text = ""
txtHD.Text = ""
txtSHN.Text = ""
txtSHD.Text = ""
txtTS.Text = ""
txtTHT.SetFocus
End Sub
 
Private Sub Command3_Click()
Unload Me
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