VB Help

[cncmachineguy]

Ok, different question. How do I put 2 received bytes back together to make 1 word?

[gadelhas]

Ok, different question. How do I put 2 received bytes back together to make 1 word?

Tell me one thing first, what is the type of you variable where you receive the data from PIC, Integer, String....

[mister_e]

Like you did have to be fine.
WordOut=(MSByte*256)+LSByte

[gadelhas]

Like you did have to be fine.
WordOut=(MSByte*256)+LSByte

That should work;

But if you are showing this result to a textbox you should do
this:
WordOut=(MSByte*256)+LSByte
czhb.Text=WordOut.ToString

Maybe it is not your problem, but you should do this!

[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)