$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 = Pinb.2 , E = Pinb.3 , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7
Cursor Off
Cls
'===========================================================
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Config Pind.6 = Output
Led_y Alias Portd.6
Config Pind.7 = Output
Led_r 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 Project
'===========================================================
Ddrd.0 = 0 : Portd.0 = 1
Ddrd.1 = 0 : Portd.1 = 1
Config Pind.2 = Input
Config Portd.3 = Output
Config Portd.3 = Output
'===========================================================
'Declare Sub Temp2
'Declare Sub Humidity
'===========================================================
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_0 As Word
Dim Lm35_1 As Word
Dim Dama As Integer
Dim Temp As Integer
Dim Hu As Byte
'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)
'============================================================
Temp = 25 : Hu = 42
If Pind.2 = 1 Then
Gosub Temp2
Else
Gosub Humidity
End If
Main:
Cls
Locate 1 , 6
Lcd "Hello" : Lowerline : Lcd "Reza Khoshnood"
Wait 3
Cls
Rotobat:
Do
Led_y = 1
Waitms 500
Led_y = 0
Waitms 500
Loop
End
'=============================================================
Project:
Incr I
If I > 30 Then
Toggle Led_r
Stop Timer0
A = B * 65536
A = A + Counter1
Fr = A
'=============================================================
Lm35_0 = Getadc(0)
Lm35_1 = Getadc(1)
Dama = Lm35_0 - Lm35_1
Dama = Dama / 2.06
'=============================================================
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 , "#.#")
Home
Lcd " RH= " ; Z ; " % " ; "" ; Hu
Lowerline
Lcd "T=" ; Dama ; " " ; Chr(0) ; "C" ; "" ; Temp
B = 0
I = 0
Counter1 = 0
Start Timer0
End If
Return
'==============================================================
Pulse_counter:
Incr B
Counter1 = 0
Return
'==============================================================
Temp2:
If Pind.0 = 0 Then
Incr Temp
Elseif Pind.1 = 0 Then
Decr Temp
End If
If Temp > 150 Then
Temp = -55
Elseif Temp < -55 Then
Temp = 150
End If
jmp main
Return
'==============================================================
Humidity:
If Pind.0 = 0 Then
Incr Hu
Elseif Pind.1 = 0 Then
Decr Hu
End If
If Hu > 99 Then
Hu = 0
Elseif Hu < 0 Then
Hu = 99
End If
jmp main
Return
'==============================================================
دیدگاه