目前要寫一利用Rs-232讀取一長串Binary格式之數字,但讀取出來的數值與顯示出來的數值無法吻合,我己把要讀取的Binary格式存為File,如有各位前輩願幫小弟的忙,深存感激,謝謝.小弟會將此File mail給各位前輩.(兩台電腦,一台送Binary格式,一台接收並寫入資料庫)
程式如下:
Dim byteChr() as Byte
dim iAscCode as Integer
Open FileName For Binary Access Read as #1
Do While EOF(1)
byteChr = Input(1,#1)
  iAscCode = Asc(byteChr)
  '假設Binary的數值是1,轉出時希望也是1
  '此部份小弟不是很懂,請告知,謝謝...
loop
Close #1
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()