Resimi yüklediğim şekilde devreyi kurucaksınız hocam.Sonra iş program yazmaya kalacak program yazma işi ise ben en çok proton basic dilini kullanıyorum bu yüzden size programı proton ile yazacağım umarım işinizi görür...
Şimdi ise size yazdığım basit program parçacığını veriyorum...
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 07.10.2013 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Device 16F84A
TRISB=0' B portunu çıkışa yönlendir
TRISA=255' A portunu girişe yönlendir
XTAL=4' 4 mhz kristal ile çalışacağını bildir.
PORTB=0' B portundaki bütün çıkışları 0 yap yani söndür.
basla:
If PORTA.0=1 Then' butona basılmış mı yani butondan pic'e lojik 1 geliyor ise
While PORTA.0=1' Butondan lojik bir geldiği müddet beprogram wend'e gitsin
Wend ' Butondan lojik bir geliyor ise while ile bu wend arasında döngüye gir
Toggle PORTB.0 ' Rölenin bağlı bulunduğu çıkışı lojik olarak tersle yani 1 ise 0 ve 0 ise 1 yap
EndIf ' Döngüden çık
GoTo basla ' Başlaya geri git
End ' Programın bitiş satırı.
'''''''''''''''''ÇOK ÖNEMLİ NOT'''''''''''''''''''''''''''
' iF EĞER ANLAMINA GELİR THEN İSE ANLAMINA GELİR BU DURUMDA EĞER PORTA.0=1 İSE ŞEKLİNDE ANLAM KAZANIR.
'ENDİF İSE İF DÖNGÜSÜNÜN BİTİŞİDİR
' WHİLE İLE WEND KOMUTLARI İSE VERİLEN KOŞUL DOĞRU OLDUĞU MÜDDET BU İKİ KOMUT ARASINDAKİ İŞLEMİ ÇALIŞTIRIR.
' bU DURUMDA WHİLE PORTA.0=1 OLDUĞU YANİ BUTONUN BASILI OLDUĞU MÜDDET PROGRAM WHİLE İLE WEND ARASINDA HİÇ BİR İŞLEM YAPMADAN
' DÖNGÜYE GİRER VE ELİMİZİ BUTONDAN BIRAKMAMIZI BEKLER ELİMİZİ BUTONDAN ÇEKİNCE...
'TOGGLE PORTB.0 KOMUTU İLE EÖLE ÇEKİLİ İSE BIRAKIR BIRAKMIŞ İSE ÇEKER
' ENDİF İLE ANA DÖNGÜ OLAN İF DÖNGÜSÜNÜN BİTTİĞİ ANLAŞILIR GOTO BASLA İLE BAŞLA ETİKETİNE AKTARILIR
' END KOMUTU DA PROGRAMI SONLANDIRIR FAKAT PROGRAM BASLA İLE GOTO BASLA ARASINDA ENERJİ KESİLİNCEYE DEK DEVAM EDER !!!
Bu arada çizimi yaparken röleye paralel olarak Bir tane 1N4007 diyotunu ters olarak bağlamayı unutmuşum o da artık ellerinizden öper...