Visual Basic para Aplicaciones - Envio codigo

Life is soft - evento anual de software empresarial
   
Vista:

Envio codigo

Publicado por Car (6 intervenciones) el 21/10/2008 15:33:54
Hola foro buen dia, les muestro parte del codigo que utilice para poder hacer comparaciones y elegir el nivel que deseo tomar, Ahora bien lo que necesito hacer es entre el Campo1 y el Campo2 elegir el menor valor y mostrarlo en el Campo3. ALGUIEN ME PODRIA AYUDAR?
GRACIAS

Private Sub Detalle_Paint()
If PuntajeCalidad.Value > 181 And PuntajeCalidad.Value < 240 Then
Campo1.Caption = 1
Else
End If
If PuntajeCalidad.Value > 241 And PuntajeCalidad.Value < 300 Then
Campo1.Caption = 2
Else
End If
If PuntajeCalidad.Value > 301 And PuntajeCalidad.Value < 360 Then
Campo1.Caption = 3
Else
End If
If PuntajeCalidad.Value > 361 And PuntajeCalidad.Value < 420 Then
Campo1.Caption = 4
Else
End If
If PuntajeCalidad.Value > 421 And PuntajeCalidad.Value < 480 Then
Campo1.Caption = 5
Else
End If
If PuntajeCalidad.Value > 481 And PuntajeCalidad.Value < 510 Then
Campo1.Caption = 6
Else
End If
If PuntajeCalidad.Value > 511 And PuntajeCalidad.Value < 540 Then
Campo1.Caption = 7
Else
End If
If PuntajeCalidad.Value > 541 And PuntajeCalidad.Value < 570 Then
Campo1.Caption = 8
Else
End If
If PuntajeCalidad.Value > 571 And PuntajeCalidad.Value < 600 Then
Campo1.Caption = 9
Else
End If
If PuntajeCalidad.Value = " " Then
Campo1.Caption = 0
End If

If PuntajeTotal.Value > 301 And PuntajeTotal.Value < 400 Then
Campo2.Caption = 1
Else
End If
If PuntajeTotal.Value > 401 And PuntajeTotal.Value < 500 Then
Campo2.Caption = 2
Else
End If
If PuntajeTotal.Value > 501 And PuntajeTotal.Value < 600 Then
Campo2.Caption = 3
Else
End If
If PuntajeTotal.Value > 601 And PuntajeTotal.Value < 700 Then
Campo2.Caption = 4
Else
End If
If PuntajeTotal.Value > 701 And PuntajeTotal.Value < 800 Then
Campo2.Caption = 5
Else
End If
If PuntajeTotal.Value > 801 And PuntajeTotal.Value < 850 Then
Campo2.Caption = 6
Else
End If
If PuntajeTotal.Value > 851 And PuntajeTotal.Value < 900 Then
Campo2.Caption = 7
Else
End If
If PuntajeTotal.Value > 901 And PuntajeTotal.Value < 950 Then
Campo2.Caption = 8
Else
End If
If PuntajeTotal.Value > 951 And PuntajeTotal.Value < 1000 Then
Campo2.Caption = 9
Else
End If
If PuntajeTotal.Value = " " Then
Campo2.Caption = 0
End If

End Sub

BUEN DIA
CARMEN
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 JuanC

RE:Envio codigo

Publicado por JuanC (431 intervenciones) el 21/10/2008 16:24:41
If CInt(Campo1.Caption) > CInt(Campo2.Caption) Then
Campo3.Caption = Campo2.Caption
Else
Campo3.Caption = Campo1.Caption
End If

Saludos desde Baires, JuanC
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

Hola JuanC

Publicado por Car (6 intervenciones) el 21/10/2008 16:50:20
Hola Juan Muchisimas gracias por tu ayuda estoy trabajando en ello y lo acabo de probar pero me marca un error de depueración No. 13.
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
Imágen de perfil de JuanC

RE:Hola JuanC

Publicado por JuanC (431 intervenciones) el 21/10/2008 19:11:41
pasame el archivo o el código completo para verlo
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:Hola JuanC

Publicado por Car (6 intervenciones) el 21/10/2008 20:24:53
Hola Juan muchas gracias, a tu correo te envíe el archivo completo de todas maneras el codigo que utilice fue este:
Private Sub Detalle_Paint()
If PuntajeCalidad.Value > 181 And PuntajeCalidad.Value < 240 Then
Campo1.Caption = 1
Else
End If
If PuntajeCalidad.Value > 241 And PuntajeCalidad.Value < 300 Then
Campo1.Caption = 2
Else
End If
If PuntajeCalidad.Value > 301 And PuntajeCalidad.Value < 360 Then
Campo1.Caption = 3
Else
End If
If PuntajeCalidad.Value > 361 And PuntajeCalidad.Value < 420 Then
Campo1.Caption = 4
Else
End If
If PuntajeCalidad.Value > 421 And PuntajeCalidad.Value < 480 Then
Campo1.Caption = 5
Else
End If
If PuntajeCalidad.Value > 481 And PuntajeCalidad.Value < 510 Then
Campo1.Caption = 6
Else
End If
If PuntajeCalidad.Value > 511 And PuntajeCalidad.Value < 540 Then
Campo1.Caption = 7
Else
End If
If PuntajeCalidad.Value > 541 And PuntajeCalidad.Value < 570 Then
Campo1.Caption = 8
Else
End If
If PuntajeCalidad.Value > 571 And PuntajeCalidad.Value < 600 Then
Campo1.Caption = 9
Else
End If
If PuntajeCalidad.Value = " " Then
Campo1.Caption = 0
End If

If PuntajeTotal.Value > 301 And PuntajeTotal.Value < 400 Then
Campo2.Caption = 1
Else
End If
If PuntajeTotal.Value > 401 And PuntajeTotal.Value < 500 Then
Campo2.Caption = 2
Else
End If
If PuntajeTotal.Value > 501 And PuntajeTotal.Value < 600 Then
Campo2.Caption = 3
Else
End If
If PuntajeTotal.Value > 601 And PuntajeTotal.Value < 700 Then
Campo2.Caption = 4
Else
End If
If PuntajeTotal.Value > 701 And PuntajeTotal.Value < 800 Then
Campo2.Caption = 5
Else
End If
If PuntajeTotal.Value > 801 And PuntajeTotal.Value < 850 Then
Campo2.Caption = 6
Else
End If
If PuntajeTotal.Value > 851 And PuntajeTotal.Value < 900 Then
Campo2.Caption = 7
Else
End If
If PuntajeTotal.Value > 901 And PuntajeTotal.Value < 950 Then
Campo2.Caption = 8
Else
End If
If PuntajeTotal.Value > 951 And PuntajeTotal.Value < 1000 Then
Campo2.Caption = 9
Else
End If
If PuntajeTotal.Value = " " Then
Campo2.Caption = 0
End If
EndSub

El código que me dijisste lo puse al final del mío.

De cualquier forma ya esta en tu correo te lo adjunte y va comprimido.
Gracias.
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