12F675 ile Polis Siren Lambası

Polis araçları tepe lambalarındaki gibi ritimli yanan 2 adet Ledden
oluşan PBP projesi. Mavi ve kırmızı led kullanarak devreyi yapabilirsiniz. Aşağıdaki linkten proje dosyalarını indirebilirsiniz.

                             '****************************************************************
'*  Name    : polis_sireni.BAS                                      *
'*  Author  : [Şinasi Yavuz]                                    *
'*  Notice  : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 26.03.2015                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

DEFINE LOADER_USED 1
'define osccal_1k 1
define osc 4
'@ DEVICE pic12F675,XT_OSC,mclr_off
@ DEVICE pic12f675,INTRC_OSC_NOCLKOUT, mclr_off

  trisio=001011
  gpio  =001011
ansel=0 'digital e çevrildi
 'ANSEL = 0100 ' Set AN2 analog, rest digital
            OPTION_REG.7 = 0
CMCON=7
OSCCAL = 3430
Led_1 var gpio.4
   Led_2 var gpio.5
   high led_1
   pause 1000
loop:
 
     high led_1
pause 1000  
      low led_1
pause 100
                 high led_2
pause 1000  
      low led_2
pause 100

 Goto loop  ' Do it forever

 End
Polis Siren Lambası RAR Dosyası indir