با درود به همه دوستان
من بصورت اتفاقی با این موضوع برخورد کردم یعنی اشتباهی بجای porta.0
porta.1 رو به مقاومت وصل کردم که این اتفاق افتاد این مدار که شماتیکش رو گذاشتم با نزدیک شدن دست شما به نزدیکتر از 15 سانتیمتر (حدودا) شمارنده رو اضافه میکنه و led پایه portd.5 روشن میشه.
حالا سوال من اینه که این حالت چرا بوجود اومده و آیا روشی هست که بشه کنترلش کرد یعنی با اضافه کردن قطعاتی به مدار این خاصیت رو تا چند متر افزایش بدیم ؟(منظورم اولتراسونیک نیست اشتباه نشه )
(توضیح : به محل اتصال خازن و مقاومت یک تکه کوچک فیبر مسی با سیم وصل مشه که در شماتیک نیست )
اینم برنامه:
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pb.0 , Db5 = Pb.1 , Db6 = Pb.2 , Db7 = _
Pb.3 , E = Pb.5 , Rs = Pb.4
Config Pina.0 = Output
Config Pind.5 = Output
Config Pina.7 = Input
Dim A As Word
Dim B As Word
Cls
Do
Set Porta.0
Waitms 2
Do
Reset Portd.5
Loop Until Pina.7 = 0
Incr A
Set Portd.5
Locate 1 , 1 : Lcd "number =" ; A
Waitms 10
Loop
End
من بصورت اتفاقی با این موضوع برخورد کردم یعنی اشتباهی بجای porta.0
porta.1 رو به مقاومت وصل کردم که این اتفاق افتاد این مدار که شماتیکش رو گذاشتم با نزدیک شدن دست شما به نزدیکتر از 15 سانتیمتر (حدودا) شمارنده رو اضافه میکنه و led پایه portd.5 روشن میشه.
حالا سوال من اینه که این حالت چرا بوجود اومده و آیا روشی هست که بشه کنترلش کرد یعنی با اضافه کردن قطعاتی به مدار این خاصیت رو تا چند متر افزایش بدیم ؟(منظورم اولتراسونیک نیست اشتباه نشه )
(توضیح : به محل اتصال خازن و مقاومت یک تکه کوچک فیبر مسی با سیم وصل مشه که در شماتیک نیست )
اینم برنامه:
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pb.0 , Db5 = Pb.1 , Db6 = Pb.2 , Db7 = _
Pb.3 , E = Pb.5 , Rs = Pb.4
Config Pina.0 = Output
Config Pind.5 = Output
Config Pina.7 = Input
Dim A As Word
Dim B As Word
Cls
Do
Set Porta.0
Waitms 2
Do
Reset Portd.5
Loop Until Pina.7 = 0
Incr A
Set Portd.5
Locate 1 , 1 : Lcd "number =" ; A
Waitms 10
Loop
End
دیدگاه