---

konya sokakta yıldırım elektroniğe bak.

---

---

seco06 yazmış

Al bakalım ömer bey senin için bunu yaptım ama ufak bir hata da yaptım.Buton meselesine takmışsın sanırım.Butonlara bastığında hızlı sayıyor.Bunu hallederken de tarama uygun halde olacak.Başarılar

teşekkürler sağ olasın ben bu devreyi kendim için degil tüm forum arkadşları için yapmakta çok çaba harçamıştım ama ben pıcbasıcde iyi olmadıgım için beceremedim teşekkür ederim inşallah yardımlaşmalarımız devam eder ben buradan herkese sesleniyorum yardımlaşmak ve insanlara birşeyler vermenin zevki bir başka.
çok çok teşekkürler .

---

Başa dön

---

cevap

Sana katılıyorum Ömer bey.Biz burada bildiklerimizi aktarmak için varız.Ama benim arkadaşlarımdan isteğim olacak kendileri proje üretsinler.(uçuk ta olabilir)Kaldıkları yerleri birlikte tamamlıyalım.Yani bu site öğreticiliği ön plana çıkarsın.Arkadaşların biryerlerden devreleri bulup devreleri yayınlamaları güzel ama önce kendi yaptıkları derim.Başarılar

---

Başa dön

---

sorunu çözdüm sanırım.

seco06
sanırım hata buradan kaynaklanıyor sorunu hallettim.
pesi sıra diger dijiti tarattıgın zaman karışıyordu

x= saat dıg 1: gosub al: portc=%11111110: portb=sayi
x= saat dıg 0: gosub al: portc=%11111101: portb=sayi

ben ise söyle yaptım.

x= saat dıg 1: gosub al: portc=%11111110: portb=sayi
pause 15;*****
x= saat dıg 0: gosub al: portc=%11111101: portb=sayi
pause 50;*****

suan sorunsuz çalışıyor . kolay gelsin.


ayar:
poz=1
if sec=0 then bak2

x= saat dıg 1: gosub al: portc=%11111110: portb=sayi
pause 15;*****
x= saat dıg 0: gosub al: portc=%11111101: portb=sayi
pause 50;*****

ıf yukarı=0 then saat=saat+1
ıf saat=24 then saat=0
goto ayar

bak2:
whıle sec=0
wend

---

Başa dön

---

ömer yazmış

seco06
sanırım hata buradan kaynaklanıyor sorunu hallettim.
pesi sıra diger dijiti tarattıgın zaman karışıyordu

Evet tam değil ama halletmişsin.Bazı yerlerde basic dili yetersiz kalır ve ASM kullanman gerekli.İşte burada da onu uygulamak gerekli.Çünkü burada hız önem taşıyor.Basic bir komut asm de birkaç komuta ait işlev yapıyor.Yani işe yaramayan komutlarda devrede.Asmde herbir komut bir saykıl olduğuna göre ( birkaçı iki saykıl içerir) sen tuşa basman , oradan değişkene sayı atanması esnasında ekranda aslında birşey gözükmüyor.Daha sonra ekran taranıyor.Aralara pause komutu koyduğunda ise tam olarak istediğin senkron yakalanmıyor.Bu televizyondaki görüntünün oluşumuna benzer.Tam zamanı yakalamazsan ya salınım yapar yada görüntü hızlı gider.Ama çözmüş olayı.Başarılar
Kod

ISI=(ISI/1000) burada -3 diye birşey vardı onu da silin





AYAR:   


        POZ=1


        if SEC=0 THEN BAK2


        IF YUKARI=0 THEN SAAT=SAAT+1


        IF SAAT=24 THEN SAAT=0       


        pause 30


        x= SAAT DIG 1: gosub al: portc=%11111110: portb=sayi 


        pause 30


        x= SAAT DIG 0: gosub al: portc=%11111101: portb=sayi


        GOSUB GECIKME


        GOTO AYAR





BAK2:


        WHILE SEC=0


        WEND        


       


MINUTE: 


        POZ=1


        if SEC=0 THEN BAK3


        PAUSE 30


        x= DAK DIG 1: gosub al: portc=%11111011: portb=sayi 


        PAUSE 30


        x= DAK DIG 0: gosub al: portc=%11110111: portb=sayi


        IF YUKARI=0 THEN DAK=DAK+1


        IF DAK=60 THEN DAK=0


        GOSUB GECIKME


        GOTO MINUTE





GECIKME:


        FOR Z=0 TO 180


        PAUSEUS 100


        NEXT


        RETURN        

---

Başa dön

---

seco06 yavaş yavaş pıcbasic ögrenmeye gayret ediyorum.
senin gönderdigin sekil daha iyi oldu teşekkürler. ayriyeten bu satır silinecek demişin onu sildim ve bredboarda denedim devre gayet saglıklı çalışıyor foograf makinası elime gectigi zaman resimlerini yollarım.
birde pıcbasıcde yazılan programlar kısa oluyor ama derlendigi zaman hex dosyası baya fazla oluyor bunun sebebi pıcbasıcde komutların kısaltılmış halininmi olması.

birde seco06
AL: LOOKUP X,[63,6,91,79,102,109,125,7,127,111,99,57,64,0],sayi :RETURN
binari karşılıkları nedir

---

Başa dön

---

cevap

Buda tarih eklenmiş hali.

---

Başa dön

---

seco06 bende tarih için ugraşıyordum ama benim hatam hepsine ben gun yazmışım sen dosyayı verince dank dedi sabaha kadar ugraştım.


hatamı yenifarkettim hepsinde gun yazıyor ay için ve yıl içinde aynı yapmıştım.


x= GUN DIG 1: gosub al: portc=%11111110: portb=sayi
x= GUN DIG 0: gosub al: portc=%11111101: portb=sayi
high PORTB.7
x= GUN DIG 1: gosub al: portc=%11111011: portb=sayi
x= GUN DIG 0: gosub al: portc=%11110111: portb=sayi
high PORTB.7
x=GUNDIG 1: gosub al: portc=%11101111: portb=sayi
x=GUN DIG 0: gosub al: portc=%11011111: portb=sayi

neyse ben gunlerin peşine düşecem. gunler için ayrı bir ekran oku kısmı yapsam nasıl olur.

---

Başa dön

---

ömer yazmış

seco06 yavaş yavaş pıcbasic ögrenmeye gayret ediyorum.
senin gönderdigin sekil daha iyi oldu teşekkürler. ayriyeten bu satır silinecek demişin onu sildim ve bredboarda denedim devre gayet saglıklı çalışıyor foograf makinası elime gectigi zaman resimlerini yollarım.
birde pıcbasıcde yazılan programlar kısa oluyor ama derlendigi zaman hex dosyası baya fazla oluyor bunun sebebi pıcbasıcde komutların kısaltılmış halininmi olması.

birde seco06
AL: LOOKUP X,[63,6,91,79,102,109,125,7,127,111,99,57,64,0],sayi :RETURN
binari karşılıkları nedir

Devrenin sorunsuz çalıştığına sevindim.Bazen olayı gerçeğe dönüştürdüğünde birçok problemle karlşılaşıyorsun.Olayı dosya boyutu ile değerlendirme.Elde edilen wordler önemlidir.
63=00111111
6 =00000110
91=01011011 yani kısaca display deki istediğin segmentleri yakmak için onlara 1 uyguluyorsun.sanırım bunu biliyorsundur.
ASM de bu komutun karşılığı RETLW dir.
Örnek:
data
addwf PCL
retlw b'01101111' ;9 sayısı

---

Başa dön

---

[%00111111,%00000110,%011110111]
ben bu şekil yazdım . sorunsuz çalışıyor.
seco06
'----------------ısı sensör okuma bölümü --------------------------------
sensoroku:
'-----------------dikkat isis'de bu satır aktif edilecek----------------------
' ham=$fe6e:gosub hesapla:return 'normal çalışmada bu satır silinecek
'------------------------------------------------------------------------------
bu satırı sildim derledim ama -25 olark neden gösteriyor benim yanlışım nerede açaba ben pıcbasıc e uyarlayıp derliyorum bu şebeb olabilirmi.

---

Başa dön