步进电机上位机控制 VB.doc

附录1 PC机控制界面设计程序 Public zhuanxiang As String Private Sub Combo1_Change() Combo1.ListIndex = 0 End Sub Private Sub Command1_Click() If Command1.Caption = 启动 Then MSComm1.Settings = 2400,n,8,1 MSComm1.CommPort = Combo1.ListIndex + 1 MSComm1.PortOpen = True Command1.Caption = 停止 MSComm1.Output = F 停机 MSComm1.InputMode = comInputModeBinary MSComm1.InputLen = 0 Else Command1.Caption = 启动 MSComm1.Output = E 开机 MSComm1.PortOpen = False End If End Sub Private Sub Command2_Click() End End Sub Private Sub DOWN_Click() MSComm1.Output = D 减速 End Sub Private Sub LEFT_Click() MSComm1.Output = B 左转，left zhuanxiang = 正转 Text3.Text = zhuanxiang End Sub Private Sub RIGHT_Click() MSComm1.Output = A 右转,right zhuanxiang = 反转 Text3.Text = zhuanxiang End Sub Private Sub Timer1_Timer() Dim speed As Variant Dim indate As Byte If MSComm1.InBufferCount 0 Then speed = MSComm1.Input indate = AscB(speed) Text1.Text = indate End If End Sub Private Sub UP_Click() MSComm1.Output = C 加速 End Sub 附录2 下位机控制程序 #ifndef __INIT2_H__ #define __INIT2_H__ #include c8051f340.h #include design4.h void delayms(uchar k); void delayus(uchar k); void DateIN595(uchar date); void init_btlv(); #endif #include c8051f340.h #include design4.h #include init.h extern uint HZ; //延时程序约为0.5ms void delayms(uchar k) { uchar i,j; for(i=k;i0;i--) for(j=110;j0;j--); } //延时程序约为4us void delayus(uchar k) { while (k--) { NOP; NOP; NOP; } } //配置c8051寄存器，p为推挽输出 //p2.4. 6 7为推挽出 //初始化波特率发生器：定时器1，工作在 //模式2，波特率为9600 void init_btlv() { //初始化系统时钟 //内部高频振荡器使能，系统时钟为内部高频振荡器输出（不分频） REG0CN=0X00; OSCICN |= 0x83; //不分频，实用内部12M晶振，系统时钟为12M OSCICL=0X00; //内部晶振工作在最高频 OSCXCN=0X00; //禁止内部L-F振荡 OSCXCN=0X00; //关闭外部振荡器 SCON0=0X50;//配置UART0控制寄存器，8位数据，允许接收 TMOD=0X21; //定时器1工作在方式2 TH1= 256-2400/24); //定时器1为12MHZ，12分频， TI0=0; // CKCON=0X00; //定时器1用系统时钟12分频作为它的时基 // REN=1; TH0=(65536-HZ)/256; //定时1000um产生一次中断 TL0=(65536-HZ)%256; // TR0