'****************************************************************
'* 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