سورس همه تقریبا یکی هست
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [Www.TamirKaran.ir] *
'* Notice : by : Mohammad - Mianaby *
'* : All Rights Reserved *
'* Date : 01.01.2011 *
'* Version : 1.0 *
'****************************************************************
@ DEVICE pic16F628A, INTRC_OSC_CLKOUT
' System Clock Options
@ DEVICE pic16F628A, WDT_ON
' Watchdog Timer
@ DEVICE pic16F628A, PWRT_ON
' Power-On Timer
@ DEVICE pic16F628A, MCLR_ON
' Master Clear Options (Internal)
@ DEVICE pic16F628A, BOD_ON
' Brown-Out Detect
@ DEVICE pic16F628A, LVP_OFF
' Low-Voltage Programming
@ DEVICE pic16F628A, CPD_OFF
' Data Memory Code Protect
' Set to CPD_OFF for Development Copy
' Set to CPD_ON for Release Copy
@ DEVICE pic16F628A, PROTECT_OFF
' Program Code Protection
' Set to PROTECT_OFF for Development Copy
' Set to PROTECT_ON for Release Copy
TRISB=00000
PORTB=00000
TamirKaran:
gosub Animasyon1
gosub Animasyon2
gosub Animasyon3
gosub Animasyon4
gosub Animasyon4
gosub Animasyon4
Goto TamirKaran
Animasyon1:
PORTB=%111111
pause 100
PORTB=%000000
pause 100
PORTB=%111111
pause 100
PORTB=%000000
pause 100
PORTB=%111111
pause 100
PORTB=%000000
pause 100
PORTB=%111111
pause 100
PORTB=%000000
pause 100
PORTB=%111111
pause 100
PORTB=%000000
pause 100
return
Animasyon2:
PORTB=%100000
pause 100
PORTB=%010000
pause 100
PORTB=%001000
pause 100
PORTB=%000100
pause 100
PORTB=%000010
pause 100
PORTB=%000001
pause 100
PORTB=%100001
pause 100
PORTB=%010001
pause 100
PORTB=%001001
pause 100
PORTB=%000101
pause 100
PORTB=%000011
pause 100
PORTB=%100011
pause 100
PORTB=%010011
pause 100
PORTB=%001011
pause 100
PORTB=%000111
pause 100
PORTB=%100111
pause 100
PORTB=%010111
pause 100
PORTB=%001111
pause 100
PORTB=%101111
pause 100
PORTB=%011111
pause 100
PORTB=%111111
pause 100
'-------------------
PORTB=%100000
pause 100
PORTB=%010000
pause 100
PORTB=%001000
pause 100
PORTB=%000100
pause 100
PORTB=%000010
pause 100
PORTB=%000001
pause 100
PORTB=%100001
pause 100
PORTB=%010001
pause 100
PORTB=%001001
pause 100
PORTB=%000101
pause 100
PORTB=%000011
pause 100
PORTB=%100011
pause 100
PORTB=%010011
pause 100
PORTB=%001011
pause 100
PORTB=%000111
pause 100
PORTB=%100111
pause 100
PORTB=%010111
pause 100
PORTB=%001111
pause 100
PORTB=%101111
pause 100
PORTB=%011111
pause 100
PORTB=%111111
pause 100
'-----------------
PORTB=%100000
pause 100
PORTB=%010000
pause 100
PORTB=%001000
pause 100
PORTB=%000100
pause 100
PORTB=%000010
pause 100
PORTB=%000001
pause 100
PORTB=%100001
pause 100
PORTB=%010001
pause 100
PORTB=%001001
pause 100
PORTB=%000101
pause 100
PORTB=%000011
pause 100
PORTB=%100011
pause 100
PORTB=%010011
pause 100
PORTB=%001011
pause 100
PORTB=%000111
pause 100
PORTB=%100111
pause 100
PORTB=%010111
pause 100
PORTB=%001111
pause 100
PORTB=%101111
pause 100
PORTB=%011111
pause 100
PORTB=%111111
pause 100
PORTB=%111111
pause 100
PORTB=%111111
pause 2000
return
Animasyon3:
PORTB=%111000
pause 100
PORTB=%000000
pause 100
PORTB=%111000
pause 100
PORTB=%000000
pause 100
PORTB=%111000
pause 100
PORTB=%000000
pause 100
PORTB=%111000
pause 100
PORTB=%000000
pause 100
PORTB=%111000
pause 100
PORTB=%000000
pause 100
PORTB=%111000
pause 100
PORTB=%000000
pause 100
PORTB=%000111
pause 100
PORTB=%000000
pause 100
PORTB=%000111
pause 100
PORTB=%000000
pause 100
PORTB=%000111
pause 100
PORTB=%000000
pause 100
PORTB=%000111
pause 100
PORTB=%000000
pause 100
PORTB=%000111
pause 100
PORTB=%000000
pause 100
PORTB=%000111
pause 100
PORTB=%000000
pause 100
return
Animasyon4:
PORTB=%100000
pause 100
PORTB=%010000
pause 100
PORTB=%001000
pause 100
PORTB=%000100
pause 100
PORTB=%000010
pause 100
PORTB=%000001
pause 100
PORTB=%000010
pause 100
PORTB=%000100
pause 100
PORTB=%001000
pause 100
PORTB=%010000
pause 100
PORTB=%100000
pause 100
return
END