Changing declared variables names on the fly


Closed Thread
Results 1 to 16 of 16

Hybrid View

  1. #1
    jessey's Avatar
    jessey Guest


    Did you find this post helpful? Yes | No

    Default How do I write to the eeprom locations?

    Hi Sayzer,

    Thanks for your explanation about the For-Next loop, I think I can grasp the concept of the Index For-Next loop now but what I don't understand is how do I write the values to the different eeprom locations. I added some push buttons to your code to try and increase and decrease the OnTime & OffTime variables and the Hour variable in an attempt to flash an Led but can't get it to work. Could you please help me to understand how to write to the different eeprom locations?

    Thanks
    jessey


    Code:
    'Pic18f452-20/P
    
    Increase_OnTime_Push_Button VAR PORTD.2    '(pin 21)  2nd  
    Decrease_OnTime_Push_Button var PORTB.0    '(pin 33)  3rd  
    Increase_OffTime_Push_Button var PORTB.1   '(pin 34)  4th                 
    Decrease_OffTime_Push_Button var PORTB.2   '(pin 20)  5th  
    Change_On_Off_Time_Push_Button VAR PORTD.1 '(pin 35)  6th  
    Led VAR PORTA.1                            '(pin 3)
    Buzzer VAR PORTC.2                         '(pin 17)
    
    OnTime  var byte
    OffTime var byte
    Index   var byte
    Hour    var byte
    HOUR = 0
    
    Is_Pressed con 0
    Is_Not_Pressed con 1      
    
    EEPROM 1,[1,2,3,4,5,6,7,8,9,10,101,102,103,104,105,106,107,108,109,110]
    
    GOTO MainLoop
    
    Change_On_Off_Time:
        PWM Buzzer,250,1
        WHILE Change_On_Off_Time_Push_Button = Is_Pressed : PAUSE 100 : WEND
    Loop:
        IF Increase_OnTime_Push_Button = Is_Pressed THEN 
           OnTime = OnTime + 1 : PWM Buzzer,250,1 
           WRITE 1, OnTime
        ENDIF
    
        IF Decrease_OnTime_Push_Button = Is_Pressed THEN
           OnTime = OnTime - 1 : PWM Buzzer,250,1 
           WRITE 1, OnTime
        ENDIF
                                       
        IF Increase_OffTime_Push_Button = Is_Pressed THEN
           OffTime = OffTime + 1 : PWM Buzzer,250,1 
           WRITE 101, OffTime
        ENDIF
    
        IF Decrease_OffTime_Push_Button = Is_Pressed THEN
           OffTime = OffTime - 1 : PWM Buzzer,250,1 
           WRITE 101, OffTime
        ENDIF
    
        IF Change_On_Off_Time_Push_Button = Is_Pressed THEN
          PWM Buzzer,250,1
          WHILE Change_On_Off_Time_Push_Button = Is_Pressed : PAUSE 100 : WEND
          RETURN
        ENDIF
    
           LCDOUT $fe,1,"OnTime  = ",dec Ontime
        LCDOUT $fe, $c0,"OffTime = ",dec OffTime 
        PAUSE 100
    goto Loop
    
    
    MainLoop:
        IF Change_On_Off_Time_Push_Button = Is_Pressed THEN GOSUB Change_On_Off_Time
    
       'Hour variable gets its value here......
        IF Increase_OnTime_Push_Button = Is_Pressed THEN 
           Hour = Hour + 1 : PWM Buzzer,250,1 
        ENDIF
    
       'Hour variable gets its value here......
        IF Decrease_OnTime_Push_Button = Is_Pressed THEN
           Hour = Hour - 1 : PWM Buzzer,250,1 
        ENDIF
    
           LCDOUT $fe,1,"Hr=",dec Hour," OnTime=",dec Ontime
        LCDOUT $fe, $c0,"OffTime = ",dec OffTime
    
        PAUSE 100
    
        FOR Index = 1 to 10
            READ Index , OnTime            ' Read stored ON  time.
            READ Index +100, OffTime       ' Read stored OFF time.
            IF Hour = Ontime  THEN Led = 1 ' If yes, turn ON the relay.
            IF Hour = Offtime THEN Led = 0 ' If yes, turn OFF the relay.
        NEXT Index 
    GOTO MainLoop
    END

  2. #2
    Join Date
    Sep 2004
    Location
    montreal, canada
    Posts
    6,898


    Did you find this post helpful? Yes | No

    Red face

    WRITE will work at run-time
    EEPROM or DATA will work at Programming time


    DATA @101,10 will write 10 at address 101 at programming time
    WRITE 101,10 will write 10 at adress 101 at run time

    i will read-back the whole post here, but it think you already understand the concept... OR i'm too drunk ... no way!
    Steve

    It's not a bug, it's a random feature.
    There's no problem, only learning opportunities.

  3. #3
    Join Date
    Jan 2006
    Location
    Istanbul
    Posts
    1,185


    Did you find this post helpful? Yes | No

    Default

    In addition to the info from Steve, here I have some modifications for you.

    Check and come back for the parts you do not understand.

    Code:
    EEPROM 1,[1,2,3,4,5,6,7,8,9,10,101,102,103,104,105,106,107,108,109,110]
    'Keep this command at the first line.
    'this will run only one time during the programming.
    'not each time you power your PIC.
    'These are your initial default values.
    
    
    Increase_OnTime_Push_Button     VAR PORTD.2 '(pin 21)  2nd  
    Decrease_OnTime_Push_Button     VAR PORTB.0 '(pin 33)  3rd  
    Increase_OffTime_Push_Button    VAR PORTB.1 '(pin 34)  4th                 
    Decrease_OffTime_Push_Button    VAR PORTB.2 '(pin 20)  5th  
    Change_On_Off_Time_Push_Button  VAR PORTD.1 '(pin 35)  6th  
    Led                             VAR PORTA.1 '(pin 3)
    Buzzer                          VAR PORTC.2 '(pin 17)
    IncrFlag VAR BIT
    DecrFlag VAR BIT
    
    OnTime  VAR byte
    OffTime VAR byte
    Index   VAR byte
    Hour    VAR byte
    HOUR = 0
    
    Is_Pressed      CON 0
    Is_Not_Pressed  CON 1
          
    IncrFlag = 0 '0 =  button is NOT pressed. 1= button is pressed.
    DecrFlag = 0 
    
    
    GOTO MainLoop
    
    Change_On_Off_Time:
        WHILE Change_On_Off_Time_Push_Button = Is_Pressed : GOSUB buzz : WEND
    Loop:
    
        IF Increase_OnTime_Push_Button = Is_Pressed THEN 
           WHILE Increase_OnTime_Push_Button = Is_Pressed : GOSUB buzz : WEND
           IncrFlag = 1
           OnTime = OnTime + 1
        ENDIF
    
        IF Decrease_OnTime_Push_Button = Is_Pressed THEN
           WHILE Decrease_OnTime_Push_Button = Is_Pressed : GOSUB buzz : WEND
           IncrFlag = 1
           OnTime = OnTime - 1 
        ENDIF
                                       
        IF Increase_OffTime_Push_Button = Is_Pressed THEN
           WHILE Increase_OffTime_Push_Button = Is_Pressed : GOSUB buzz : WEND
           DecrFlag = 1
           OffTime = OffTime + 1 
        ENDIF
    
        IF Decrease_OffTime_Push_Button = Is_Pressed THEN
           WHILE decrease_OffTime_Push_Button = Is_Pressed : GOSUB buzz : WEND
           DecrFlag = 1
           OffTime = OffTime - 1 
        ENDIF
    
        IF Change_On_Off_Time_Push_Button = Is_Pressed THEN
          WHILE Change_On_Off_Time_Push_Button = Is_Pressed : GOSUB buzz : WEND
          IF IncrFlag THEN WRITE 1,  OnTime       'If zero, then it means OnTime never changed.
          IF DecrFlag THEN WRITE 101,OffTime    'If zero, then it means OffTime never changed.
          gosub buzz  ''''
          pause 100   'kind a confirmation sound.
          gosub buzz  ''''
          GOTO MainLoop
        ENDIF
    
        LCDOUT $fe,1,   "OnTime  = ",dec Ontime
        LCDOUT $fe, $c0,"OffTime = ",dec OffTime 
        PAUSE 10
    
    GOTO Loop
    
    
    MainLoop:
        IF Change_On_Off_Time_Push_Button = Is_Pressed THEN goto Change_On_Off_Time
    
       'Hour variable gets its value here......
        IF Increase_OnTime_Push_Button = Is_Pressed THEN 
           WHILE Increase_OnTime_Push_Button = Is_Pressed : GOSUB buzz : WEND
           Hour = Hour + 1
        ENDIF
    
       'Hour variable gets its value here......
        IF Decrease_OnTime_Push_Button = Is_Pressed THEN
           WHILE Decrease_OnTime_Push_Button = Is_Pressed  : GOSUB buzz : WEND
           Hour = Hour - 1 
        ENDIF
    
    
        FOR Index = 1 to 10
            READ Index , OnTime            ' Read stored ON  time.
            READ Index +100, OffTime       ' Read stored OFF time.
            IF Hour = Ontime  THEN Led = 1 ' If yes, turn ON the relay.
            IF Hour = Offtime THEN Led = 0 ' If yes, turn OFF the relay.
        NEXT Index 
    
    
    
        LCDOUT $fe,1,   "Hr=",dec Hour," OnTime=",DEC Ontime
        LCDOUT $fe, $c0,"OffTime = ",DEC OffTime
    
        PAUSE 100
        
    
    GOTO MainLoop     
    
    
    Buzz:
         PWM Buzzer,250,1
         RETURN
    
    END
    "If the Earth were a single state, Istanbul would be its capital." Napoleon Bonaparte

  4. #4
    jessey's Avatar
    jessey Guest


    Did you find this post helpful? Yes | No

    Default Partial sucess

    Hello Sayzer,

    Thanks for your code example, I like the way the IncrFlag and the DecrFlag variables work in that you don't have to set it back to 0 and just use "IF DecrFlag THEN", that's cool. I tried your code and it didn't work as posted, in order to save the OnTime & OffTime I had to place Index.0=OffTime & Index.1=OnTime before the write then it would save ok. Another thing I had to do in order to save the on/off times was to change the FOR-NEXT loop from 1 - 10 to 0 - 1 then it saved?

    You and Steve say that EEPROM or DATA will work at Programming time and you have EEPROM 1,[1,2,3,4,5,6,7,8,9,10,101,102,103,104,105,106,107,1 08,109,110] but when I program the code then OnTime shows 2 and OffTime shows 255. As far as I can figure location 1 is OnTime and when I replace 1 in the above EEPROM statement with 8 then after programming then OnTime dose show 8 but I can't figure out how to get address 101 to show anything but 255 using the EEPROM?

    Am I correct in placing Index.1 and Index.0 before the write and if so how would I write to all the other addresses? I've been playing around with the code and can't seem to get it working properly. I'd like to be able to add additional subroutines to program additional on off times.

    Thanks
    jessey

    Code:
    EEPROM 1,[8,2,10,11,12,6,7,8,9,10,101,102,103,104,105,106,107,108,109,110]
    'Keep this command at the first line.
    'this will run only one time during the programming.
    'not each time you power your PIC.
    'These are your initial default values.
    
    
    Increase_OnTime_Push_Button     VAR PORTD.2 '(pin 21)  2nd  
    Decrease_OnTime_Push_Button     VAR PORTB.0 '(pin 33)  3rd  
    Increase_OffTime_Push_Button    VAR PORTB.1 '(pin 34)  4th                 
    Decrease_OffTime_Push_Button    VAR PORTB.2 '(pin 20)  5th  
    Change_Times_Push_Button  VAR PORTD.1       '(pin 35)  6th  
    Led                             VAR PORTA.1 '(pin 3)
    Buzzer                          VAR PORTC.2 '(pin 17)
    IncrFlag VAR BIT
    DecrFlag VAR BIT
    IncrFlag = 0 '0 =  button is NOT pressed. 1= button is pressed.
    DecrFlag = 0
    
    OnTime  VAR byte
    OffTime VAR byte
    Index   VAR byte
    Hour    VAR byte
    HOUR = 0
    
    Is_Pressed      CON 0
    Is_Not_Pressed  CON 1
          
     
    GOTO MainLoop
    
    Change_Times:
        GOSUB buzz
        WHILE Change_Times_Push_Button = Is_Pressed : PAUSE 100 : WEND
    Loop:
    
        IF Increase_OnTime_Push_Button = Is_Pressed THEN
           GOSUB buzz : IncrFlag = 1 : OnTime = OnTime + 1
        ENDIF
    
        IF Decrease_OnTime_Push_Button = Is_Pressed THEN
           GOSUB buzz : IncrFlag = 1 : OnTime = OnTime - 1
        ENDIF
                                       
        IF Increase_OffTime_Push_Button = Is_Pressed THEN
           GOSUB buzz : DecrFlag = 1 : OffTime = OffTime + 1 
        ENDIF
    
        IF Decrease_OffTime_Push_Button = Is_Pressed THEN
           GOSUB buzz : DecrFlag = 1 : OffTime = OffTime - 1 
        ENDIF
    
        IF Change_Times_Push_Button = Is_Pressed THEN
          gosub buzz 
          IF IncrFlag THEN  
             Index.1=OnTime : WRITE 1,OnTime
          ENDIF       
          IF DecrFlag THEN 
             Index.0=OffTime : WRITE 101,OffTime
          ENDIF   
          WHILE Change_Times_Push_Button = Is_Pressed : PAUSE 100 :WEND
          GOTO MainLoop
        ENDIF
    
        LCDOUT $fe,1,   "OnTime  = ",dec Ontime
        LCDOUT $fe, $c0,"OffTime = ",dec OffTime 
        PAUSE 100
    
    GOTO Loop
    
    
    MainLoop:
        IF Change_Times_Push_Button = Is_Pressed THEN goto Change_Times
    
        IF Increase_OnTime_Push_Button = Is_Pressed THEN 
           GOSUB buzz : Hour = Hour + 1
        ENDIF
    
        IF Decrease_OnTime_Push_Button = Is_Pressed THEN
           GOSUB buzz : Hour = Hour - 1 
        ENDIF
    
        FOR Index = 0 to 1
            READ Index , OnTime            ' Read stored ON  time.
            READ Index +100, OffTime       ' Read stored OFF time.
            IF Hour = Ontime  THEN Led = 1 ' If yes, turn ON the relay.
            IF Hour = Offtime THEN Led = 0 ' If yes, turn OFF the relay.
        NEXT Index 
    
        LCDOUT $fe,1,   "Hr=",dec Hour," OnTime=",DEC Ontime
        LCDOUT $fe, $c0,"OffTime = ",DEC OffTime
    
        PAUSE 100
        
    
    GOTO MainLoop     
    
    
    Buzz:
         PWM Buzzer,250,1
         RETURN
    
    END
    Last edited by jessey; - 13th December 2006 at 04:44.

  5. #5
    Join Date
    Jan 2006
    Location
    Istanbul
    Posts
    1,185


    Did you find this post helpful? Yes | No

    Default

    Jessey,

    I think you are thinking about FOR loop in a different way.
    Index variable is not an array variable.

    So you need to go back to using FOR Index=1 TO 10.


    Also, Index.1=OnTime and Index.0=OffTime do nothing in the code for you.
    You are, I think, confusing with Arrays here.

    Can you be more specific about your idea?
    May be I got it not good enough.

    --------------------------------
    "If the Earth were a single state, Istanbul would be its capital." Napoleon Bonaparte

  6. #6
    jessey's Avatar
    jessey Guest


    Did you find this post helpful? Yes | No

    Default Getting closer

    Hi Sayzer,

    Well I'm finally getting somewhere, I was way off track in my thinking but I think I'm getting closer now. This code works but I still have a few questions for you.

    In this code below that I wrote, I had to change the "READ Index +100, OffTime" to "READ Index +10, OffTime" when using the "EEPROM 1,[1,3,5....]" statement to get the OffTimes to display to the Lcd which makes sense because I only have 10 OnTimes and 10 OffTimes but when I don't use the "EEPROM 1,[1,3,5....]" statement and just set and save the different times to the eeprom then I have to use "READ Index +100, OffTime" in order to make it work otherwise my OffTimes will show 255 and won't change? Why is that?

    Another question, what does the EEPROM 1, in the "EEPROM 1,[1,3,5....]" statement make reference to. Can I have multiple eerpom statements like "EEPROM 1,[1,3,5....]", "EEPROM 2,[1,3,5....]", "EEPROM 3,[1,3,5....]" ect. ect, for different sets of variables?

    Code:
    '18f452 pic 
    
    Decrease_Hour_Push_Button   VAR PORTB.7  
    Increase_Hour_Push_Button VAR PORTD.2 
    
    OnTime  var byte
    OffTime var byte
    Index   var byte
    Hour    var byte
    Hour = 0
    
    EEPROM 1,[1,3,5,7,9,11,13,15,17,19,2,4,6,8,10,12,14,16,18,20]
    
    '--------------------------------------------------------'
    EEPROMData1 var BYTE
    Timer_1_OnTime VAR EEPROMData1     'alias for eepromdata 1
    READ 1, EEPROMData1 
    ' To write to the EEPROM 
    ' ===================== 
    'Timer_1_OnTime = 1     
    'EEPROMData1 = Timer_1_OnTime 
    'Write 1, EEPROMData1    
    '--------------------------------------------------------'
    EEPROMData2 var BYTE
    Timer_2_OnTime VAR EEPROMData2     'alias for eepromdata 2
    READ 2, EEPROMData2 
    ' To write to the EPROM 
    ' =====================
    'Timer_2_OnTime = 3     
    'EEPROMData2 = Timer_2_OnTime 
    'Write 2, EEPROMData2     
    '--------------------------------------------------------'
    EEPROMData3 var BYTE
    Timer_3_OnTime VAR EEPROMData3     'alias for eepromdata 3
    READ 3, EEPROMData3 
    ' To write to the EPROM 
    ' ===================== 
    'Timer_3_OnTime = 5     
    'EEPROMData3 = Timer_3_OnTime 
    'Write 3, EEPROMData3    
    '--------------------------------------------------------'
    EEPROMData4 var BYTE
    Timer_4_OnTime VAR EEPROMData4     'alias for eepromdata 4
    READ 4, EEPROMData4 
    ' To write to the EPROM 
    ' =====================
    'Timer_4_OnTime = 7     
    'EEPROMData4 = Timer_4_OnTime 
    'Write 4, EEPROMData4     
    '--------------------------------------------------------'
    EEPROMData5 var BYTE
    Timer_5_OnTime VAR EEPROMData5     'alias for eepromdata 5
    READ 5, EEPROMData5 
    ' To write to the EPROM 
    ' =====================
    'Timer_5_OnTime = 9     
    'EEPROMData5 = Timer_5_OnTime 
    'Write 5, EEPROMData5     
    '--------------------------------------------------------'
    EEPROMData6 var BYTE
    Timer_6_OnTime VAR EEPROMData6     'alias for eepromdata 6
    READ 6, EEPROMData6 
    ' To write to the EPROM 
    ' ===================== 
    'Timer_6_OnTime = 11    
    'EEPROMData6 = Timer_6_OnTime 
    'Write 6, EEPROMData6     
    '--------------------------------------------------------'
    EEPROMData7 var BYTE
    Timer_7_OnTime VAR EEPROMData7     'alias for eepromdata 7
    READ 7, EEPROMData7 
    ' To write to the EPROM 
    ' =====================
    'Timer_7_OnTime = 13    
    'EEPROMData7 = Timer_7_OnTime 
    'Write 7, EEPROMData7      
    '--------------------------------------------------------'
    EEPROMData8 var BYTE
    Timer_8_OnTime VAR EEPROMData8     'alias for eepromdata 8
    READ 8, EEPROMData8 
    ' To write to the EPROM 
    ' ===================== 
    'Timer_8_OnTime = 15    
    'EEPROMData8 = Timer_8_OnTime 
    'Write 8, EEPROMData8     
    '---------------------------------------------------------'
    EEPROMData9 var BYTE
    Timer_9_OnTime VAR EEPROMData9     'alias for eepromdata 9
    READ 9, EEPROMData9 
    ' To write to the EPROM 
    ' ===================== 
    'Timer_9_OnTime = 17
    'EEPROMData9 = Timer_9_OnTime 
    'Write 9, EEPROMData9         
    '---------------------------------------------------------'
    EEPROMData10 var BYTE
    Timer_10_OnTime VAR EEPROMData10   'alias for eepromdata 10
    READ 10, EEPROMData10 
    ' To write to the EPROM 
    ' =====================
    'Timer_10_OnTime = 19   
    'EEPROMData10 = Timer_10_OnTime 
    'Write 10, EEPROMData10       
    '-----------------------------------------------------------'
    
    
    '-----------------------------------------------------------'
    EEPROMData101 var BYTE
    Timer_101_OffTime VAR EEPROMData101'alias for eepromdata 101
    READ 101, EEPROMData101 
    ' To write to the EPROM 
    ' =====================
    'Timer_101_OffTime = 2  
    'EEPROMData101 = Timer_101_OffTime 
    'Write 101, EEPROMData101         
    '-----------------------------------------------------------'
    EEPROMData102 var BYTE
    Timer_102_OffTime VAR EEPROMData102'alias for eepromdata 102
    READ 102, EEPROMData102 
    ' To write to the EPROM 
    ' =====================
    'Timer_102_OffTime = 4  
    'EEPROMData102 = Timer_102_OffTime 
    'Write 102, EEPROMData102         
    '-----------------------------------------------------------'
    EEPROMData103 var BYTE
    Timer_103_OffTime VAR EEPROMData103'alias for eepromdata 103
    READ 103, EEPROMData103 
    ' To write to the EPROM 
    ' =====================
    'Timer_103_OffTime = 6  
    'EEPROMData103 = Timer_103_OffTime 
    'Write 103, EEPROMData103         
    '-----------------------------------------------------------'
    EEPROMData104 var BYTE
    Timer_104_OffTime VAR EEPROMData104'alias for eepromdata 104
    READ 104, EEPROMData104 
    ' To write to the EPROM 
    ' =====================
    'Timer_104_OffTime = 8 
    'EEPROMData104 = Timer_104_OffTime 
    'Write 104, EEPROMData104         
    '-----------------------------------------------------------'
    EEPROMData105 var BYTE
    Timer_105_OffTime VAR EEPROMData105'alias for eepromdata 105
    READ 105, EEPROMData105 
    ' To write to the EPROM 
    ' ===================== 
    'Timer_105_OffTime = 10 
    'EEPROMData105 = Timer_105_OffTime 
    'Write 105, EEPROMData105         
    '-----------------------------------------------------------'
    EEPROMData106 var BYTE
    Timer_106_OffTime VAR EEPROMData106'alias for eepromdata 106
    READ 106, EEPROMData106 
    ' To write to the EPROM 
    ' =====================
    'Timer_106_OffTime = 12 
    'EEPROMData106 = Timer_106_OffTime 
    'Write 106, EEPROMData106          
    '-----------------------------------------------------------'
    EEPROMData107 var BYTE
    Timer_107_OffTime VAR EEPROMData107'alias for eepromdata 107
    READ 107, EEPROMData107 
    ' To write to the EPROM 
    ' =====================
    'Timer_107_OffTime =14  
    'EEPROMData107 = Timer_107_OffTime 
    'Write 107, EEPROMData107         
    '-----------------------------------------------------------'
    EEPROMData108 var BYTE
    Timer_108_OffTime VAR EEPROMData108'alias for eepromdata 108
    READ 108, EEPROMData108 
    ' To write to the EPROM 
    ' =====================
    'Timer_108_OffTime = 16 
    'EEPROMData108 = Timer_108_OffTime 
    'Write 108, EEPROMData108          
    '-----------------------------------------------------------'
    EEPROMData109 var BYTE
    Timer_109_OffTime VAR EEPROMData109'alias for eepromdata 109
    READ 109, EEPROMData109 
    ' To write to the EPROM 
    ' ===================== 
    'Timer_109_OffTime = 18 
    'EEPROMData109 = Timer_109_OffTime 
    'Write 109, EEPROMData109         
    '-----------------------------------------------------------'
    EEPROMData110 var BYTE
    Timer_110_OffTime VAR EEPROMData110'alias for eepromdata 110
    READ 110, EEPROMData110 
    ' To write to the EPROM 
    ' =====================
    'Timer_110_OffTime = 20 
    'EEPROMData110 = Timer_110_OffTime 
    'Write 110, EEPROMData110          
    '----------------------------------------------------------'
    
    Is_Pressed CON 0 
    
    
          GOTO mainloop
    
    Sound_Buzzer:
          PWM Buzzer,250,1
    RETURN
         
    
    MainLoop:
    
     FOR Index = 1 to 10
        IF Increase_Hour_Push_Button = Is_Pressed THEN 
           GOSUB Sound_Buzzer : Hour = Hour + 1
        ENDIF
    
        IF Decrease_Hour_Push_Button = Is_Pressed THEN
           GOSUB Sound_Buzzer : Hour = Hour - 1 
        ENDIF
    
        LCDOUT $fe,1,   "Hr=",dec Hour," OnTime=",DEC Ontime
        LCDOUT $fe, $c0,"OffTime = ",DEC OffTime
    
            READ Index , OnTime       'Read stored ON  time.
            READ Index +10, OffTime  'Read stored OFF time.
            IF Hour = Ontime  THEN Led = 1 'turn ON the Led.
            IF Hour = Offtime THEN Led = 0 'turn OFF the Led.
    
        PAUSE 500 
    
     NEXT Index 
    
     GOTO mainloop
    END

    Here is one of the segments of code that I'd like to change in an attachment here if you want to see what I'm trying to accomplish.This code uses 1404 bytes in my program and I thought I could use your example code to save some code space for this part and if it works out then I can save a lot in other parts of my program as well.

    Thanks
    jessey
    Attached Files Attached Files

  7. #7
    Join Date
    Mar 2003
    Location
    Commerce Michigan USA
    Posts
    1,166


    Did you find this post helpful? Yes | No

    Default

    jessey, This should save you a few bytes......

    _On con 1
    COUNTER VAR BYTE
    Timer_Is var byte[13]
    Clock_Mode var byte
    On_Am_Pm_Mode VAR BYTE[13]
    Hours VAR BYTE
    On_Timer_Hour VAR BYTE[13]
    Minutes VAR BYTE
    On_Timer_Min VAR BYTE[13]
    Seconds VAR BYTE
    On_Timer_Sec VAR BYTE[13]


    Check_The_Timers_Relay: 'this code uses 1404 bytes
    COUNTER = 1
    WHILE COUNTER < 13 'LOOP 12 TIMES
    IF Timer_Is(COUNTER) = _On then
    IF Clock_Mode = On_Am_Pm_Mode(COUNTER) THEN ' this checks the am/pm mode for on Timer
    IF Hours = On_Timer_Hour(COUNTER) THEN
    IF Minutes = On_Timer_Min(COUNTER) then
    IF Seconds = On_Timer_Sec(COUNTER) THEN
    GOSUB Turn_On_The_Relay
    ENDIF
    ENDIF
    ENDIF
    endif
    IF Clock_Mode = Off_Am_Pm_Mode(COUNTER) THEN
    IF Hours = Off_Timer_Hour(COUNTER) THEN
    IF Minutes = Off_Timer_Min(COUNTER) then
    IF Seconds = Off_Timer_Sec(COUNTER) THEN
    GOSUB Turn_Off_The_Relay
    ENDIF
    ENDIF
    ENDIF
    endif
    ENDIF
    COUNTER = COUNTER + 1
    WEND
    RETURN

    Dave Purola,
    N8NTA

  8. #8
    Join Date
    Jan 2006
    Location
    Istanbul
    Posts
    1,185


    Did you find this post helpful? Yes | No

    Default

    Quote Originally Posted by jessey
    .....
    Another question, what does the EEPROM 1, in the "EEPROM 1,[1,3,5....]" statement make reference to. Can I have multiple eerpom statements like "EEPROM 1,[1,3,5....]", "EEPROM 2,[1,3,5....]", "EEPROM 3,[1,3,5....]" ect. ect, for different sets of variables?.....

    Jessey,

    I did not take look at your code now but for your EEPROM question, here is the key.

    If you look at the help file or the manual etc..., you will understand the followings.

    Example:
    EEPROM 1,[1,3,5,7,9,11,$C0,"A",%10100101]
    1 is the start address for EEPROM location.
    This command will do the following.

    Store value 1 on Location 1
    Store value 3 on Location 2
    Store value 5 on Location 3.
    Store value 7 on Location 4.
    Store value 9 on Location 5.
    Store value 11 on Location 6.
    Store value $C0 on Location 7.
    Store value "A" on Location 8.
    Store value %10100101 on Location 9.


    Therefore, once you start from a location on epprom to store some values, then you can not cross that address range by another eeprom command.

    Example:
    EEPROM 5,["A","B","C","D"]

    This will store "A" , "B" , "C" , and "D" on epprom locations 5,6,7,and 8 respectively. This way, you are having locations from 5 to 8 reserved by this epprom command.

    Then if you have another EEPROM command like EEPROM 3,[90,100,25,70] then this epprom command will try to write on locations 3,4,5, and 6.

    Now, you get two EEPROM commands trying to write on same locations at 5 and 6.

    Thus, you get a collision in EEPROM. You will need to change the location in one of these eeprom commands.

    As long as you have no collision, you are free to use the given space by your epprom with multiple epprom commands.



    Is it clear now?


    ------------
    "If the Earth were a single state, Istanbul would be its capital." Napoleon Bonaparte

Similar Threads

  1. changing osc on the fly
    By viewgsm in forum mel PIC BASIC Pro
    Replies: 22
    Last Post: - 6th February 2010, 15:13
  2. Mode changing on the fly
    By Angus Anderson in forum GSM
    Replies: 1
    Last Post: - 28th November 2006, 08:58
  3. edit names of variables
    By mischl in forum mel PIC BASIC Pro
    Replies: 3
    Last Post: - 13th January 2005, 21:00

Members who have read this thread : 0

You do not have permission to view the list of names.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts