Röle ilavesi çalışmıyor.Ustalar bir bakabilirmi?

fokas · 17 Temmuz 2013, 10:02:34

Selam daha önce kendim için yaptığım reed röleli havaya yazı şimdi çalışmıyor nerde yanlış yaptım bulamadım yardımlarınızı belkiyorum.

'****************************************************************
'* Name : MEH YÜ ERG.BAS *
'* Author : [Temel BALKİ] *
'* Notice : Balki (c) 2013 * *
'* Date : 09.07.2013 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************

@ DEVICE pic16F628 'işlemci 16F628
@ DEVICE pic16F628, WDT_ON 'Watch Dog timer açık
@ DEVICE pic16F628, PWRT_ON 'Power on timer açık
@ DEVICE pic16F628, PROTECT_OFF 'Kod Protek kapalı
@ DEVICE pic16F628, MCLR_ON 'MCLR pini kullanılıyor.
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak

TRISA=1
TRISB=0
PORTA=0
PORTB=0
symbol REED=PORTA.0

BASLA:
if REED=1 then GOSUB mehmet
goto basla

MEHMET: 'M
PORTB=%11111111
pauseus 950
PORTB=%00000010
pauseus 950
PORTB=%00001100
pauseus 950
PORTB=%00000010
pauseus 950
PORTB=%11111111
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'E
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%00000000
pause 1
'H
PORTB=%11111111
pauseus 950
PORTB=%00011000
pauseus 950
PORTB=%00011000
pauseus 950
PORTB=%00011000
pauseus 950
PORTB=%11111111
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'M
pauseus 950
PORTB=%00000010
pauseus 950
PORTB=%00001100
pauseus 950
PORTB=%00000010
pauseus 950
PORTB=%11111111
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'E
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%00000000
pause 1

PORTB=%00000001 'T
pauseus 950
PORTB=%00000001
pauseus 950
PORTB=%11111111
pauseus 950
PORTB=%00000001
pauseus 950
PORTB=%00000001
pauseus 950
PORTB=%00000000
pauseus 950
PORTB=%00000000
pause 1

PORTB=%00000111 'Y
pauseus 950
PORTB=%00001100
pauseus 950
PORTB=%11111000
pauseus 950
PORTB=%00001100
pauseus 950
PORTB=%00000111
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111101 'U
pauseus 950
PORTB=%10000000
pauseus 950
PORTB=%10000000
pauseus 950
PORTB=%10000000
pauseus 950
PORTB=%11111101
pauseus 950
PORTB=%00000000
pause 1

PORTB=%01111110 'C
pauseus 950
PORTB=%10000001
pauseus 950
PORTB=%10000001
pauseus 950
PORTB=%10000001
pauseus 950
PORTB=%01100110
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'E
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'L
pauseus 950
PORTB=%10000000
pauseus 950
PORTB=%10000000
pauseus 950
PORTB=%10000000
pauseus 950
PORTB=%11000000
pauseus 950
PORTB=%00000000
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'E
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'R
pauseus 950
PORTB=%00011001
pauseus 950
PORTB=%00101001
pauseus 950
PORTB=%01001001
pauseus 950
PORTB=%10001111
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'G
pauseus 950
PORTB=%10000001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%10010001
pauseus 950
PORTB=%11110011
pauseus 950
PORTB=%00000000
pause 1

PORTB=%10000101 'İ
pauseus 950
PORTB=%11111101
pauseus 950
PORTB=%10000101
pauseus 950
PORTB=%00000000
pause 1

PORTB=%11111111 'N
pauseus 950
PORTB=%00000110
pauseus 950
PORTB=%00011100
pauseus 950
PORTB=%00110000
pauseus 950
PORTB=%11111111
pauseus 950
PORTB=%00000000
pause 10

goto basla
end

ete · 17 Temmuz 2013, 12:55:43

Sigorta ayarlarından sonra
DEFINE OSC 4 şeklinde bir komut satırı ilave et.
Hemen altına ;
CMCON=7
satırını ilave et.

BAŞLA satırından evvel;
PAUSE 300
satırını ilave et ve yeniden derleyip dene bakalım.
Bence Sigorta ayarlarında MCLR_ON ifadesini MCLR_OFF olarak değiştir. Böylece ayrıca MCLR direnci takmak zorunda kalmazsın. Devren gözümüzün önünde olmadığı için bunu taktınmı takmadınmı belli değil çünki. Bu hali ile takmazsan çalışmaz zaten.
PORTA.0 pini reed röle kontağına ait ve normal da bu pin PULL-DOWN direnci ile GND ye bağlı olması gerekir. Direnç 10K olmalıdır.

Ete

fokas · 17 Temmuz 2013, 17:05:16

Hocam teşekkürler dediğiniz gibi yaptım oldu.

Etepic

Röle ilavesi çalışmıyor.Ustalar bir bakabilirmi?

fokas

ete

fokas