VB Help

[cncmachineguy]

Well not saying its is the best way by any means, but this seems to work:

Dim i AsInteger
Dim t AsUShort
Dim datain AsByte
Dim data(20) AsByte
Dim sign AsString

 
t = (data(0) * 256) + data(1)
If t > 32767 Then
  t = (Not t) + 1
  sign = "-"
Else : sign = " "
EndIf
gxhb.Text = sign & t.ToString

Thanks for the help guys, for now this will cover my needs

[gadelhas]

Well not saying its is the best way by any means, but this seems to work:

Dim i AsInteger
Dim t AsUShort
Dim datain AsByte
Dim data(20) AsByte
Dim sign AsString

 
t = (data(0) * 256) + data(1)
If t > 32767 Then
t = (Not t) + 1
sign = "-"
Else : sign = " "
EndIf
gxhb.Text = sign & t.ToString

Thanks for the help guys, for now this will cover my needs

Yeh, that works, and if it works...GooD

[cncmachineguy]

Seems like it should be much easier.

[mister_e]

yeah but where would be the fun

[cncmachineguy]

Well I guess it would be a little better if that snippet was a sub routine, or function, or module, or object. See, I don't even know what it should be.

To me a sub-routine. I want to call it with values in data1 and data2. it should return with a string in wordout.

But that is just a little above my pay grade right now.

[mister_e]

Once you feel you're ready, have a look at this
http://msdn.microsoft.com/en-us/libr...=vs.80%29.aspx

Then you could use something like
txtResult.txt = ConvertWordToSignedString (WordVariable)

[cncmachineguy]

Hot Dog!! Thanks again, I feel proud

new function:

PublicFunction CreateSWord(ByVal data1 AsByte, ByVal data2 AsByte) AsString
  Dim t AsUShort
  Dim sign AsString

     t = (data1 * 256) + data2
     If t > 32767 Then
        t = (Not t) + 1
        sign = "-"
     Else
        sign = " "
     EndIf
Return (sign & t.ToString)
EndFunction

And how to get there:

gxhb.Text = CreateSWord(data(0), data(1))
gyhb.Text = CreateSWord(data(2), data(3))
gzhb.Text = CreateSWord(data(4), data(5))
axhb.Text = CreateSWord(data(6), data(7))
ayhb.Text = CreateSWord(data(8), data(9))
azhb.Text = CreateSWord(data(10), data(11))
cxhb.Text = CreateSWord(data(12), data(13))
cyhb.Text = CreateSWord(data(14), data(15))
czhb.Text = CreateSWord(data(16), data(17))

[mister_e]

See how easy it is now huh?

Well done!