با سلا خدمت تمام دوستان.من یه برنامه ای دارم که هرکی از بین دو سنسور عبور کنه می شماره و روی lcd نشان میدهد .هرکه بره تو اتاق یا بره بیرون میشماره تعداد رو کم نمیکنه میخواستم یکی درست کنم که تعداد هم کم کنه
و وقتی تعداد یک یا بیشتر شد رله را روشن کنه و وقتی صفر شد رله را خاموش کنه .ممنون میشم اگر کمک کنید.
برنامه:
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.1 , Db4 = Pina.2 , Db5 = _
Pina.3 , Db6 = Pina.4 , Db7 = Porta.5
Config Lcd = 16 * 2
Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Volt As Single
Dim W As Word , Num As Long
Num = 0
Portb.1 = 0
Portb.2 = 0
Start Adc
Cls
Locate 1 , 1
Lcd "MOHAMMAD"
Locate 2 , 3
Lcd "IR SENSORE"
Wait 1
Cls
Do
W = Getadc(7)
Volt = W * 4.8828125
Volt = Volt / 1000
''''''''&# 039;
Waitms 10
''''''''&# 039;''''''' 9;'''''''' ''''''''&# 039;
If Volt > 0.40 Then
Portb.1 = 0
Else
Portb.1 = 1
Sound Portb.0 , 100 , 150
Incr Num
Cls
Lcd "Num : " ; Num
Wait 1
End If
Loop
End
و وقتی تعداد یک یا بیشتر شد رله را روشن کنه و وقتی صفر شد رله را خاموش کنه .ممنون میشم اگر کمک کنید.
برنامه:
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.1 , Db4 = Pina.2 , Db5 = _
Pina.3 , Db6 = Pina.4 , Db7 = Porta.5
Config Lcd = 16 * 2
Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Volt As Single
Dim W As Word , Num As Long
Num = 0
Portb.1 = 0
Portb.2 = 0
Start Adc
Cls
Locate 1 , 1
Lcd "MOHAMMAD"
Locate 2 , 3
Lcd "IR SENSORE"
Wait 1
Cls
Do
W = Getadc(7)
Volt = W * 4.8828125
Volt = Volt / 1000
''''''''&# 039;
Waitms 10
''''''''&# 039;''''''' 9;'''''''' ''''''''&# 039;
If Volt > 0.40 Then
Portb.1 = 0
Else
Portb.1 = 1
Sound Portb.0 , 100 , 150
Incr Num
Cls
Lcd "Num : " ; Num
Wait 1
End If
Loop
End
دیدگاه