Elektrotekno.com Ana Sayfa || Programlanabilir Cihaz ve Elemanlar || Microchip Pic Serisi


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

Açıklama:
Elektrik, Elektronik, Haberleşme ve Otomasyon konularının ağırlıklı olarak konuşulduğu, tartışıldığı ve bilgi paylaşımı yapıldığı forumumuza hoşgeldiniz.
Şu an Kod Paylaşım ve Soru Cevap Alanı kategorisi içerisindeki Microchip Pic Serisi forumunda bulunuyorsunuz.
Bu sayfada üyelerimizin "pic ile sms yollama" konusundaki problem, görüş ve önerileri okuyabilir ayrıca konu hakkındaki doküman, resim, proje, devre ve programlara ücretsiz olarak ulaşabilirsiniz. Üye olduktan sonra sizler de konu hakkında sorular sorabilir ya da yorum ve paylaşım yaparak birikimlerinizi aktarabilirsiniz.
Forumdan tam olarak yararlanabilmek için üye olmayı unutmayınız!
Kayıt: 20 Ksm 2006
Mesajlar: 9

Offline
eymentunc
Tarih: 25 12 2006 17:10

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

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


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

3 Kullanıcı bu konu için aslanbozkurt arkadaşımıza teşekkür ettiler

Kayıt: 05 Arl 2006
Mesajlar: 66
Konum: izmir
Offline
keremtosun
Tarih: 26 12 2006 09:15

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.
Başa dön
Kayıt: 30 Ekm 2006
Mesajlar: 378
Konum: Adana
Offline
ibrsel
Tarih: 26 12 2006 10:21

Ö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..
Başa dön
Kayıt: 26 Arl 2006
Mesajlar: 7

Offline
kouelohabuser
Tarih: 26 12 2006 12:49

LCD nin kontrast ayarınıda kontrol et.
Başa dön
Kayıt: 20 Ksm 2006
Mesajlar: 9

Offline
eymentunc
Tarih: 27 12 2006 00:38

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
Başa dön
Kayıt: 06 May 2006
Mesajlar: 1
Konum: şifreden
Offline
mdogg
Tarih: 28 03 2007 10:13

sorunun cevabi


kardes reset ucunu +5 v a cek devren calisacak
Başa dön
Kayıt: 13 Nis 2006
Mesajlar: 12
Konum: ANKARA
Offline
fth_murat
Tarih: 28 03 2007 13:19

LCD nin kontrast ayar ucunu direk topraga çek
proteus onu göz ardı eder
devren çalışıyordur ama göremiyosundur
Başa dön
Kayıt: 20 Mar 2007
Mesajlar: 71
Konum: ankara
Offline
o_karadag
Tarih: 28 03 2007 16:47

bence multimetre yardımıyla baglantı yollarını kontrol et...bence baglantı yollarında sorun olabilir...
Başa dön



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


Benzer Konular

- rgb kontrol sadece elimi altında gezdirdiğimde çalışıyor

- pic 16f877 ile basınc sensör devresi
- CA3524 ile inverter devresi
- 16f628 & Ds1302 ile 100mm saat termometre
- 16f877 ile yapılmış 4 adet 5x7 kayan yazı devresi
- 8 durak asansör devresi - tavsiyeleriniz?
- 10x10 Ledli Spektrum Analizör Devresi.
- ilginç Analog görünümlü dijital saat :)
- Lamba Karatma Devresi

- depo doldurma devresi pıc16f84

- RS232 Devresi

Sitemize üyelik ve içeriğin indirilmesi tamamen ücretsizdir. Sitemizde paylaşılan tüm dokümanlar (Tezler, makaleler, ders notları, sınav soru cevaplar, projeler) paylaşımcıların bireysel çalışmaları olup telif hakları kendilerine aittir ya da açık bir şekilde kamusal alana yerleştirilmiş dokümanların birer kopyalarıdır. Kişilerin bireysel çalışmalarını sitemizde yüklemesinde, sitemizde paylaşıma teşvik eden puanlama sisteminin de etkisi büyüktür. Bunlara rağmen hala size ait olan ve burada bulunmasına izin vermediğiniz dokümanlar varsa iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.
Powered by phpBB | Translated by phpBB Türkiye | Ads by Google Adsense | Design by Crazy Bat based
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72