'****************************************************************
'* Name : YILDI ÜÇGEN RÖLE.BAS *
'* Author : [email protected] *
'* Notice : Copyright (c) 2006 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 08.07.2006 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Define LCD_DREG PORTB 'LCD DATA TANIM AYARLARI *** look for this picbasic's help
Define LCD_DBIT 4 'LCD TANIM AYARLARI
Define LCD_RSREG PORTB 'LCD RS TANIM AYARLARI
Define LCD_RSBIT 2 'LCD TANIM AYARLARI
Define LCD_EREG PORTB 'LCD RE TANIM AYARLARI
Define LCD_EBIT 3 'LCD TANIM AYARLARI
DEFINE LCD_LINES 2 'LCD SATIR SAYISI
'*********************variable defines*************************
SAYAC VAR BYTE 'time counter for 1 sec
SANIYE VAR BYTE 'second counter
KUMANDA VAR BIT
UCGENEGEC1 VAR BIT
B1 VAR BYTE
B0 VAR BYTE
B2 VAR BYTE
B3 VAR BYTE
B4 VAR BYTE
B5 VAR BYTE
'*******************time counter's interrupt options**************
ON INTERRUPT GoTo KESME 'if interrupt occure goto KESME.
OPTION_REG=%10000101 'Pull up resistors canceled- division ratio 1/64.
INTCON=%10100000 'interrupt enable and tmr0 enable
TMR0=0
CMCON=7
clear 'clear all variables
LCDOUT $FE,1 'clear lcd
PAUSE 500 'pause for lcd init
'TRISA=%
'TRISB=0 'PORTB is output
'*****************slide text for splash screen**************************
LOOP:
LCDOut $fe,2
For B2= 0 TO 15
LookUp B0, [" OTUGEN OTOMASYON #"], B1
IF B1 = "#" Then GoTo reset
LCDOut B1
B0 = B0 + 1
Next B2
pause 125 'character wait time
B0 = B0 - 15
GoTo loop
RESET:
LCDOUT $FE,1
'*****************************************************************
onprogram:
LCDOUT $FE,$80
LCDOUT " YILDIZ UCGEN "
LCDOUT $FE,$C0
LCDOUT " KUMANDA ROLESI "
PAUSE 500
LCDOUT $FE,1
ANAPROGRAM:
IF PORTA.7=1 THEN
GOTO ARIZA
ELSE
GOTO NORMAL
ENDIF
ARIZA:
LCDOUT $FE,$80,"MOTORUN TERMIK"
LCDOUT $FE,$C0,"ROLESI ATTI "
LOW PORTB.0:LOW PORTA.3:LOW PORTB.1
KUMANDA=0:SAYAC=0:SANIYE=0
GOTO ANAPROGRAM
NORMAL:
LCDOUT $FE,$80,"MOTOR:"
IF PORTA.3=0 THEN
GOTO mesajstop
else
goto start
endif
mesajstop:
lcdout $fe,$86,"STOP "
LCDOUT $FE,$C0," "
GOTO KONTROL
START:
lcdout $fe,$86,"START "
GOTO KONTROL
KONTROL:
IF (PORTA.1=1) OR (PORTA.7=1) THEN GOTO MOTORDUR
IF (PORTA.1=0)AND(PORTA.7=0)AND(PORTA.0=1)OR(KUMANDA=1) THEN
GOTO MOTORYILDIZ
ELSE
GOTO MOTORDUR
ENDIF
MOTORYILDIZ:
KUMANDA=1
IF SANIYE=15 THEN
UCGENEGEC1=1
ENDIF
IF UCGENEGEC1=1 THEN GOTO UCGEN
LOW PORTB.0:HIGH PORTA.3:HIGH PORTB.1
LCDOUT $FE,$C0,"CALISMA YILDIZ"
GOTO PROGRAMDEVAM
UCGEN:
HIGH PORTB.0:HIGH PORTA.3:LOW PORTB.1
LCDOUT $FE,$C0,"CALISMA UCGEN "
GOTO ANAPROGRAM
MOTORDUR:
LOW PORTB.0:LOW PORTA.3:LOW PORTB.1
KUMANDA=0:SAYAC=0:SANIYE=0
PROGRAMDEVAM:
GOTO ANAPROGRAM
'********************time relay parameters**************************
DISABLE
KESME:
IF KUMANDA=1 THEN
GOTO SAY
ELSE
GOTO DEVAM
ENDIF
SAY:
SAYAC=SAYAC+1 'interrupt counter 1 sec= 61(sayac) x 256 (Tmr0) x 64 (division)
IF SAYAC=61 then 'if 61 times interrupts occured the time becomes 1 sec.(999424 us)
SAYAC=0 'sayac cleared
SANIYE=SANIYE+1
' GOSUB ZAMAN_OKU
' if Y<5 then HIGH porta.3
ENDIF
DEVAM:
INTCON.2=0 'TMR0 flag cleared
RESUME
ENABLE
sayac = counter
saniye = second
kumanda = command
UCGENEGEC1 = pass to triangle
OTUGEN OTOMASYON = company name
YILDIZ UCGEN = star-triangle
KUMANDA ROLESI = command relay
ARIZA = failure
MOTORUN TERMIK ROLESI ATTI = the termic relay has been open
ANAPROGRAM = main program
mesajstop = stop message
KONTROL = control
PROGRAMDEVAM = continue program
DEVAM = continue
ZAMAN_OKU = read time
