gokhanca.com

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