Tech
Batal
KATEGORI
link has been copied
10
KASKUS
51
244
https://www.kaskus.co.id/thread/515956157c1243467d000005/tanya-delphi--6--kontrol-led-menggunakan-port-parallel-pada-delphi-6
agan ,, agan ,., gmna cara kontrol led pada port paralel pada delphi 6 , soalnya ada tgas dari kampus ,., klo ada referensinya ,., sama listing programmnya ,., plzzzz
Lapor Hansip
01-04-2013 16:40

(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6

agan ,, agan ,.,
gmna cara kontrol led pada port paralel pada delphi 6 ,
soalnya ada tgas dari kampus ,.,


klo ada referensinya ,., sama listing programmnya ,., plzzzz
0
Masuk atau Daftar untuk memberikan balasan
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
01-04-2013 23:37
coba pake inpout32.dll (copy ke win\system32)

deklarasi:
Function Out32(Alamat:word;Data:byte):
Byte; stdcall; external 'inpout32.dll';

syntax:
Out32($378,$FF); //nyalain semua led
or
Out32($378,0); //matiin semua led
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
02-04-2013 06:43

Delphi Parallel Port (LPT Port)

-----
Diubah oleh Dejavu.Cucud
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
02-04-2013 11:10
Quote:Original Posted By wirog80
coba pake inpout32.dll (copy ke win\system32)

deklarasi:
Function Out32(Alamat:word;Data:byte):
Byte; stdcall; external 'inpout32.dll';

syntax:
Out32($378,$FF); //nyalain semua led
or
Out32($378,0); //matiin semua led



kira -kira bisa ga jalan di win 7 kk ,, trus , gmna klo ak pkee converter usb ke db 25 ,soal nya ga ad pc ,, bisa ga,, ???


0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
02-04-2013 11:13
Quote:Original Posted By Dejavu.Cucud
Untuk menggunakan printer (parallel) port pada aplikasi selain printing, kita perlu tahu bagaimana port diorganisir.

Ada 3 register yang berhubungan dengan parallel (LPT) port:
1. Data register
2. Control register
3. Status register

Data register akan menyimpan data dari data pin pada port. Itu berarti jika kita menyimpan byte data ke data register, maka data tersebut akan dikirim ke data pin pada port. Dan demikian pula halnya pada Control register dan Status register.

Tabel berikut menjelaskan bagaimana register berhubungan dengan port:
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6

Pin dengan tanda (*) pada table diatas adalah “hardware inverted”. Maksudnya, jika pin memiliki nilai “low” (misal 0V), maka bit di register akan bernilai 1.

Sedangkan signal dengan awalan “n” adalah “active low”. Maksudnya, secara normal pin memiliki nilai “low”, dan disaat akan mengindikasikan sesuatu, maka pin menjadi “high”.

Sebagai contoh, normalnya nStrobe akan menjadi “high” saat data ditempatkan di port. Dan Computer membuatnya menjadi “low”.

Standard (default) alamat Data register, Control register dan Status register:
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6

Pada awalnya parallel port tidak memiliki kapasitas bidirectional. Dan kemudian dikembangkan sehingga parallel port mampu berkomunikasi dengan perangkat lain, yaitu dengan dimunculkannya bidirectional port (pada parallel port).

Default data port adalah output port. Untuk mengaktifkan bidirectional property pada port, kita perlu mengatur bit 5 pada Control register.

Code untuk membuka/menutup, membaca, dan menulis parallel port:

LPTPort.pas:
Code:

unit LPTPort;

interface

type
TLPTPortReg = (lptData, lptControl, lptStatus);

function OpenLPTPort(PortNumber: Integer): THandle;
procedure CloseLPTPort(hDevice: THandle);
function ReadLPTPort(hDevice: THandle; Reg: TLPTPortReg): Byte;
function WriteLPTPort(hDevice: THandle; Reg: TLPTPortReg; Value: Byte): Cardinal;

implementation

uses Windows, SysUtils;

const
IOCTL_PP_DATA = $002C0004;
IOCTL_PP_CONTROL = $002C0008;
IOCTL_PP_STATUS = $002C000C;

function OpenLPTPort(PortNumber: Integer): THandle;
var
ts: PWideChar;
ws: WideString;
begin
ws := '\\.\$VDMLPT' + IntToStr(PortNumber);
ts := PWideChar(ws);

Result := CreateFileW(ts, GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
end;

procedure CloseLPTPort(hDevice: THandle);
begin
CloseHandle(hDevice);
end;

function ReadLPTPort(hDevice: THandle; Reg: TLPTPortReg): Byte;
var
dwIOControlCode,
dwBytesReturned: Cardinal;
begin
Result := 0;

case Reg of
lptControl: dwIOControlCode := IOCTL_PP_CONTROL;
lptStatus: dwIOControlCode := IOCTL_PP_STATUS;
else
dwIOControlCode := IOCTL_PP_DATA;
end;

DeviceIoControl(hDevice, dwIOControlCode, nil, 0, @Result, SizeOf(Result),
dwBytesReturned, nil);
end;

function WriteLPTPort(hDevice: THandle; Reg: TLPTPortReg; Value: Byte): Cardinal;
var
dwIOControlCode,
dwBytesReturned: Cardinal;
begin
Result := 0;

case Reg of
lptControl: dwIOControlCode := IOCTL_PP_CONTROL;
lptStatus: dwIOControlCode := IOCTL_PP_STATUS;
else
dwIOControlCode := IOCTL_PP_DATA;
end;

DeviceIoControl(hDevice, dwIOControlCode, @Value, SizeOf(Value),
@Result, SizeOf(Result), dwBytesReturned, nil);
end;


Contoh pemakaian:
Code:

uses LPTPort;

procedure TForm1.btnReadClick(Sender: TObject);
var
AHandle: THandle;
AData: Byte;
begin
try
AHandle := OpenLPTPort(1);

try
AData := ReadLPTPort(AHandle, lptData);

{ put your line code here }

finally
CloseLPTPort(AHandle);
end;

except
on E: Exception do
ShowMessage(E.Message);
end;
end;

procedure TForm1.btnSendClick(Sender: TObject);
var
AHandle: THandle;
AData: Byte;
dwFakeByteForDriverBug: Cardinal;
begin
try
AHandle := OpenLPTPort(1);

try
//Use bitwise operator "OR" to set bits or any bit by position
AData := 1 or 2 or 4 or 8 or 16 or 32 or 64 or 128;

dwFakeByteForDriverBug :=
WriteLPTPort(AHandle, lptData, AData);

{ put your line code here }

finally
CloseLPTPort(AHandle);
end;

except
on E: Exception do
ShowMessage(E.Message);
end;
end;



lalu program untuk matikan dan hidup'in led gmna kk ???
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
02-04-2013 11:21
Quote:Original Posted By deardamanik

lalu program untuk matikan dan hidup'in led gmna kk ???


Kalo bit yang dikirim 1 mestinya ya menyala .... emoticon-Bingung (S)
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
02-04-2013 19:19
Quote:Original Posted By deardamanik



lalu program untuk matikan dan hidup'in led gmna kk ???


kk , itu buatnya pke program delphi kan,., komponen yang di pake ap aj kk ,,?????
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
03-04-2013 01:08
-----
Diubah oleh Dejavu.Cucud
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
03-04-2013 01:18

ini cara yang luar biasa

coba install komponen Smallport, dijamin mak nyus
saya dulu ud sering mainan pararell port sama smallport..
ok gan..
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
03-04-2013 10:45
Quote:Original Posted By deardamanik


kk , itu buatnya pke program delphi kan,., komponen yang di pake ap aj kk ,,?????


kk??? emoticon-Ngakak konyol, emang ente adek ane emoticon-Ngakak

ane bantu aja gan emoticon-Big Grin

http://goo.gl/9nxEK
0 0
0
(TANYA) delphi 6 , kontrol led menggunakan port parallel pada delphi 6
18-04-2013 16:38

Butuh Programmer Delphi --- gaji di atas UMR --- segera !!!

Programmer Delphi (untuk kerja mulai April 2013)

Requirement :
Pria/Wanita
Pendidikan Minimal S1 Informatika

Kemampuan teknis :
Logika Algoritma Pemrograman dan Analisa yang bagus
Menguasai Delphi dengan baik
Menguasai SQL command (Ms SQL Server)
Melampirkan Portofolio (Screen Capture) aplikasi yang pernah dibuat.

Tambahan :
Berpenampilan baik, disiplin, jujur, bertanggung jawab dan berkelakuan baik
Pekerja keras dan dapat bekerja sama dengan tim

email CV lengkap ke bsp_qam@yahoo.com
0 0
0
icon-hot-thread
Hot Threads
obrolan-hangat-logo
Obrolan Hangat
Handphone & Tablet
Copyright © 2020, Kaskus Networks, PT Darta Media Indonesia