$regfile = "m8def.dat" $crystal = 8000000 '=================================== $hwstack = 150 '200 ' default use 32 for the hardware stack $swstack = 90 '250 ' default use 10 for the SW stack $framesize = 220 '========================================== Config Lcd = 16 * 2 Config Lcdpin = Pin , Rs = Pinc.4 , E = Pinc.3 , Db4 = Pinc.2 , Db5 = Pinc.1 , Db6 = Pinc.0 , Db7 = Pinb.5 Cursor Off Cls '========================================== Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Config Pind.6 = Output Led_r Alias Portd.6 Config Pind.7 = Output Led_g Alias Portd.7 '========================================== Config Timer1 = Counter , Edge = Rising Ddrd.5 = 0 Portd.5 = 1 '------- Config Timer0 = Timer , Prescale = 1024 '--------------- Enable Timer1 Enable Timer0 Enable Interrupts '--------------------- On Ovf1 Pulse_counter On Ovf0 Yazdkit '------------------- Dim A As Long , B As Byte , I As Long Dim Fr As Long Dim W As Word Dim S As Single Dim Z As String * 15 Dim Fr_set_ee As Eram Byte Dim Bb As Byte Dim Lm35 As Word Dim S20 As String * 20 Dim M20 As String * 20 Dim S5 As String * 5 Dim Secc As Byte '=========================================== Deflcdchar 0 , 14 , 17 , 17 , 17 , 14 , 32 , 32 , 32 ' replace [x] with number (0-7) '========================================== Main: Cls Locate 1 , 6 Lcd "Hello" Wait 1 Cls Rotobat: Do Led_r = 1 Waitms 500 Led_r = 0 Waitms 500 Loop '====================================== End Yazdkit: Incr I If I > 30 Then Toggle Led_g Stop Timer0 A = B * 65536 A = A + Counter1 Fr = A '-------------------------------- Lm35 = Getadc(5) Lm35 = Lm35 / 2 '-------------------------------- W = 0 W = Fr - 6210 S = W / 50 S = S * 5 S = 95 - S If S > 96 Or S < 1 Then S = 99 Z = Fusing(s , "#.#") Locate 1 , 1 Lcd " H= " ; Z ; " % " Locate 2 , 1 Lcd " T= " ; Lm35 ; " " ; Chr(0) ; "C " B = 0 I = 0 Counter1 = 0 Start Timer0 End If Return '---------------------- Pulse_counter: Incr B Counter1 = 0 Return
W = 0 W = Fr - 6210 S = W / 50 S = S * 5 S = 95 - S If S > 96 Or S < 1 Then S = 99
دیدگاه