Ok thanks alot i'll try that.
Originally Posted by fratello
|
Ok thanks alot i'll try that.
|
Thanks again it works perfect now.
|
Hi ! Me again :) ...
I made this schematic; I use this code. Works fine, but.... I don't know how to display "minus sign" for negative temperatures. I try differents variants, but without results...Any advice it's wellcome ! Thanks in advance !
Code:' ************************************************************* ' * For use with EXPERIMENTING WITH THE PICBASIC PRO COMPILER * ' * * ' * This source code may be freely used within your own * ' * programs. However, if it is used for profitable reasons, * ' * please give credit where credit is due. * ' * And make a reference to myself or Rosetta Technologies * ' * * ' * Les. Johnson * ' ************************************************************* ' ' Common Anode seven segment display multiplexer ' Displays the contents of the variable D_NUMBER on five common Anode displays ' using a TMR0 interrupt ' *********************************************************************** @ DEVICE pic16F648A, XT_OSC, WDT_OFF, PWRT_OFF, BOD_OFF, MCLR_OFF, LVP_OFF, CPD_OFF CMCON = 7 VRCON = 0 INTCON = 0 Include "Modedefs.bas" ' ** Setup the Crystal Frequency, in mHz ** Define OSC 4 ' Set Xtal Frequency ' ** Declare the Variables ** LEDS Var Byte ' The amount of LEDs in the display O_C Var Byte ' Used by the interrupt for time sharing Counter Var Word ' General purpose counter Del Var Word ' General purpose delay loop variable D_Number Var Word ' The number to display on the LEDS DP Var Byte ' Position of the decimal point Disp_Patt Var Byte ' Pattern to output to PortC Num Var Byte[5] ' Array to hold each digits value Digit0 Var PortA.0 ' Controls the first DIGIT on the LED Digit1 Var PortA.1 ' Controls the second DIGIT on the LED Digit2 Var PortA.2 ' Controls the third DIGIT on the LED Digit3 Var PortA.3 ' Controls the fourth DIGIT on the LED temperature var word TempC Var word Temp Var byte Float Var word V Var word Twist Var bit Dummy Var byte Sign var byte busy var bit DS18B20_12bit CON %01111111 ' 750ms, 0.0625°C DQ var PortA.4 ' ** Declare the bits and flags of the various registers ** T0IE Var INTCON.5 ' Timer0 Overflow Interrupt Enable T0IF Var INTCON.2 ' Timer0 Overflow Interrupt Flag GIE Var INTCON.7 ' Global Interrupt Enable PS0 Var OPTION_REG.0 ' Prescaler division bit-0 PS1 Var OPTION_REG.1 ' Prescaler division bit-1 PS2 Var OPTION_REG.2 ' Prescaler division bit-2 PSA Var OPTION_REG.3 ' Prescaler Assignment (1= assigned to WDT) ' (0= assigned to oscillator) T0CS Var OPTION_REG.5 ' Timer0 Clock Source Select (0=Internal clock) ' (1=External PORTA.4) ' Set TMR0 to interrupt GIE=0 ' Turn off global interrupts While GIE=1:GIE=0:Wend ' Make sure they are off PSA=0 ' Assign the prescaler to external oscillator PS0=0 ' Set the prescaler PS1=1 ' to increment TMR0 PS2=0 ' every 64th instruction cycle T0CS=0 ' Assign TMR0 clock to internal source TMR0=0 ' Clear TMR0 initially T0IE=1 ' Enable TMR0 overflow interrupt GIE=1 ' Enable global interrupts On Interrupt Goto Mult_Int ' Point to the interrupt handler TrisB=0 ' Make PortB outputs TrisA.0=0:TrisA.1=0:TrisA.2=0 ' Make only the specific bits of PortA outputs TrisA.3=0:TrisA.4=1 PortA=0:PortB=0 ' Clear PortB and PortA O_C=0 ' Clear the time share variable OWOut DQ, 1, [$CC, $4E, 0, 0, DS18B20_12bit] Output DQ ' Make Pin Output DQ=0 ' OneWire line Low PauseUs 480 ' Keep down for 480 µS Input DQ ' Make Pin Input PauseUs 70 ' Wait 70 µS W1: OWIN DQ,4,[busy] ' Check for still busy converting IF busy = 0 THEN W1 ' Still busy? then loop ' ** THE MAIN PROGRAM STARTS HERE ** Main: OWOut DQ, 1, [$CC, $44] OWOut DQ, 1, [$CC, $BE] OWIn DQ, 2, [temperature.byte0, temperature.byte1] If Temperature.15 then Temperature= ~Temperature +1 Twist = 1 Sign = 1 Endif Dummy = 625 * Temperature TempC = DIV32 10 TempC = (Temperature & $7FF) >> 4 Float = ((Temperature.Lowbyte & $0F ) * 25 )>>2 Temperature = TempC*100 + Float If Twist then V= 10000 - Temperature ' 25 C=12500 0 C=10000 -10 C=9000 Twist = 0 else V= 10000 + Temperature EndIf If V >= 10000 then ' Above 0 C. Temperature=V-10000 sign = " " else Temperature=10000-V ' Below 0 C. sign= "-" EndIf D_Number=Temperature/10 ' Place the value to display into D_NUMBER DP=0 ' Disable the decimal point Gosub Display ' Display the value For Del=0 to 100 ' Pause 10ms Pauseus 100 ' using smaller delays Next Inf: Goto Main ' Do it forever ' Build up the seperate digits of variable D_NUMBER ' into the array NUM. Each LED is assigned to each array variable. ' LED-0 (right) displays the value of NUM[0] ' LED-1 (middle) displays the value of NUM[1] ' LED-2 (lef) displays the value of NUM[2] ' The decimal point is placed by loading the variable DP ' with the LED of choice to place the point (0..5). where 1 is the farthest right LED ' and 0 disables the decimal point. Display: For LEDS=3 to 0 step -1 ' Loop for 4 digits (0-9999) Disable ' Disable the interrupt while we calculate Num[LEDS]=D_Number dig LEDS ' Extract the seperate digits into the array If D_Number<10 and LEDS=1 then Num[LEDS]=10 ' Zero Suppression for the second digit If D_Number<100 and LEDS=2 then Num[LEDS]=10 ' Zero Suppression for the Third digit If D_Number<1000 and LEDS=3 then Num[LEDS]=10 ' Zero Suppression for the Forth digit Enable ' Re-enable the interrupt Next ' INTERRUPT HANDLER ' Multiplexes the 4-digits ' Disable ' Disable all interupts during the interrupt handler Mult_Int: Lookup Num[O_C],[192,249,164,176,153,146,131,248,128,152,255],Disp_Patt ' Decode the segments for the LED ' Process the first display (farthest right) If O_C=0 then ' If it is our turn then Digit3=0 ' Turn OFF the fourth LED PortB=Disp_Patt ' Place the digit pattern on portC If DP=1 then PortB.7=0 ' Check the value of DP and Turn ON the decimal point Digit0=1 ' Turn ON the first LED Endif ' Process the second display If O_C=1 then ' If it is our turn then Digit0=0 ' Turn OFF the first LED PortB=Disp_Patt ' Place the digit pattern on portC If DP=2 then PortB.7=0 ' Check the value of DP and Turn ON the decimal point Digit1=1 ' Turn ON the second LED Endif ' Process the third display If O_C=2 then ' If it is our turn then Digit1=0 ' Turn OFF the second LED PortB=Disp_Patt ' Place the digit pattern on portC If DP=3 then PortB.7=0 ' Check the value of DP and Turn ON the decimal point Digit2=1 ' Turn ON the third LED Endif ' Process the fourth display If O_C=3 then ' If it is our turn then Digit2=0 ' Turn OFF the third LED PortB=Disp_Patt ' Place the digit pattern on portC If DP=3 then PortB.7=0 ' Check the value of DP and Turn ON the decimal point Digit3=1 ' Turn ON the fourth LED Endif O_C=O_C+1 ' Increment the time share counter If O_C>=4 then O_C=0 ' If it reaches 4 or over then clear it T0IF=0 ' Reset TMR0 interrupt flag Resume ' Exit the interrupt Enable ' Allow more interrupts
|
Code:' Process the fourth display If O_C=3 then ' If it is our turn then Digit2=0 ' Turn OFF the third LED If sign="-" then PortB=%00111111 PortB.7=0 else PortB=Disp_Patt ' Place the digit pattern on portC endif If DP=3 then PortB.7=0 ' Check the value of DP and Turn ON the decimal point Digit3=1 ' Turn ON the fourth LED Endif
|
Re: Thermo 7 segments - little problem
My final code, using for thermometer with two DS18B20. Works fine !
Code:; CATOD / ANOD COMUN ; merge foarte bine !!! ; VARIANTA 2 SENZORI !!! ; by Niculescu Dan, APRIL 2011 ; ; '====================================================================================== ; ; .oooO ; ( ) Oooo. ; \ ( ( ) ; \_) ) / ; (_/ ; @ DEVICE pic16F628A, intOSC_osc_noclkout, WDT_OFF, PWRT_ON DEFINE OSC 4 CMCON = 7 VRCON = 0 INTCON = 0 COMMON_0 VAR PORTA.0 COMMON_1 VAR PORTA.1 COMMON_2 VAR PORTA.2 COMMON_3 VAR PORTA.3 DQ VAR PORTA.4 DQ2 VAR PORTA.6 DP VAR PORTB.7 Temp Var Byte : Temp2 Var Byte Temperature Var Word : Temperature2 Var Word TempC Var Word : TempC2 Var Word I Var Byte : I2 Var Byte Sign Var Word : Sign2 Var Word Float Var Word : Float2 Var Word V Var Word : V2 Var Word Dummy Var Byte : Dummy2 Var Byte Busy Var Bit : Busy2 Var Bit Delay Var Word Valoare VAR Word Semn Var Word DIGIT_0 VAR BYTE DIGIT_1 VAR BYTE DIGIT_2 VAR BYTE DIGIT_3 VAR BYTE DS18B20_12bit CON %01111111 ' 750ms, 0.0625°C DS18B20_12bit2 CON %01111111 ' 750ms, 0.0625°C TrisB=%00000000 ' Make PortB outputs TrisA=%11110000 PortA=0:PortB=0 ' Clear PortB and PortA '====================================================================================== ' Init Sensor 1 OWOUT DQ, 1, [$CC, $4E, 0, 0, DS18B20_12bit] OWOut DQ, 1, [$CC, $48] ' Start temperature conversion OWOut DQ, 1, [$CC, $B8] OWOut DQ, 1, [$CC, $BE] Pause 50 OWIn DQ, 2, [temperature.byte0, temperature.byte1] ' Init Sensor 2 OWOUT DQ2, 1, [$CC, $4E, 0, 0, DS18B20_12bit2] OWOut DQ2, 1, [$CC, $48] ' Start temperature conversion OWOut DQ2, 1, [$CC, $B8] OWOut DQ2, 1, [$CC, $BE] Pause 50 OWIn DQ2, 2, [temperature2.byte0, temperature2.byte1] Pause 100 '====================================================================================== Main : If portA.7= 1 then valoare=temperature semn=sign Endif If portA.7= 0 then valoare=temperature2 semn=sign2 Endif Part1: ' Start temp.conv.Sensor1 OWOut DQ, 1, [$CC, $44] OWOut DQ, 1, [$CC, $BE] OWIn DQ, 2, [temperature.byte0, temperature.byte1] If Temperature.15 then Temperature= ~Temperature +1 Sign = 1 Endif Dummy = 625 * Temperature TempC = DIV32 10 TempC = (Temperature & $7FF) >> 4 Float = ((Temperature.Lowbyte & $0F ) * 25 )>>2 Temperature = TempC*100 + Float If Sign=1 then V= 10000 - Temperature else V= 10000 + Temperature EndIf If V >= 10000 then Temperature=V-10000 sign = " " else Temperature=10000-V sign = "-" EndIf Temperature=Temperature/10 '===================================== end part one Part2 : ' Start temp.conv.Sensor1 OWOut DQ2, 1, [$CC, $44] OWOut DQ2, 1, [$CC, $BE] OWIn DQ2, 2, [temperature2.byte0, temperature2.byte1] If Temperature2.15 then Temperature2= ~Temperature2 +1 Sign2 = 1 Endif Dummy2 = 625 * Temperature2 TempC2 = DIV32 10 TempC2 = (Temperature2 & $7FF) >> 4 Float2 = ((Temperature2.Lowbyte & $0F ) * 25 )>>2 Temperature2 = TempC2*100 + Float2 If Sign2=1 then V2= 10000 - Temperature2 else V2= 10000 + Temperature2 EndIf If V2 >= 10000 then Temperature2=V2-10000 sign2 = " " else Temperature2=10000-V2 sign2 = "-" EndIf Temperature2=Temperature2/10 '===================================== end part two 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 3 TEMP = DIGIT_3 : gosub segments COMMON_3 = 1 :gosub DelayBetweenEachDigit : COMMON_3 = 0 TEMP = DIGIT_2 : GOSUB segments COMMON_2 = 1 :gosub DelayBetweenEachDigit : COMMON_2 = 0 TEMP = DIGIT_1 : GOSUB segments COMMON_1 = 1 :DP = 0 : gosub DelayBetweenEachDigit : COMMON_1 = 0 : DP = 1 TEMP = DIGIT_0 : GOSUB segments COMMON_0 = 1 :gosub DelayBetweenEachDigit : COMMON_0 = 0 next i RETURN '====================================================================================== Displayb: ' For Common CATOD for i=0 to 3 TEMP = DIGIT_3 : gosub segmentsB COMMON_3 = 0 :gosub DelayBetweenEachDigit : COMMON_3 = 1 TEMP = DIGIT_2 : GOSUB segmentsB COMMON_2 = 0 : gosub DelayBetweenEachDigit : COMMON_2 = 1 TEMP = DIGIT_1 : GOSUB segmentsB COMMON_1 = 0 : DP = 1 : gosub DelayBetweenEachDigit : COMMON_1 = 1 : DP = 0 TEMP = DIGIT_0 : GOSUB segmentsB COMMON_0 = 0 : gosub DelayBetweenEachDigit : COMMON_0 = 1 next i RETURN '====================================================================================== segments: ; CONVERTS DATES TO 7 SEGMENT CODE for Common ANOD SELECT CASE TEMP CASE 0 : PortB=%11000000 ; 0=ON ; 1=OFF CASE 1 : PortB=%11111001 CASE 2 : PortB=%10100100 CASE 3 : PortB=%10110000 CASE 4 : PortB=%10011001 CASE 5 : PortB=%10010010 CASE 6 : PortB=%10000010 CASE 7 : PortB=%11111000 CASE 8 : PortB=%10000000 CASE 9 : PortB=%10010000 CASE "-" : PortB=%10111111 CASE " " : PortB=%11111111 END SELECT RETURN '====================================================================================== segmentsB: ; CONVERTS DATES TO 7 SEGMENT CODE for Common CATOD SELECT CASE TEMP CASE 0 : PortB=%00111111 ; 1=ON ; 0=OFF CASE 1 : PortB=%00000110 CASE 2 : PortB=%01011011 CASE 3 : PortB=%01001111 CASE 4 : PortB=%01100110 CASE 5 : PortB=%01101101 CASE 6 : PortB=%01111101 CASE 7 : PortB=%00000111 CASE 8 : PortB=%01111111 CASE 9 : PortB=%01101111 CASE "-" : PortB=%01000000 CASE " " : PortB=%00000000 END SELECT RETURN '====================================================================================== DelayBetweenEachDigit: ' DelayBetweenEachDigit ' --------------------- ' Produce delay of about 3 mSec ' Fine tuned with MPLAB StopWatch to get MainLoop = 1 sec For delay=1 to 5 @ nop next DELAY @ nop @ nop @ nop @ nop @ nop @ nop @ nop return '====================================================================================== END ' of story !!!
Last edited by fratello; - 22nd April 2011 at 07:50.
|
Re: Thermo 7 segments - little problem
I try to use Mr.Darrel "DT_INTS-14.bas" to make another variant of my termometer using 4x7 segments LED, like this :
...but where I must put the value of temperature ?! Any advice, please ? Thanks !Code:@ __config _INTOSC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_ON DEFINE OSC 4 CMCON = 7 VRCON = 0 INTCON = 0 DQ VAR PORTA.4 CLEAR SEGDEF VAR BYTE[3] Value VAR WORD Idx VAR BYTE Temp VAR BYTE digitloop VAR BYTE Blanking VAR BIT Temperature Var Word TempC Var Word I Var Byte Sign Var Word Float Var Word V Var Word Dummy Var Byte Busy Var Bit DS18B20_12bit CON %01111111 ' 750ms, 0.0625°C TrisB=0 ' Make PortB outputs TrisA.0=0:TrisA.1=0:TrisA.2=0 ' Make only the specific bits of PortA outputs TrisA.3=0:TrisA.4=1 PortA=0:PortB=0 ' Clear PortB and PortA INCLUDE "DT_INTS-14.bas" ' Base Interrupt System INCLUDE "ReEnterPBP.bas" ' Include if using PBP interrupts ASM INT_LIST macro ; IntSource, Label, Type, ResetFlag? INT_Handler TMR1_INT, _DISP, PBP, yes endm INT_CREATE ; Creates the interrupt processor ENDASM TRISA = 0 TRISB = 0 @ INT_ENABLE TMR1_INT ; enable Timer 1 interrupts T1CON = $1 ' Init Sensor 1 OWOUT DQ, 1, [$CC, $4E, 0, 0, DS18B20_12bit] OWOut DQ, 1, [$CC, $48] ' Start temperature conversion OWOut DQ, 1, [$CC, $B8] OWOut DQ, 1, [$CC, $BE] Pause 50 OWIn DQ, 2, [temperature.byte0, temperature.byte1] Main: ' Start temp.conv.Sensor1 OWOut DQ, 1, [$CC, $44] OWOut DQ, 1, [$CC, $BE] OWIn DQ, 2, [temperature.byte0, temperature.byte1] If Temperature.15 then Temperature= ~Temperature +1 Sign = 1 Endif Dummy = 625 * Temperature TempC = DIV32 10 TempC = (Temperature & $7FF) >> 4 Float = ((Temperature.Lowbyte & $0F ) * 25 )>>2 Temperature = TempC*100 + Float If Sign=1 then V= 10000 - Temperature else V= 10000 + Temperature EndIf If V >= 10000 then Temperature=V-10000 sign = " " else Temperature=10000-V sign = "-" EndIf FOR Value = 0 TO 9999 GOSUB SetDisp PAUSE 500 NEXT Value GOTO Main '---[Set 7-seg patterns to WORD value]------------------------------------------ SetDisp: Blanking = 1 FOR Idx = 3 to 0 STEP -1 Temp = Value DIG Idx IF (Blanking AND Temp != 0) OR Idx = 0 THEN Blanking = 0 IF Blanking THEN Temp = 0 ELSE LookUp Temp,[132,175,193,137,170,152,144,143,128,136,210,251],Temp ENDIF SEGDEF(Idx) = Temp NEXT Idx RETURN '---[TMR1 - interrupt handler]-------------------------------------------------- DISP: T1CON.0 = 0 ; stop timer TMR1H = %11111100 TMR1L = %00011111 T1CON.0 = 1 ; restart timer PORTA = %1111 ; turn off all digits to prevent ghosting PORTB = SEGDEF(digitloop) ; put segment pattern to pin PORTA = ~(DCD digitloop) ; turn on the digit digitloop = digitloop + 1 IF digitloop = 4 then digitloop = 0 @ INT_RETURN
|
Re: Thermo 7 segments - little problem
I try something like this
but without resultsCode:FOR x = 0 TO 9999 value=temperature GOSUB SetDisp PAUSE 500 NEXT x GOTO Main... Any thought ?
Members who have read this thread : 0You do not have permission to view the list of names.
Posting Permissions
Bookmarks