'asli --------------
Do
Debounce Pind.0 , 0 , Ziyad , Sub
Loop
'---------------------------
Ziyad:
Set Portc.0
Here:
If D > B Then Goto Here
Return
If B < D Then : Call Ziad
[FONT=Yekan]$regfile = "m16adef.dat"[/FONT]$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.0 , Rs = Portd.1
Config Adc = Single , Prescaler = Auto
Config Portb = Input
Config Portc = Output
Dim A As Word
Dim B As Byte
B = 25
Dim C As Byte
C = 5
Dim D As Byte
Start Adc
Cursor Off
Cls
Locate 1 , 1
Lcd "be name khoda"
Wait 2
Cls
Declare Sub Ziyad
Declare Sub Asli
Asli:
Cls
Do
Debounce Pinb.0 , 1 , Damabala , Sub
Debounce Pinb.1 , 1 , Damabala1 , Sub
Debounce Pinb.2 , 1 , Damakam , Sub
Debounce Pinb.3 , 1 , Damakam1 , Sub
Locate 1 , 1
Lcd "H=" ; B
Locate 1 , 8
Lcd "L=" ; C
A = Getadc(0)
D = A / 2
Locate 2 , 1
Lcd "Temp =" ; D ; "c "
If B < D Then Call Ziyad
Loop
Damabala:
Incr B
Return
Damabala1:
Decr B
Return
Damakam:
Incr C
Return
Damakam1:
Decr C
Return
Ziyad:
Set Portc.0
If D < B Then Call Asli
Return
[FONT=Yekan]End[/FONT]
Ziyad:
Set Portc.0
INJA_BASH:
If D > B Then Call INJA_BASH
Return
Ziyad:
Set Portc.0
INJA_BASH:
If D > B Then: GOTO INJA_BASH
Return
If B <= D Then Set Portc.0
If B => D Then Reset Portc.0
دیدگاه