سلام
من یک استپ موتور دارم و میخوام اونو به مقدار لازم و دقیق به راست و بعد به چپ حرکت بدم .
کسی هست که بتونه با فرمان for next و rotate این کار را انجام بده . خودم چپ گرد رو می تونم انجام بدم و لی در همون برنامه راست گرد نمیشه مثل برنامه زیر : کسی هست بگه چرا در برنامه زیر E را مساوی 128 میگیریم و هر عدد دیگری استفاده می کنم دیگه 4 تا پین اول میکرو از برنامه ختارج می شوند ممنون میشم کمک کنید
$regfile = "m32def.dat"
$crystal = 8000000
Config Portb = Output
Dim B As Byte , A As Byte , E As Byte,
Main:
For A = 1 To 50
E = 128
For B = 1 To 4
Rotate E , Left
Portb = E
Waitms 20
Next A
Next B
Goto Main
من یک استپ موتور دارم و میخوام اونو به مقدار لازم و دقیق به راست و بعد به چپ حرکت بدم .
کسی هست که بتونه با فرمان for next و rotate این کار را انجام بده . خودم چپ گرد رو می تونم انجام بدم و لی در همون برنامه راست گرد نمیشه مثل برنامه زیر : کسی هست بگه چرا در برنامه زیر E را مساوی 128 میگیریم و هر عدد دیگری استفاده می کنم دیگه 4 تا پین اول میکرو از برنامه ختارج می شوند ممنون میشم کمک کنید
$regfile = "m32def.dat"
$crystal = 8000000
Config Portb = Output
Dim B As Byte , A As Byte , E As Byte,
Main:
For A = 1 To 50
E = 128
For B = 1 To 4
Rotate E , Left
Portb = E
Waitms 20
Next A
Next B
Goto Main
