如何控制LTP並列埠

發文回覆瀏覽次數：2876

推到 Plurk!

推到 Facebook!

缺席

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，註解無‧

系統時間：2024-11-21 18:30:18

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

本站聲明

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