unit1.cpp

来自「读dspf2812的内部程序」· C++ 代码 · 共 46 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Port=new PortDriver();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete Port;    
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Label1->Caption=IntToStr(Port->InportBYTE(0x378));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{

    Label1->Caption=IntToStr(Port->InportBYTE(0x378));
    Port->OutportBYTE(0x378,128+int(120*sin(i*6.28/360.0)));
    i++;
    if(i>=360)i=0;
}
//---------------------------------------------------------------------------