Visual Basic - Simplificar código if

Life is soft - evento anual de software empresarial
   
Vista:

Simplificar código if

Publicado por jlagares (11 intervenciones) el 10/03/2010 08:38:04
Hola a todos,

Tengo un problema con el código y es que tengo que simplificarlo o me volveré mas tonto de lo que estoy. El tema que en verdad tengo que mandar como 850 comando dependiendo del Scroll como podría solucionarlo os mando un ejemplo

If HScroll1.Value = 0 Then
WS.SendData "vol 0" & vbCrLf
End If

If HScroll1.Value = 1 Then
WS.SendData "vol 1" & vbCrLf
End If

If HScroll1.Value = 2 Then
WS.SendData "vol 2" & vbCrLf
End If

If HScroll1.Value = 3 Then
WS.SendData "vol 3" & vbCrLf
End If

If HScroll1.Value = 4 Then
WS.SendData "vol 4" & vbCrLf
End If

If HScroll1.Value = 5 Then
WS.SendData "vol 5" & vbCrLf
End If

If HScroll1.Value = 6 Then
WS.SendData "vol 6" & vbCrLf
End If

If HScroll1.Value = 7 Then
WS.SendData "vol 7" & vbCrLf
End If

If HScroll1.Value = 8 Then
WS.SendData "vol 8" & vbCrLf
End If

If HScroll1.Value = 9 Then
WS.SendData "vol 9" & vbCrLf
End If

If HScroll1.Value = 10 Then
WS.SendData "vol 10" & vbCrLf
End If

If HScroll1.Value = 11 Then
WS.SendData "vol 11" & vbCrLf
End If

If HScroll1.Value = 12 Then
WS.SendData "vol 12" & vbCrLf
End If

If HScroll1.Value = 13 Then
WS.SendData "vol 13" & vbCrLf
End If

If HScroll1.Value = 14 Then
WS.SendData "vol 14" & vbCrLf
End If

If HScroll1.Value = 15 Then
WS.SendData "vol 15" & vbCrLf
End If

If HScroll1.Value = 16 Then
WS.SendData "vol 16" & vbCrLf
End If

If HScroll1.Value = 17 Then
WS.SendData "vol 17" & vbCrLf
End If

If HScroll1.Value = 18 Then
WS.SendData "vol 18" & vbCrLf
End If

If HScroll1.Value = 19 Then
WS.SendData "vol 19" & vbCrLf
End If

If HScroll1.Value = 20 Then
WS.SendData "vol 20" & vbCrLf
End If

If HScroll1.Value = 21 Then
WS.SendData "vol 21" & vbCrLf
End If

Y asi tengo que llegar hasta el 850. alguien me puede ayudar
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:Simplificar código if

Publicado por Pedro Luis (878 intervenciones) el 10/03/2010 09:18:32
Sin If

WS.SendData "vol " & HScroll1.Value & vbCrLf

no hacen falta los if
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:Simplificar código if

Publicado por jlagares (2 intervenciones) el 10/03/2010 11:34:54
Muchas gracias Pedro era que facil que
pero al final era asi

WS.SendData "vol" & vbCrLf & HScroll1.Value

Muchas 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