?? one computer through rs232 serial port control units 255 units of the single-chip stepper motor control system.txt
字號:
///////////VB程序///////////
Const READIIC As Byte = &H1
Const WRITEIIC As Byte = &H2
Const RESETIIC As Byte = &H0
Option Explicit
Dim buff(0 To 32) As Byte '緩沖區
Dim filebuff(0 To 255) As Byte '發送文件緩沖區
Dim recebuff(0 To 255) As Byte '接收文件緩沖區
Dim mycount As Integer '計數器
Private Sub Command1_Click()
Me.Enabled = False
mycount = 0
'發送寫命令和數據
buff(0) = WRITEIIC
Dim i As Integer
For i = 1 To 32
buff(i) = filebuff(i - 1)
Next i
Mcom.Output = buff
End Sub
Private Sub Command2_Click()
Me.Enabled = False
'發送讀命令和數據
mycount = 0
buff(0) = READIIC
Mcom.Output = buff
End Sub
Private Sub Command3_Click()
Dim buff() As Byte
Dim i As Integer
Dim str As String
'打開對話框
CD1.InitDir = "c:\"
CD1.ShowOpen
Text3.Text = CD1.FileName
If Len(Text3.Text) = 0 Then Exit Sub
Command1.Enabled = True
'打開文件
Open Text3.Text For Binary As #1
If LOF(1) = 0 Then End
'--------------------------------
If (LOF(1) > 0) And (LOF(1) < 256) Then
ReDim buff(0 To LOF(1)) As Byte
Get 1, , buff()
For i = 0 To LOF(1) - 1
filebuff(i) = buff(i)
Next i
For i = LOF(1) To 255
filebuff(i) = 0
Next i
Else
Get 1, , filebuff()
End If
For i = 0 To 255
If filebuff(i) > 15 Then
str = str & Hex(filebuff(i)) & "H "
Else
str = str & "0" & Hex(filebuff(i)) & "H "
End If
Next i
Text1.Text = str
Close #1
End Sub
Private Sub Form_Load()
If Mcom.PortOpen = False Then Mcom.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Mcom.PortOpen = True Then Mcom.PortOpen = False
End Sub
Private Sub Mcom_OnComm()
Dim str As String
Dim aa As Variant
Dim i As Integer
'接收數據
If Mcom.CommEvent = 2 Then
aa = Mcom.Input
For i = 1 To 32
recebuff(mycount * 32 + i - 1) = aa(i)
Next i
mycount = mycount + 1
If mycount = 8 Then
mycount = 0
For i = 0 To 255
If recebuff(i) > 15 Then
str = str & Hex(recebuff(i)) & "H "
Else
str = str & "0" & Hex(recebuff(i)) & "H "
End If
Next i
Text2.Text = str
Me.Enabled = True
Else
For i = 1 To 32
buff(i) = filebuff(mycount * 32 + i - 1)
Next i
Mcom.Output = buff
End If
End If
End Sub
////////////////////////////////////////////////////////////////////
51單片機端的代碼
//////////////////main.c////////////////////////////
#include"reg51.h"
#include"absacc.h"
#include"stdio.h"
//波特率：4.8K
#define RESETIIC 0
#define READIIC 1
#define WRITEIIC 2
//IIC讀寫函數
extern unsigned char Read24c02_OneByte(unsigned char addr) ;
extern void Write24c02_OneByte(unsigned char addr,unsigned char ddata);
void init();
void send();
unsigned char buff[33]; //串口緩沖區
//數據結構
/*
buff[0]------------------命令：0 復位編程器，1 讀IIC ，2 寫IIC
buff[1]-buff[32]---------數據
*/
unsigned Address=0;
unsigned char flag=0;
void main()
{
unsigned char index;
init();
while(1)
{
while(flag)
{
flag=0;
if(buff[0]==RESETIIC)
{//0 復位編程器
for(index=0;index!=33;index++) buff[index]=0;
Address=0;
}
if(buff[0]==READIIC)
{//1 讀IIC
for(index=1;index!=33;index++) buff[index]=Read24c02_OneByte(Address++);
send();
}
if(buff[0]==WRITEIIC)
{//2 寫IIC
for(index=1;index!=33;index++) Write24c02_OneByte(Address++,buff[index]);
send();
}
}
}
}
void init()
{
unsigned char i;
TMOD=0x20; //Timer1 模式2
TH1=0xF3; //
TL1=0xF3; //
TR1=1; //啟動Timer1
PCON|=0x80; //波特率加倍
SCON=0x50; //設置串口
TI=0;
for(i=0;i!=33;i++) buff[i]=0;
ES=1;
EA=1;
}
void com_isr() interrupt 4
{
unsigned char i;
EA=0;
RI=0;
//接收33個字節
buff[0]=SBUF;
for(i=1;i!=33;i++)
{
while(!RI);RI=0;
buff[i]=SBUF;
}
flag=1;
EA=1;
}
//發送33個字節
void send()
{
unsigned char i;
EA=0;
for(i=0;i!=33;i++)
{
SBUF=buff[i];
while(!TI);TI=0;
}
EA=1;
}
////////////24C02.C////////////////////////
#include "reg51.h"
#include "intrins.h"
#include"51usb.h" //51USB實驗板的頭文件
#define uchar unsigned char
#define uint unsigned char
#define true 1
#define false 0
#define bool bit
#define Byte unsigned char
#define Word unsigned int
#define read 0x80
#define write 0x00
//私有內部函數
#define \
SomeNOP(); \
_nop_();_nop_();_nop_();_nop_();
//私有內部函數
void IICStart(void)
{
EA = 0;
SDA = 1;SCL = 1;SomeNOP();
SDA = 0;SomeNOP();
SCL = 0; SDA = 1;
}
//私有內部函數
void IICStop(void)
{
SCL = 0;SDA = 0;SomeNOP();
SCL = 1;SomeNOP();SDA = 1;
EA = 1;
}
//私有內部函數
void SendAck(void)
{
SDA = 0;SomeNOP();
SCL = 1;SomeNOP();
SCL = 0;
}
//私有內部函數
void SendNotAck(void)
{
SDA = 1;SomeNOP();
SCL = 1;SomeNOP();
SCL = 0;
}
//私有內部函數
void IICSendByte(uchar ch)
{
uchar i = 8;
while(i--)
{
SCL = 0;_nop_();
SDA = (bit)(ch&0x80);ch<<=1;SomeNOP();
SCL = 1;SomeNOP();
}
SCL = 0;
}
//私有內部函數
uchar IICReceiveByte(void)
{
uchar i = 8;
uchar ddata = 0;
SDA = 1;
while(i--)
{
ddata<<=1;
SCL = 0;SomeNOP();
SCL = 1;SomeNOP();
if(SDA)ddata |= 0x01;
}
SCL = 0;
return ddata;
}
//私有內部函數
bool WaitAck(void)
{
SDA = 1;SomeNOP();
SCL = 1;SomeNOP();
while(SDA){IICStart(); IICSendByte(0xa0);SDA = 1;SomeNOP(); SCL = 1;SomeNOP();}
SCL = 0;
return true;
}
//***********************************
//**公有函數，外部接口 **
//***********************************
//寫一個數據
void Write24c02_OneByte(unsigned char addr,unsigned char ddata)
{
IICStart();
IICSendByte(0xa0);
WaitAck();
IICSendByte(addr);
WaitAck();
IICSendByte(ddata);
WaitAck();
IICStop();
SomeNOP();
}
//讀一個數據
unsigned char Read24c02_OneByte(unsigned char addr)
{
uchar temp;
IICStart();
IICSendByte(0xa0); //先寫入地址，設置寫
WaitAck();
IICSendByte(addr);
WaitAck();
IICStart();
IICSendByte(0xa1); //設置讀
WaitAck();
temp = IICReceiveByte();
SendNotAck();
IICStop();
return temp;
}
可通過1臺電腦RS232串口控制255臺步進電機的單片機控制系統！電腦集中控制上位機控制集散型控制燈光控制
JMDM RS232串口控制步進電機最小系統（最簡配置）,可在電腦VB界面在線設定步進電機轉速、圈數、停頓時間等參數的RS232串口控制步進電機系統?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -