Visual Basic ile pc kontrollü basit hırsız sensörü

İşin içine bilgisayar girince devre çok kolay oluyor visual basic ile hazırlanan pc programı ve basit tek transistörlü basit bir devre ile sistem kuruluyor

Bilgisayar kontollü hırsız sensörü yapmak sanılanın aksine kolaydır.
Malzeme Listesi:

1. 25 Pin DSUB Konnektör (Paralel Port Konnektörü {Lehim Tipi})
2. LDR (FotoDirenç)
3. 470R Direnç
4. Şeffaf Mavi veya Beyaz LED
5. BC237 NPN Transistör

Uygulama detayları ve kaynak kodlar: Basit Hırsız Sensör’ü Yapalım

Seçkin ALAN Hocamın sitesi kapandı orjinal yazı aşağıdadır.

Basit Hırsız Sensör’ü Yapalım

Bilgisayar kontollü hırsız sensörü yapmak sanılanın aksine kolaydır.

Malzeme Listesi:

25 Pin DSUB Konnektör (Paralel Port Konnektörü {Lehim Tipi})
LDR (FotoDirenç)
470R Direnç
Şeffaf Mavi veya Beyaz LED
BC237 NPN Transistör

Devre Şeması:

Devrenin çalışma prensibi’ni anlamak için LDR çalışma mantığından ve paralel portun status pinlerinden biraz bahsetmek gerekir.

Genel Çalışma prensibi ise şu şekilde; LDR üzerine LED tarafında ışık düşüyor. Otomatikman LDR direnci düşüyor ve transistöre Base akımı sağlanıyor ve s3 pini toprağa ulaşıyor ve hırsız sensörü cisim algılanmadığını belirtiyor.Işık kesildiğinde ise LDR Direnci artarak base akımı sağlanamıyor ve s3 pini toğrağa ulaşamıyor. İşte bu durumda hırsız sensörü işini tamamlamış oluyor yani cisimi algılıyor.

LDR’nin direnci ışıkla ters orantılıdır. Yani üzerine düşen ışık miktarı arttıkça direnci düşer. Üzerine ışık düştüğü zaman 15Kohm civarı bir direnc gösterir fakat üzerine ışık düşmediği zaman ise 300Kohm civarı bir direnç gösterir.

Paralel portun status pinlerinin uclarında +5V DC akım vardır. Bu pinler Toprak ucu ile birleştiği zaman veri girilmiş olur. Fakat biz burada tam tersi bir işlem yapacaz. 5V akım toprakla birleşmediği zaman veriyi girmiş olacaz. 🙂 Kafanız karışmış olabilir. Ama sakin bir kafayla düşündüğünüz zaman devreyi kurduğumuz sistemde işlem bu şekilde işliyor.

Bunun için Visual Basic programını kullanacaz.
Gerekli olan componentler

inpout32.dll
Timer
Label kutucukları (3 adet)
Bir adette metin kutusu

İlk olarak yeni bit modül ekliyoruz ve içerisine şu kodu ekliyoruz.

Public Declare Function Inp Lib “inpout32.dll” _
Alias “Inp32” (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib “inpout32.dll” _
Alias “Out32” (ByVal PortAddress As Integer, ByVal Value As Integer)

Burada inpout32.dll dosyasını tanıtıyoruz. Daha sonra ise pencereye 3 adet Label ekliyoruz Label1′in Caption’u “ SENSOR DURUMU :” Label2′nin Caption’u ise “ALGILANMADI” Label3′ün Caption’u ise “Paralel Port Adresi:” dir. son olarak bir textbox ekliyoruz onun Text’i ise “&h378″ değerini giriyoruz ki bu bizim varsayılan paralel port adresidir.(Bu adresi bulmak için Denetim Masasindan Sisteme, oradanda aygit yöneticisine girin. Portlara (Baglanti Noktalari) gelin. LPT portunun Kaynaklarindan Giris-Çikis araligindaki degerin ilk kismindaki deger yazici portunuzun adresidir.)
Sonraki işlem ise pencereye timer ekliyoruz properties kısmından Interval değerini 10 olarak ayarlıyoruz ve içine şu kodu yapıştırıyoruz.

o_deger = Inp(Text1.Text + 1)
If (o_deger = 118) Then
Label2.Caption = “ALGILANDI”
MsgBox “ALGILANDI” ‘Mesajkutusu vasıtasıyla bilgilendirme yapar.
Else
Label2.Caption = “ALGILANMADI”
End If

Kodu açıklayalım.

Inp komutu ise status pininden veri okumamızı sağlar. Status portunun adresi taban adresten +1 fazladır. o_deger = Inp(Text1.Text + 1)bunu ise portadresi+1 şeklinde yapıyoruz.

If (o_deger = 126) Then burada eğer status portundan okunan değer 126 ise(ki bu değer cisim algılanmadığı zaman 118′dir. ) Label2 nin görünen değerini ALGILANDI yazısını yazdırır ve mesaj kutusu vasıtasıyla bilgilendirme yapar.

Not: LDR siyah bir boru içerisinde olursa daha hassas olur.