作者acrabbit (有为大学森)
看板Visual_Basic
标题[问题]程式设计
时间Tue Jan 30 13:31:22 2007
我现在有2个snesor ,等於就是有2笔资料,CD4067做为区隔,且用一条232传资料进pc...
处理器89C51程式,以及16转10进位都ok了,可是VB我遇到很大的问题,这2笔资料要怎样接
收进来,且放置到2个不同的Label?
以下是我的程式
Dim buf1 as string
Dim buf2 as string
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent '
Case comEvReceive
buf1 = MSComm1.Input
label1.caption = Left((hex_dec(buf1$) / 51), 4) '将16进位转换成10进位,
并转换成0-5V,
buf2=MSComm1.Input
label1.caption = Left((hex_dec(buf2$) / 51), 4)
end Select
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.134.32.140