Sayın arkadaşlar lütfen aşağıdaki yazılım hakkında yardım ederseniz sevinirim. Elektrikler kesildiğinde sayac kaldığı yerden devam etsin istiyorum. Yazılımda bir hata varsa düzeltebilirmisiniz lütfen,saygılarımla.
'* Name : UNTITLED.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 09.06.2013 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** CMCON = %00000111 ANSEL= 0 ' a/d converter iptali için. TRISIO = %111011 ' 2. bit çıkış-- diğerleri giriş. '------------------------------------------------------------------------------- @ device pic12f675 @ device pic12f675, wdt_on @ device pic12f675, protect_on @ device pic12f675, mclr_off @ device pic12f675, intrc_osc_noclkout '------------------------------------------------------------------------------- SAYAC VAR WORD DURUM VAR BYTE YAZ VAR BIT SYMBOL ROLE=GPIO.2 SYMBOL ELEKTRIK=GPIO.1 SAYAC=0
READ 1,DURUM
IF DURUM=255 THEN DURUM=0 GOSUB SAYACYAZ ENDIF ELEKTRIK=DURUM
BASLA: PAUSE 10000 SAYAC=SAYAC+1 IF SAYAC=10 THEN GOTO ROLEAC YAZ=1 GOTO BASLA
Elektrikler kesildiğinde sayac kaldığı yerden devam etsin istiyorum.
Yazılımda bir hata varsa düzeltebilirmisiniz lütfen,saygılarımla.
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 09.06.2013 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
CMCON = %00000111
ANSEL= 0 ' a/d converter iptali için.
TRISIO = %111011 ' 2. bit çıkış-- diğerleri giriş.
'-------------------------------------------------------------------------------
@ device pic12f675
@ device pic12f675, wdt_on
@ device pic12f675, protect_on
@ device pic12f675, mclr_off
@ device pic12f675, intrc_osc_noclkout
'-------------------------------------------------------------------------------
SAYAC VAR WORD
DURUM VAR BYTE
YAZ VAR BIT
SYMBOL ROLE=GPIO.2
SYMBOL ELEKTRIK=GPIO.1
SAYAC=0
READ 1,DURUM
IF DURUM=255 THEN
DURUM=0
GOSUB SAYACYAZ
ENDIF
ELEKTRIK=DURUM
BASLA:
PAUSE 10000
SAYAC=SAYAC+1
IF SAYAC=10 THEN GOTO ROLEAC
YAZ=1
GOTO BASLA
ROLEAC:
PAUSE 100
HIGH ROLE
SAYACYAZ:
DURUM=SAYAC
WRITE 1,DURUM
YAZ=0
RETURN
END