5x7 kayan yazı pic basic pro direk yazı girişi

[SENAY]

'****************************************************************
'*  Name    : KAYAN.BAS                                         *
'*  Author  : [set under view...options]                        *
'*  Notice  : Copyright (c) 2004 [set under view...options]     *
'*          : All Rights Reserved                               *
'*  Date    :                                                   *
'*  Version :                                                   *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
 

   JE VAR BYTE
   TE VAR BYTE          ;TARAMA İÇİN KULLANILIR
   KE VAR BYTE
   SUTUN1 VAR BYTE
   SUTUN2 VAR BYTE
   SUTUN3 VAR BYTE
   SUTUN4 VAR BYTE
   SUTUN5 VAR BYTE
   YEDEKSUTUN1 VAR BYTE
   YEDEKSUTUN2 VAR BYTE
   YEDEKSUTUN3 VAR BYTE
   YEDEKSUTUN4 VAR BYTE
   YEDEKSUTUN5 VAR BYTE
   ALINAN VAR BYTE
   SUTUN1=0
   SUTUN2=0
   SUTUN3=0
   SUTUN4=0
   SUTUN5=0

   YEDEKSUTUN1=0
   YEDEKSUTUN2=0
   YEDEKSUTUN3=0
   YEDEKSUTUN4=0
   YEDEKSUTUN5=0
 
 
   TRISA=%00000000
   TRISB=%00000000
   PORTA=%00000000
   PORTB=%10000000

   IF PORTB.7=0 THEN GOTO SARIGIY
BASLA:
   
   IF PORTB.7=0 THEN
       PAUSE 2000
       IF PORTB.7=1 THEN GOTO HATICE
       IF PORTB.7=0 THEN GOTO PROGRAM2
   ENDIF
   GOTO BASLA

SARIGIY:
       FOR JE=0 TO 212
           LOOKUP JE,["213 harf yazılacak"],ALINAN
           GOSUB KARAKTER
               FOR KE=0 TO 4
               GOSUB KAYDIR_SOLA
               GOSUB BEKLE
               NEXT KE
           YEDEKSUTUN5=0
           GOSUB KAYDIR_SOLA
           GOSUB BEKLE
           NEXT JE
   GOTO SARIGIY2
SARIGIY2:
       FOR JE=0 TO 222
           LOOKUP JE,["223 harf yazılacak"],ALINAN
           GOSUB KARAKTER
               FOR KE=0 TO 4
               GOSUB KAYDIR_SOLA
               GOSUB BEKLE
               NEXT KE
           YEDEKSUTUN5=0
           GOSUB KAYDIR_SOLA
           GOSUB BEKLE
           NEXT JE
   GOTO SARIGIY
HATICE:
       FOR JE=0 TO 6
           LOOKUP JE,["7 harf yazılacak"],ALINAN
           GOSUB KARAKTER
               FOR KE=0 TO 4
               GOSUB KAYDIR_SOLA
               GOSUB BEKLE
               NEXT KE
               GOSUB SIFIRLA
               
               GOSUB BEKLE
               GOSUB BEKLE
               YEDEKSUTUN5=0
           GOSUB KAYDIR_SOLA
           GOSUB BEKLE
       NEXT JE
   GOTO HATICE
PROGRAM2:

       FOR JE=0 TO 155
           LOOKUP JE,["156 harf yazılacak"],ALINAN
           GOSUB KARAKTER
               FOR KE=0 TO 4
               GOSUB KAYDIR_SOLA
               GOSUB BEKLE
               NEXT KE
           YEDEKSUTUN5=0
           GOSUB KAYDIR_SOLA
           GOSUB BEKLE
   NEXT JE
   GOTO PROGRAM2
KARAKTER:
            IF ALINAN=4 THEN GOSUB _C
            IF ALINAN=5 THEN GOSUB _G
             IF ALINAN=6 THEN GOSUB _I
              IF ALINAN=7 THEN GOSUB _O
               IF ALINAN=8 THEN GOSUB _S
               IF ALINAN=9 THEN GOSUB _U
           IF ALINAN=$20 THEN GOSUB BOSLUK
           IF ALINAN=$21 THEN GOSUB UNLEM          ;   !
           IF ALINAN=$22 THEN GOSUB CIFTTIRNAK     ;   "
           IF ALINAN=$23 THEN GOSUB DIYEZ          ;   #
           IF ALINAN=$24 THEN GOSUB DOLAR          ;   $
           IF ALINAN=$25 THEN GOSUB YUZDE          ;   %
           IF ALINAN=$26 THEN GOSUB VE             ;   &
           IF ALINAN=$27 THEN GOSUB USTTENVIRGUL   ;   '
           IF ALINAN=$28 THEN GOSUB SOLAPARANTEZ   ;   (
           IF ALINAN=$29 THEN GOSUB SAGAPARANTEZ   ;   )
         
           IF ALINAN=$2C THEN GOSUB VIRGUL         ;   ,
           IF ALINAN=$2D THEN GOSUB EKSI           ;   -
           IF ALINAN=$2E THEN GOSUB NOKTA          ;   .
         
           IF ALINAN=$31 THEN GOSUB SIFIR
           IF ALINAN=$31 THEN GOSUB BIR
           IF ALINAN=$32 THEN GOSUB IKI
           IF ALINAN=$33 THEN GOSUB UC
           IF ALINAN=$34 THEN GOSUB DORT
           IF ALINAN=$35 THEN GOSUB BES
           IF ALINAN=$36 THEN GOSUB ALTI
           IF ALINAN=$37 THEN GOSUB YEDI
           IF ALINAN=$38 THEN GOSUB SEKIZ
           IF ALINAN=$39 THEN GOSUB DOKUZ
           
           
           IF ALINAN=$3C THEN GOSUB SOLAUCGEN      ;   <
         
           IF ALINAN=$3E THEN GOSUB SAGAUCGEN      ;   >
           IF ALINAN=$3F THEN GOSUB SORU           ;  
           IF ALINAN=$41 THEN GOSUB A
           IF ALINAN=$42 THEN GOSUB B
           IF ALINAN=$43 THEN GOSUB C
           IF ALINAN=$44 THEN GOSUB D
           IF ALINAN=$45 THEN GOSUB E
           IF ALINAN=$46 THEN GOSUB F
           IF ALINAN=$47 THEN GOSUB G
           IF ALINAN=$48 THEN GOSUB H
           IF ALINAN=$49 THEN GOSUB I
           IF ALINAN=$4A THEN GOSUB J
           IF ALINAN=$4B THEN GOSUB K
           IF ALINAN=$4C THEN GOSUB L
           IF ALINAN=$4D THEN GOSUB M
           IF ALINAN=$4E THEN GOSUB N
           IF ALINAN=$4F THEN GOSUB O
           IF ALINAN=$50 THEN GOSUB P
           IF ALINAN=$50 THEN GOSUB Q
           IF ALINAN=$52 THEN GOSUB R
           IF ALINAN=$53 THEN GOSUB S
           IF ALINAN=$54 THEN GOSUB T
           IF ALINAN=$55 THEN GOSUB U
           IF ALINAN=$56 THEN GOSUB V
           IF ALINAN=$57 THEN GOSUB W
           IF ALINAN=$58 THEN GOSUB X
           IF ALINAN=$59 THEN GOSUB Y
           IF ALINAN=$5A THEN GOSUB Z
       RETURN    
   
       
TARAMA:
    PORTB=0
    PORTA=%00011110
    PORTB=SUTUN1
    PAUSEUS 500

    PORTB=0
    PORTA=%00011101
    PORTB=SUTUN2
    PAUSEUS 500

   PORTB=0    
    PORTA=%00011011
    PORTB=SUTUN3
    PAUSEUS 500
   
    PORTB=0
    PORTA=%00010111
    PORTB=SUTUN4
    PAUSEUS 500
   
    PORTB=0
    PORTA=%00001111
    PORTB=SUTUN5
    PAUSEUS 500  
    PORTB=0
    RETURN

KAYDIR_SOLA:
    SUTUN5=SUTUN4
    SUTUN4=SUTUN3
    SUTUN3=SUTUN2
    SUTUN2=SUTUN1
    SUTUN1=YEDEKSUTUN5
    YEDEKSUTUN5=YEDEKSUTUN4
    YEDEKSUTUN4=YEDEKSUTUN3
    YEDEKSUTUN3=YEDEKSUTUN2
    YEDEKSUTUN2=YEDEKSUTUN1
   RETURN
BEKLE:
   FOR TE=0 TO 35
   GOSUB TARAMA
   NEXT TE
   RETURN
SIFIRLA:
   YEDEKSUTUN1=0
   YEDEKSUTUN2=0
   YEDEKSUTUN3=0
   YEDEKSUTUN4=0
   YEDEKSUTUN5=0
   RETURN
A:
       YEDEKSUTUN5=%01111100
       YEDEKSUTUN4=%00010010
       YEDEKSUTUN3=%00010001
       YEDEKSUTUN2=%00010010
       YEDEKSUTUN1=%01111100
       RETURN
B:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%00110110
       RETURN
C:
       YEDEKSUTUN5=%00111110
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%01000001
       YEDEKSUTUN2=%01000001
       YEDEKSUTUN1=%00100010
       RETURN
_C:
       YEDEKSUTUN5=%00011110
       YEDEKSUTUN4=%00100001
       YEDEKSUTUN3=%01100001
       YEDEKSUTUN2=%00100001
       YEDEKSUTUN1=%00010010
       RETURN
D:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%01000001
       YEDEKSUTUN2=%01000001
       YEDEKSUTUN1=%00111110
       RETURN
E:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%01000001
       RETURN
F:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%00001001
       YEDEKSUTUN3=%00001001
       YEDEKSUTUN2=%00001001
       YEDEKSUTUN1=%00000001
       RETURN
G:
       YEDEKSUTUN5=%00111110
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%01000001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%01111010
       RETURN
_G:
       YEDEKSUTUN5=%00111000
       YEDEKSUTUN4=%01000101
       YEDEKSUTUN3=%01000101
       YEDEKSUTUN2=%01010101
       YEDEKSUTUN1=%01110100
       RETURN
H:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%00001000
       YEDEKSUTUN3=%00001000
       YEDEKSUTUN2=%00001000
       YEDEKSUTUN1=%01111111
       RETURN
I:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%01111111
       YEDEKSUTUN2=%01000001
       YEDEKSUTUN1=%00000000
       RETURN
_I:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%01000100
       YEDEKSUTUN3=%01111101
       YEDEKSUTUN2=%01000100
       YEDEKSUTUN1=%00000000
       RETURN
J:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%00100000
       YEDEKSUTUN3=%01000001
       YEDEKSUTUN2=%00111111
       YEDEKSUTUN1=%00000001
       RETURN
K:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%00001000
       YEDEKSUTUN3=%00010100
       YEDEKSUTUN2=%00100010
       YEDEKSUTUN1=%01000001
       RETURN
L:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%01000000
       YEDEKSUTUN3=%01000000
       YEDEKSUTUN2=%01000000
       YEDEKSUTUN1=%01100000
       RETURN
M:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%00000010
       YEDEKSUTUN3=%00000100
       YEDEKSUTUN2=%00000010
       YEDEKSUTUN1=%01111111
       RETURN
N:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%00000010
       YEDEKSUTUN3=%00000100
       YEDEKSUTUN2=%00001000
       YEDEKSUTUN1=%01111111
       RETURN
O:
       YEDEKSUTUN5=%00111110
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%01000001
       YEDEKSUTUN2=%01000001
       YEDEKSUTUN1=%00111110
       RETURN
_O:
       YEDEKSUTUN5=%00111000
       YEDEKSUTUN4=%01000101
       YEDEKSUTUN3=%01000100
       YEDEKSUTUN2=%01000101
       YEDEKSUTUN1=%00111000
       RETURN
P:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%00010001
       YEDEKSUTUN3=%00010001
       YEDEKSUTUN2=%00010001
       YEDEKSUTUN1=%00001110
       RETURN
Q:
       YEDEKSUTUN5=%00111110
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%01010001
       YEDEKSUTUN2=%00100001
       YEDEKSUTUN1=%01011110
       RETURN
R:
       YEDEKSUTUN5=%01111111
       YEDEKSUTUN4=%00001001
       YEDEKSUTUN3=%00011001
       YEDEKSUTUN2=%00101001
       YEDEKSUTUN1=%01000110
       RETURN
S:
       YEDEKSUTUN5=%00100110
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%00110010
       RETURN
_S:
       YEDEKSUTUN5=%00100110
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01101001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%00110010
       RETURN
T:
       YEDEKSUTUN5=%00000001
       YEDEKSUTUN4=%00000001
       YEDEKSUTUN3=%01111111
       YEDEKSUTUN2=%00000001
       YEDEKSUTUN1=%00000001
       RETURN
U:
       YEDEKSUTUN5=%00111111
       YEDEKSUTUN4=%01000000
       YEDEKSUTUN3=%01000000
       YEDEKSUTUN2=%01000000
       YEDEKSUTUN1=%00111111
       RETURN
_U:
       YEDEKSUTUN5=%00111101
       YEDEKSUTUN4=%01000000
       YEDEKSUTUN3=%01000000
       YEDEKSUTUN2=%01000000
       YEDEKSUTUN1=%00111101
       RETURN

V:
       YEDEKSUTUN5=%00011111
       YEDEKSUTUN4=%00100000
       YEDEKSUTUN3=%01000000
       YEDEKSUTUN2=%00100000
       YEDEKSUTUN1=%00011111
       RETURN
W:
       YEDEKSUTUN5=%00111111
       YEDEKSUTUN4=%01000000
       YEDEKSUTUN3=%00111000
       YEDEKSUTUN2=%01000000
       YEDEKSUTUN1=%00111111
       RETURN
X:
       YEDEKSUTUN5=%01100011
       YEDEKSUTUN4=%00010100
       YEDEKSUTUN3=%00001000
       YEDEKSUTUN2=%00010100
       YEDEKSUTUN1=%01100011
       RETURN
Y:
       YEDEKSUTUN5=%00000011
       YEDEKSUTUN4=%00000100
       YEDEKSUTUN3=%01111000
       YEDEKSUTUN2=%00000100
       YEDEKSUTUN1=%00000011
       RETURN
Z:
       YEDEKSUTUN5=%01100001
       YEDEKSUTUN4=%01010001
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01000101
       YEDEKSUTUN1=%01000011
       RETURN
SIFIR:    
       YEDEKSUTUN5=%00111110
       YEDEKSUTUN4=%01000101
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01010001
       YEDEKSUTUN1=%00111110
       RETURN
BIR:    
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%01000010
       YEDEKSUTUN3=%01111111
       YEDEKSUTUN2=%01000000
       YEDEKSUTUN1=%00000000
       RETURN
IKI:    
       YEDEKSUTUN5=%01000010
       YEDEKSUTUN4=%01100001
       YEDEKSUTUN3=%01010001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%01000110
       RETURN
UC:    
       YEDEKSUTUN5=%00100001
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%01000101
       YEDEKSUTUN2=%01001011
       YEDEKSUTUN1=%00110001
       RETURN
DORT:    
       YEDEKSUTUN5=%00011000
       YEDEKSUTUN4=%00010100
       YEDEKSUTUN3=%00010010
       YEDEKSUTUN2=%01111111
       YEDEKSUTUN1=%00010000
       RETURN
BES:    
       YEDEKSUTUN5=%00101111
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%00110001
       RETURN
ALTI:    
       YEDEKSUTUN5=%00111100
       YEDEKSUTUN4=%01001010
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01001000
       YEDEKSUTUN1=%00110000
       RETURN
YEDI:    
       YEDEKSUTUN5=%00000001
       YEDEKSUTUN4=%01110001
       YEDEKSUTUN3=%00001001
       YEDEKSUTUN2=%00000101
       YEDEKSUTUN1=%00000011
       RETURN
SEKIZ:    
       YEDEKSUTUN5=%00110110
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%01001001
       YEDEKSUTUN1=%00110110
       RETURN
DOKUZ:    
       YEDEKSUTUN5=%00000110
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01001001
       YEDEKSUTUN2=%00101001
       YEDEKSUTUN1=%00011110
       RETURN
BOSLUK:    
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%00000000
       YEDEKSUTUN3=%00000000
       YEDEKSUTUN2=%00000000
       YEDEKSUTUN1=%00000000
       RETURN
UNLEM:    
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%00000000
       YEDEKSUTUN3=%01011111
       YEDEKSUTUN2=%00000000
       YEDEKSUTUN1=%00000000
       RETURN
CIFTTIRNAK:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%00001110
       YEDEKSUTUN3=%00000000
       YEDEKSUTUN2=%00001110
       YEDEKSUTUN1=%00010100
       RETURN
DIYEZ:    
       YEDEKSUTUN5=%00010100
       YEDEKSUTUN4=%01111111
       YEDEKSUTUN3=%00010100
       YEDEKSUTUN2=%01111111
       YEDEKSUTUN1=%00010100
       RETURN
DOLAR:
       YEDEKSUTUN5=%00100100
       YEDEKSUTUN4=%00101010
       YEDEKSUTUN3=%01111111
       YEDEKSUTUN2=%00101010
       YEDEKSUTUN1=%00010010
       RETURN
YUZDE:    
       YEDEKSUTUN5=%00100110
       YEDEKSUTUN4=%00010110
       YEDEKSUTUN3=%00001000
       YEDEKSUTUN2=%00110100
       YEDEKSUTUN1=%00110010
       RETURN
VE:
       YEDEKSUTUN5=%00110110
       YEDEKSUTUN4=%01001001
       YEDEKSUTUN3=%01010101
       YEDEKSUTUN2=%00100010
       YEDEKSUTUN1=%01010000
       RETURN
USTTENVIRGUL:    
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%00000101
       YEDEKSUTUN3=%00000011
       YEDEKSUTUN2=%00000000
       YEDEKSUTUN1=%00000000
       RETURN
SOLAPARANTEZ:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%00011100
       YEDEKSUTUN3=%00100010
       YEDEKSUTUN2=%01000001
       YEDEKSUTUN1=%00000000
       RETURN
SAGAPARANTEZ:    
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%00100010
       YEDEKSUTUN2=%00011100
       YEDEKSUTUN1=%00000000
       RETURN


VIRGUL:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%00000000
       YEDEKSUTUN3=%01010000
       YEDEKSUTUN2=%00110000
       YEDEKSUTUN1=%00000000
       RETURN
EKSI:    
       YEDEKSUTUN5=%00001000
       YEDEKSUTUN4=%00001000
       YEDEKSUTUN3=%00001000
       YEDEKSUTUN2=%00001000
       YEDEKSUTUN1=%00001000
       RETURN
NOKTA:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%01100000
       YEDEKSUTUN3=%01100000
       YEDEKSUTUN2=%00000000
       YEDEKSUTUN1=%00000000
       RETURN  

 
SOLAUCGEN:
       YEDEKSUTUN5=%00001000
       YEDEKSUTUN4=%00010100
       YEDEKSUTUN3=%00100010
       YEDEKSUTUN2=%01000001
       YEDEKSUTUN1=%00000000
       RETURN  

SAGAUCGEN:
       YEDEKSUTUN5=%00000000
       YEDEKSUTUN4=%01000001
       YEDEKSUTUN3=%00100010
       YEDEKSUTUN2=%00010100
       YEDEKSUTUN1=%00001000
       RETURN      
SORU:
       YEDEKSUTUN5=%00000010
       YEDEKSUTUN4=%00000001
       YEDEKSUTUN3=%01010001
       YEDEKSUTUN2=%00001001
       YEDEKSUTUN1=%00000110
       RETURN      
       END
 


İlgilenen arkadaşlara tarama,kod çözme gerekli tüm alt programlarla.Butonlara basılı tutularak çalıştırıldığında,açıldıktan sonra butona basıldığında ve 2sn butona basılı olarak çalıştırıldığında farklı yazı kaydırma işlemli tek dot matris displayli kayan yazı.

[SENAY]

Kendim için yapmış olduğum bir kayan yazı devresi.Bir anahtarlık olarak kullanıyorum.Arabaların uzaktan kumandaları buyukluğunde 3V saat pili ile çalışıyor.SMD pic16f876 bulamadım bulsaydım pc'den direk yüklenecek sekilde visual basic programıyla yapacaktrım.İlgilene arkadaşlara eagle çizilmiş baskı devresini de verebilirim.

[demirkan1]

Merhaba Senay,
çok güzel olmuş eline sağlık ancak diğer dökümanlarıda verirsen birde çalıştırıp deniyelim ayrıca ilgilenen  arkadaşlarada faydası olur
saygılarımla.

[aster]

Teşekkürler SENAY eline sağlık, ama verdiğin kodları code tag'ları içine alırsan daha iyi olacak ben ellemedim kodlar bozulabilrdi

[SENAY]

baskı devresini yahoo guruba yükledim.Arkadaşlar bunun şeması yok.Dirençler 10k,picin altındaki 3 bacaklı eleman  rezonatör,displayin altındaki ise 3v pil yuvası.Bir reset butonu ve bir start butonu mevcut.entegre  ve pil yuvası alttan takılıyor.Diğer parçalar üstten olacak.Picin reset ve besleme uçlarına bakarak anlayabilirsiniz.[/URL][/img]