com1 e buton bağlayarak delphide basıldığını anlmak..

[diseqc]

merhaba;
üzerinde çalıştığım bir proje için yardımlarınıza ihtiyacım var. Projede bir sıramatik var bu sıramatikte bir sonraki kayda gecme işlemini formun üzerine koyduğum bir butonla gerçekleştiriyorum. ( qrliste.next) buraya kadar proje tamam devamında ise pc nin çalışacağı yerin hemen yanın daki 10 mt mesafedeki odaya bir buton koymak istiyorum ve butona her basıldığında formun üzerindeki sıradaki butonu işlesin istiyorum iki gündür araştırıyorum kayda değer birşey elde edemedim bir yerdlerde bir cihaz görmüştüm com portun 7 ve 8. pinlerini kısa devre yaparak programa komut gönderiyordu bende bundan yola cıkarak araştıramalar yaptım ama bir sonuca ulaşamadım hazır kodlar falan aradım ama olmadı com okuyan bir kaç program indirdim 7- ve 8. pinleri kısa devre yapınca o programlarda uyarı veriyor ama kendi yazılımım da nasıl yapacağımı bulamadım delphi 7 de yazılım gelişiyor konu hakkında yardımlarınızı bekliyorum iyi çalışmalar.

[ikutluay]

sourceforge da bu işi yapan bir component var. basittir. incelersen yaparsın. tcomport idi adı galiba.

[emin_as]

Com port haberleşme amaçlıdır. Dügme basmaları vs anlaşılsa da bu tavsiye edilmez. Bu işler için genelde paralel port kullanılırdı. Artık bilgisayarlarda ne com port var ne de paralel port, bilgisayarlar sadece usb kullanmaya başladı.

Kişisel tavsiyem ucuzundan bir tane çok dügmeli kablosuz mouse al ve onun dügmelerinden birini bu iş için programla. Mouse ın optik sensörünü ve kullanmadıgın tuşlarını iptal edebilirsin.

[diseqc]

usb veya lpt yoluyla nasıl yapabilirim bir fikriniz var mı ??

[ikra]

Bilgi
ltp portu yanlis bir secim olur. cünkü kisadevre oldugu anda port yanar. öncesinde direnc kullanip kisadevreyi engellemen gerekir.
Bilgisizlik
com port dogru bir secim olur fakat kisadevrenin bilgisayar tarafindan kontrol edilebilecegini bilmiyorum.
Tahmin
com porttan veri okuyabilirsiniz. bunun icin karsidaki dügmenin bir elektronik devreye bagli olmasi ve bu elektronik devrenin dügmeye basildiginda bilgisayara bit kombinasyonu göndermesi gerekir.
hemen akabinde bilgisayar gelen bit kombinasyonunu degerlendirir ve devrede hangi tus'a basildigini anlar. O'na göre islemi gerceklestirir.

[emin_as]

Seri port un yanlış olacagı ve paralel port un daha dogru oldugu konusunda düşüncelerime aynen devam ediyorum.

Aşagıdaki bu portlarla ilgili spefikasyonları okuyabilirsiniz.
Seri port:
http://en.wikipedia.org/wiki/Serial_port
Paralel port:
http://en.wikipedia.org/wiki/Parallel_port

Bu işler için ekstra tuşları olan kablosuz mouse kullan, mouse un kendi programıyla ekstra tuşları farklı fonksiyonlar için ayarlayabilirsin. Örnegin ekstra tuşlardan birine F12 yi ata ve programında bu F12 kontrol ederek işlemini yaptır. Bir bilgisayar birden fazla mouse ekleyebilirsin, hareketi algılamasın istiyorsan, optik alıcısını bantla kapatırsın.

Fazla tecrübeli degilsen bilgisayarın girişlerine takacagın dügmeyle zarar verebilirsin.

[diseqc]

sonunda yaptım işlem için smallport diye ücretsiz bir delphi commponenti var onu yükledim içinden çıkan smport.sys dosyasını system32 klasörünün içerisine attım ve aşşağıdaki kodu yazdıktan sonra

procedure TForm1.Timer1Timer(Sender: TObject);

var
port:byte;
begin
SmallPort1.Opened:=True;
port:=SmallPort1.Port[$379];
edit2.Text:=IntToStr(port);
end;

lpt portundan 12. pin ile 24. pini kısa devre yapınca sistem 95 değerini okuyor bırakınca 0 ve 127 değerini okuyor
sonrası kolay
if port=95 then
sıramatik ilerle
yardımcı olan arkadaşlara teşekkür ederim.

[baypipox]

CPortlib bileşeni kullanarakda yapabilirsin, örnek olarak;
Cportlid de comled diye bir bileşen var, bu bileşeninde ledsignal diye bir özelliği var. ordan hangi durumda ledin yanacağını seçiyosun.
ondan sonra sana tek yapman gereken bir timer la ledin yanıp yanmadığını kontrol etmek kalıyo...