سلام دوستان
یک ولوم هرز گرد دارم و با زبون بیسیک براش برنامه نوشتم . باری استفاده از اون میشه از دستور encoder تو بسکام استفاده کرد ولی وقتی که از این دستور استفاده میکنم دیگه نمیشه تو جایی که این دستور هست , دستور شرطی بکار برد و مشکلهای دیگه ...
پس خودم باید پالسهای اونو اشکار کنم . اما مشکل اینجاست که هر جور براش برنامه مینویسم یا اصلا جواب نمیده یا جواب میده و فقط متغییر رو زیاد میکنه یا فقط کم میکنه . یا نه به هر طرف که میچرخونم فقط زیاد میکنه .
تروخدا کمکم کنید دیگه خسته شدم .
اینم برناممه
یک ولوم هرز گرد دارم و با زبون بیسیک براش برنامه نوشتم . باری استفاده از اون میشه از دستور encoder تو بسکام استفاده کرد ولی وقتی که از این دستور استفاده میکنم دیگه نمیشه تو جایی که این دستور هست , دستور شرطی بکار برد و مشکلهای دیگه ...
پس خودم باید پالسهای اونو اشکار کنم . اما مشکل اینجاست که هر جور براش برنامه مینویسم یا اصلا جواب نمیده یا جواب میده و فقط متغییر رو زیاد میکنه یا فقط کم میکنه . یا نه به هر طرف که میچرخونم فقط زیاد میکنه .
تروخدا کمکم کنید دیگه خسته شدم .
اینم برناممه
کد:
$regfile = "m128def.dat" $crystal = 11059200 $lib "glcdks108.lbx" $include "FONT8X8.FONT" Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 4 , _ Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2 Setfont Font8x8 Cls '----------------------------------------------------------------------------------------- ok Dim A As Byte '----------------------------------------------------------------------------------------- Config Pind.0 = Input Config Pind.1 = Input '---------------------------------------------------------------------------------------- Enable Interrupts Config Int0 = Falling Enable Int0 On Int0 R '--------------------------------------------------------------------------------------- Main: Do Lcdat 1 , 1 , A ; " " Loop End 'end program '--------------------------------------------------------------------------- R: If Pind.1 = 1 Then A = A + 1 Else A = A - 1 End If Return
دیدگاه