Shorting code question

[flyfish29]

I like to try figuring how to shorten code before I resort to the last possibility, but I have had trouble with this one. Any insight into to shortening this would be appreciated :

Private Sub Timer1_Timer()
If VScroll1.Value = 0 Then


MSComm1.Output = "VOL00 " & Chr$(13)

ElseIf VScroll1.Value = 1 Then
MSComm1.Output = "VOL01 " & Chr$(13)

ElseIf VScroll1.Value = 2 Then
MSComm1.Output = "VOL02 " & Chr$(13)

ElseIf VScroll1.Value = 3 Then
MSComm1.Output = "VOL03 " & Chr$(13)

ElseIf VScroll1.Value = 4 Then
MSComm1.Output = "VOL04 " & Chr$(13)

ElseIf VScroll1.Value = 5 Then
MSComm1.Output = "VOL05 " & Chr$(13)

ElseIf VScroll1.Value = 6 Then
MSComm1.Output = "VOL06 " & Chr$(13)

ElseIf VScroll1.Value = 7 Then
MSComm1.Output = "VOL07 " & Chr$(13)

ElseIf VScroll1.Value = 8 Then
MSComm1.Output = "VOL08 " & Chr$(13)

ElseIf VScroll1.Value = 9 Then
MSComm1.Output = "VOL09 " & Chr$(13)

ElseIf VScroll1.Value = 10 Then
MSComm1.Output = "VOL10 " & Chr$(13)

ElseIf VScroll1.Value = 11 Then
MSComm1.Output = "VOL11 " & Chr$(13)

ElseIf VScroll1.Value = 12 Then
MSComm1.Output = "VOL12 " & Chr$(13)

ElseIf VScroll1.Value = 13 Then
MSComm1.Output = "VOL13 " & Chr$(13)

ElseIf VScroll1.Value = 14 Then
MSComm1.Output = "VOL14 " & Chr$(13)

ElseIf VScroll1.Value = 15 Then
MSComm1.Output = "VOL15 " & Chr$(13)

ElseIf VScroll1.Value = 16 Then
MSComm1.Output = "VOL16 " & Chr$(13)

ElseIf VScroll1.Value = 17 Then
MSComm1.Output = "VOL17 " & Chr$(13)

ElseIf VScroll1.Value = 18 Then
MSComm1.Output = "VOL18 " & Chr$(13)

ElseIf VScroll1.Value = 19 Then
MSComm1.Output = "VOL19 " & Chr$(13)

ElseIf VScroll1.Value = 20 Then
MSComm1.Output = "VOL20 " & Chr$(13)

ElseIf VScroll1.Value = 21 Then
MSComm1.Output = "VOL21 " & Chr$(13)

ElseIf VScroll1.Value = 22 Then
MSComm1.Output = "VOL22 " & Chr$(13)

ElseIf VScroll1.Value = 23 Then
MSComm1.Output = "VOL23 " & Chr$(13)

ElseIf VScroll1.Value = 24 Then
MSComm1.Output = "VOL24 " & Chr$(13)

ElseIf VScroll1.Value = 25 Then
MSComm1.Output = "VOL25 " & Chr$(13)

ElseIf VScroll1.Value = 26 Then
MSComm1.Output = "VOL26 " & Chr$(13)

ElseIf VScroll1.Value = 27 Then
MSComm1.Output = "VOL27 " & Chr$(13)

ElseIf VScroll1.Value = 28 Then
MSComm1.Output = "VOL28 " & Chr$(13)

ElseIf VScroll1.Value = 29 Then
MSComm1.Output = "VOL29 " & Chr$(13)

ElseIf VScroll1.Value = 30 Then
MSComm1.Output = "VOL30 " & Chr$(13)


Thanks

[jamiemac2005]

Try:

MSComm1.Output = "VOL" & VScroll.Value & " " & Chr$(13)

If that doesn't work then use Switch Case Statements( sorry i'm unsure of how to do this in VB but google will help you)

Actually you will have to parse the VScroll.Value property if the number is <10 so maybe something like:

If VScroll1.Value < 10 Then
MSComm1.Output = "VOL0" & VScroll.Value & " " & Chr$(13)

Else
MSComm1.Output = "VOL" & VScroll.Value & " " & Chr$(13)

You may get an error saying the wrong datatype is being used(i can't remember how datatype handling is done in VB either), if that happens(you get something like datatype mismatch error) then look for an integer to string function (IntToStr()) then put VScroll.Value into it.... That's only if the above doesn't work

Cheers,
Jamey

[flyfish29]

Thanks, I have tried something like that....I dimmed a text and tried &'d, but it doesn't seem to work. I got it to work the long way, but I will try figuring it out a shorter way. Otherwise, I will just keep it how I got it. It seems to work well inside a timer with about a sec duration between the values. Thanks