I need help

[cesar35]

Hello
I need help
I need to send temperature data to the PC
And receive PC data to drive 2 relays
More when I send the data the program crashes
I'm using timerout
When I send data to relay to it hangs
Thank you



LOOP_PRINCIPAL:


Serin2 RX_IN,84,1000,TIMEOUT,[WAIT("CMD"),RX]

SELECT CASE RX
CASE "A"
HIGH RELE1
CASE "B"
LOW RELE1
CASE "C"
HIGH rele2
CASE "D"
LOW rele2
END SELECT
PAUSE 300
GOTO LOOP_PRINCIPAL


TIMEOUT:

'DS18B20
'OWOUT DQ,1,[$CC, $44] 'Start temperature conversion
'pause 1000
'OWOUT DQ,1,[$CC, $BE] 'Read the temperature
'OWIN DQ,0,[temperature.LOWBYTE,temperature.HIGHBYTE]
'temperature = temperature*/1600
'Serout2 XT_OUT,84,[DEC2 (temperature/100),".",DEC2 temperature,13,10]
'GOTO LOOP_PRINCIPAL
'----------------------------------

[aerostar]

When it times out, it will fall straight through to whatever garbage is in the chip, you have remmed out any code after the label "TIMEOUT", you need to un-remark 'GOTO LOOP_PRINCIPAL at the bottom of your code you show.

[cesar35]

Hello Aerostar all right
IM sorry
I fix the program even so it hangs when they procure I send commands to the relay of the drive has time to work and time not
thank you

[CODELOOP_PRINCIPAL:

Serin2 RX_IN,84,1000,TIMEOUT,[WAIT("CMD"),RX]

SELECT CASE RX
CASE "A"
HIGH RELE1
CASE "B"
LOW RELE1
CASE "C"
HIGH rele2
CASE "D"
LOW rele2
END SELECT
PAUSE 300
GOTO LOOP_PRINCIPAL


TIMEOUT:

'DS18B20
OWOUT DQ,1,[$CC, $44] 'Start temperature conversion
pause 1000
OWOUT DQ,1,[$CC, $BE] 'Read the temperature
OWIN DQ,0,[temperature.LOWBYTE,temperature.HIGHBYTE]
temperature = temperature*/1600
Serout2 XT_OUT,84,[DEC2 (temperature/100),".",DEC2 temperature,13,10]
GOTO LOOP_PRINCIPAL

[Scampy]

I've already said in other posts that I'm no expert, but I'm sure I'm missing something here...

The manual states


SERIN2 DataPin{\FlowPin},Mode,{ParityLabel,} {Timeout,Label,}[Item...]


Taking your line of code


Serin2 RX_IN,84,1000,TIMEOUT,[WAIT("CMD"),RX]


So RX_IN is the pin, 84 is mode (which equates to 9600 baud rate ?), and then your have the optional parity and time out labels.

The manual states


An optional Timeout and Label may be included to allow the program to continue if a character is not received within a certain amount of time. Timeout is specified in units of 1 millisecond. If the serial input pin stays idle during the Timeout time, the program will exit the SERIN2 command and jump to Label.


So I'm guessing that the code loops through your LOOP_PRINCIPLE main program, reads the serial pin, if it finds no data, jumps out to the timeout subroutine to read the temperature and send that via serial (which I'm guessing is connected somehow to a PC running a terminal applications ?), then jumps back to the main loop. However if the code detects an A,B,C,D it then sets or releases a relay connected to the pins RELE1 and RELE2.

I'm just wondering if the code is running too fast.. I use HSERIN on my projects, but I'm sure that's not relevant to this, and the code can be used with a SERIN pin / command



FOR TempWD = 0 TO 500
IF RCIF=1 THEN GOSUB coms ; Check to see if PC application connected
PAUSE 1
next TempWD


This is the routine I use to check for a character from the PC application sent to the com port.

Prior to this I have a flag variable


RCIF VAR PIR1.5 ' USART receive flag


The case select is then handled by



coms:

HSERIN [nTest]
SELECT CASE nTest
CASE "Q" ; if Q then send data to PC
Goto Term_TX
CASE "S" ; if S then receive data from PC
goto Term_RX
return


This is basically the reverse of your code, in that you can have the main loop running the read temperature and sending the results out, but each time the loop runs it checks the serial port, and only jumps to the relay section if it finds an ABC or D in the buffer and placed into the RX variable...

Like I said, I'm no expert, and your code may need to run at a higher speed than the projects I've worked on, but maybe you can pull something from the suggestions and it will stop it locking up

[AvionicsMaster1]

Probably a stupid question but in the following lines temperature is broken into a lowbyte and highbyte. Assuming you've got temperature defined as a WORD, does PBP automatically meld these two bytes together to make a WORD? I thought you had to kinda build the word or specify which byte you want to use.

OWIN DQ,0,[temperature.LOWBYTE,temperature.HIGHBYTE]
temperature = temperature*/1600

Hoping I'm not too far out in left field.

[cesar35]

Hello thanks for the reply
I made a modification to the program for USART 9600
I made a correction in the temperature of the program now everything is normal functioning
Thank you