سلام دوستان من میخواستم یه چیزی درست کنم که هر کس از در رد بشه بشماره من این برنامه ای که نوشتم فقط میشماره کم نمیکنه میشه راهنماییم کنید تا بتونم یکاری کنم که کمم بکنه
$regfile = "m16adef.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,a as Single
Dim W As Word , Num As Long
Num = 0
Portb.1 = 0
Portb.2 = 0
Cls
Locate 1 , 1
Lcd "MOHAMMAD HOSSIN"
Locate 2 , 3
Lcd "IR Sensor"
Wait 3
Cls
Do
start adc
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
start adc
W = Getadc(6)
a = W * 4.8828125
a = a / 1000
If a > 0.40 Then
Portb.1 = 0
Else
Portb.1 = 1
Sound Portb.0 , 100 , 150
decr Num
Cls
Lcd "Num : " ; Num
End If
end if
Loop
End
$regfile = "m16adef.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,a as Single
Dim W As Word , Num As Long
Num = 0
Portb.1 = 0
Portb.2 = 0
Cls
Locate 1 , 1
Lcd "MOHAMMAD HOSSIN"
Locate 2 , 3
Lcd "IR Sensor"
Wait 3
Cls
Do
start adc
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
start adc
W = Getadc(6)
a = W * 4.8828125
a = a / 1000
If a > 0.40 Then
Portb.1 = 0
Else
Portb.1 = 1
Sound Portb.0 , 100 , 150
decr Num
Cls
Lcd "Num : " ; Num
End If
end if
Loop
End
دیدگاه