全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2554
推到 Plurk!
推到 Facebook!

如何控制LTP並列埠

缺席
will
中階會員


發表:176
回覆:135
積分:62
註冊:2002-04-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-16 07:01:08 IP:211.72.xxx.xxx 未訂閱
LTP並列埠中 有8個腳位 可做on 及off 的控制 小弟想要用程式去控制這有8個腳位 請問小弟要如何做呢?
59chin
一般會員


發表:2
回覆:14
積分:8
註冊:2005-04-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-07-22 00:38:42 IP:218.210.xxx.xxx 未訂閱
首先下載winio V2.0函式庫(網路搜尋)
在winio.dll目錄下,使用IMPLIB winio.lib winio.dll 來產生winio.LIB檔
專案中加入winio.lib檔


#include
#include "winio.h"
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
DWORD dwPortVal;
DWORD dwMemVal;
bool bResult;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
bResult = InitializeWinIo();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
ShutdownWinIo();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SetPortVal(0x378, 0x01, 1);; // D0 on
// SetPortVal(0x378, 0xff, 1); // D0 ~D7 ON
Label2->Caption = "亮!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
SetPortVal(0x378, 0x00, 1);; // D0 ~D7 off
Label2->Caption = "滅!";

}
編輯記錄
59chin 重新編輯於 2007-07-22 00:41:27, 註解 無‧
59chin 重新編輯於 2007-07-22 01:25:25, 註解 無‧
59chin 重新編輯於 2007-07-22 01:26:26, 註解 無‧
59chin 重新編輯於 2007-07-22 01:27:07, 註解 無‧
系統時間:2017-10-18 11:45:13
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!