gokhanca

Bir önceki bölümde LED ışıklarıyla güzel bir çalışma yapmıştık. Bu bölümde ise bilgisayarınızı bir devre anahtarı olarak kullanabileceğiniz ve bu şekilde televizyondan buzdolabına, walkman'dan uzay mekiğine kadar herhangi bir elektrikli veya elektronik eşyayı açıp kapayabileceğiniz (on/off) bir devre göstereceğim.

Aşağıdaki devreyi bu amaçla kullanacağız. Devre için gerekli malzemeler;

4,7 K.ohm direç 12 Volt, 10A/250V Tek kontak Röle BC 237 Transistör (NPN) 1N 4007 Diyot 9 - 12 Voltluk Pil veya Adaptör bağlantısı

Devre elemanları ile ilgili kısa bilgiler vereceğim. Daha detaylı bilgi için elektronik kitaplarına veya internetteki elektronik sitelerine başvurabilirsiniz.

Direnç: 4,7 Kohm olmasından başka bir önemi yoktur. Bacakları arasında herhangi bir yön söz konusu değildir.

Röle: 12 Volt'luk tek kontak bir röle seçtik. Röle içerisinde bulunan bobin üzerinden akım geçince manyetik bir alan oluşur ve manyetik anahtar çekilir, devre açılır. Üzerinden akım geçmediği müddetçe, anahtar ve dolayısıyla dış devre, kapalı (off) durumundadır. Kırmızı ile gösterilen devre, bizim (aç-kapa) kontrolü yapmak istediğimiz devredir.

Transistör: Bu devrede transistör bir karar verici olarak çalışır. Aynen röle'nin yaptığı aç-kapa işini bu devrede transistör üstlenmiştir. Pilden gelen 12 Volt, röle bobini üzerinden geçerek toprağa ulaşmak ister. Fakat buna transistör karar verir. Eğer transistörün Beyz ayağına bilgisayar ile sinyal yollarsak, transistör geçişe izin verir. Sinyali kesersek transistör geçişi durdurur. Transistörün bacak isimleri yandaki şekilde gösterilmiştir.

Diyot: Diyot, sadece bir yönde akım geçiren devre elemanıdır.

Devremiz ve tanımlamalarımız kısaca bu kadar. Daha fazla bilgi isteyenler internetteki bir çok elektronik sitesine başvurabilir. Gelelim bu iş için gerekli programın yapılmasına. Programı Q-Basic dilinde yazıyorum. V.Basic Versiyonu için INPUT yerine INPUTBOX, PRINT ifadesi yerine MSGBOX kullanabilirsiniz.

Adres = &H378

'Başlangıçta Port RESET lenir.
OUT Adres , 0

PRINT "[0] Kapa...  [1] Aç..  [2] Çıkış..."

Tekrar :
INPUT Deger

IF Deger = 2 THEN
'Çıkarken Port RESET lenir.
OUT Adres, 0
END
END IF

IF Deger = 1 THEN
OUT Adres, 1
PRINT "Devre Açık"
END IF

IF Deger = 0 THEN
OUT Adres, 0
PRINT "Devre Kapalı"
END IF

GOTO Tekrar

V.Basic için 1 tane Command Button kullanarak şu şekilde de yapılabilir.

Private Sub Form_Load()
Out &H378, 0
Command1.Caption = "Kapalı"
End Sub
-------------------------------------------------------
Private Sub Command1_Click()
If Command1.Caption = "Kapalı" Then
out &H378, 1
Command1.Caption = "Açık"
Else
out &H378, 0
Command1.Caption = "Kapalı"
End If
End Sub