۰۹-مرداد-۱۳۹۱, ۰۹:۵۰:۱۰
سلام به همه دوستان واستادان عزیز.
یه برنامه واسه راه اندازی سنسور srf02 گیر اوردم اما هنوز نوفق به تست اون نشدم.دلیلش رو تو تاپیک قبلم(مشکل در ایجاد فایل هگز)گفتم.چون هنوز نتونستم کامپایلر 1.11.9.8 رو نصب کنم اخه خطا میده.حال فقط میخوام مطمئن بشم که این برنامه درسته یا نه.
$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
بعد اگه کسی هست یه توضیحی هم بده راجش ممنون میشم.
من سنسور رو توی طراحی دادم به پایه هایrxd , txd
یه برنامه واسه راه اندازی سنسور srf02 گیر اوردم اما هنوز نوفق به تست اون نشدم.دلیلش رو تو تاپیک قبلم(مشکل در ایجاد فایل هگز)گفتم.چون هنوز نتونستم کامپایلر 1.11.9.8 رو نصب کنم اخه خطا میده.حال فقط میخوام مطمئن بشم که این برنامه درسته یا نه.
$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
بعد اگه کسی هست یه توضیحی هم بده راجش ممنون میشم.
من سنسور رو توی طراحی دادم به پایه هایrxd , txd