上位機（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等