有人有做過Agilent E3631A power supply的RS-232連線ㄇ 用BCB寫地ㄇ.... 我現在用Comm做溝通介面....好像都沒反應ㄝ.....

二個方式來提供你參考 (1) 線路問題 ==> 用示波器去檢測 (2) 程式問題 1. 格式錯誤 ==> 若你願意, 請上傳Datasheet及你的程式 2. RS232元件根本不正常Work ==> 同樣用示波器去檢測 Good Luck

其實這個問題我已經解決了...搞到最後居然是我的結束字元弄錯ㄌ... 這是我弄的程式碼...這已經可以控制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); } //---------------------------------------------------------------------------