上位机（VB6.0）与下位机（STM32）通过USB接口通讯

Jewen_he

您好LZ，请问下，我是用VB6.0做上位机，STM32做下位机。通过上位机VB发送一个指令，下位机(STM32)收到后，执行对应的命令，这是怎么实现的，例如STM32点亮8个LED发光二极管！从VB中发送出来
地址 &H00，&H01，&H02，&H03，&H04，&H05，&H06，&H07
电平 1        1        1      1         1       1       1        1
对应下位机
灯的状况  
LED0  LED1  LED2   LED3   LED4   LED5   LED6   LED7
亮     亮   亮    亮     亮    亮    亮     亮

dddg

搞什么？  通信通没通？没通说个P先搞通再说，通了说个p随便怎么定义。


测试直接回帖。

Jewen_he

dddg 发表于 2012-8-23 15:03
搞什么？  通信通没通？没通说个P先搞通再说，通了说个p随便怎么定义。

多谢您，上位机的程序是：
Public Const stopX = &H0
Public Const moveX = &H1
Public Const JogPX = &H2
Public Const JogNX = &H3
Public Const PosX = &H4

Public Const stopY = &H10
Public Const moveY = &H11
Public Const JogPY = &H12
Public Const JogNY = &H13
Public Const PosY = &H14

Public Const moveC = &HB0
Public Const moveN = &HB1
Public Const SetPWM = &HC0
Public Const SetIO = &HC1
Public Const SetRERX = &HC2  
Public Const SetRERY = &HC3  
Public Const SetSonX = &HC4
Public Const SetSonY = &HC5
Public Const RstFLG = &HC6
Public Const SetHdrFlg = &HC7

Public Sub RegSetIO(ByVal port As Byte, ByVal status As Byte)
    Dim sbuf(3) As Byte
   
    sbuf(0) = SetIO  
    sbuf(1) = port
    sbuf(2) = status     
    frmMain.MSComm1.Output = sbuf
End Sub

Private Sub cmdHdrGo_Click()  
    fraPass.Visible = False
    If HeadUp = True Then
        HeadUp = False
        RegSetIO 9, 0 'A
        RegSetIO 10, 0 'B
        RegSetIO 11, 0 'C
        RegSetIO 12, 0 'D
    Else
        HeadUp = True
        If chkHeaderA.Value Then RegSetIO 9, 1  'A
        If chkHeaderB.Value Then RegSetIO 10, 1 'B
        If chkHeaderC.Value Then RegSetIO 11, 1 'C
        If chkHeaderD.Value Then RegSetIO 12, 1 'D
    End If
End Sub


下位机的程序


void Set_IO(unsigned char index,unsigned char sbit)
{         switch(index)
        {       
        case 1:
                GPIO_WriteBit(GPIOA,GPIO_Pin_4,sbit);
                break;
        case 2:
                GPIO_WriteBit(GPIOA,GPIO_Pin_5,sbit);
                break;
        case 3:
                GPIO_WriteBit(GPIOA,GPIO_Pin_6,sbit);
                break;
        case 4:
                   GPIO_WriteBit(GPIOA,GPIO_Pin_7,sbit);
                break;
        case 5:
                GPIO_WriteBit(GPIOB,GPIO_Pin_0,sbit);
                break;
        case 6:
                GPIO_WriteBit(GPIOB,GPIO_Pin_1,sbit);
                break;
        case 7:
                GPIO_WriteBit(GPIOB,GPIO_Pin_6,sbit);
                break;
        case 8:
                   GPIO_WriteBit(GPIOB,GPIO_Pin_7,sbit);
                break;
        case 10:        case 9:
                GPIO_WriteBit(GPIOB,GPIO_Pin_8,sbit);
                break;

                GPIO_WriteBit(GPIOB,GPIO_Pin_9,sbit);
                break;
        case 11:
                GPIO_WriteBit(GPIOB,GPIO_Pin_10,sbit);
                break;
        case 12:
                   GPIO_WriteBit(GPIOB,GPIO_Pin_11,sbit);
                break;
        case 13:
                GPIO_WriteBit(GPIOB,GPIO_Pin_12,sbit);
                break;
        case 14:
                GPIO_WriteBit(GPIOB,GPIO_Pin_13,sbit);
                break;
        case 15:
                GPIO_WriteBit(GPIOB,GPIO_Pin_14,sbit);
                break;
        case 16:
          GPIO_WriteBit(GPIOB,GPIO_Pin_15,sbit);
                break;
        case 17:
          GPIO_WriteBit(GPIOA,GPIO_Pin_8,sbit);
                if(sbit) srdX.error_code &=0xBF;
                break;
        case 18:
                GPIO_WriteBit(GPIOA,GPIO_Pin_9,sbit);
                if(sbit) srdY.error_code &=0xBF;
                break;                               
        }
}


比如我现在VB中发送到下位机 执行 RegSetIO 9, 1
然后对应下位机         case 9:
                GPIO_WriteBit(GPIOB,GPIO_Pin_8,sbit);
                break;
得到PB8端口输出的发光二极管被点亮
反之执行 RegSetIO 9, 0
发光二极管熄灭

我要是把Public Const SetIO = &HC1改成  Public Const SetIO = &HC9或是其他任意值
就得不到上述的结果
这个程序是以前的前辈留下来
我现在的疑问是上位机发送一个指令，在下位机收到后
是怎么执行的（控制发光二极管的亮或灭）
小弟是新手，刚刚接触，搞了好多天，望您指教，多谢多谢！着急啊，闷了好久

mxh0506

如果你想继续用MSComm控件，又要用USB，考虑在STM32上实现虚拟串口吧。通过USB虚拟出的串口比物理串口快多了。

Jewen_he

mxh0506 发表于 2012-8-26 23:36
如果你想继续用MSComm控件，又要用USB，考虑在STM32上实现虚拟串口吧。通过USB虚拟出的串口比物理串口快多了 ...

多谢多谢！问题已经解决了，闷了好几天！多谢大家的鼎力相助

fangmengxing

edaboy

VB不太好弄底层的东东，只好虚拟通用设备了，比如串口，磁盘，HID等