سلام دوستان
خسته نباشید!
بنده یک کدی رو نوشتم ولی متاسفانه تا بخشی از کار نیاز من بر طرف نمی شود!
ببینید من میخوام 3 تا LED تا مدار داشته باشیم اینا تا اخر برنامه یکی یکی روشن بشن بعد از چند ثانیه خاموش شن یعنی اصلا قطع نشن! بعد از اونجایی که این چراغا به ترتیب قراره چشمک بزنن ما کد نوشیتیم که اقا اگه چراغ اول روشن بود بنویس فلان تو LCD اگه نبود فلان کار رو بکن اگه نبود فلان کار رو بکن گه کلا خاموش بودن تموم کن برنامه رو
به یه توضیح دیگه ببینید ما میخوایم یه سری کد که نوشتیم همواره اجرا بشه در طول برنامه در همون حین بره سراغ کد های بعدی:
اینم کاری که کردم:
امیدوارم متوجه بشید چی میخوام
سوالی داشتید بپرسید
ممنون
خسته نباشید!
بنده یک کدی رو نوشتم ولی متاسفانه تا بخشی از کار نیاز من بر طرف نمی شود!
ببینید من میخوام 3 تا LED تا مدار داشته باشیم اینا تا اخر برنامه یکی یکی روشن بشن بعد از چند ثانیه خاموش شن یعنی اصلا قطع نشن! بعد از اونجایی که این چراغا به ترتیب قراره چشمک بزنن ما کد نوشیتیم که اقا اگه چراغ اول روشن بود بنویس فلان تو LCD اگه نبود فلان کار رو بکن اگه نبود فلان کار رو بکن گه کلا خاموش بودن تموم کن برنامه رو
به یه توضیح دیگه ببینید ما میخوایم یه سری کد که نوشتیم همواره اجرا بشه در طول برنامه در همون حین بره سراغ کد های بعدی:
اینم کاری که کردم:
امیدوارم متوجه بشید چی میخوام
سوالی داشتید بپرسید
ممنون
کد:
$regfile = "m32def.dat" $crystal = 4000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , E = Porta.0 , Rs = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 CONFIG PORTC = OUTPUT set portc.0 wait 10 reset portc.0 wait 2 set portc.1 wait 10 reset portc.1 wait 2 set portc.2 wait 10 reset portc.2 do If Portc.0 = 1 Then Goto Ali else goto Ali4 Wait 5 Ali: LOCATE 1,7 LCD "GREEN" wait 3 Locate 2 , 6 LCD "RIGHT" wait 3 GOTO Ali4 Ali4: if portc.1=1 then goto Ali2 else if portc.2=0 then goto END Ali2: cls locate 1,7 wait 3 lcd "RED" wait 3 locate 2,5 lcd "Danger!" wait 3 if portc.2=1 then goto Ali3 else if portc.2=0 then goto END Ali3: cls locate 1,6 lcd "Yellow!" locate 2,5 lcd "Care" loop END: CLS LCD "OFF" DISPLAY OFF loop End 'end program
دیدگاه