Kayan Yazı Öğreniyoruz

[ELZEMEFE]

Arkadaşlar  belirli adresleri okuyup gösterilebilyo ama öğle adım adım  çalıştırma yok.. proton un ve  protous ortak olan macro dönüşüm dosyaları var bunuda  o yüzden yapıyo zaten .. PIC BASIC te yok yok yok olmıcakta...

ve konu başlığı kendi konusunda kaymaya başladı arkadaşlar..

bu şöyle olur ancak iki yazılım firması bir araya gelmesi ile olur ama  şimdilik yok..

[Mucit23]

merhaba  mucit dediğin konuyu yanlış hatırlamıyorsam değişkenlerin aldığı değerleri görebiliyordun ete hoca bunu tarif etmişti ama ayrıca bahsettiğin şehi bende yapmaya çalışıyorum ete hocam bu konuyla ilgili bir çalışma yapmamız mümkünmü adım adım programın işleyişini görebilmeyi çok istiyorum keşke bunun çözümü olsa

Onu biliyorum zaten ayrı bir konu. Onu yapmak için watch window penceresinde değişkenlerin adresleri belirlenerek anlık olarak değişken değerleri görülebiliyor. Ben sıklıkla kullanırım.
Bu ayrı

.cof dosyasından bahsediliyordu sanırım.

Normalde PBP .cof dosyası şeklinde çıkış vermiyor. Eğer bunun bir ayarı varsa olabilir. (Sanırım CCS .cof uzantı dosya veriyordu)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Edit;

@ELZEMEFE
PIC BASIC te yok yok yok olmıcakta...

Senin yerinde olsaydım bu kadar emin konuşmazdım. Yarın bir yerden bulup çıkarırsam lafın yerde kalır.

[F®T]

ete hocam sanırım picprojede böyle bir konuda yazmıştı.

[BAHAR]

.hex yerine .cof uzantılı dosya gösterilip adım adım çalıştırılıyor ama c dili üretiyor bu cof dosyasını.

[Mucit23]

Bişeyler buldum gibi
http://www.picbasic.co.uk/forum/attachment.php?attachmentid=4968&d=1290847331
Burada anlatılmış. Ben anlatılanları uyguladım. Fakat olmadı  Bir yerde hata yaptığımı düşünüyorum.
http://www.picbasic.co.uk/forum/showthread.php?t=11939&highlight=Proteus+Debugging

[Analogic]

Siteye girmeyeli güzel bir konu daha ortaya çıkmış, bir ara ben de kayan yazı işine merak salmıştım, satır ve sütun tarama mantğını da çözmüştüm ama, iş güç bir yandan, bir de programlama bilgim zayıf olduğundan birtürlü ilerletemedim. Sütun taramada ve satır taramada 16 sütunlu sabit yazı denemeleri yapıp çalıştırmıştım. İster sütun tarama olsun ister satır tarama, ilgili sütun/satır tarandıktan sonra kapatılıp çok kısa süre beklemek gerekiyordu, aksi halde yazılar birbirine giriyordu. Ayrıca sütun sayısı 30-40 sütunun üzerine çıktıktan sonra ledlerin yeterli parlaklığa ulaşabilmesi için satır tarama tercih ediliyor piyasada. Sütun tarama daha kolay geliyor ilk etapta ama, işin ehli olmak istiyorsak satır taramaya daha ağırlık vermeliyiz. Gerçi benim hevesimi kıran hitech ile yazmaya çalışmamdı. hitechte 74595 kontrolünü manuel yapabildim ama bir türlü fonksiyonlaştıramadığımdan sıkılıp bırakmıştım. Umarım bu konu altında ete hocanın güzel anlatımıyla olayın mantığını daha iyi anlayabiliriz. Bu işin başlangıç noktası, kaydırmadan ziyade, sabit yazıyı tarayarak görebilmektir diye düşünüyorum. Ben de tam bu noktadayım aslında, sabit yazıyı panoya gönderebiliyorum ama, harfleri bitlere ayırma ve kaydırma konularına hakim olamadım henüz. Herkese başarılar.

[Mucit23]

Siteye girmeyeli güzel bir konu daha ortaya çıkmış, bir ara ben de kayan yazı işine merak salmıştım, satır ve sütun tarama mantğını da çözmüştüm ama, iş güç bir yandan, bir de programlama bilgim zayıf olduğundan birtürlü ilerletemedim. Sütun taramada ve satır taramada 16 sütunlu sabit yazı denemeleri yapıp çalıştırmıştım. İster sütun tarama olsun ister satır tarama, ilgili sütun/satır tarandıktan sonra kapatılıp çok kısa süre beklemek gerekiyordu, aksi halde yazılar birbirine giriyordu. Ayrıca sütun sayısı 30-40 sütunun üzerine çıktıktan sonra ledlerin yeterli parlaklığa ulaşabilmesi için satır tarama tercih ediliyor piyasada. Sütun tarama daha kolay geliyor ilk etapta ama, işin ehli olmak istiyorsak satır taramaya daha ağırlık vermeliyiz. Gerçi benim hevesimi kıran hitech ile yazmaya çalışmamdı. hitechte 74595 kontrolünü manuel yapabildim ama bir türlü fonksiyonlaştıramadığımdan sıkılıp bırakmıştım. Umarım bu konu altında ete hocanın güzel anlatımıyla olayın mantığını daha iyi anlayabiliriz. Bu işin başlangıç noktası, kaydırmadan ziyade, sabit yazıyı tarayarak görebilmektir diye düşünüyorum. Ben de tam bu noktadayım aslında, sabit yazıyı panoya gönderebiliyorum ama, harfleri bitlere ayırma ve kaydırma konularına hakim olamadım henüz. Herkese başarılar.

Aslında sabit yazıyı göstermek en basiti. Kaç sütün var ise harf okadar değişkene harf datası bir kere yüklendimi yeterlidir. Geri kalan iş kesmeyle satırları taramak ve sütün bilgilerini vermek. Harf sabit şekilde duracaktır.

Ben Basic dillerinde şunu yapamadım bir türlü. Bu konuda alternatifler arıyorum.
Byte veya word uzunluğunda bir değişkenin içeriğindeki bitleri başka bir değişkenin değerine göre almaya çalışıyorum. Bunu yapmanın farklı yolları var. Bende yapıyorum fakat bir sürü ek işlem if deyimi kullanmak zorunda kalıyorum. Bu iş alternatif yollar arıyorum.

[Analogic]

Evet, sabit yazıyı göstermek en basitidir, bu yüzden satır ve sütun tarama mantığını öğrenmenin başlangıç noktası sabit yazıyı sorunsuz olarak gösterebilmektir. Sabit yazıyı tarama yöntemiyle gösterme konusuna hakim olduktan sonra kaydırmaya geçmek lazım.

Ayrıca sütun tarama, olayın mantığını anlamak için teori olarak gerekli ama, pratikte zaman kaybından başka birşey değil bence. Örneğin 150-200 sütunluk bir yazıyı sütun tarama ile yapınca, (sabit yazı bile olsa) ledlerin ışığı ancak karanlıkta görülebilir. Ama satır taramalı sistemler ile, yüksek mcd'li ledler kullanarak, gündüz güneş ışığı altında bile, çok iyi parlaklıklar elde ediliyor. Ki profesyonel işlerde bu yöntem tercih ediliyor zaten.

Galiba takılınan yerler hep aynı, harf datalarını çektikten sonra, bunları geçici değişkene atıp panoya göndermek, daha sonra kaydırma vs. işlemi için geçici değişkene sıradaki datayı atayıp, onu göndermek vs. vs. konu ticari olduğu için, işi çözenler kolay kolay anlatmıyor, anlatanlar da genelde yüzeysel anlatıyorlar.

Basit bir örnek verecek olursak, malumunuz picler oldukça popüler olarak bir çok yerde kullanılıyor, en çok ta led tabela ve kayan yazı işlerinde kullanılıyorlar. Ama, istisnalar hariç, birçok forumda piclerle ilgili yüzlerce konu paylaşılmasına rağmen, ledlerin en çok kullanıldığı kayan yazılarla ilgili sorular yüzeysel cevaplanıyor. Kaçamak cevaplarla geçiştiriliyor. Hatta abartayım biraz, soruyu soran konuyu uzatır detay isterse, soranı sorduğuna pişman edecek ukalalıkta cevaplar veriliyor. Çünkü picleri en çok kullananlar ledciler, kayan yazı işiyle uğraşanlar. Onların da işine gelmiyor tabi işi başkalarına öğretmek.

[ELZEMEFE]

doğruya diyecek laf yok ...

[aydus0644]

Kayan yazı devresini yaptım ama ledler hepsi yanıyor yazılar sönük olarak çalışıyor sorun nedir yardımcı olurmusunuz

[efe]

Kardeşim bu devrenin 32x8 versiyonu için hangi Kodları değiştirmemiz gerekiyor

[Mucit23]

8x32 için yazılım. Daha önce düzenlemiştim.

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [Ferhat YOL]                                      *
'*  Notice  : Copyright (c) 2012 [Mucit23]                      *
'*          : All Rights Reserved                               *
'*  Date    : 23.01.2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
DEFINE OSC 4

@ __config _XT_OSC & _WDT_ON & _PWRTE_ON & _LVP_OFF & _CP_OFF

;_______________________________SETUP___________________________________________
  TRISA=0              ;Tüm portlar çıkış
  TRISB=0        
  TRISC=0
  PORTC=0
  PORTB=0          
  PORTA=0 
ADCON1 = 7
;DEFINE SHIFT_PAUSEUS 1000
ON INTERRUPT GoTo KESME   
OPTION_REG=%00000011  ;Bölme oranı 1/16
INTCON=%00100000  
symbol GIEH = INTCON.7
TMR0=131              ;2ms kesme için tmr0 ön değeri
SYMBOL DTA=PORTC.0
SYMBOL CLK=PORTC.1
SYMBOL KLT=PORTC.2
SYMBOL OE =PORTC.3
;____________________PROGRAMDA KULLANILAN DEĞİŞKEN TANIMLAMALARI________________
   Z            VAR WORD
   SDATA1       VAR WORD
   SDATA2       VAR WORD 
   SDATA3       VAR WORD 
   SDATA4       VAR WORD 
   SDATA5       VAR WORD 
   SDATA6       VAR WORD 
   SDATA7       VAR WORD 
   SDATA8       VAR WORD 
   SDATA9       VAR WORD  
   SDATA10      VAR WORD
   SDATA11      VAR WORD
   SDATA12      VAR WORD 
   SDATA13      VAR WORD 
   SDATA14      VAR WORD 
   SDATA15      VAR WORD 
   SDATA16      VAR WORD                                                                                      
;   SUTUN        VAR BYTE[15]                                                              
   VERI         VAR BYTE 
   SYC          VAR BYTE                                                              
   KARAKTER     VAR BYTE                                                                                                                                   
   SIRA_NO      VAR BYTE                                                                   
   SUTUN_SAYISI VAR BYTE                                                                  
   SUTUN_SAYAC  VAR BYTE                                                                 
   OFSET        VAR BYTE                                                                 
   LINE         VAR BYTE
   X            VAR BYTE                                                            
   J            var byte                                                            
   I            var byte   
                                
DATA @0,"Merhaba ETEPİC Üyeleri        ",5

;_________________________PORT AYAR VE DEĞİŞKEN İLK DEĞER ATAMALARI____________________                                   ;porta yı sıfırla
  J=0           
  I=0          
  SUTUN_SAYISI=0             
  SUTUN_SAYAC=0           
MAIN: 
      GOSUB SUTUN_TEMIZLE
GIEH=1  ;Tüm kesmeler açıldı                  
BASLA:             
      GOSUB KARAKTER_AL                                                                           
      GOSUB SENTEZ
        IF ( SUTUN_SAYAC => SUTUN_SAYISI ) THEN     
          SUTUN_SAYAC=0                                                 
          LINE=0                                                                                     
          J=J+1
          GOSUB KARAKTER_AL:GOSUB SENTEZ                                                                                     
        ENDIF 
      GOSUB ORT_ISLM
      GOSUB DELAY 
 GOTO BASLA             
;_______________________SUTUN TEMİZLEME ALT NPROGRAMI___________________________ 
SUTUN_TEMIZLE:
  SDATA1=0:SDATA2=0:SDATA3=0:SDATA4=0
  SDATA5=0:SDATA6=0:SDATA6=0:SDATA8=0
RETURN                 ;sutun temizleme alt programından çık
  
DELAY:
FOR Z=0 TO 850:PAUSEUS 1:NEXT ;bu gecikme yazı hızını belirler.
RETURN

DISABLE
KESME:
syc=syc+1
IF SYC=>8 THEN SYC=0
  SELECT CASE SYC
CASE 0
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA9.LOWBYTE,SDATA9.HIGHBYTE,SDATA1.LOWBYTE,SDATA1.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-1
CASE 1
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA10.LOWBYTE,SDATA10.HIGHBYTE,SDATA2.LOWBYTE,SDATA2.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-2
CASE 2
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA11.LOWBYTE,SDATA11.HIGHBYTE,SDATA3.LOWBYTE,SDATA3.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-4
CASE 3
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA12.LOWBYTE,SDATA12.HIGHBYTE,SDATA4.LOWBYTE,SDATA4.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-8
CASE 4
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA13.LOWBYTE,SDATA13.HIGHBYTE,SDATA5.LOWBYTE,SDATA5.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-16
CASE 5
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA14.LOWBYTE,SDATA14.HIGHBYTE,SDATA6.LOWBYTE,SDATA6.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-32
CASE 6
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA15.LOWBYTE,SDATA15.HIGHBYTE,SDATA7.LOWBYTE,SDATA7.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-64
CASE 8
  PORTB=255
  SHIFTOUT DTA,CLK,0,[SDATA16.LOWBYTE,SDATA16.HIGHBYTE,SDATA8.LOWBYTE,SDATA8.HIGHBYTE]
  PULSOUT KLT,1
  PORTB=255-128
END SELECT
INTCON.2=0        ;İnterrupt flağı temizlendi
TMR0=131          ;TMR0 ön değeri yüklendi
RESUME
ENABLE 
RETURN

KARAKTER_AL:;_______________J DEGİSKEN DEGERİNE GÖRE KARAKTER ALINIYOR________________________
    READ J,KARAKTER                                                        
RETURN;______________________________________________________________________________________  
 
SENTEZ:;_________________________________ALINAN KARAKTER BİLGİSİ KARŞILAŞTIRILIYOR____________
  IF KARAKTER=5 THEN SON_KARAKTER
  
  SELECT CASE KARAKTER
    CASE 65: SIRA_NO=0     ;A
    CASE 66: SIRA_NO=6     ;B
    CASE 67: SIRA_NO=12   ;C
    CASE 68: SIRA_NO=18    ;D
    CASE 69: SIRA_NO=24    ;E
    CASE 70: SIRA_NO=30    ;F
    CASE 71: SIRA_NO=36    ;G
    CASE 72: SIRA_NO=42    ;H
    CASE 73: SIRA_NO=48    ;I
    CASE 74: SIRA_NO=54    ;J
    CASE 75: SIRA_NO=60    ;K
    CASE 76: SIRA_NO=66    ;L
    CASE 77: SIRA_NO=72    ;M
    CASE 78: SIRA_NO=78    ;N
    CASE 79: SIRA_NO=84    ;O 
    CASE 80: SIRA_NO=90    ;P 
    CASE 81: SIRA_NO=96    ;Q 
    CASE 82: SIRA_NO=102    ;R 
    CASE 83: SIRA_NO=108    ;S  
    CASE 84: SIRA_NO=114    ;T  
    CASE 85: SIRA_NO=120   ;U  
    CASE 86: SIRA_NO=126   ;V 
    CASE 87: SIRA_NO=132   ;W 
    CASE 88: SIRA_NO=138   ;X 
    CASE 89: SIRA_NO=144   ;Y
    CASE 90: SIRA_NO=150   ;Z
    CASE 32: SIRA_NO=156 ;BOSLUK   
    CASE 48: SIRA_NO=162 ;0  
    CASE 49: SIRA_NO=168 ;1 
    CASE 50: SIRA_NO=174 ;2
    CASE 51: SIRA_NO=180 ;3
    CASE 52: SIRA_NO=186 ;4
    CASE 53: SIRA_NO=192 ;5
    CASE 54: SIRA_NO=198 ;6  
    CASE 55: SIRA_NO=204 ;7
    CASE 56: SIRA_NO=210 ;8  
    CASE 57: SIRA_NO=216 ;9
    CASE 46: SIRA_NO=222 ;.
    CASE 199:SIRA_NO=228 ;Ç
    case 221:sira_no=234 ;İ
    case 214:sira_no=240 ;Ö
    case 220:sira_no=246 ;Ü
    CASE 44:SIRA_NO=252;,
  end select   
    IF KARAKTER=44 THEN 
      SUTUN_SAYISI=5
    ELSE
      SUTUN_SAYISI=7
    ENDIF
  
  SUTUN_SAYAC=SUTUN_SAYAC+1      
RETURN

SON_KARAKTER:
   LINE=0 : VERI=0 : SUTUN_SAYISI=0 : SUTUN_SAYAC=0 : SUTUN_SAYISI=0 : J=0
RETURN
     ;__________________________________SENTEZ ALT PROGRAM SONU_______________________  
  
ORT_ISLM:
  OFSET= SIRA_NO+LINE
  GOSUB TABLO
  GOSUB KAYDIR
  GOSUB DOSE
  LINE=LINE+1
  IF LINE=>6 THEN LINE=0 
RETURN

DOSE:
  SDATA9.0=VERI.0       ;Alınan sütün bilgisi satırlara yerleştiriliyor.
  SDATA10.0=VERI.1      ;
  SDATA11.0=VERI.2
  SDATA12.0=VERI.3
  SDATA13.0=VERI.4
  SDATA14.0=VERI.5
  SDATA15.0=VERI.6
  SDATA16.0=VERI.7
RETURN

KAYDIR: ;Tüm satır verileri 1 bit sola kaydırılıyor.
  SDATA1=SDATA1<<1:SDATA1.0=SDATA9.15:SDATA9=SDATA9<<1    ;Burada kaydırma işlemi yapılıyor.  
  SDATA2=SDATA2<<1:SDATA2.0=SDATA10.15:SDATA10=SDATA10<<1 ;Sen SDATA değişken sayısını 16 ya kadar arttır
  SDATA3=SDATA3<<1:SDATA3.0=SDATA11.15:SDATA11=SDATA11<<1 ;SDATA1, SDATA2,...., SDATA15, SDATA16 şeklinde
  SDATA4=SDATA4<<1:SDATA4.0=SDATA12.15:SDATA12=SDATA12<<1 ;Bu değişkenleri hepsi WORD tipi olacak. 
  SDATA5=SDATA5<<1:SDATA5.0=SDATA13.15:SDATA13=SDATA13<<1 ;Buradaki kodların Aynısını yaz
  SDATA6=SDATA6<<1:SDATA6.0=SDATA14.15:SDATA14=SDATA14<<1 
  SDATA7=SDATA7<<1:SDATA7.0=SDATA15.15:SDATA15=SDATA15<<1 
  SDATA8=SDATA8<<1:SDATA8.0=SDATA16.15:SDATA16=SDATA16<<1 
RETURN
 
 TABLO:
   LOOKUP OFSET,[_
   $7E,$09,$09,$09,$7E,$00,_      ;A   0-5
   $7F,$49,$49,$49,$36,$00,_      ;B   5-11
   $3E,$41,$41,$41,$22,$00,_      ;C   11-17
   $7F,$41,$41,$22,$1C,$00,_      ;D   17-23
   $7F,$49,$49,$49,$41,$00,_      ;E   23-29
   $7F,$09,$09,$09,$01,$00,_      ;F   29-35
   $3E,$41,$49,$49,$7A,$00,_      ;G   35-41
   $7F,$08,$08,$08,$7F,$00,_      ;H   41-47
   $00,$41,$7F,$41,$00,$00,_      ;I   47-53
   $20,$40,$41,$3F,$01,$00,_      ;J   53-59
   $7F,$08,$14,$22,$41,$00,_      ;K   59-65
   $7F,$40,$40,$40,$40,$00,_      ;L   65-71
   $7F,$02,$0C,$02,$7F,$00,_      ;M   71-77
   $7F,$04,$08,$10,$7F,$00,_      ;N   77-83
   $3E,$41,$41,$41,$3E,$00,_      ;O   83-89
   $7F,$09,$09,$09,$06,$00,_      ;P   89-95
   $3E,$41,$51,$21,$5E,$00,_      ;Q   95-101
   $7F,$09,$19,$29,$46,$00,_      ;R   101-107
   $26,$49,$49,$49,$32,$00,_      ;S   107-113
   $01,$01,$7F,$01,$01,$00,_      ;T   113-119
   $3F,$40,$40,$40,$3F,$00,_      ;U   119-125
   $1F,$20,$40,$20,$1F,$00,_      ;V   125-131
   $3F,$40,$38,$40,$3F,$00,_      ;W   131-137
   $63,$14,$08,$14,$63,$00,_      ;X   137-143
   $07,$08,$70,$08,$07,$00,_      ;Y   143-149
   $61,$51,$49,$45,$43,$00,_      ;Z   149-155
   $00,$00,$00,$00,$00,$00,_      ;bosluk   155-161
   $3E,$51,$49,$45,$3E,$00,_      ;0   161-167
   $00,$42,$7F,$40,$00,$00,_      ;1   167-173
   $42,$61,$51,$49,$46,$00,_      ;2   173-179    
   $21,$41,$45,$4B,$31,$00,_      ;3   179-185
   $18,$14,$12,$7F,$10,$00,_      ;4   185-191
   $27,$45,$45,$45,$39,$00,_      ;5   191-197
   $3C,$4A,$49,$49,$30,$00,_      ;6   197-203
   $01,$71,$09,$05,$03,$00,_      ;7   203-209
   $36,$49,$49,$49,$36,$00,_      ;8   209-215
   $06,$49,$49,$49,$3E,$00,_      ;9   215-221
   $40,$00,$00,$00,$00,$00,_      ;.   221-227
   $1E,$21,$61,$21,$12,$00,_      ;Ç   227-233
   $00,$44,$7D,$44,$00,$00,_      ;İ   233-239
   $38,$45,$44,$45,$38,$00,_      ;Ö   239-245
   $3C,$41,$40,$41,$3C,$00,_      ;Ü   245-251  
   $40,$20,$00,$00],VERI          ;,   252-255
 RETURN
END    
       
   

[efe]

kardeşim sağolasın çok işime yaradı.

[efe]

Ya mucit kardeşim kusura bakma senide yoruyorum. Bu kayan yazının kaydırma yönünü nasıl değiştiririz aldığım display devreye yatay olarak denk geliyor baskı devrede sıkıntı oluyor eğer kaydırma yönünü değiştirsek display devreye dik gelecek baskı devre çizimi kolaylaşacak yardımcı olursan sevinirim

[Mucit23]

Açıkçası dediğini pek anlayamadım. Bu haliyle sadece yazılımla yazıyı tersten kaydırmak basit. Fakat anladığım kadarıyla displey leri yan yerleştirmek istiyorsun. Eğer dediğin bu ise bildiğim kadarıyla yazılımda oynamaya gerek yok. Sadece Anot display kullanıyorsan katot display ile değiştirmek gerekiyordu. Böyle birşey olacaktı. Tam emin değilim.