Saat devresi proteusta normal çalışıyor ama..........

eymentunc

aşağıda resmi olan devre proteusta normal çalışıyor sorun yok, fakat baskı devre yaptım bi güzel herşeyi monte ettim. çalıştırıyorum üst satır komple kare doluyor, lehim yüzeyde sağını solunu elliyorum çalışmaya başlıyor, ilk önce soğuk lehim falan var sandım defalarca kontrol ettim sanırım programla ilgili bi sorun var.
ben anlayamadım bi türlü, yardımlarınızı yada fikirlerinizi paylaşırsanız sevinirim.
pic basic pro kodlarınıda aşşağıda verdim, ben hazırlamadım kodu internetten bulduğum kodu devreye uyarladım

defıne lcd_dreg portb
defıne lcd_dbıt 4
defıne lcd_rsreg porta
defıne lcd_rsbıt 0
defıne lcd_ereg porta
defıne lcd_ebıt 1
defıne lcd_lınes 2

saat var byte
dsaat var byte
dakika var byte
saniye var byte
ticks var byte
guncelle var byte
i var byte

@ device wdt_off

pause 2100
saat = 0
dakika = 0
saniye = 0
ticks = 0
guncelle= 1

optıon_reg = $55
ıntcon = $a0
on ınterrupt goto tickint
portb=0
trısb=%00001111
trısa=%00000000

ana_dongu:

if portb.1=0 then saat_azalt
if portb.0=0 then saat_arttir
if portb.2=0 then dak_arttir
ıf portb.3=0 then dak_azalt

kontrol:

lcdout $fe,$c3,"deneme"
if guncelle = 1 then
lcdout $fe,1," "

dsaat=saat
if (saat//12)=0 then
dsaat=dsaat+12
endif

if saat<12 then
lcdout dec2 saat,":",dec2 dakika,":",dec2 saniye," "
else
lcdout dec2 saat,":",dec2 dakika,":",dec2 saniye," "
endif
guncelle=0
endif

goto ana_dongu

saat_arttir:

lcdout $fe,$c0," *saat ılerı*"

saat=saat+1
if saat >=24 then
saat=0
endif
goto ark_sondur

saat_azalt:

lcdout $fe,$c0," *saat gerı*"

saat=saat-1
if saat >=24 then
saat=23
endif
goto ark_sondur

dak_arttir:

lcdout $fe,$c0," *dak.ılerı*"
dakika=dakika+1
if dakika >= 60 then
dakika=0
saat=saat+1
if saat >=24 then
saat=0
endif
endif
goto ark_sondur

dak_azalt:

lcdout $fe,$c0," *dak.gerı*"
dakika=dakika-1
if dakika >= 60 then
dakika=59
saat=saat-1
if saat >=24 then
saat=0
endif
endif
goto ark_sondur

ark_sondur:

for i= 1 to 25
pause 10
next i
guncelle=1
goto kontrol
disable

tickint:

ticks=ticks+1
if ticks < 61 then tiexit
ticks=0
saniye=saniye+1
if saniye>=60 then
saniye=0
dakika=dakika+1
if dakika>=60 then
dakika=0
saat=saat+1
sound porta.3,[110,20]
if saat>=24 then
saat=0
endif
endif
endif
guncelle=1

tiexit:

ıntcon.2=0
resume
end
-----------------------------------------------------

keremtosun · Tarih: 26.12.2006, 10:15 Mesaj konusu:

selam
bence senin sorunun programdan değil. baskı devreden olabilir. belki lehim yaparkan bir yolu çatlattın ama bbunun göremiyor olabilirsin. bence bir daha kontrol et.

ibrsel · Tarih: 26.12.2006, 11:21 Mesaj konusu:

Öncelikle ölçü aleti ile yolların iletim durumunu kontrol et.
LCD nin RW ucunun şaseye temas etiiğinden emin ol..
Kristal bağlantını tekrardan kontrol et,gerekir ise kristalin gövdesini şaseye lehimle..

Ayrıca 16f84 kullanıyor isen mclr ucunu pull up direnci ile +5 V a bağlamayı unutma..

kouelohabuser · Tarih: 26.12.2006, 13:49 Mesaj konusu:

LCD nin kontrast ayarınıda kontrol et.

eymentunc · Tarih: 27.12.2006, 01:38 Mesaj konusu:

ibrsel yazmış: Öncelikle ölçü aleti ile yolların iletim durumunu kontrol et.
LCD nin RW ucunun şaseye temas etiiğinden emin ol..
Kristal bağlantını tekrardan kontrol et,gerekir ise kristalin gövdesini şaseye lehimle..

Ayrıca 16f84 kullanıyor isen mclr ucunu pull up direnci ile +5 V a bağlamayı unutma..

bunların hepsini denedim saol yardımların için hatta başka yazılarda kristali yaklaştır pic e,
kondansatörleri kontrol et kristale bağlı.
gibi öneriler vardı bulduğum herşeyi denedim olmadı
Bende pic16f628 kullandım şimdi sorun yok.saolasın

mdogg · Tarih: 28.03.2007, 11:13 Mesaj konusu: **sorunun cevabi**

kardes reset ucunu +5 v a cek devren calisacak

fth_murat · Tarih: 28.03.2007, 14:19 Mesaj konusu:

LCD nin kontrast ayar ucunu direk topraga çek
proteus onu göz ardı eder
devren çalışıyordur ama göremiyosundur

o_karadag · Tarih: 28.03.2007, 17:47 Mesaj konusu:

bence multimetre yardımıyla baglantı yollarını kontrol et...bence baglantı yollarında sorun olabilir...