將串口控制元件？
是不是這樣的？在VB開頭定義這樣兩個常量
Const S = 0
Const M = 1
如果是的話，我在做上位機和多下位機通信的問題，然后有下面這段程式
If (hk(0) = addr(0)) Then
MSComm1.Settings = "9600,S,8,1"
MSComm1.Output = command
MsgBox "握手成功"
Print S
End If
這段程式是將資料發給下位機，但是我在下位機RB8中看到還始終是1，請問哪位高手幫幫忙！
uj5u.com熱心網友回復：
應該不會。MSComm 的 Settings 屬性中，parity 設定如下：
Setting Description
E Even
M Mark
N (Default) None
O Odd
S Space
If you use MARK parity, then the bit after the data word is a logical 1.
If you use SPACE parity, then the bit after the data word is a logical 0.
另外，我們向 MSComm 的 Settings 屬性時傳輸的是一個字串。你的常數 S，/M 已經后面的列印陳述句都沒有意義。
uj5u.com熱心網友回復：
對了，如果你是中途更改 Seetings 屬性，需要先關閉串口，再設定，再打開，才會生效。會比較慢。不妨用 API 來控制。或者用 VC++ 寫一個 DLL。我早先做 RS485 的時候，就是用 DLL 中的 API 來控制。快一些。
uj5u.com熱心網友回復：
Private Sub Form_Load()Form1.Show
Form3.Hide
Combo1.ListIndex = 0
Combo2.ListIndex = 0
MSComm1.InputMode = comInputModeBinary
MSComm1.Settings = "9600,M,8,1"
addr = Array(&H1, &H2)
command(0) = &H0
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive ' 收到 RThreshold # ofchars.
xv: Dim hk As Variant
hk = MSComm1.Input
If (hk(0) = addr(0)) Then
MSComm1.PortOpen = False
MSComm1.Settings = "9600,S,8,1"
MSComm1.PortOpen = True
MSComm1.Output = command
MsgBox "握手成功"
Print S
End If
If hk(0) = &HFA Then '通道0的開始標志位
z_start = True
ovt = 0
End If
If hk(0) = &HFB Then '通道0的結束標志位
z_start = False
Text1.Text = in_data(1) & in_data(2) & "." & in_data(3)
End If
If z_start = True Then
in_data(ovt) = hk(0)
ovt = ovt + 1
End If
'第1通道資料接受與處理
If hk(0) = &HFC Then '通道0的開始標志位
t_z_start = True
t_ovt = 0
End If
If hk(0) = &HFD Then '通道0的結束標志位
t_z_start = False
Text2.Text = t_in_data(1) & t_in_data(2) & "." & t_in_data(3)
End If
If t_z_start = True Then
t_in_data(t_ovt) = hk(0)
t_ovt = t_ovt + 1
End If
If MSComm1.InBufferCount <> 0 Then
GoTo xv
End If
End Select
我按照您說的方法試了還是不行，我是通過上位機發送命令給下位機采集溫濕度資料，首先發送地址給下位機，下位機收到地址后回發地址給上位機表示應答，然后上位機收到地址后跟之前發的地址對比，若一樣即If (hk(0) = addr(0)) 則發送采集溫濕度的命令0x00，此時發送的的是資料，所以必須定義setting中奇偶校驗位為0，我很特地用print S 列印出來確實是0，但是下位機接收的RB8位始終為1 ，下位機代碼如下,請各位大俠幫忙分析分析
void Serial_Int(void) interrupt 4
{
RI=0;//接受到上位機傳來的地址幀時RI會自動置1，所以先清零
ES=0; //暫時不接受資料，建立一對一通信
if(SBUF!=Local_addr)
ES=1; //若非本機地址，繼續地址監聽 第一步：接受主機發來的地址(SM2=1)
else
{
SM2=0;//取消地址監聽，可以接受資料幀
SBUF=Local_addr;//從機地址回發
while(TI!=1); TI=0; //從機地址發出去 第二步：回發應答信號
while(RI!=0); RI=0;//因為前面已經將RI置0
/*對接受到的資料進行分析判斷*/
if(RB8==1)
{ LED=0;SM2=1;ES=1;}//復位信號，恢復地址監聽
else
{
command=SBUF;//接受命令 第三步：接受主機發來采集溫濕度信號的命令
if(command==ReadTH)
{
send_data();
} //發送的資料為6個位元組，注意此時ES=0，所以對本中斷不影響
//第四步：發送溫濕度資料
SM2=1;ES=1;//恢復地址監聽
}
}
我在這里面定義了LED，但是LED就是亮...
uj5u.com熱心網友回復：
串口中總是DCD、DSR變成紅色，請問這是什么問題
uj5u.com熱心網友回復：
1. even 每個位元組傳送整個程序中bit為1的個數是偶數個（校驗位調整個數）2. odd 每個位元組穿送整個程序中bit為1的個數是奇數個（校驗位調整個數）
3. noparity沒有校驗位
4. space 校驗位總為0
5. mark 校驗位總為1
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93899.html
標籤：控件
上一篇：vb制作基礎聊天的視窗 一個輸入框 一個輸出框 如何輸出能看到不同字體的效果
下一篇：VB6.0編譯出錯，求大神