Nice neat code posts


Results 1 to 40 of 40

Threaded View

  1. #11
    Join Date
    Nov 2003
    Location
    Wellton, U.S.A.
    Posts
    5,924


    Did you find this post helpful? Yes | No

    Default Re: Nice neat code posts

    Just testing...

    Copy/Paste from Programmers Notepad
    Code:
    ' 12F675 
    ' 09/05/2011  
    DEFINE OSC 4
    ' SET FOR INTERNAL OSC AND MCLRE OFF
    #CONFIG
        __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF
    #ENDCONFIG
    
    ANSEL=%00000000         ' ADC SET FOR DIGITAL 
    CMCON=7                 ' COMPARATOR SET FOR DIGITAL
    SWITCH_OFF  VAR GPIO.1  ' PUSH BUTTON FOR PUMP OFF
    SWITCH_RUN	VAR	GPIO.2  ' PUSH BUTTON FOR PUMP ON  
    LED_RUN     VAR GPIO.0  ' INDICATE RUN SIGNAL SENT  
    LED_OFF     VAR GPIO.5  ' INDICAT STOP SIGNAL SENT
    TX          VAR GPIO.4  ' DATA SEND PIN
    BAUD        CON 18030	' 18030 = 600 BAUD
    
    START:     ' SEND OFF SIGNAL AT POWER UP
        PAUSE  1000
        HIGH LED_OFF  
        SEROUT2 TX, BAUD,["OFF",13]  
    DO  ' LOOP TO CHECK PUSH BUTTONS
    	DO WHILE SWITCH_RUN = 1     ' CHECK ON PUSH BUTTON
    	   ' IF BUTTON PUSHED
    		HIGH LED_RUN          ' RUN INDICATOR ON
    		LOW LED_OFF           ' OFF INDICATOR OFF
    		PAUSE 50              ' SETTLE TIME
    		SEROUT2 TX, BAUD,["RUN",13]
    '		SEROUT2 TX, BAUD,[HEX CNT,13]
    	LOOP
    	DO WHILE SWITCH_OFF = 1    ' CHECK OFF PUSH BUTTON
    	   ' IF BUTTON PUSHED
            HIGH LED_OFF          ' OFF INDICATOR ON
    		LOW LED_RUN           ' RUN INDICATOR OFF
    		PAUSE 50              ' SETTLE TIME
    		SEROUT2 TX, BAUD,["OFF",13]
    '		SEROUT2 TX, BAUD,[DEC CNT,13]
    	LOOP
    LOOP
    Copy/Paste from MCS
    Code:
    ' 12F675 
    ' 09/05/2011  
    DEFINE OSC 4
    ' SET FOR INTERNAL OSC AND MCLRE OFF
    #CONFIG
        __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF
    #ENDCONFIG
    
    ANSEL=%00000000         ' ADC SET FOR DIGITAL 
    CMCON=7                 ' COMPARATOR SET FOR DIGITAL
    SWITCH_OFF  VAR GPIO.1  ' PUSH BUTTON FOR PUMP OFF
    SWITCH_RUN	VAR	GPIO.2  ' PUSH BUTTON FOR PUMP ON  
    LED_RUN     VAR GPIO.0  ' INDICATE RUN SIGNAL SENT  
    LED_OFF     VAR GPIO.5  ' INDICAT STOP SIGNAL SENT
    TX          VAR GPIO.4  ' DATA SEND PIN
    BAUD        CON 18030	' 18030 = 600 BAUD
    
    START:     ' SEND OFF SIGNAL AT POWER UP
        PAUSE  1000
        HIGH LED_OFF  
        SEROUT2 TX, BAUD,["OFF",13]  
    DO  ' LOOP TO CHECK PUSH BUTTONS
    	DO WHILE SWITCH_RUN = 1     ' CHECK ON PUSH BUTTON
    	   ' IF BUTTON PUSHED
    		HIGH LED_RUN          ' RUN INDICATOR ON
    		LOW LED_OFF           ' OFF INDICATOR OFF
    		PAUSE 50              ' SETTLE TIME
    		SEROUT2 TX, BAUD,["RUN",13]
    '		SEROUT2 TX, BAUD,[HEX CNT,13]
    	LOOP
    	DO WHILE SWITCH_OFF = 1    ' CHECK OFF PUSH BUTTON
    	   ' IF BUTTON PUSHED
            HIGH LED_OFF          ' OFF INDICATOR ON
    		LOW LED_RUN           ' RUN INDICATOR OFF
    		PAUSE 50              ' SETTLE TIME
    		SEROUT2 TX, BAUD,["OFF",13]
    '		SEROUT2 TX, BAUD,[DEC CNT,13]
    	LOOP
    LOOP
    Last edited by mackrackit; - 14th September 2011 at 14:38.
    Dave
    Always wear safety glasses while programming.

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