Arsip: mau nyalain lampu pake komputer

more 16 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 16 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 16 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 16 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 16 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 16 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 16 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 16 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 15 years ago
dekos
setahu saya anda bisa menggunakan mengakses serial atau paralel port, tapi saya sarankan pake aja paralel port.

more 15 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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Bahasa C++
by fafa in Network, Files, I/O & System more 15 years ago - penjumlahan pada database..
by divanda in Lain-lain more 15 years ago - Help.....Help..... Access Status 3061
by diko_male in Hal umum tentang Pascal Indonesia more 14 years ago - Ternyata programmer bisa juga jadi milyuner
by delphinewbie in OOT more 15 years ago - script untuk button dari image
by Charles in OOT more 15 years ago - Kopi Darat Pictures 8 Juli
by yayaretina in OOT more 15 years ago - mengubah brightness/contrast image greyscale dgn scrollbar
by abu in Tip n Trik Pemrograman more 14 years ago - form transparan
by nda1312 in Form Enhancement & Graphical Controls more 16 years ago - program OCR pake delphi
by luina in Hal umum tentang Pascal Indonesia more 15 years ago - Web Development Using with MySQL & Delphi
by aamumung in Tip n Trik Pemrograman more 15 years ago