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
ROLEAC: PAUSE 100 HIGH ROLE
SAYACYAZ: DURUM=SAYAC WRITE 1,DURUM YAZ=0 RETURN
END
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
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
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.