LPT portundan pc'ye bağlı ledleri yakmak

fevzi_reis · Mesaj gönderen **fevzi_reis** » 01 Nis 2006 11:24

Arkadaşlar öncelikle herkese selam
---
Programı DELPHI Programlama dili ile hazırlayacağım...
lambaları LPT port ile pc ye bağlıyoruz lambalar yanıyor direk
bizim yapacağımız => programla ilişki yi kurup müzik çaldığında lambaların
yanıp sönmesi..yardımcı olmak isteyen arkadaşlar varsa sevinirim saygılarımla..

fevzi_reis · Mesaj gönderen **fevzi_reis** » 02 Nis 2006 12:07

Yardımcı oLacak Arkadaşlar bu alana yazarsa sevinirim kolay gelsin.

uğur alkan · Mesaj gönderen **uğur alkan** » 04 Nis 2006 07:49

a.s. şimdi
1. hangi programla bir ilişki kurmak istiyorsun?
2. lambadan kastın küçük ledlermi?
3. vu-metre tarzı bişeymi yapmak istiyorsun...
paralel portla işe başlayabilirsin binary sayı düzeninde istediğini yaz porttan okursun...
paralel port komponenti smport....

viewtopic.php?t=4918&highlight=smport

kullanımı ise çok basit

Kod: Tümünü seç

FORM1.SmallPort1.Port[$378]:=sayi;//sayi  0-255 arası...

fevzi_reis · Mesaj gönderen **fevzi_reis** » 14 Nis 2006 06:23

Ledler le Delphi arasında ilişki yi kurup
Ledler (lamba) yanmasını istiyorum
"""zaten Ledler (lamba) direk yanıyor
Lpt portlan pc ye bağladığımda"""..

:.Lambaları Yanıp Söndürecez, İşte Biz den istenilen bu arkadaşlar.:
Kod Bilgi Delphi de izleyeceğim Yol iÇin Yardımlarınızı Bekliyorum
Yardımcı OLmak İsteyen
Arkadaşlar varsa sevinirim ..

fevzi_reis · Mesaj gönderen **fevzi_reis** » 15 Nis 2006 02:04

Yardım : ))))

ulu coder · Mesaj gönderen **ulu coder** » 15 Nis 2006 02:32

Kod: Tümünü seç

___________________________
\x x x x x x x x x x x x x/
 \x x x x x x x x x x x x/   Bu paralel port olsun.

pin numaraları şöyle;
13 12 11.... 3 2 1
25 24..... 15 14

Kullanacağınız grup DATA grubu
Data0 -> 2.Pin
Data1 -> 3.Pin
...
Data7 -> 9.Pin

Bunları bir veya sıfır yapmak için önce smport bileşenini yüklüyoruz sonra ne yapacağımızı örnekle açıklamak daha kolay.
Diyelim ki ikinci ve beşinci pinleri +5V yapacaksınız.
ikinci pin ->Data0, beşinci pin ->Data3
=>Porta göndereceğiniz binary değer; 00001001
=>Bunun 10'luk tabandaki karşılığı; 2^0 + 2^3 = 1 + 8 =9
SmallPort1.Port[$378]:=9; yazarak bu değeri gönderiyoruz.

Hancet · Mesaj gönderen **Hancet** » 15 Nis 2006 02:34

Eğer lambaları rastgele yakmak istiyorsan yardım edebilirim. Buna benzer bişey bende yapmıştım geçen sene. Ama lambaların müziğin ritmine göre yanmasını istiyorsan nasıl olacağını bilmiyorum. Ya kullandığın müzik çalar programı yada bilgisayarın ses portunu kontrol etmen gerekecek sanırım.

Kolay Gelsin

Mesaj gönderen **rsimsek** » 15 Nis 2006 02:36

Doğrudan olacağını pek sanmıyorum. Porta vereceğin bilgi ile ilgili pin e bağlı bir PIC devresini tetikleyebilirsin. http://www.antrak.org/gazete gibi daha önce bahsı geçen diğer sitelerden de bu konuda bilgi alabilirsin. Çünkü bu sadece programlama ile olacak bir şey değil. Bir de elektronik kısmını düşünmelisin

shadowmann · Mesaj gönderen **shadowmann** » 15 Nis 2006 02:51

lpt+port+light+delphi şeklinde google gruplarda arayın.

fevzi_reis · Mesaj gönderen **fevzi_reis** » 23 Nis 2006 09:47

LPT portundan pc'ye bağlı lambaları müzik çaldığında yakmak

Arkadaşlar Sağolun Ledler Tamam
Şimdi Müzik Çalınca Ledlerin Yanması Kaldı
Ledleri Kontrol edebiliyorum istediğimi yakıp söndürüyorum
Ha gayret arkadaşlar

nitro · Mesaj gönderen **nitro** » 24 Nis 2006 09:49

windows xpde paralel porta direk veri gönderilmiyor. 98 kullanıyorsan problem yok. eğer xp kullanıyorsan ve ledleri yakabildiysen kodları buraya at da biz de faydalanalım.
şimdiden teşekkürler.
kolay gelsin

ulu coder · Mesaj gönderen **ulu coder** » 24 Nis 2006 02:50

smport bileşenini yükledikten sonra;

Kod: Tümünü seç

var
  v,:byte;
begin
  if SmallPort1.Opened=True Then Label1.Caption:='Açık';
  if SmallPort1.Opened=False Then Label1.Caption:='Kapalı';

  //VERİ
  SmallPort1.Port[$378]:=0;
  if CheckBox1.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+1;
  if CheckBox2.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+2;
  if CheckBox3.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+4;
  if CheckBox4.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+8;
  if CheckBox5.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+16;
  if CheckBox6.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+32;
  if CheckBox7.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+64;
  if CheckBox8.Checked=True Then SmallPort1.Port[$378]:=SmallPort1.Port[$378]+128;
  //VERİ SONU

  //DURUM
  d:=SmallPort1.Port[$379];
  if d>=128 Then CheckBox13.Checked:=True else CheckBox13.Checked:=False; d:=d mod 128;
  if d>=64  Then CheckBox12.Checked:=True else CheckBox12.Checked:=false; d:=d mod 64;
  if d>=32  Then CheckBox11.Checked:=True else CheckBox11.Checked:=False; d:=d mod 32;
  if d>=16  Then CheckBox10.Checked:=True else CheckBox10.Checked:=False; d:=d mod 16;
  if d>=8   Then CheckBox9.Checked:= True else CheckBox9.Checked:=false;
  //DURUM SONU
end;

fevzi_reis · Mesaj gönderen **fevzi_reis** » 27 Nis 2006 08:38

« Arkadaşlar Müzik Çaldığında Ledler Nasıl Yanıp Sönecek
Yardımlarınızı bekliyorum..»
"Bu forumu okuyupta bana mesaj atanlara çok teşekkür ediyorum"
Not:"Son 1 Hafta Proje Teslimine"

fevzi_reis · Mesaj gönderen **fevzi_reis** » 27 Nis 2006 07:01

» Yardımlarınızı Bekliyorum Arkadaşlar
» Müzik Çaldığında Ledler Nasıl Yanıp Sönecek
» Ledlere Yakabiliyorum İstediğimi
» Sadece İşte Ledlerin Müzik Çaldığında yAnıp Sönmesi Kaldı

Yardımlarınızı Bekliyorum
Not:"Son 1 Hafta Proje Teslimine"

uğur alkan · Mesaj gönderen **uğur alkan** » 27 Nis 2006 07:47

Ses kartından volume bilgisini alabiliyorsun bu komponentlerle zan edersem

http://www.torry.net/vcl/indicat/indica ... umeter.zip

http://www.torry.net/vcl/sound/mixer/vumeter.zip(Bu işini görür
seviye bilgisi veriyor. Hatta istersen iki ses kanalınıda izleye biliyorsun)

aradıgın şeyin adı VU-METER....

Delphi Forum