BUYUR ARKADASIM.DEVRE BU 8 LEDLI VE 7 ANIMASYONLU KENDI KENDINE DEĞİŞİK 7 ANIMASYONLA ÇALIŞIYOR.DEVREYI KURDUM VE COK GÜZEL ÇALIŞIYOR.KOLAY GELSİN.PROGRAMI BU:
; PICBASIC PRO(TM) Compiler 2.47, (c) 1998, 2006 microEngineering Labs, Inc. All Rights Reserved. PM_USED EQU 1
yukarıda Enesxx sormuş cmos entegre mi yoksa diye ,ben flip floplarlarlayapabileceğim çok basit,sadece eğlence niyetine birkaç kişiye verebileceğim bir devre arıyorum, ledler sırasıyla veya karışık bir şekilde yanacak, mümkünse onlardan bulabilirmiyiz?
Bu mesaja 1 cevap geldi. Cevapları Gizle
Bu mesaja 1 cevap geldi. Cevapları Gizle
http://rapidshare.com/files/24504065/YURU.rar.html
" **** " olan kısıma " r a p i d s h a r e " yaz
< Bu mesaj bu kişi tarafından değiştirildi don.vito -- 5 Nisan 2007; 23:43:26 >
; PICBASIC PRO(TM) Compiler 2.47, (c) 1998, 2006 microEngineering Labs, Inc. All Rights Reserved.
PM_USED EQU 1
INCLUDE "16F84A.INC"
RAM_START EQU 0000Ch
RAM_END EQU 0004Fh
RAM_BANKS EQU 00001h
BANK0_START EQU 0000Ch
BANK0_END EQU 0004Fh
EEPROM_START EQU 02100h
EEPROM_END EQU 0213Fh
R0 EQU RAM_START + 000h
R1 EQU RAM_START + 002h
R2 EQU RAM_START + 004h
R3 EQU RAM_START + 006h
R4 EQU RAM_START + 008h
R5 EQU RAM_START + 00Ah
R6 EQU RAM_START + 00Ch
R7 EQU RAM_START + 00Eh
R8 EQU RAM_START + 010h
FLAGS EQU RAM_START + 012h
GOP EQU RAM_START + 013h
RM1 EQU RAM_START + 014h
RM2 EQU RAM_START + 015h
RR1 EQU RAM_START + 016h
RR2 EQU RAM_START + 017h
_i EQU RAM_START + 018h
_PORTL EQU PORTB
_PORTH EQU PORTA
_TRISL EQU TRISB
_TRISH EQU TRISA
INCLUDE "MYGITT.MAC"
INCLUDE "PBPPIC14.LIB"
MOVE?CB 000h, TRISB
MOVE?CB 000h, PORTB
LABEL?L _karasimsek
MOVE?CB 001h, _i
LABEL?L L00001
CMPGT?BCL _i, 004h, L00002
MOVE?CB 001h, PORTB
PAUSE?C 064h
MOVE?CB 002h, PORTB
PAUSE?C 064h
MOVE?CB 004h, PORTB
PAUSE?C 064h
MOVE?CB 008h, PORTB
PAUSE?C 064h
MOVE?CB 010h, PORTB
PAUSE?C 064h
MOVE?CB 020h, PORTB
PAUSE?C 064h
MOVE?CB 040h, PORTB
PAUSE?C 064h
MOVE?CB 080h, PORTB
PAUSE?C 064h
MOVE?CB 040h, PORTB
PAUSE?C 064h
MOVE?CB 020h, PORTB
PAUSE?C 064h
MOVE?CB 010h, PORTB
PAUSE?C 064h
MOVE?CB 008h, PORTB
PAUSE?C 064h
MOVE?CB 004h, PORTB
PAUSE?C 064h
MOVE?CB 002h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00001
LABEL?L L00002
LABEL?L _ortada
MOVE?CB 001h, _i
LABEL?L L00003
CMPGT?BCL _i, 002h, L00004
MOVE?CB 081h, PORTB
PAUSE?C 064h
MOVE?CB 042h, PORTB
PAUSE?C 064h
MOVE?CB 024h, PORTB
PAUSE?C 064h
MOVE?CB 018h, PORTB
PAUSE?C 064h
MOVE?CB 024h, PORTB
PAUSE?C 064h
MOVE?CB 042h, PORTB
PAUSE?C 064h
MOVE?CB 081h, PORTB
PAUSE?C 064h
MOVE?CB 042h, PORTB
PAUSE?C 064h
MOVE?CB 024h, PORTB
PAUSE?C 064h
MOVE?CB 018h, PORTB
PAUSE?C 064h
MOVE?CB 024h, PORTB
PAUSE?C 064h
MOVE?CB 042h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00003
LABEL?L L00004
LABEL?L _flash
MOVE?CB 001h, _i
LABEL?L L00005
CMPGT?BCL _i, 008h, L00006
MOVE?CB 0FFh, PORTB
PAUSE?C 064h
MOVE?CB 000h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00005
LABEL?L L00006
MOVE?CB 001h, _i
LABEL?L L00007
CMPGT?BCL _i, 008h, L00008
MOVE?CB 0AAh, PORTB
PAUSE?C 064h
MOVE?CB 055h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00007
LABEL?L L00008
LABEL?L _xp_stili
MOVE?CB 001h, _i
LABEL?L L00009
CMPGT?BCL _i, 004h, L00010
MOVE?CB 001h, PORTB
PAUSE?C 064h
MOVE?CB 003h, PORTB
PAUSE?C 064h
MOVE?CB 007h, PORTB
PAUSE?C 064h
MOVE?CB 00Fh, PORTB
PAUSE?C 064h
MOVE?CB 01Fh, PORTB
PAUSE?C 064h
MOVE?CB 03Fh, PORTB
PAUSE?C 064h
MOVE?CB 07Fh, PORTB
PAUSE?C 064h
MOVE?CB 0FFh, PORTB
PAUSE?C 064h
MOVE?CB 0FEh, PORTB
PAUSE?C 064h
MOVE?CB 0FCh, PORTB
PAUSE?C 064h
MOVE?CB 0F8h, PORTB
PAUSE?C 064h
MOVE?CB 0F0h, PORTB
PAUSE?C 064h
MOVE?CB 0E0h, PORTB
PAUSE?C 064h
MOVE?CB 0C0h, PORTB
PAUSE?C 064h
MOVE?CB 080h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00009
LABEL?L L00010
LABEL?L _xp_stili_ters
MOVE?CB 001h, _i
LABEL?L L00011
CMPGT?BCL _i, 004h, L00012
MOVE?CB 080h, PORTB
PAUSE?C 064h
MOVE?CB 0C0h, PORTB
PAUSE?C 064h
MOVE?CB 0E0h, PORTB
PAUSE?C 064h
MOVE?CB 0F0h, PORTB
PAUSE?C 064h
MOVE?CB 0F8h, PORTB
PAUSE?C 064h
MOVE?CB 0FCh, PORTB
PAUSE?C 064h
MOVE?CB 0FEh, PORTB
PAUSE?C 064h
MOVE?CB 0FFh, PORTB
PAUSE?C 064h
MOVE?CB 07Fh, PORTB
PAUSE?C 064h
MOVE?CB 03Fh, PORTB
PAUSE?C 064h
MOVE?CB 01Fh, PORTB
PAUSE?C 064h
MOVE?CB 00Fh, PORTB
PAUSE?C 064h
MOVE?CB 007h, PORTB
PAUSE?C 064h
MOVE?CB 003h, PORTB
PAUSE?C 064h
MOVE?CB 001h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00011
LABEL?L L00012
MOVE?CB 001h, _i
LABEL?L L00013
CMPGT?BCL _i, 004h, L00014
MOVE?CB 001h, PORTB
PAUSE?C 064h
MOVE?CB 003h, PORTB
PAUSE?C 064h
MOVE?CB 007h, PORTB
PAUSE?C 064h
MOVE?CB 00Fh, PORTB
PAUSE?C 064h
MOVE?CB 01Fh, PORTB
PAUSE?C 064h
MOVE?CB 03Fh, PORTB
PAUSE?C 064h
MOVE?CB 07Fh, PORTB
PAUSE?C 064h
MOVE?CB 0FFh, PORTB
PAUSE?C 064h
MOVE?CB 0FEh, PORTB
PAUSE?C 064h
MOVE?CB 0FCh, PORTB
PAUSE?C 064h
MOVE?CB 0F8h, PORTB
PAUSE?C 064h
MOVE?CB 0F0h, PORTB
PAUSE?C 064h
MOVE?CB 0E0h, PORTB
PAUSE?C 064h
MOVE?CB 0C0h, PORTB
PAUSE?C 064h
MOVE?CB 080h, PORTB
PAUSE?C 064h
MOVE?CB 0C0h, PORTB
PAUSE?C 064h
MOVE?CB 0E0h, PORTB
PAUSE?C 064h
MOVE?CB 0F0h, PORTB
PAUSE?C 064h
MOVE?CB 0F8h, PORTB
PAUSE?C 064h
MOVE?CB 0FCh, PORTB
PAUSE?C 064h
MOVE?CB 0FEh, PORTB
PAUSE?C 064h
MOVE?CB 0FFh, PORTB
PAUSE?C 064h
MOVE?CB 07Fh, PORTB
PAUSE?C 064h
MOVE?CB 03Fh, PORTB
PAUSE?C 064h
MOVE?CB 01Fh, PORTB
PAUSE?C 064h
MOVE?CB 00Fh, PORTB
PAUSE?C 064h
MOVE?CB 007h, PORTB
PAUSE?C 064h
MOVE?CB 003h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00013
LABEL?L L00014
MOVE?CB 001h, _i
LABEL?L L00015
CMPGT?BCL _i, 004h, L00016
MOVE?CB 081h, PORTB
PAUSE?C 064h
MOVE?CB 0C3h, PORTB
PAUSE?C 064h
MOVE?CB 0E7h, PORTB
PAUSE?C 064h
MOVE?CB 0FFh, PORTB
PAUSE?C 064h
MOVE?CB 07Eh, PORTB
PAUSE?C 064h
MOVE?CB 03Ch, PORTB
PAUSE?C 064h
MOVE?CB 018h, PORTB
PAUSE?C 064h
MOVE?CB 000h, PORTB
PAUSE?C 064h
NEXT?BCL _i, 001h, L00015
LABEL?L L00016
END
< Resime gitmek için tıklayın >
Bu mesaja 1 cevap geldi. Cevapları Gizle