So...This is correct ?
Thanks for support !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![]()




Bookmarks