小弟想用BCB6.0..PRINTER 8255卡和STP5步进马达控制器..控制两个六线马达..但是BCB程式跑到一半出现一个错误..小弟不知道是不是OBJ档案问题..但是有在资料夹内..恳请大大帮忙..谢谢..以下是程式码和错误..还有再请教一个问题..因为小弟有参考一本书的内容..在第六航位什么还要在定义PPI_PA...位什么不能括号里面输入位址就好呢??小弟因初学什么都不懂..还请高手指教
小弟作业系统是xp.听人说XP下不能用outportb()..那要如何修改呢??若要另外下载控件应如何使用.需要再修改内容吗??
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
#include "ioport.hpp" //载入 ioport.hpp
#define PPI_PA 0x10
#define PPI_CW 0x13
int i=0;
char step[4]={0x0c,0x09,0x03,0x06}; //步进马达两相激磁信号
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
outportb( PPI_CW, 0x80 );
outportb( PPI_PA, 0x0f ); //经 A 埠送出可令线圈消磁的信号 0FH
Timer1->Enabled = false; }
//---------------------------------------------------------------------------
void __fastcall TForm1::StartClick(TObject *Sender)
{
Timer1->Enabled = true; //启动计时器
Timer1->Interval = 500; //设定延迟时间为 500ms = 0.5 秒
Start->Enabled = false; //禁能开始钮
End->Enabled = false; //禁能结束钮
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StopClick(TObject *Sender)
{
Start->Enabled = true; //致能开始钮
End->Enabled = true; //致能结束钮
Timer1->Enabled = false; //令计时器无法启动
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EndClick(TObject *Sender)
{
outportb( PPI_PA, 0x0f ); //经 A 埠送出可令线圈消磁的信号 0FH
Close(); //关闭程式
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
outportb(PPI_PA,step[i]); //经由 A 埠送出可令步进马达正转的激磁信号
i++; //i = i+1 指向下一激磁信号
if (i > 3) //若为最后一个激磁信号, 则
{
i = 0; //令 i = 0 指向第一个激磁信号
}
}
//---------------------------------------------------------------------------
错误:
[Linker Error] Unresolved external '__fastcall Ioport::outportb(int, unsigned char)' referenced from C:\DOCUMENTS AND SETTINGS\1\桌面\新资料夹 (4)\UNIT1.OBJ
--------------------next---------------------
阅读(1187) | 评论(0) | 转发(0) |