kayan yazı devresi

[aykut54]

arkadaşlar pic basic yeni başladım kayan yazı devreleri çok hoşuma gidiyor kayan yazı yapmak istiyorum elinde kayan yazı ile alakalı döküman varsa verebilrmi sitemizdeki devreler profesyoneller için beni biraz aşıyor

[Ersin]

Ust sag da Arama butonu var.
Forumda arama yi sec , o sana yardimci olacak.
Ama o da zor geliyosa devreyi de biz yapalim.
Ortalik kayan yazi ile dolu  :!:

[aykut54]

kardeş onu biliyorum ama bulamadım saygılar

[teknikelektronikci]

linkteki devre c ile yazilmis isteriseniz pic basic proya cevirebilirsiniz ya da en azindan mantigi bakimindan ve donanim bakimindan fikir verebilir bu arada donanim olarak display icin baski devre istersen baski devre sini daha önce upload etmistim burayada koyarim kolay gelsin

http://www.biltek.tubitak.gov.tr/gelisim/elektronik/anasayfa.htm

[ahmet2004]

Burada daha basit bir proje var.

Link : Kayan Yazı projesi

'===COKLU KARAKTER KAYDIRILIYOR===

P1 VAR BYTE
i VAR BYTE
i1 VAR BYTE

d0 VAR BYTE
d1 VAR BYTE
d2 VAR BYTE
d3 VAR BYTE
d4 VAR BYTE
d5 VAR BYTE
d6 VAR BYTE
d7 VAR BYTE
d8 VAR BYTE
d9 VAR BYTE
d10 VAR BYTE
d11 VAR BYTE
d12 VAR BYTE
d13 VAR BYTE
d14 VAR BYTE
d15 VAR BYTE
d16 VAR BYTE
d17 VAR BYTE
d18 VAR BYTE
d19 VAR BYTE
d20 VAR BYTE
d21 VAR BYTE
d22 VAR BYTE
d23 VAR BYTE
d24 VAR BYTE
d25 VAR BYTE
d26 VAR BYTE
d27 VAR BYTE
d28 VAR BYTE
d29 VAR BYTE


TRISA=%00000000	'===BUTUN UCLAR===
TRISB=%00000000	'===CIKIS YAPILDI===

P1=5	'===TITREMEYI ENGELLEMEK LCLN===
i=0 	'=== BU DEGER SABIT KALSIN===
i1=22	'===KAYMA HIZINI AYARLIYOR===
	'===MEHMET karakterinin degiskenlere atanmasi===
d0=%00000000
d1=%01111111
d2=%00000010
d3=%00000100
d4=%00000010
d5=%01111111
d6=%00000000
d7=%01111111
d8=%01001001
d9=%01001001
d10=%00000000
d11=%01111111
d12=%00001000
d13=%00001000
d14=%01111111
d15=%00000000
d16=%01111111
d17=%00000010
d18=%00000100
d19=%00000010
d20=%01111111
d21=%00000000
d22=%01111111
d23=%01001001
d24=%01001001
d25=%00000000
d26=%00000001
d27=%01111111
d28=%00000001
d29=%00000000

BASLA:
	i=i+1			'i YI BIR ARTTIR
	IF i=i1 Then kaydir

	PORTA=%11111110		'SUTUN 1 ICIN 
	PORTB=d1
	Pause P1
	
	PORTA=%11111101		'SUTUN 2 ICIN
	PORTB=d2
	Pause P1
	
	PORTA=%11111011		'SUTUN 3 ICIN
	PORTB=d3
	Pause P1
	
	PORTA=%11110111		'SUTUN 4 ICIN
	PORTB=d4
	Pause P1
	
	PORTA=%11101111		'SUTUN 5 ICIN
	PORTB=d5
	Pause P1
	
	GoTo BASLA
	
kaydir:
	i=0
	'===KAYDIRMA BASLIYOR===
	d0=d1
	d1=d2
	d2=d3
	d3=d4
	d4=d5
	d5=d6
	d6=d7
	d7=d8
	d8=d9
	d9=d10
	d10=d11
	d11=d12
	d12=d13
	d13=d14
	d14=d15
	d15=d16
	d16=d17
	d17=d18
	d18=d19
	d19=d20
	d20=d21
	d21=d22
	d22=d23
	d23=d24
	d24=d25
	d25=d26
	d26=d27
	d27=d28
	d28=d29
	d29=d0
	
	GoTo BASLA
	End

Tek karakter için kayan yazı projesi.

[babali]

ahmet ben bu şekilde bıtane yazdım ama hata verıyor

[babali]

birde pic basıc ın hangı pic e gore yapacaksak onu tanıtmamız gerekmezmı

[ahmet2004]

P1 VAR BYTE

yazman lazımdı  P1VAR BYTE  yazmşsın hatalı yazım var sende.

[babali]

ahmet yazdıgım bu


'===5x8 dısplayde N yazma ===
TRISA=%00000000
TRISB=%00000000

P1VAR BYTE
P1=5  'TİTREMEYİ ÖNLEMEK İCİN
BASLA:
    '=== N KARAKTERİNİ OLUSTURUYORUM ===
    PORTA=%11111110
    PORTB=%11111111
    PAUSE 5
    PORTA=%11111101
    PORTB=%00001000
    PAUSE 5
    PORTA=%11111011
    PORTB=%00100000
    PAUSE 5
    PORTA=%11110111
    PORTB=%01000000
    PAUSE 5
    PORTA=%11101111
    PORTB=%11111111
    PAUSE 5
    GOTO BASLA
    END