I2C variable to LCD
I am trying to send a variable to display on my LCD screen. I am using
I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE, str num_of_beacons\1]
to write the number of beacons. I keep getting two vertical lines on the screen where that character would be.
Normal strings with the quotes around them work fine, but this is giving me some trouble. Any ideas?
Re: I2C variable to LCD
As usual, post your whole code.
We can only guess about the VAR num_of_beacons.
Do you have something like;
Code:num_of_beacons[0] = $30+BVAR ' BVAR being the number you want to dispaly.
Dave
Always wear safety glasses while programming.
Re: I2C variable to LCD
Heres all the code:
Code:clear DEFINE OSC 4 OSCCON.6 = 1 ' INTERNAL OSCILLATOR SELECT TO 4MHZ OSCCON.5 = 1 ' DURING MEPROG CONFIGURATION, USE OSCCON.4 = 0 ' OSCILLATOR INTIO2 ' Define the USART registers DEFINE HSER_BAUD 9600 'Hser baud rate DEFINE HSER_CLROERR 1 'Hser clear overflow automatically DEFINE HSER_SPBRG 25 'Hser spbrg init DEFINE HSER_RCSTA 80h 'Hser receive status init DEFINE HSER_TXSTA 20h 'Hser transmit status init DEFINE HSER_BITS 8 'Use 8th bit for parit PAUSE 1000 ' PAUSE FOR A SECOND, WAITING FOR SYSTEM TO ENERGIZE ' INITIALIZE PORT E TRISE = %00000110 ; set PORTE ' INITIALIZE PORT D LATD =%00000000 ' CLEAR DATA LATCHES TRISD =%00001100 ' PORT D inputs/outputs ' INITIALIZE PORT C CONTAINS TX FOR COMMUNICATION TO LCD SCREEN LATC =%00000000 ' CLEAR DATA LATCHES TRISC =%00000110 ; set all PORTC TXSTA =%00100000 ; SYNC = 0, TX ENABLED, BRGH = 0 RCSTA =%10000000 ; TX/RX ENABLED BAUDCON.3 = 1 ; BRG16 = 1 SPBRGH =%00000000 ; SPBRG = 25 SPBRG =%00011001 PIE1.4 = 0 ; DISABLE TX INTERRUPT SSPADD = $28 'I2C BRG SSPSTAT.7 = 1 SSPCON1 = %00101000 I2C_COMM VAR PORTC.4 I2C_CLK VAR PORTC.3 ADDR1 VAR BYTE CONT_SEND VAR WORD ADDR1 = $50 ' INITIALIZE PORT B LATB =%00000000 'CLEAR DATA LATCHES TRISB =%00001011 'RB2 IS CANTX, RB3 IS CANRX INTCON2.7 = 1 'PORT B WEAK PULL UP DISABLE ' ' INITIALIZE PORT A LATA =%00000000 ' CLEAR DATA LATCHES TRISA =%11111111 ' PORT A ALL INPUTS ADCON1 =%00111111 'ALL DIGITAL I/O 'PIN DEFINITION ALARM1 VAR LATD.4 ' PIN 27 GENERAL ALARM ALARM2 VAR LATD.5 ' PIN 28 BEACON ALARM ALARM3 VAR LATD.6 ' PIN 29 FLASHER FAIL ALARM ALARM4 VAR LATD.7 ' PIN 30 OPTIONAL OL ALARM ALARM5 VAR LATB.4 ' PIN 37 POL ALARM1 ALARM6 VAR LATB.5 ' PIN 38 POL ALARM2 ALARM7 VAR LATB.6 ' PIN 39 POL ALARM3 ALARM8 VAR LATB.7 ' PIN 40 SPARE AT THE MOMENT (9/15/11) SYSTEM_OK VAR LATD.0 'PIN 19 POL_ALARM_INPUT VAR PORTB.1 'PIN 34 POL_ALARM_INPUT2 VAR PORTC.1 'PIN 16 POL_ALARM_INPUT3 VAR PORTC.2 'PIN 17 PPC_INPUT VAR PORTB.0 'PIN 33 NUMBER_OUT VAR WORD DIP_A0 VAR PORTA.0 ' DIPS SWITCH ON PORTA FOR NUMBER OF BEACONS DIP_A1 VAR PORTA.1 ' DIP_AO WILL BE NUM_OF_BEACONS.Bit0 DIP_A2 VAR PORTA.2 ' .... DIP_A3 VAR PORTA.3 ' DIP_A5 WILL BE NUM_OF_BEACONS.Bit5 DIP_A4 VAR PORTA.4 DIP_A5 VAR PORTA.5 DIP_B1 VAR PORTE.1 DIP_B2 VAR PORTE.2 'VARIABLE WAIT_TIME VAR BYTE ' TIME DELAY VARIABLE LOST BEACON X VAR BYTE ' VARIABLE FOR ROLLING THROUGH BEACONS Y VAR BYTE ' VARIABLE FOR ROLLING THROUGH ALARM CONFIGURATION NUM_OF_BEACONS VAR word[1] ' VARIABLE TO HAVE NUMBER OF BEACON STORED INTO IT FLASH_STATE VAR BIT ' VARIABLE TO STORE THE STATE OF THE FLASH ' ON = 1 OFF = 0 STATUS_CHANGE VAR BIT ' VARIABLE BIT TO TELL THE CONTROLLER CHANGE HAS HAPPENED TEMP_RXB0SIDH VAR BYTE ' TEMP BUFFER HIGH TO COMPARE THE REAL BUFFER TO TEMP_RXB0SIDL VAR BYTE ' TEMP BUFFER LOW TO COMPARE THE REAL BUFFER TO LED_ALARM var bit[65] ' CREATES 65 BITS, LABELED LED_ALARM[0-64] LOST_ALARM VAR BIT[65] ' CREATES 65 BITS, LABELED LOST_ALARM[0-64] FF_ALARM VAR BIT[65] ' CREATES 65 BITS, LABELED FF_ALARM[0-64] NORMAL_BEACON VAR BIT[65] ' CREATES 65 BITS, LABELED NORMAL_BEACON[0-64] NUM_OF_POLS VAR word FFA_OK VAR BYTE LOST_OK VAR BYTE LED_OK VAR BYTE COMM_OK VAR BYTE HIGH ALARM1 ' START ALL ALARMS OFF HIGH ALARM2 HIGH ALARM3 HIGH ALARM4 low ALARM5 LOW ALARM6 LOW ALARM7 LOW ALARM8 '***************** BEGINNING OF ECAN CONFIGURATION****************** CANCON=%10000000 ' Configuration Mode while CANSTAT !=$80 ' Wait until Canstat is in Config Mode PAUSE 10 ' Pause if not WEND ' proceed ECANCON =%00000000 ' Mode 0 ' Baud Rate = 50bps @ 4 MHZ WITH 10 TQ BRGCON1 =$03 BRGCON2 =$92 BRGCON3 =$02 ' Setting up Receive Mask 0 register RXM0SIDH =%10000000 ' 1'S IMPORTANT, 0'S WILL CHANGE RXM0SIDL =%11100000 ' Setting up Receive Filter 0 register RXF0SIDH =%00000000 ' $004, STANDARD FOR BEACON TO CONTROLLER ID'S RXF0SIDL =%10000000 ' $00C, $014, $01C... CANCON=%00000000 ' NORMAL Mode while CANSTAT !=$00 ' Wait until Canstat is in NORMAL Mode PAUSE 10 ' Pause if not WEND '***************** END OF ECAN CONFIGURATION****************** 'RECEIVE BUFFER 0 CONTROL REGISTER RXB0CON.6 = 0 ' MEANS BUFFER 0 ONLY RECEIVES STANDARD ID'S RXB0CON.5 = 1 'TRANSMIT BUFFER 0 INITIATE, USED FOR CALLING OUT TO BEACON TXB0DLC =%00000001 ' LOAD DATA LENGTH, 1 BYTE TXB0D0 =%01110111 ' DATA IS $77, MEANING "BEACON CHECK IN" TXB0CON.0 = 1 ' LOW Priority TXB0CON.1 = 0 'TRANSMIT BUFFER 1 INITIATE, USED TO SEND FLASHING SIGNAL TXB1DLC =%00000001 ' LOAD DATA LENGTH, 1 BYTE TXB1SIDH =%00000000 ' ID $000 TXB1SIDL =%00000000 ' ALL BEACON WILL ACCEPT THIS ID TXB1CON.0 = 1 ' HIGHEST PRIORITY INSIDE CHIP TXB1CON.1 = 1 'VARIABLE CONFIGURATION STATUS_CHANGE = 1 ' START WITH CHANGE, MAKES LCD SCREEN DISPLAY SOMETHING FLASH_STATE = 0 ' BEACONS STARTS OFF TEMP_RXB0SIDH =%00000000 ' STARTING RECEIVE BUFFER ID $004 TEMP_RXB0SIDL =%10000000 ' FIRST BEACON WILL SEND ID $00C 'INITIATE NUM_OF_POLS IF DIP_B2 = 0 AND DIP_B1 = 0 THEN 'DIP SETTINGS FOR AMOUNT OF POLS NUM_OF_POLS = 0 ENDIF IF DIP_B2 = 0 AND DIP_B1 = 1 THEN NUM_OF_POLS = 1 ENDIF IF DIP_B2 = 1 AND DIP_B1 = 0 THEN NUM_OF_POLS = 2 ENDIF IF DIP_B2 = 1 AND DIP_B1 = 1 THEN NUM_OF_POLS = 3 ENDIF 'INITIATE NUM_OF_BEACONS IF DIP_A0 = 0 THEN NUM_OF_BEACONS.BIT0 = 0 ELSE NUM_OF_BEACONS.BIT0 = 1 ENDIF IF DIP_A1 = 0 THEN NUM_OF_BEACONS.BIT1 = 0 ELSE NUM_OF_BEACONS.BIT1 = 1 ENDIF IF DIP_A2 = 0 THEN NUM_OF_BEACONS.BIT2 = 0 ELSE NUM_OF_BEACONS.BIT2 = 1 ENDIF IF DIP_A3 = 0 THEN NUM_OF_BEACONS.BIT3 = 0 ELSE NUM_OF_BEACONS.BIT3 = 1 ENDIF IF DIP_A4 = 0 THEN NUM_OF_BEACONS.BIT4 = 0 ELSE NUM_OF_BEACONS.BIT4 = 1 ENDIF IF DIP_A5 = 0 THEN NUM_OF_BEACONS.BIT5 = 0 ELSE NUM_OF_BEACONS.BIT5 = 1 ENDIF NUM_OF_BEACONS.BIT6 = 0 NUM_OF_BEACONS.BIT7 = 0 IF NUM_OF_BEACONS =%00000000 THEN NUM_OF_BEACONS = 64 ENDIF '**********************Read and clear RXBO*************************' 'IF RXB0D0 = %00000000 THEN ' SIMPLY READ THE BUFFER, it will flush itself 'PAUSE 1 ' DO NOTHING 'ELSE 'PAUSE 1 ' DO NOTHING 'ENDIF '****************ALARM BIT CONFIGURATION************************ Y = 1 ' START AT FIRST BIT OF EACH ARRAY WHILE Y <= NUM_OF_BEACONS ' ALL ALARMS FOR ALL BEACON MUST BE SET TO ZERO LED_ALARM[X] = 0 ' 0 IS NO ALARM, 1 IS AN ALARM CONDITION LOST_ALARM[Y] = 0 FF_ALARM[Y] = 0 NORMAL_BEACON[Y] = 1 ' NORMAL_BEACON = 1 IS GOOD, NORMAL_BEACON = 0 Y = Y + 1 ' MEANS THERE IS AN ALARM CONDITION WEND ' CONTINUE WHEN ALL BEACONS ARE ASSIGNED '*************INTERRUPT CONFIGURATION****************************** INTCON =%10100000 ' ENABLE GLOBAL INTERRUPT ' TIMER 0 INT ENABLED, FLAG LOW ON INTERRUPT GOTO INTAWHAT '**************TIMER0 CONFIGURATION T0CON =%00000100 ' TIMER 0, 16BITS, PRESCALE 1:32, TIMER0 IS OFF TMR0H =%10110000 ' CREATES .66 SECOND START TIME TMR0L =%10000000 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$52,$30] PAUSE 10 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] PAUSE 10 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"Point Lighting Corp"] PAUSE 10 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"Obstruction Lighting"] PAUSE 10 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14," Controller"] PAUSE 10 PAUSE 2000 '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ '$$$$$$$$$$$$$$$$$$$$$$$$____OPERATING CODE STARTS HERE_____$$$$$$$$$$$$$$$$$$ RXB0CON.7 = 0 ' CLEAR RECEIVE BUFFER 0 FULL BIT T0CON.7 = 1 ' TURN ON TIMER0 JUST BEFORE MAIN PROGRAM START_CHECK: ' STARTS THE BEACON CHECK SEQUENCE, first display info from last cycle ' RETURN TO HERE AFTER ALL BEACON HAVE BEEN CHECKED TOGGLE SYSTEM_OK 'TOGGLE SYSTEM OK LED SO WE KNOW THE UNIT ISNT HUNG IF POL_ALARM_INPUT != 1 and POL_ALARM_INPUT2 != 1 and POL_ALARM_INPUT3 != 1 AND ALARM1 != 0 AND ALARM2 !=0 AND ALARM3 !=0 AND ALARM4 != 0 THEN HIGH alarm4 'TURN OFF POL ALARM I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] PAUSE 10 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"System Operational"] PAUSE 10 'I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"Beacons: ",NUM_OF_BEACONS, " "] 'PAUSE 10 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"Beacons: "] PAUSE 10 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE, str num_of_beacons\1] PAUSE 10 if num_of_polS >0 THEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"Obst Lights (OL): ", NUM_OF_POLS] PAUSE 10 ENDIF I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Number of Alarms: 0"] PAUSE 10 endif HSEROUT [DEC 6777] PAUSE 100 HSEROUT [DEC 6888] IF POL_ALARM_INPUT = 1 OR POL_ALARM_INPUT2 = 1 OR POL_ALARM_INPUT3 = 1 THEN ' CHECK POL ALARMS LOW ALARM4 'TURN ON POL ALARM LOW ALARM1 'TURN ON GENERAL ALARM goto DISPLAY_ERROR ELSE HIGH ALARM4 LOW ALARM5 LOW ALARM6 LOW ALARM7 'RESETING THE POL ARLARMS ON THE BOARD ENDIF IF ALARM2 != 0 AND ALARM3 != 0 AND ALARM4 != 0 AND ALARM5 != 1 AND ALARM6 != 1 AND ALARM7 != 1 AND ALARM8 != 1 THEN HIGH ALARM1 ENDIF 'RESETING GENERAL ALARM ONLY IF NO OTHER ALARMS ARE ACTIVE IF POL_ALARM_INPUT = 0 THEN 'POL 1 ALARM INPUT RESET TO PLC HSEROUT [DEC 9981] PAUSE 50 ENDIF IF POL_ALARM_INPUT2 = 0 THEN 'POL 2 ALARM INPUT RESET TO PLC HSEROUT [DEC 9982] PAUSE 50 ENDIF IF POL_ALARM_INPUT3 = 0 THEN 'POL 3 ALARM INPUT RESET TO PLC HSEROUT [DEC 9983] PAUSE 50 ENDIF TXB0SIDH =%00000000 ' ID $000, RETURN TO STARTING TRANSMIT BUFFER 1 ID'S TXB0SIDL =%00000000 ' ID LOW DOES NOT CHANGE TEMP_RXB0SIDH =%00000000 ' STARTING RECEIVE BUFFER ID $000, WILL ALWAYS BE ' INCREMENTED TO $00C FOR FIRST BEACON X = 1 ' STARTS AT FIRST BEACON NEXT_CHECK: WHILE X <= NUM_OF_BEACONS ' WHILE X IS LESS THEN OR EQUAL TO NUMBER OF BEACONS TXB0SIDH = TXB0SIDH + 1 ' INCREMENT TX BUFFER TO NEXT BEACON ID TEMP_RXB0SIDH = TEMP_RXB0SIDH + 1 ' INCREMENT TEMP RX BUFFER TO NEXT BEACON ID TXB0CON.3 = 1 ' REQUEST TRANSMISSION ON BUFFER 0 WAIT_TIME = 250 ' 250 X PAUSE 12 = 3 SECOND WHILE TEMP_RXB0SIDH != RXB0SIDH AND WAIT_TIME > 0 ' RECEIVE BUFFER 0 HAS A NEW MESSEGE FROM RXB0CON.7 = 0 ' CLEAR RECEIVE BUFFER 0 FULL BIT WAIT_TIME = WAIT_TIME - 1' DECREMENT COUNTER PAUSE 10 ' 12 MILLISECOND PAUSE WEND ' 3.0 SECOND HAS EXPIRE AND NO RESPONSE if wait_time = 0 THEN GOTO LOST_BEACON ' GOTO LOST BEACON ENDIF READ_DATA0: ' reads data from beacon if RXB0D0 !=%00000000 THEN ' DATA INDICATES A BEACON NOT NORMAL GOSUB BEACON_ALARM ' GOTO LED ALARM SUBROUTINE ENDIF ' DATA0 WAS NORMAL (%00000000) IF RXB0D0 =%00000000 AND NORMAL_BEACON[X] = 0 THEN ' BEACON IS NORMAL ANS IT WASN'T BEFORE STATUS_CHANGE = 1 ' INDICATE THAT CHANGE HAS HAPPENED LED_ALARM[X] = 0 ' 0 IS NO ALARM, 1 IS AN ALARM CONDITION LOST_ALARM[X] = 0 FF_ALARM[X] = 0 NORMAL_BEACON[X] = 1 ' NORMAL_BEACON = 1 IS GOOD, NORMAL_BEACON = 0 BAD ENDIF RXB0CON.7 = 0 ' CLEAR RECEIVE BUFFER 0 FULL BIT X = X + 1 ' INCREMENT COUNTER X GOTO NEXT_CHECK ' CHECK NEXT BEACON X LESS THEN NUM_OF_BEACONS WEND ' CHECKED ALL BEACON, X = NUM_OF_BEACONS ' NOW WE DISPLAY WHAT WE FOUND OUT FROM ALL THE BEACONS IF STATUS_CHANGE = 1 THEN ' IF A CHANGE HAS OCCURED, LCD DISPLAY MUST CHANGE STATUS_CHANGE = 0 ' RESET STATUS_CHANGE BIT Y = 1 ' START AT FIRST BIT OF EACH ARRAY WHILE Y <= NUM_OF_BEACONS ' SCROLLING THROUGH ALL ACTIVE BEACONS IF NORMAL_BEACON[Y] = 1 THEN ' IF BEACON IS NORMAL '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% if LOST_ALARM[Y] = 0 THEN 'CHECKING IF A BEACON IS LOST NUMBER_OUT = 1900 + Y HSEROUT [DEC4 NUMBER_OUT] 'TELLS THE PLC THAT THE BEACON HAS RECOVERED PAUSE 50 ENDIF if FF_ALARM[Y] = 0 THEN 'CHECKING FOR FLASHER FAILURE NUMBER_OUT = 2900 + Y HSEROUT [DEC4 NUMBER_OUT] 'TELLS THE PLC THE FF ERROR IS FIXED PAUSE 50 ENDIF '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Y = Y + 1 ' INCREMENT Y TO TEST NEXT BEACON ELSE ' IF ONE BEACON IS NOT NORMAL GOTO DISPLAY_ERROR ' GOTO DISPLAY ERROR ENDIF WEND ' WILL ONLY ESCAPE WHILELOOP HERE IF ALL BEACON pause 5 ' ARE NORMAL FFA_OK = 67 LOST_OK = 67 LED_OK = 67 LOOKDOWN2 FF_ALARM, [1], FFA_OK 'CHECKING TO SEE IF THE VALUE 1 LOOKDOWN2 LOST_ALARM, [1], LOST_OK 'IS STORED IN THE ERROR LOCATIONS LOOKDOWN2 LED_ALARM, [1], LED_OK 'IF THERE IS NO "1" THEN THERES NO ERROR IF FFA_OK = 67 AND LOST_OK = 67 AND LED_OK = 67 THEN 'SO WE CAN RESET THE ALARMS HIGH ALARM3 HIGH ALARM1 HIGH ALARM2 ENDIF IF FFA_OK = 67 AND LOST_OK = 67 AND LED_OK != 67 THEN 'IF THE COMM AND FF ARE OK, HIGH ALARM3 'BUT THE LED IS STILL OUT, HIGH ALARM1 ' THEN WE CANT RESET THEM 'HIGH ALARM2 NOT INCLUDED HERE 'ALL. ALARM2 (BEACON) IS LEFT OUT OF THE RESET ENDIF GOTO START_CHECK '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ DISPLAY_ERROR: Y = 1 ' START AT FIRST BIT OF EACH ARRAY WHILE Y <= NUM_OF_BEACONS ' SCROLLING THROUGH ALL ACTIVE BEACONS IF LED_ALARM[Y] = 1 THEN 'CHECKING LED ARRAYS LOW ALARM2 'TURN ON BEACON ALARM LOW ALARM1 'TURN ON GENERAL ALARM I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN 'HSEROUT [$FE,$45,$00,"System Error"] '$45 cursor position, $00 top left I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"Beacon: ", str y\2," " ] I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"LED Failure"] I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, IF NUM_OF_POLS > 0 THEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ", str NUM_OF_BEACONS\2," ","OLs: ", str NUM_OF_POLS\2] ELSE I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ", str NUM_OF_BEACONS\2," "] ENDIF PAUSE 50 NUMBER_OUT = 3000 + Y HSEROUT [DEC4 NUMBER_OUT] PAUSE 100 ENDIF if LOST_ALARM[Y] = 1 THEN 'CHECKING IF A BEACON IS LOST LOW ALARM2 'TURN ON BEACON ALARM LOW ALARM1 'TURN ON GENERAL ALARM LOW ALARM3 'TURN ON FFA ALARM I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN 'I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"System Error"] '$45 cursor position, $00 top left I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"Beacon: ", str y\2," " ] I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"Lost Beacon"] I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, IF NUM_OF_POLS > 0 THEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ", str NUM_OF_BEACONS\2," ","OLs: ", str NUM_OF_POLS\2] ELSE I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Total Beacons: ", str NUM_OF_BEACONS\2," "] ENDIF pause 500 NUMBER_OUT = 1000 + Y HSEROUT [DEC4 NUMBER_OUT] PAUSE 100 ELSEif LOST_ALARM[Y] = 0 THEN 'CHECKING IF A BEACON IS LOST NUMBER_OUT = 1900 + Y HSEROUT [DEC4 NUMBER_OUT] 'TELLS THE PLC THAT THE BEACON HAS RECOVERED PAUSE 100 ENDIF if FF_ALARM[Y] = 1 THEN 'CHECKING FOR FLASHER FAILURE LOW ALARM2 'TURN ON BEACON ALARM LOW ALARM1 'TURN ON GENERAL ALARM LOW ALARM3 'TURN ON FFA ALARM I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"Beacon: ",str y\2," " ] I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"Flasher Failure"] I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, IF NUM_OF_POLS > 0 THEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ", str NUM_OF_BEACONS\2," ","OLs: ", str NUM_OF_POLS\2] ELSE I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ", str NUM_OF_BEACONS\2," "] ENDIF pause 100 NUMBER_OUT = 2000 + Y HSEROUT [DEC4 NUMBER_OUT] PAUSE 100 ELSEif FF_ALARM[Y] = 0 THEN 'CHECKING FOR FLASHER FAILURE NUMBER_OUT = 2900 + Y HSEROUT [DEC4 NUMBER_OUT] 'TELLS THE PLC THE FF ERROR IS FIXED PAUSE 100 ENDIF Y = Y + 1 ' NEXT BEACON WEND ' CONTINUE WHEN ALL BEACONS ARE ASSIGNED ENDIF ' ENDIF OF (IF STATUS_CHANGE = 1) '------------------------------------------------------------------------ IF POL_ALARM_INPUT = 1 THEN ' CHECK POL ALARM 1 HIGH ALARM5 STATUS_CHANGE = 1 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"POL Alarm: Level 1"] '$45 cursor position, I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ", str NUM_OF_BEACONS\2," ","OLs: ", str NUM_OF_POLS\2] PAUSE 100 HSEROUT [DEC 9991] ELSE LOW ALARM5 ENDIF IF POL_ALARM_INPUT2 = 1 THEN 'CHECK POL ALARM 2 HIGH ALARM6 STATUS_CHANGE = 1 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"POL Alarm: Level 2"] '$45 cursor position, $00 top left I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ",str NUM_OF_BEACONS\2," ","OLs: ", str NUM_OF_POLS\2] PAUSE 100 HSEROUT [DEC 9992] ELSE LOW ALARM6 ENDIF IF POL_ALARM_INPUT3 = 1 THEN 'CHECK POL ALARM 3 HIGH ALARM7 STATUS_CHANGE = 1 I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"POL Alarm: Level 3"] '$45 cursor position, $00 top left I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ",str NUM_OF_BEACONS\2," ","OLs: ",str NUM_OF_POLS\2] PAUSE 100 HSEROUT [DEC 9993] PAUSE 100 ELSE LOW ALARM7 ENDIF '----------------------------------------------------------------- GOTO START_CHECK BEACON_ALARM: ' ALL ALARM MESSEGES GO TO THIS LOCATION, MUST FILTER ' ALARM AND SET ALARM BIT TO 1 OF FAILED BEACON IF RXB0D0 = %00001111 and RXB0DLC = %00000010 THEN' DATA0 ID $0F FOR LED ALARM ON BEACON STATUS_CHANGE = 1 ' CHANGE HAS HAPPENED NORMAL_BEACON[X] = 0 ' NORMAL BIT OFF LED_ALARM[X] = 1 ' LED ALARM BIT ON ENDIF IF RXB0D0 = %11111111 THEN ' DATA0 ID FOR FLASHER FAIL ON BEACON STATUS_CHANGE = 1 ' CHANGE HAS HAPPENED NORMAL_BEACON[X] = 0 ' NORMAL BIT OFF FF_ALARM[X] = 1 ' FF ALARM BIT ON ENDIF RETURN ' RETURN BACK TO CODE AFTER BITS ARE ASSIGNED LOST_BEACON: ' LOST BEACON COME HERE STATUS_CHANGE = 1 ' CHANGE HAS HAPPENED NORMAL_BEACON[X] = 0 ' NORMAL BIT OFF LOST_ALARM[X] = 1 ' LOST ALARM BIT ON X = X + 1 ' INCREMENT COUNTER X GOTO NEXT_CHECK ' GOTO NEXT CHECK, NO DATA0 TO READ '***************************INTERRUPT BEGINS********************************** DISABLE ' MUST DISABLE BEFORE INTERRUPT ROUTINE IS USED INTAWHAT: ' INTERRUPT HAS OCCURRED TOGGLE SYSTEM_OK T0CON.7 = 0 ' STOP TIMER WHILE EVERYTHING IS RESET IF FLASH_STATE = 1 THEN ' IF BEACONS WERE ON FLASH_STATE = 0 ' TURN FLASH_STATE BIT LOW FOR NEXT CYCLE TXB1D0 =%00000000 ' DATA IS $00, MEANING "FLASHING OFF" TXB1CON.3 = 1 ' REQUEST TRANSMISSION ON BUFFER 1 WHILE TXB1CON.3 != 0 ' HAS IT TRANSMITTED if COMSTAT.0 = 1 THEN ' TX ERROR WARNING OR RX ERROR WARNING 'comm error code here 'PROGRAM LOOPS HERE UNTIL COMM IS GOOD I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN 'HSEROUT [$FE,$45,$00,"System Error"] '$45 cursor position, $00 top left I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"Communcation Error"] '$45 cursor position, $00 top left I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"Flasher Failure"] '$45 cursor position, $40 second row I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ",str NUM_OF_BEACONS\2," ","OLs: ", str NUM_OF_POLS\2] HSEROUT [DEC 7777] hserout [dec 8888] STATUS_CHANGE = 1 PAUSE 1000 ' PAUSE 1000 MS WHILE WAITING ENDIF PAUSE 10 ' PAUSE 10 MS WHILE WAITING WEND ' TRANSMITTION SUCCESSFUL INTCON.2 = 0 ' RESET TIMER0 INT FLAG TMR0H =%10110000 ' CREATES .66 SECOND BETWEEN NEXT INTERRUPT TMR0L =%10000000 ELSEif flash_state = 0 then ' ELSE BEACONS WERE OFF FLASH_STATE = 1 ' TURN FLASH_STATE BIT HIGH FOR NEXT CYCLE TXB1D0 =%11111111 ' DATA IS $FF, MEANING "FLASHING ON" TXB1CON.3 = 1 ' REQUEST TRANSMISSION ON BUFFER 1 WHILE TXB1CON.3 != 0 ' HAS IT TRANSMITTED if COMSTAT.0 = 1 THEN ' TX ERROR WARNING OR RX ERROR WARNING 'comm error code here 'PROGRAM LOOPS HERE UNTIL COMM IS GOOD I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$51] ' ALWAYS $FE, $51 = CLEAR SCREEN I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$00,"Communcation Error"] '$45 cursor position, $00 top left I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$40,"Flasher Failure"] '$45 cursor position, $40 second row I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$14,"____________________"] '$45 cursor position, I2CWRITE I2C_COMM, I2C_CLK, CONT_SEND, ADDR1, [$FE,$45,$54,"Beacons: ",str NUM_OF_BEACONS\2," ","OLs: ", str NUM_OF_POLS\2] HSEROUT [DEC 7777] hserout [dec 8888] STATUS_CHANGE = 1 PAUSE 1000 ' PAUSE 1000 MS WHILE WAITING ENDIF PAUSE 10 ' PAUSE 10 MS WHILE WAITING WEND ' TRANSMITTION SUCCESSFUL INTCON.2 = 0 ' RESET TIMER0 INT FLAG TMR0H =%00001010 ' CREATES 2 SECOND BETWEEN NEXT INTERRUPT TMR0L =%00000000 ENDIF T0CON.7 = 1 ' START TIMER RESUME ' GO BACK TO WHERE CODE WAS INTERRUPTED ENABLE ' MUST USE ENABLE end ' MUST END WITH END
Re: I2C variable to LCD
Looks like I got it working after adding the $30 to the value. I couldn't find anything in the help about having to add the $30, what is the reason for it?
Re: I2C variable to LCD
Looks like I spoke too soon. It seems to display numbers up to 3 fine, then freaks out. I have up to 64 beacons, how can I make this work?
Re: I2C variable to LCD
Got it working, the screen needed the HEX characters, and I was trying to send it DECIMAL. A bit more code required, but problem solved.
Re: I2C variable to LCD
Glad we could help -LOl. Really nice you got it going
-Bert
The glass is not half full or half empty, Its twice as big as needed for the job!
http://foamcasualty.com/ - Warbird R/C scratch building with foam!
Re: I2C variable to LCD
The 30 + x is an ASCII string thing.
Dave
Always wear safety glasses while programming.
Members who have read this thread : 2You do not have permission to view the list of names.
Posting Permissions
Bookmarks