12F675 ile Rastgele Yanan Ledler

'****************************************************************
'*  Name    :random_Led_12F675.BAS                                        *
'*  Author  : Şinasi Yavuz                                     *
'*  Notice  : Copyright (c) 09,Nisan,2015                          *
'*          :                              *
'*  Date    :  12,Nisan,2015                                       *
'*  Version : 1.0                                               *
'*  Notes   :                          *
'*          :                                                   *
'****************************************************************
Aşağıdaki linkten projenin dosyalarını indirebilirsiniz.




DEFINE LOADER_USED 1
define osc 4
@ DEVICE pic12f675, INTRC_OSC_NOCLKOUT,mclr_off
'@ DEVICE pic12f675,XT_OSC
@ device pic12f675,pwrt_on
@ device pic12f675,mclr_off    
trisio=%11001001
gpio  =%11001001

CMCON=7
ANSEL=0

OPTION_REG.7 = 0
osccal=3408

B1 var Byte
W1 var Word

BASLA:
   
w1=w1+1
random  w1
b1=w1
gpio= b1
pause 200
   
GOTO BASLA
END
Random 12F675 Ledler RAR Dosyası indir