VB做的上位机，出错了，请帮助一下，在线等待【恢复】

fandebin

这是我写的单片机的程序：

#include<reg52.h>

char c='8';

sbit P1_0=P1^0;

void com_initialize(void)

{ 

 



  TMOD |=0x20;   //设置定时器T/C1工作在方式2,定时1工作于自动重载模式

  SCON=0x50;     //设置串行口工作方式1：SCON格式 |M0|M1|M2|REN|TB8|RB8|TI|RI

  TH1=0xfd;      //波特率9600

  TL1=0xfd;

  TR1=1;  

  ET1=1;       //启动定时器

  ES=1;                //开串行口中断

  EA=1;

} 

void stop() interrupt 4

{

        

        if(RI==1)

        {

                c=SBUF;

                RI=0;

                

        }

}   



void main()

{

        

        com_initialize();

        P1=0xff;

        while(1)

        {

                if(c!='8') 

                {        switch(c)

                        {

                        case '1': 

                                P1_0=0;break;

                        case '2':

                                P1_0=1;break;

                                

                        }

                }



        }

        

}

  

cboy12345

我用的是文本形式发送的，9楼的看我写的程序了没，我那个mscomm.output='1'这样写对吗？

如果发“１”,单片机收到的是49,‘１’我没试过。前段时间正好做过遇到跟你一样的问题，后来用串口调试试了下，你发的字符，单片机收到的是你发的字符的ASCII码值。

dingwei

14楼应该是对的



我的程序中这样是可以的



Private Sub Command5_Click()

Dim p_mid As Single

Dim temp_str(2) As Byte

Dim buffer As Variant

If sw Then

    If (Text3.Text = "" And Text4.Text = "") Or (Text3.Text = "" And Text4.Text <> "") Then

         ret = MsgBox("请先输入测试数据", 64, "出错了")

        Text3.SetFocus

    Else

        p_mid = ((Str(Text3.Text)) / P_DEF) * 255

        temp_str(0) = CByte(p_mid)    'P 发送的时候先发送数组下标小的那个

        temp_str(1) = CByte(&H11)

        temp_str(2) = CByte(temp_str(0)) Xor CByte(temp_str(1))

        '"&h" & hex(str(60))    连接生成十六进制格式

        S_DATA_X = Str(Text3.Text)

        buffer = temp_str     '经chr转换后的数据已经是字符代表的 Ascii码值,如97就是代表 a

        MSComm1.Output = buffer

    End If

Else

    ret = MsgBox("请先打开串口", 64, "出错了")

End If

End Sub

dszx

看一看如果用串口调试助手看到接收的是31，那么看一下你的单片机程序里判断接收到的比较值是否也是0x31，如下面开关语句：

switch (q)

  {

  case 0x31: PORTB.1=1; break;//二极管亮

  case 0x32: PORTB.1=0; break;//二极管灭

  default: break;

  ｝

上面的0x32对应VB程序里的MSComm1.Output="2"

如果采用以下VB写法：

Dim j(0) As Byte

－－－－－－－－－－－－－－－－－－

j(0) = &H1             '发十六进制hex数

MSComm1.Output = j

那么单片机程序只要象识别其他十六进制数一样把串口读来二进制判别－控制，比较直观。

pldjn

看了下你的VB代码,好你发的不是mscomm.output='1'而是 MSComm1.Output = "1" 

zxq6

1.确定是否vb已经将你需要的东西发送出去了？

2.确定vb发送的东西是你需要的东西？

3.确定单片机已经收到了你发送过来的东西？

4.确定你单片机接收到的东西以及处理的东西和你发的东西一样？（比如别吧‘1’，搞成了1）

5.检查其他乱七八糟的东西，比如比特率，连线，RP值等，呵呵。。。

pldjn

看了你的单片机是文本的,应该没错,你还是先用串口调试调通了再用VB做上位机试下.

fandebin

我用的是文本形式发送的，9楼的看我写的程序了没，我那个mscomm.output='1'这样写对吗？

pldjn

用串口调试助手试下,VB发的时候,是用二进制发的吗.发的数据如果是二进制的话是需要通过数组发出去的.

fandebin

波特率也没错

fandebin

就是我想让P1_0亮，但是没有反应

dxjk

上下位的波特率对吗

zxq6

你应该描述下出了啥样的错误，你让大家读你的代码，然后揣测出了啥错误，然后根据这个揣测来告诉你如何解决？

简直跟猜谜一般。

fandebin

vb用的网上下的，请作者不要介意

fandebin

Private Sub Combo1_Change()

Dim i As Byte

If MSComm1.PortOpen = True Then

  MSComm1.PortOpen = False

  i = 1

Else

  i = 2

End If

MSComm1.CommPort = Combo1.Text

If i = 1 Then

  MSComm1.PortOpen = True

Else

End If

End Sub



Private Sub Combo1_Click()

Dim i As Byte

If MSComm1.PortOpen = True Then

  MSComm1.PortOpen = False

  i = 1

Else

  i = 2

End If

MSComm1.CommPort = Combo1.Text

If i = 1 Then

  MSComm1.PortOpen = True

Else

End If



End Sub





Private Sub Command1_Click() '（第１个二极管）按钮单击事件

If MSComm1.PortOpen = False Then

  Label1.Caption = "您的串口现在是关闭状态,请先打开串口"

Else

  Label1.Caption = ""

  If Shape1.BackColor = &H808080 Then

    Shape1.BackColor = &HC000&

    Command1.Caption = "关"

    MSComm1.Output = "1"

  Else

    Shape1.BackColor = &H808080

    Command1.Caption = "开"

    MSComm1.Output = "2"

  End If

End If



End Sub



Private Sub Command2_Click() '（第２个二极管）按钮单击事件

If MSComm1.PortOpen = False Then

  Label1.Caption = "您的串口现在是关闭状态,请先打开串口"

Else

  Label1.Caption = ""

  If Shape2.BackColor = &H808080 Then

    Shape2.BackColor = &HC000&

    Command2.Caption = "关"

    MSComm1.Output = "3"

  Else

    Shape2.BackColor = &H808080

    Command2.Caption = "开"

    MSComm1.Output = "4"

  End If

End If



End Sub



Private Sub Command3_Click() '（第３个二极管）按钮单击事件

If MSComm1.PortOpen = False Then

  Label1.Caption = "您的串口现在是关闭状态,请先打开串口"

Else

  Label1.Caption = ""

  If Shape3.BackColor = &H808080 Then

    Shape3.BackColor = &H80FF&

    Command3.Caption = "关"

    MSComm1.Output = "5"

  Else

    Shape3.BackColor = &H808080

    Command3.Caption = "开"

    MSComm1.Output = "6"

  End If

End If



End Sub



Private Sub Command4_Click() '（第４个二极管）按钮单击事件

If MSComm1.PortOpen = False Then

  Label1.Caption = "您的串口现在是关闭状态,请先打开串口"

Else

  Label1.Caption = ""

  If Shape4.BackColor = &H808080 Then

    Shape4.BackColor = &HFF0000

    Command4.Caption = "关"

    MSComm1.Output = "7"

  Else

    Shape4.BackColor = &H808080

    Command4.Caption = "开"

    MSComm1.Output = "8"

  End If

End If



End Sub



Private Sub Command6_Click() '（设置串口的端口号）按钮单击事件

If MSComm1.PortOpen = True Then

  MSComm1.PortOpen = False

Else

End If

MSComm1.CommPort = Text2.Text

MSComm1.PortOpen = True



End Sub



Private Sub Form_Load() '初始化

MSComm1.CommPort = Combo1.Text

MSComm1.Settings = "19200,n,8,1"

If MSComm1.PortOpen = True Then

  MSComm1.PortOpen = False

Else

End If

Command5.Caption = "打开"

Label2.Caption = "关"

Label2.ForeColor = &HFF&

End Sub





Private Sub Command5_Click() '（控制串口的开与关）按钮单击事件

If MSComm1.PortOpen = True Then

  Command5.Caption = "打开"

  MSComm1.PortOpen = False

  Label2.Caption = "关"

  Label2.ForeColor = &HFF&

Else

  Command5.Caption = "关闭"

  MSComm1.PortOpen = True

  Label2.Caption = "开"

  Label2.ForeColor = &H8000&

End If



End Sub



Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)



End Sub

fandebin

如果有必要的话，我可以把VB程序也发一下

fandebin

我就想通过VB做的上位机，通过PC发送一个字符节1然后，一个led亮，VB程序中我是这样写的 MSComm1.Output = "1"