zaman ayarlama

[bahdiyarusta]

arkadaşlar bi zaman ayarlı devre yaptım da değeri 60sn den fazla gıtmesin istiyotum ayarlayamadım yardım edermısınısz..

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 14.06.2013                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************,
DEFINE LCD_DREG	PORTB ;LCD  data bacakları hangi porta bağlı?
DEFINE LCD_DBIT		4 ;LCD data  bacakları hangi bitten başlıyor?
DEFINE LCD_RSREG	PORTB ;LCD  RS Bacağı Hangi Porta bağlı ?
DEFINE LCD_RSBIT	1 ;LCD RS  bacağı Hangi Bite bağlı ?
DEFINE LCD_EREG	PORTB ;LCD  Enable Bacağı Hangi Porta bağlı?
DEFINE LCD_EBIT		3 ;LCD  Enable Bacağı Hangi bite bağlı ?
DEFINE LCD_BITS		4 ;LCD 4  bit mi yoksa 8 bit olarak bağlı?
DEFINE LCD_LINES	2 ;LCD Kaç  sıra yazabiliyor
SAYAC VAR WORD
TRISA=%11111111
TRISB=%00000000
PORTA=0
PORTB=0
SAYAC=0
CMCON=7
SYMBOL ARTTIR=PORTA.0
SYMBOL AZALT=PORTA.1
SYMBOL SENSOR=PORTA.2

BASLA: 
    LCDOUT $FE,1,#SAYAC/1000,"  SN" 
    LCDOUT $FE,$C0,"OTOMATIK KONTROL "
    PORTB.0=1
    PAUSE   200
    IF  ARTTIR=0 THEN SAYAC=SAYAC+10000 
    IF  AZALT=0 THEN SAYAC=SAYAC-10000
    IF SAYAC=55536 THEN SAYAC=0  
    IF SENSOR=0 THEN YAK
    GOTO BASLA
YAK:
    PORTB.0=0
    PAUSE SAYAC
    IF SENSOR=0 THEN YAK
    GOTO BASLA
    END

   
   

[pwm.c]

Böyle yap:

DEFINE LCD_DREG	PORTB ;LCD  data bacakları hangi porta bağlı?
DEFINE LCD_DBIT		4 ;LCD data  bacakları hangi bitten başlıyor?
DEFINE LCD_RSREG	PORTB ;LCD  RS Bacağı Hangi Porta bağlı ?
DEFINE LCD_RSBIT	1 ;LCD RS  bacağı Hangi Bite bağlı ?
DEFINE LCD_EREG	PORTB ;LCD  Enable Bacağı Hangi Porta bağlı?
DEFINE LCD_EBIT		3 ;LCD  Enable Bacağı Hangi bite bağlı ?
DEFINE LCD_BITS		4 ;LCD 4  bit mi yoksa 8 bit olarak bağlı?
DEFINE LCD_LINES	2 ;LCD Kaç  sıra yazabiliyor
SAYAC VAR WORD
TRISA=%11111111
TRISB=%00000000
PORTA=0
PORTB=0
SAYAC=0
CMCON=7
SYMBOL ARTTIR=PORTA.0
SYMBOL AZALT=PORTA.1
SYMBOL SENSOR=PORTA.2

BASLA: 
    LCDOUT $FE,1,#SAYAC/1000,"  SN" 
    LCDOUT $FE,$C0,"OTOMATIK KONTROL "
    PORTB.0=1
    PAUSE   200
    IF  SAYAC<60000 THEN
    IF  ARTTIR=0 THEN SAYAC=SAYAC+10000 
    ENDIF
    IF SAYAC>0 THEN
    IF  AZALT=0 THEN SAYAC=SAYAC-10000
    ENDIF      
    IF SENSOR=0 THEN YAK
    GOTO BASLA
YAK:
    PORTB.0=0
    PAUSE SAYAC
    IF SENSOR=0 THEN YAK
    GOTO BASLA
    END

yada böylede olur:

DEFINE LCD_DREG	PORTB ;LCD  data bacakları hangi porta bağlı?
DEFINE LCD_DBIT		4 ;LCD data  bacakları hangi bitten başlıyor?
DEFINE LCD_RSREG	PORTB ;LCD  RS Bacağı Hangi Porta bağlı ?
DEFINE LCD_RSBIT	1 ;LCD RS  bacağı Hangi Bite bağlı ?
DEFINE LCD_EREG	PORTB ;LCD  Enable Bacağı Hangi Porta bağlı?
DEFINE LCD_EBIT		3 ;LCD  Enable Bacağı Hangi bite bağlı ?
DEFINE LCD_BITS		4 ;LCD 4  bit mi yoksa 8 bit olarak bağlı?
DEFINE LCD_LINES	2 ;LCD Kaç  sıra yazabiliyor
SAYAC VAR BYTE
BEKLE VAR WORD
TRISA=%11111111
TRISB=%00000000
PORTA=0
PORTB=0
SAYAC=0
BEKLE=0
CMCON=7
SYMBOL ARTTIR=PORTA.0
SYMBOL AZALT=PORTA.1
SYMBOL SENSOR=PORTA.2

BASLA: 
    LCDOUT $FE,1,#SAYAC,"  SN" 
    LCDOUT $FE,$C0,"OTOMATIK KONTROL "
    PORTB.0=1
    PAUSE   200
    IF  ARTTIR=0 THEN SAYAC=SAYAC+10 
    IF  AZALT=0 THEN SAYAC=SAYAC-10
    IF SAYAC>60 THEN SAYAC=0      
    IF SENSOR=0 THEN YAK
    GOTO BASLA
YAK:
    PORTB.0=0
    BEKLE=sayac*1000
    PAUSE BEKLE
    IF SENSOR=0 THEN YAK
    GOTO BASLA
    END

[bahdiyarusta]

anladım teşekkurler.