Hi 各位大大,     我寫了一個以print port輸出的程式,但是非得程式完全執行完label才會顯示,而且整個程式好像當掉一樣,我是用io.dll,這個library,附圖中央空白部分即是要顯示的label,下面是我的程式,煩請看一下幫幫我,謝謝. void __fastcall TForm1::Button1Click(TObject *Sender) {  int a,charge,strobe,time,k;  long j; k=1; Edit2->Text=0; time=StrToInt(Edit1->Text); Edit2->Text=0;    for (i=0;iCaption=" "; } charge=1; strobe=1; a=0; for (j=0;jCaption="Charge"; //<---LABEL 顯示 } PortWordOut(PtrAddress,a); //cut charge charge=1; PortWordOut(PtrAddress,charge); Sleep(8000); PortWordOut(PtrAddress,0); Sleep(2000); Label1->Caption="Complete"; //<---LABEL 顯示 PortWordOut(PtrAddress,4); Sleep(200); PortWordOut(PtrAddress,0); for (j=0;jText=IntToStr(i+1); } }

引言: Hi 各位大大, 我寫了一個以print port輸出的程式,但是非得程式完全執行完label才會顯示,而且整個程式好像當掉一樣,我是用io.dll,這個library,附圖中央空白部分即是要顯示的label,下面是我的程式,煩請看一下幫幫我,謝謝.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int a,charge,strobe,time,k;
 long j;
k=1;
Edit2->Text=0;
time=StrToInt(Edit1->Text);
Edit2->Text=0;    for (i=0;iCaption=" ";
  }
  charge=1;
  strobe=1;
  a=0;
 for (j=0;jCaption="Charge"; //<---LABEL 顯示
  }
  
  PortWordOut(PtrAddress,a); //cut charge       charge=1;
   PortWordOut(PtrAddress,charge);        Sleep(8000);
   PortWordOut(PtrAddress,0);        Sleep(2000);
   Label1->Caption="Complete"; //<---LABEL 顯示
   PortWordOut(PtrAddress,4); 
   Sleep(200);       PortWordOut(PtrAddress,0); 
  for (j=0;jText=IntToStr(i+1);
   }
  }

lcu 你好:
(1)先試試在你程式碼 for 迴圈裡面加入以下這一行程式碼 (或者加在要改變
   Label 的 Caption 那行程式碼之後)
   > >

< class="code">
其他相關文章:
http://delphi.ktop.com.tw/topic.php?topic_id=46827
http://delphi.ktop.com.tw/topic.php?topic_id=27008

-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2004/06/21 17:19:27

感謝RaynorPao 版主大大, ~~^_^~~ .It works.