Send &H1C to Com port1 (vb.net)

Fly_Fish

我要send Field Seporator (&H1C) by byte to com port1,
vb.net 把它变成“28”.
有没有方法不要变成“28”. want in "1C"
example

02 00 97 36 30 30 30 30 30 30 30 30 30 31 30 45 32 30 30 30 28

to

02 00 97 36 30 30 30 30 30 30 30 30 30 31 30 45 32 30 30 30 1C

flashang

你是要全部用 hex 還是 dec 還是 ascii ?
弄清楚了，把你的資料轉換去一個格式，例如全部用 HEX （1c HEX = 28 Dec ）
不就可以了？

格雷兔

你的field separator character 是怎样放进去你的buffer里面 ?

Fly_Fish

格雷兔 发表于 11-1-2013 08:51 PM
你的field separator character 是怎样放进去你的buffer里面 ?

field separator 我放 &H1C
example

Dim sendBytes() As Byte = {&H2, Hex(0), Hex(0),......&H1c.....}

我不知道对还是不对。。


老板要的是

sample :

02 0097 36 30 30 30 30 30 30 30 30 30 31 30 45 32 30 30 30 1c 46 30 00 04 5a 32 3030 1c 46 36 00 16 30 30 30 30 30 30 30 30 30 30 33 34 35 36 32 31 1c 31 36 0008 31 31 31 31 32 32 32 32 1c 46 37 00 12 30 30 30 30 30 30 30 30 30 31 30 301c 46 33 00 14 32 30 31 33 30 31 31 31 31 35 31 35 30 32 1c 03

1c=field separator
02=STX
03=ETX

send to com port 1

我的office没人会。。。。。

Fly_Fish

flashang 发表于 11-1-2013 04:14 PM
你是要全部用 hex 還是 dec 還是 ascii ?
弄清楚了，把你的資料轉換去一個格式，例如全部用 HEX （1c HEX  ...

STX，ETX，field seperator must HEX

其他可以用ASCii

格雷兔

Fly_Fish 发表于 11-1-2013 09:13 PM
field separator 我放 &H1C
example

&H1c 已经是hex code 1C, 应该是没有问题了的。

Fly_Fish

格雷兔 发表于 11-1-2013 09:23 PM
&H1c 已经是hex code 1C, 应该是没有问题了的。

问题是 result 是 “28" 不是”1C“

flashang

Fly_Fish 发表于 11-1-2013 09:30 PM
问题是 result 是 “28" 不是”1C“

问题怪怪的，
什么叫做 result 不是 1C ？

把问题整理清楚，用比较清楚的方式问吧。

如果你是说 send 出去之后 return 回来的 data 不对，
看看 hardware reference / programming guide
不同的机器当然会不一样。

格雷兔

Fly_Fish 发表于 11-1-2013 09:30 PM
问题是 result 是 “28" 不是”1C“

介意让我知道你是如何知道result是28吗？如果你是 log send buffer data的话，你 display 的 format.是什么？

Fly_Fish

格雷兔 发表于 12-1-2013 12:45 AM
介意让我知道你是如何知道result是28吗？如果你是 log send buffer data的话，你 display 的 format.是 ...

问题解结了，格雷兔你对了，display textbox problem,

但是谁会帮我Calcualate LRC 呢？

LRC  =This Character is Calculated by Exclusive OR-ing each character following (But not including) the STX up to (and including) the ETX

My source code :

sport.open()

Dim sendBytes() As Byte = {&H2, Hex(0), &H97, Asc(Mid(TempHeader, 1, 1)), Asc(Mid(TempHeader, 2, 1)),.....,......&H3}

sPort.Write(sendBytes, 0, 102)


&H3(ETX) 后要加LRC

谁会LRC Calculation???

flashang

Fly_Fish 发表于 5-2-2013 03:10 PM
问题解结了，格雷兔你对了，display textbox problem,

但是谁会帮我Calcualate LRC 呢？

1. 02 0097 36 30 30 30 30 30 30 30 30 30 31 30 45 32 30 30 30 1c 46 30 00 04 5a 32 3030 1c 46 36 00 16 30 30 30 30 30 30 30 30 30 30 33 34 35 36 32 31 1c 31 36 0008 31 31 31 31 32 32 32 32 1c 46 37 00 12 30 30 30 30 30 30 30 30 30 31 30 301c 46 33 00 14 32 30 31 33 30 31 31 31 31 35 31 35 30 32 1c 03

复制代码

就是从 00， 97， 36， 30， ....
一直 XOR 到 最后的 03 啊。。。

armani_wong

谢谢LZ分享

armani_wong

谢谢LZ分享

求救孤星

好奇问一下，是不是信用卡的读卡机？

格雷兔

求救孤星 发表于 3-3-2013 02:55 AM
好奇问一下，是不是信用卡的读卡机？

我也很好奇想知道，