So...This is correct ?
Code:
...
If portA.7= 1 then
valoare=temperature
semn=sign
else
valoare=temperature2
semn=sign2
Endif

Gosub Selectie
Gosub Display				' B for Common CATOD;without B for Common ANOD

Goto Main

'======================================================================================       
Selectie :

IF semn ="-" then					
    DIGIT_3="-"
    else
    DIGIT_3=" "
ENDIF
 
IF valoare DIG 2 = 0 THEN
    DIGIT_2 = " "
    ELSE
    DIGIT_2 = valoare dig 2
ENDIF

    DIGIT_1 = valoare dig 1
    DIGIT_0 = valoare dig 0

RETURN
'======================================================================================       
Display:					' For Common ANOD
for i=0 to 4
    TEMP = DIGIT_3 : gosub segments
    COMMON_3 = 1 : PAUSE 1 : COMMON_3 = 0

     
    TEMP = DIGIT_2 : GOSUB segments
    COMMON_2 = 1 : PAUSE 1 : COMMON_2 = 0
   
    TEMP = DIGIT_1 : GOSUB segments
    COMMON_1 = 1 : DP = 0 : PAUSE 1 : COMMON_1 = 0 : DP = 1
  
    TEMP = DIGIT_0 : GOSUB segments
    COMMON_0 = 1 : PAUSE 1 : COMMON_0 = 0
next i
RETURN
Thanks for support !Name: ttt.jpg Views: 2123 Size: 165.5 KB