国产毛片a精品毛-国产毛片黄片-国产毛片久久国产-国产毛片久久精品-青娱乐极品在线-青娱乐精品

電子工程網(wǎng)

標題: 上位機（VB6.0）與下位機（STM32）通過USB接口通訊 [打印本頁]

作者: Jewen_he 時間: 2012-8-23 14:38
標題: 上位機（VB6.0）與下位機（STM32）通過USB接口通訊
您好LZ，請問下，我是用VB6.0做上位機，STM32做下位機。通過上位機VB發(fā)送一個指令，下位機(STM32)收到后，執(zhí)行對應(yīng)的命令，這是怎么實現(xiàn)的，例如STM32點亮8個LED發(fā)光二極管！從VB中發(fā)送出來
地址 &H00，&H01，&H02，&H03，&H04，&H05，&H06，&H07
電平 1       1       1    1       1    1    1       1
對應(yīng)下位機
燈的狀況
LED0  LED1  LED2 LED3 LED4 LED5 LED6 LED7
亮    亮亮亮    亮亮亮    亮

作者: dddg 時間: 2012-8-23 15:03
搞什么？通信通沒通？沒通說個P先搞通再說，通了說個p隨便怎么定義。

測試直接回帖。

作者: Jewen_he 時間: 2012-8-24 09:09

dddg 發(fā)表于 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;
}
}

比如我現(xiàn)在VB中發(fā)送到下位機執(zhí)行 RegSetIO 9, 1
然后對應(yīng)下位機 case 9:
GPIO_WriteBit(GPIOB,GPIO_Pin_8,sbit);
break;
得到PB8端口輸出的發(fā)光二極管被點亮
反之執(zhí)行 RegSetIO 9, 0
發(fā)光二極管熄滅

我要是把Public Const SetIO = &HC1改成  Public Const SetIO = &HC9或是其他任意值
就得不到上述的結(jié)果
這個程序是以前的前輩留下來
我現(xiàn)在的疑問是上位機發(fā)送一個指令，在下位機收到后
是怎么執(zhí)行的（控制發(fā)光二極管的亮或滅）
小弟是新手，剛剛接觸，搞了好多天，望您指教，多謝多謝！著急啊，悶了好久

作者: mxh0506 時間: 2012-8-26 23:36
如果你想繼續(xù)用MSComm控件，又要用USB，考慮在STM32上實現(xiàn)虛擬串口吧。通過USB虛擬出的串口比物理串口快多了。

作者: Jewen_he 時間: 2012-8-31 08:12

mxh0506 發(fā)表于 2012-8-26 23:36
如果你想繼續(xù)用MSComm控件，又要用USB，考慮在STM32上實現(xiàn)虛擬串口吧。通過USB虛擬出的串口比物理串口快多了 ...

多謝多謝！問題已經(jīng)解決了，悶了好幾天！多謝大家的鼎力相助

作者: fangmengxing 時間: 2013-1-11 17:07

作者: edaboy 時間: 2013-1-24 08:41
VB不太好弄底層的東東，只好虛擬通用設(shè)備了，比如串口，磁盤，HID等

歡迎光臨電子工程網(wǎng) (http://www.qingdxww.cn/)