[VB6 ] MScomm資料傳收
之前有請教過大大板上大大,但一直無法順利傳送,
我只是想藉由MSCOMM物件讓A電腦傳訊息給B電腦,
以下是我的程式碼
(1) 傳送端
private sub formsend_load()
if(mscomm1.portopen=true) then mscomm1.portopen=false
mscomm1.commport=1
mscomm1.settings="9600,n,8,1"
mscomm1.inputLen= 0
if(mscomm1.portopen=false) then mscomm1.portopen=true
text1=""
end sub
private sub cmdstar_click()
mscomm1.output=text1.text
text1.text="傳送成功"
end sub
private sub cmdend_click()
if(mscomm1.portopen=true) then mscomm1.portopen=false
end
end sub
(2) 接收端
option explicit
dim baffer$
private sub cmdreceive_click()
mscomm1.commport=1
mscomm1.settings="9600,n,8,1"
mscomm1.inputLen= 0
if(mscomm1.portopen=false) then mscomm1.portopen=true
timer1.enabled=true
end sub
private sub timer1_timer()
buffer=buffer+mscomm1.input
text1.text=text1.text+buffer
end sub
private sub formreceive_load()
buffer=""
text1.text=""
timer1.interval=10
end sub
private sub cmdend_click()
if(mscomm1.portopen=true) then mscomm1.portopen=false
end
我兩邊commport是設1,用RS232母-母接頭把電腦給接起來,
弄了很久一直無法順利接收訊息,請大大給我一點指點,
大恩不言謝<(_ _)>
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.127.112.148
推
02/24 00:38, , 1F
02/24 00:38, 1F
→
02/24 09:50, , 2F
02/24 09:50, 2F
→
02/24 16:02, , 3F
02/24 16:02, 3F