Arsip: mau nyalain lampu pake komputer

more 18 years ago
ilham
lam kenal, angota baru neh, YUU
aku teh mau bikin program buat bisa nyalain peralatan elektronik di rumah, pake kompi aku, gmana yah?YUU.
alat2 yang dibutuhin apa aja? harus pake mikrokontroler apa?
truz ada yg ngomong pake sakelar digital juga.
truz sistem operasinya pake windows 98 ato xp?
buku apa yg harus aku beli?
bisa bantu kan???????
makacih, YUU :lol:

more 18 years ago
sukuguci
untuk bisa control lampu via computer anda harus rakit mikro kontrolernya dengan menggunakan port 25, trus saya pernah coba dengan window 98, kalo xp ane gagal, tapi ane ngak sempat utak atik lagi dengan wp, ini coding nya
nyalakan lampu :
procedure hidup(data:byte)
begin
asm
mov dx,$378
mov al,data //tergantung bit berpa yang diaktifkan
out dx,al
end;
end;
procedure off(data:byte) //memetikan lampu
begin
asm
mov dx,$378
mov al,$00 //semua bit off (000000)
out dx,al //
end;
end;
Kalo bukunya ane lupa, tapi cari buku saku tips program dengan delphic dech (kalo nggak salah ), semoga bisa membantu

more 18 years ago
ilham
makacih buanget, tp mau nanya laghi, ga papa kan??
kalau ga harus ngerakit mikro kontrolernya bisa ga?
maksudnya ada mikro kontroler yang sudah jadi ga?
soalnya aku masih awam masalah mikrokontroler, yang port 25 teh apa?
sekali lagi makasih, ntar kalo ke bandung mampir ke istana sepatu merdeka depan BIP yah ??YUU

more 18 years ago
glpro
Gak harus pake mikrokontroler kok, pake aja port LPT (pararel) dari PC itu juga sudah bisa, tinggal bikin konektornya terus hubungin dengan rangkaian untuk pengendali lampu rumah. Beres deh.. tinggal buat programnya

more 18 years ago
juan81
ada banyak cara sih... paling gampang ya pake LPT.. tapi susahnya maximum 8 lampu.. perintah kirim port lpt. kalo windows 98 initnya 0 jadi waktu di pasang lpt diset 0. sedangkan xp 1.. kalo gak salah alatnya pake relay mengubah tegangan 5 volt ke 220 volt.. tanya di ahlinya aja...

more 18 years ago
putukaca
2 hari lalu saya dapet baca di gramedia ada buku yang bahas masalh ini lengkap dengan contoh kalo gak salah tentang lampu merah ato apa gitu lupa coba deh cari2 buku itu pas sekali dengan permasalahan yg anda hadapi sekarang
thank'a
yudi

more 18 years ago
ip4nk
@juan81: ada banyak cara sih... paling gampang ya pake LPT.. tapi susahnya maximum 8 lampu.. perintah kirim port lpt. kalo windows 98 initnya 0 jadi waktu di pasang lpt diset 0. sedangkan xp 1.. kalo gak salah alatnya pake relay mengubah tegangan 5 volt ke 220 volt.. tanya di ahlinya aja...bisa kok 5volt-nya buat triger relay yang konekin 220v ke perangkat kamu, ga masalah kok dengan hal ini. Tapi harus hati-hati ngerakitnya... salah-salah 220 masuk ke LPT yang ada... BUuuuummmmm.... PC gosong.... dan dari LPT yg cuma 8 keluaran bisa pake multiplexing... kombinasiin bisa jadi lebih banyak contoh kombinasi : out1 + out2 = Out1_A out1 + out3 = Out1_B out1 + out4 = Out1_C out1 + out5 = Out1_D out1 + out6 = Out1_E out1 + out7 = Out1_F out1 + out8 = Out1_G bla... bla.. bla... bla... out2 + out1 = Out1_A (juga lah kan sama aja bolak-balik) out2 + out2 = Out2_A (ini sama aja Out2 doank) out2 + out3 = Out2_B out2 + out4 = Out2_C out2 + out5 = Out2_D out2 + out6 = Out2_E out2 + out7 = Out2_F out2 + out8 = Out2_G Dah terusin gih... terserah mau pake gerbang AND atau NAND. emag sih lebih banyak butuhin IC dan lebih bayak jalur daripada harus pake Micon.. Corect me if, i'm wrong

more 18 years ago
rayaLangsep
salam,
saya pernah mengerjakan proyek seperti ini, waktu itu lampu yang saya kontrol sebanyak 20 lampu, saya menggunakan LPT. Sistem operasi yang saya gunakan saat itu adalah win98, tapi saya mengerjakan di winXP dengan menggunakan Delphi 7.
I. Software
Pada awalnya saya kesulitan untuk mengakses port LPT di winXP, karena di winXP menggunakan emulasi untuk mengakses port hardware secara langsung (CMIIW), Error yang keluar kalau kita mencoba mengakses port secara langsung:
kemudian saya Googling lagi cara akses yang lain, kemudian dan menemukan beberapa metode, antara lain memakai driver tertentu,
(saya tidak mengerti tentang lisensi penggunaannya, tapi yang pasti dapat dipakai kok...). driver ini bisa di-download dari url ini :
namanya giveio.
setelah didownload, driver tadi perlu di-install dulu.
langkah-langkahnya sebagai berikut :
1. ekstrak giveio.zip (hasil download) di drive tertentu.
2. buka command promt
3. install drivernya dengan perintah
loaddrv install giveio <path_fo_file>\giveio.sys
4. kemudian jalankan driver tersebut. perintahnya :
loaddrv start giveio
5. untuk mengecek statusnya, perintah
loaddrv status giveio
untuk lebih jelas dapat lihat gambar :
6. setelah itu, buka device manager. kemudian view->show hidden devices. jika telah terinstall, maka pada root non-plug and play devives akan muncul device dengan nama giveio.
7. kemudian, double klik giveio, lalu pada tab driver, start-up typenya ganti automatic. dapat dilihat pada gambar :
kemudian untuk contoh source codenya seperti dibawah ini:
//==== begins code here
....
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
....
//===== accessing port hardware;
procedure WritePort(Address:word; dtValue:byte);
begin
asm
mov dx, Address
mov AL, dtValue
out DX,AL
end;
end;
function ReadPort(Address:Word): Byte;
begin
asm
mov dx, Address
in al,dx
mov Result,al
end;
end;
//===== ends here
procedure TForm1.Button1Click(Sender: TObject);
begin
WritePort($378, $44);
end;
procedure TForm1.FormCreate(Sender: TObject);
var hGiveIoDrv : THandle;
begin
hGiveIoDrv := CreateFile (
'\\.\giveio',
GENERIC_READ,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0 );
if hGiveIoDrv = INVALID_HANDLE_VALUE then
begin
ShowMessage ('gagal meload giveio');
Application.Terminate;
end
else
begin
CloseHandle( hGiveIoDrv );
end;
end;
end.
//======== ends code here
II. Hardware
kemudian, untuk spesifikasi hardware, saya menggunakan multiplexer (atau apapun istilahnya) yang bisa membuat input 4 bit menjadi keluaran 16, jadi dengan 8 bit yang ada di port paralel, bisa mengontrol lampu sampai 32 lampu. untuk mengontrol sampai 20 lampu, saya menggunakan kombinasi input : 4 bit pertama dan 4 bit terakhir.
data:
0000 0001 - menyalakan lampu 1
0000 0010 - menyalakan lampu 2
0000 0011 - menyalakan lampu 3
0000 0100 - menyalakan lampu 4
.... dst sampai ...
0000 1111 - menyalakan lampu 15
0001 0000 - menyalakan lampu 16
0010 0000 - menyalakan lampu 17
0011 0000 - menyalakan lampu 18
0100 0000 - menyalakan lampu 19
0101 0000 - menyalakan lampu 20
[catatan: nomor lampu disesuaikan dengan rangkaian]
untuk menyalakan lampu secara bersamaan atau mematikan lampu tertentu, data yang dikirim bisa dilakukan operasi OR dengan data yang ada di port, sehingga tidak mengganggu lampu lain.
misal lampu 1 sudah menyala, kemudian kita baca port tesebut dan disimpan di variabel tertentu, misalnya varBacaPort = 0000 0001.
kemudian kita akan menyalakan lampu 4, maka data yang akan kita kirim adalah :
dataKirim = varBacaPort OR 0000 0100;
menjadi
dataKirim = 0000 0101
III. Penutup
Sekian informasi yang bisa saya berikan, semoga bermanfaat.
mohon maaf kalau ada kekurangan dan permasalahan dengan bahasa saya.
link-link tambahan :
informasi lengkap tentang paralel port:
http://www.lvr.com/parport.htm
torry delphi pages, component for accessing port:
http://www.torry.net/pages.php?id=227
tentang hardware kontroler dan softwarenya, tapi pakai bahasa asing, pake google tool language untuk menerjemahnya :
http://elportal.pl/index.php?module=ContentExpress&func=display&ceid=150
penjelasan tentang akses port di Windows :
http://www.direct-io.com/
http://www.beyondlogic.org/porttalk/porttalk.htm
http://www.embeddedtronics.com/design&ideas.html[/pas]
more 17 years ago
dekos
setahu saya anda bisa menggunakan mengakses serial atau paralel port, tapi saya sarankan pake aja paralel port.

more 17 years ago
MrLee
coba kesini untuk melihat konsep & desain rangkaian relay nya
http://www.teknisoft.net/project/skpl.dpr
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- barcode reader
by anaconda in Hal umum tentang Pascal Indonesia more 17 years ago - Tolong dunkz ? da yang tau kasih tau yapz
by jajang in Tip n Trik Pemrograman more 16 years ago - Secepat apa dan kuat yang mana ???? tanya ken....apaaaa
by Manz in OOT more 18 years ago - Undo dan Redo di Delphi
by dadanarifin in Tip n Trik Pemrograman more 14 years ago - Bukan Freeware
by fafenail in Kritik & Saran more 19 years ago - BANTU ENE BUAT PROGRAM BATREY STATUS
by dedidavidbala in Hal umum tentang Pascal Indonesia more 13 years ago - Buat Planning donk !!!!
by EkoIndri in OOT more 19 years ago - Gimana cara proteksi paling aman ?
by EkoIndri in Tip n Trik Pemrograman more 19 years ago - FastReport : Hasil Print Struk Saya Berhenti Ditengah
by Wenzz in Reporting more 15 years ago - gimana bikin format 001 di fast report 3.xx
by oloan_ac in Reporting more 16 years ago