۰۶-مرداد-۱۳۹۱, ۰۹:۵۴:۳۵
سلام به همه.
من یه برنامه برای راه اندازی سنسور التراسونیک از جایی گرفتم ولی الان برنامه که بسکام هستش فایل هگز رو نمیسازه که بتونم پروگرام کنم.ممنون میشم کمک کنین.
این برناممه:
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
Portb.4 , E = Portb.0 , Rs = Portb.5
Config Lcd = 16 * 2
Dim A As Byte
Dim B As Byte
Dim C As Word
Dim Cc As Single
Enable Interrupts
Cls
Cursor Off
Do
Printbin 0
Waitms 50
Printbin 84
A = Waitkey()
B = Waitkey()
C = A * 256
C = C + B
If C > 100 Then
Cc = C / 100
Locate 2 , 1 : Lcd "Range2=" : Lcd Fusing(cc , "#.##") : Lcd "Meter "
Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "
Elseif C < 100 Then
Cc = 0
Locate 2 , 1 : Lcd "Range2=" : Lcd Fusing(cc , "#.##") : Lcd "Meter "
Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "
End If
Loop
End
این برنامه رو از فایل زیر گرفتم.
اگه جواب نگیرم کارم رو از دست میدم...![Sad Sad](https://www.iranled.com/forum/images/smilies2/sad.gif)
من یه برنامه برای راه اندازی سنسور التراسونیک از جایی گرفتم ولی الان برنامه که بسکام هستش فایل هگز رو نمیسازه که بتونم پروگرام کنم.ممنون میشم کمک کنین.
این برناممه:
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
Portb.4 , E = Portb.0 , Rs = Portb.5
Config Lcd = 16 * 2
Dim A As Byte
Dim B As Byte
Dim C As Word
Dim Cc As Single
Enable Interrupts
Cls
Cursor Off
Do
Printbin 0
Waitms 50
Printbin 84
A = Waitkey()
B = Waitkey()
C = A * 256
C = C + B
If C > 100 Then
Cc = C / 100
Locate 2 , 1 : Lcd "Range2=" : Lcd Fusing(cc , "#.##") : Lcd "Meter "
Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "
Elseif C < 100 Then
Cc = 0
Locate 2 , 1 : Lcd "Range2=" : Lcd Fusing(cc , "#.##") : Lcd "Meter "
Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "
End If
Loop
End
این برنامه رو از فایل زیر گرفتم.
اگه جواب نگیرم کارم رو از دست میدم...
![Sad Sad](https://www.iranled.com/forum/images/smilies2/sad.gif)