سلام به تمامی دوستان عزیز در فروم بزرگ ECA ....
بچه ها من واقعا توی کدنویسی خیلی خیلی مبتدی هستم و امیدوارم که اگر واقعا اشتباهات هم خنده دار بود به من نخندید و کمکم کنید ....
دوستان من امروز شروع کردم که یک مداری بسازم که 4 موتور رو با استفاده از دو عدد l298 و atmega8کنترل کنه که وقتی مثلا یک دکمه رو یکبار میزنیم مدار شروع به کار کنه و وقتی شروع کرد و ابتدا موتور 1 روشن شه و بعد از 5 ثانیه خاموش شه و هم زمان موتور 2 روشن شه و بعد از 5 ثانیه خاموش شه و موتور 3 روشن شه دیگه تا موتور 4 به همین ترتیب باشه خوب وقتی وارد کدنویسی ها شدم مشکل پیدا کردم وتا یک جایی شو نوشتم گفتم ببینم کسی از استید میتونه کمکم کنه تا کد نویسیش رو درست کنم ....
اینم از کد هایی که من نوشتم ...
$regfile = "m8def.dat"
$crystal = 1000000
Dim A As Byte , B As Byte , C As Byte , M As Byte , H As Byte
Config Portc = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Config Portd = Output
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portb = Input
Config Portb.0 = Input
Config Portb.1 = Input
If Portb.0 = 1 Then Portd.0 And Portd.1 = 1 And Portd.2 And Portd.3 And Portc.0 And Portc.1 And Portc.2 And Portc.3 = 0
Wait 5
Then Portd.2 And Portd.3 = 1 Portd.0 And Portd.1 And Portc.0 And Portc.1 And Portc.2 And Portc.3 = 0
Wait 5
Then Portc.0 And Portc.1 = 1 Portd.0 And Portd.1 And Portd.2 And Portd.3 And Portc.2 And Portc.3 = 0
Wait 5
Then Portc.2 And Portc.3 = 1 Portd.0 And Portd.1 And Portd.2 And Portd.3 And Portc.0 And Portc.1 = 0
End If
If Portb.1 = 0 Then Portd.0 And Portd.1 And Portd.2 And Portd.3 And Portc.0 And Portc.1 And Portc.2 And Portc.3 = 0
End If
بچه ها من واقعا توی کدنویسی خیلی خیلی مبتدی هستم و امیدوارم که اگر واقعا اشتباهات هم خنده دار بود به من نخندید و کمکم کنید ....
دوستان من امروز شروع کردم که یک مداری بسازم که 4 موتور رو با استفاده از دو عدد l298 و atmega8کنترل کنه که وقتی مثلا یک دکمه رو یکبار میزنیم مدار شروع به کار کنه و وقتی شروع کرد و ابتدا موتور 1 روشن شه و بعد از 5 ثانیه خاموش شه و هم زمان موتور 2 روشن شه و بعد از 5 ثانیه خاموش شه و موتور 3 روشن شه دیگه تا موتور 4 به همین ترتیب باشه خوب وقتی وارد کدنویسی ها شدم مشکل پیدا کردم وتا یک جایی شو نوشتم گفتم ببینم کسی از استید میتونه کمکم کنه تا کد نویسیش رو درست کنم ....
اینم از کد هایی که من نوشتم ...
$regfile = "m8def.dat"
$crystal = 1000000
Dim A As Byte , B As Byte , C As Byte , M As Byte , H As Byte
Config Portc = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Config Portd = Output
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portb = Input
Config Portb.0 = Input
Config Portb.1 = Input
If Portb.0 = 1 Then Portd.0 And Portd.1 = 1 And Portd.2 And Portd.3 And Portc.0 And Portc.1 And Portc.2 And Portc.3 = 0
Wait 5
Then Portd.2 And Portd.3 = 1 Portd.0 And Portd.1 And Portc.0 And Portc.1 And Portc.2 And Portc.3 = 0
Wait 5
Then Portc.0 And Portc.1 = 1 Portd.0 And Portd.1 And Portd.2 And Portd.3 And Portc.2 And Portc.3 = 0
Wait 5
Then Portc.2 And Portc.3 = 1 Portd.0 And Portd.1 And Portd.2 And Portd.3 And Portc.0 And Portc.1 = 0
End If
If Portb.1 = 0 Then Portd.0 And Portd.1 And Portd.2 And Portd.3 And Portc.0 And Portc.1 And Portc.2 And Portc.3 = 0
End If
دیدگاه