'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [Nurettin GÖKAŞAN] *
'* Notice : Copyright (c) 2005 [nurimelek] *
'* : All Rights Reserved *
'* Date : 13.04.2005 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
trisio=0 'tüm pinler çıkış
gpio=0'çıkışlar temizlendi
@ device pic12f675
@ device pic12f675,MCLR_Off
@ device pic12f675,WDT_ON
@ device pic12f675,PWRT_ON
@ device pic12f675,PROTECT_OFF
@ device pic12f675,HS_OSC
i var byte
option_reg=%10000000 'pullup dirençleri ihmal
intcon=0 'kesmeler iptal
cmcon=0 'karşılaştırıcılar iptal
adcon0=0 'tüm pinler digital yapıldı
ansel=0
'-------------------------------ANA PROGRAM BAŞLANGICI ---------------------------------------------
basla:
gpio.0=1
for i=0 to 29 'burada 30sn sayıyor ve led ynaık kalıyor
pause 1000
next i
yak: 'burada led 30 sn yandıktan sonra yanıp söuyor sonsuz dögüyer giriyor.
low gpio.0
pause 500
high gpio.0
pause 500
goto yak
END
#define MX_PIC
//Mikrodenetleyici için tan?mlamalar
#define P12F675
#define MX_EE
#define MX_EE_TYPE1
#define MX_EE_SIZE 128
//Fonksiyonlar
#define MX_CLK_SPEED 4000000
#ifdef _BOOSTC
#include <system.h>
#endif
#ifdef HI_TECH_C
#include <pic.h>
#endif
//Dosya yap?land?rmas?
#ifdef _BOOSTC
#pragma DATA 0x2007, 0x3f84
#endif
#ifdef HI_TECH_C
__CONFIG(0x3f84);
#endif
//Dahili fonksiyonlar
#include "internals.h"
//Makro fonksiyon bildirileri
//De?i?ken bildirileri
//Makro uygulamas?
void main()
{
//Ba?lang?ç
ansel = 0x20;
cmcon = 0x07;
//Kesme ba?lang?ç kodlamas?
option_reg = 0xC0;
//Ç?kt?
//Ç?kt? : 1 -> A0
trisio = trisio & 0xfe;
if (1)
gpio = (gpio & 0xfe) | 0x01;
else
gpio = gpio & 0xfe;
//Gecikme
//Gecikme : 30 s
delay_s(30);
//Döngü
//Döngü: ?ken 1
while (1)
{
//Ç?kt?
//Ç?kt? : 0 -> A0
trisio = trisio & 0xfe;
if (0)
gpio = (gpio & 0xfe) | 0x01;
else
gpio = gpio & 0xfe;
//Gecikme
//Gecikme : 300 ms
delay_ms(255);
delay_ms(45);
//Ç?kt?
//Ç?kt? : 1 -> A0
trisio = trisio & 0xfe;
if (1)
gpio = (gpio & 0xfe) | 0x01;
else
gpio = gpio & 0xfe;
//Gecikme
//Gecikme : 300 ms
delay_ms(255);
delay_ms(45);
}
mainendloop: goto mainendloop;
}
void MX_INTERRUPT_MACRO(void)
{
}