winio 寫LTP的問題

發文回覆瀏覽次數：1626

推到 Plurk!

推到 Facebook!

MilesWamg
一般會員

發表：18
回覆：37
積分：11
註冊：2003-02-07

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-05-22 17:50:31

IP:218.175.xxx.xxx 未訂閱

參考WINIO對LTP PORT 的輸出控制我參考了站上的許多先進的文章與程式,我也嘗試自己去寫但是始終無法控制led,修改許多先進的程式是可以達到控制輸出的目的也測試成功,參考lcsboy的作品,新增下列程式碼即可達到我想要的LTP控制


void __fastcall TForm1::SetLTPPotr(int Value)
{
    r.type=IOACCESS_WRITE_BYTE;
    r.m_dx=0x0378;
    r.m_al=Value;
    Label2->Caption=IntToStr(Value);
    WinIO();
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Timer1->Enabled=!Timer1->Enabled;
}    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 if (flag)
   SetLTPPotr(0x0);
 else
   SetLTPPotr(0xff);
 flag=!flag;
}

但是我重新寫的程式卻無法正常控制,可以請各問先進告訴小弟我哪裡沒有設定嗎?,除了起始的程序外...因為我覺得很好奇... 我將有問題原始碼上傳發表人 - Mileswamg 於 2005/05/22 17:54:53

附加檔案：71600_LTP.zip

系統時間：2024-05-05 0:01:54

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！