مشکل در فایل هگز
سلام به همه مهندسین عزی و پر تلاش.
بنده یه سنسور التراسونیک رو باید راه اندازی کنم.یه فایل هم پیدا کردم که به نظرم کامل باشه.اما یه مشکلی هست اونم اینه که تو بسکام وقتی برنامه رو مینویسم و کامپایل میکنم همه فایل هاش ساخته میشه غیر از فایل هگز!!
نمیدونم دلیلش چیه اما به شدت نیازه که زودتر کارم راه بیفته وگرنه کارم رو از دست میدمSad
اینم از خود برنامه:
$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
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
اینم از خود برنامه:
$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
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
دیدگاه