Sosyal Eklentiler

Kimler Sitede

Åžu anda 8 ziyaretçi Ã§evrimiçi

Bağış

Bu siteyi beğendiyseniz bağış yapabilirsiniz.


8 Ledli Basit Bir Devre Kontrolü
Makale - PC ile Otomasyon
Yazar ugokhan   
Pazar, 26 AÄŸustos 2007 20:20
8 Adet LED ten oluÅŸmuÅŸ basit bir devreye paralel port üzerinden veri yollayarak kontrol etmek.

Gerekli malzemeler ve devrenin resmi aÅŸağıdaki gibidir. UYARI : Bilgisayarınızda oluÅŸabilecek herhangi bir sorun için bu site ve ÅŸahsım sorumlu deÄŸildir.

  1. 8 Adet 4,7 K.ohm 'luk direnç
  2. 8 Adet Kırmızı LED Diyot
  3. Devre Bordu, İnce Kablo ..vs.

Amacımız 8 adet LED lambayı pinlere sinyaller yollayarak yakmaktır. Bunun için herbir pinin ucuna önce direnç sonra da LED diyodu yerleÅŸtiririz. Direçte yön yoktur fakat LED için yön önemlidir. Uzun bacağından + akımın girmesi gerekir. Porttan geler sinyal + olduÄŸu için buna göre takmanız gerekir. Tüm LED'lerin diÄŸer bacaklarını birleÅŸtirip toprak pinlerinden birine baÄŸlarız. Devremiz basitçe bu ÅŸekildedir. Åžimdi BASIC ile basit bir program yazalım.

'Data Portunun Adres Değeri Adres Değişkenine Atanıyor.
  Adres = &H378

'Data Portu Üzerindeki Tüm Pinler DüÅŸük Hale Getiriliyor.
  OUT Adres , 0

'Bir Döngü Yardımıyla 2'nin Kuvvetleri Elde Edilip Port'a gönderiliyor.
FOR i = 0 TO 7
    OUT Adres , 2 ^ i
    'Beklemek İçin BoÅŸ Saydırırız
    FOR m = 1 TO 5000 : NEXT
NEXT

FOR i = 6 TO 1 STEP -1
    OUT Adres , 2 ^ i
    FOR m = 1 TO 5000 : NEXT
NEXT 

Yukarıdaki programda sadece 1 geliÅŸ-gidiÅŸ hareketi verilmiÅŸtir. Her iki döngüyü de kapsayacak bir döngü yapılırsa gidiÅŸ-geliÅŸ hareketi tekrarlatılabilir.

Kısaca, paralel porta yollayacağınız sinyalleri belirledikten sonra sırayla porta gönderip sonuç alabilirsiniz. Daha deÄŸiÅŸik efektler yapabilir, deÄŸiÅŸik renkte LED ler kullanabilirsiniz. Mesela bir Trafik Lambası yapabilirsiniz. 

 

Yorumlar  

 
0 #2 2010-04-16 07:22
Quoting akın:
evet gerçektende güzel bir sistem ancak sizlerden bir ricam var bilgisayar klavyesindeki yön tuşlarını kullanarak paralel porttan nasıl çıkış alabilirim? daha doğrusu bunun için gerekli olan kodları temin etmemde yardımcı olabilirmisin?

Klavyeden basılan tuşların ascii kodlarını takip edersiniz. Basılan tuşlara göre (OUT Adres, Data) satırını çalıştırırsınız . Mesela yine Visual Basic üzerinden anlatmak gerekirse basitçe şöyle bir kod yazılabilir.

Private Sub Picturebox_KeyD own(KeyCode As Integer, Shift As Integer)
Adres = &H378
Select Case KeyCode
Case 37: OUT Adres, 1 ' Sol
Case 38: OUT Adres, 2 ' Aşağı
Case 39: OUT Adres, 4 ' SaÄŸ
Case 40: OUT Adres, 8 ' Yukarı
Case 27: OUT Adres, 0 ' ESC
End Select
End Sub
Alıntı
 
 
0 #1 2010-04-15 20:31
evet gerçektende güzel bir sistem ancak sizlerden bir ricam var bilgisayar klavyesindeki yön tuşlarını kullanarak paralel porttan nasıl çıkış alabilirim? daha doğrusu bunun için gerekli olan kodları temin etmemde yardımcı olabilirmisin?
Alıntı
 

Yorum ekle

TCK'ya aykırı, yasadışı ve genel ahlaka aykırı yazılar ile konu dışında yazılar, istekler, spam ve reklam amaçlı mesajlar yazılması YASAKTIR. Bu tür yazılar görüldüğü anda tarafımdan silinecektir. Herhangi bir uygunsuzluğun olduğunu düşündüğünüz yazılar için lütfen bana eposta yoluyla haber veriniz.


Güvenlik kodu
Yenile