其實這個問題我已經解決了...搞到最後居然是我的結束字元弄錯ㄌ...
這是我弄的程式碼...這已經可以控制power supply做規定範圍的電源輸出
//--------------------------------------------------------------------------- #include
#pragma hdrstop #include "Unit1.h"
#include "io.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Comm"
#pragma resource "*.dfm" #define port 0x000 void delay(DWORD DT);
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------- void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
Edit1->Text=ComboBox1->Text;
}
//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Comm1->PortOpen)
{
ShowMessage("通訊埠已開啟");
return;
} Comm1->PortOpen=true;
//Timer1->Enabled=true; } //---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Text="APPLY P25V, " Edit2->Text ", " Edit3->Text "\n"; //取得 REMOTE INTERFACE控制權
Comm1->OutputString("SYST:REM\n");
//清除原有設定值
Comm1->OutputString("*RST\n");
//清除緩衝區DATA
Comm1->OutputString("*CLS\n"); //Comm1->OutputString("*IDN?\n");
//Edit5->Text=Comm1->Input;
//Comm1->OutputString("SYST:VERS?\n");
//Edit6->Text=Comm1->Input; //設定電壓電流以及輸出PORT Comm1->OutputString("APPLY P6V, " Edit2->Text ", " Edit3->Text "\n");
//開啟輸出
Comm1->OutputString("OUTP ON\n"); //Comm1->OutputString("MEAS:VOLT? P6V\n"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender)
{ Comm1->OutputString("OUTP OFF\n");
Comm1->OutputString("*CLS\n");
Comm1->OutputString("*RST\n");
Comm1->OutputString("SYST:LOC\n");
if (!Comm1->PortOpen) Comm1->PortOpen=false;
exit(0);
}
//--------------------------------------------------------------------------- void delay(DWORD DT)
{
long t;
t=GetTickCount();
while(GetTickCount()-tOutputString("SYST:REM\n");
//清除原有設定值
Comm1->OutputString("*RST\n");
//清除緩衝區DATA
Comm1->OutputString("*CLS\n"); //Comm1->OutputString("VOLT " Edit2->Text "\n");
//Comm1->OutputString("CURR " Edit3->Text "\n");
//Comm1->OutputString("INIT"); Comm1->OutputString("INST P25V\n");
Comm1->OutputString("VOLT 24\n");
Comm1->OutputString("CURR 0.06\n"); Comm1->OutputString("INST P6V\n");
Comm1->OutputString("VOLT 5\n");
Comm1->OutputString("CURR 0.001\n"); ;
Comm1->OutputString("INST:COUP P6V,P25V\n"); //Comm1->OutputString("TRIG:SOUR IMM"); //Comm1->OutputString("INIT"); Comm1->OutputString("OUTP ON\n"); }
//--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender)
{
//int port;
//port=0x378;
Edit4->Text=PortIn(port);
}
//---------------------------------------------------------------------------