ايران ويج

نسخه‌ی کامل: مشكل ست كردن پايه ميكرو
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2 3 4 5
خوب قلقشو بگین ما هم یاد بگیریم !!!
(۲۷-اردیبهشت-۱۳۸۹, ۲۳:۰۹:۳۲)t3r!p3000 نوشته است: [ -> ]خوب قلقشو بگین ما هم یاد بگیریم !!!

اي آقا شكسته نفسي ميكنيد . همه شما اينكاره هستيد به جز ما تازه وارد هاWhistle
باشه با اين حال ميگم.
اول اينكه من به روش خودم نوشتمش اما جواب داد.
من اول از دستور bitwait استفاده ميكردم كه جواب نميداد نميدونم چرا؟
از اين دستور set pind.3 استفاده ميكردم كه براي اين كار جواب نداد.
از دستور if استفاده كردم كه خيلي جاها به دادم رسيده مخصوصا اين بار.
در دستور if از if portd.0= 0 استفاده ميكردم كه غلط بود.
و يه چيزه ديگه چون من ميخواستم دو تا پين را استفاده كنم - با هم توي يك حلقه و if مينوشتم كه اين هم اشتباه بود.

خلاصه پدرم در اومد تا جواب گرفتمHappy و بخاطر اينكه پدر ديگه اي در نياد كدش رو ميزارم تا استفاده كنن !
کد:
Config Portd = Input

Set Portd.3
Set Portd.4

Do
If Pind.3 = 1 Then
Cls : Lcd "1NO!"
Waitms 300
Elseif Pind.3 = 0 Then
Cls : Lcd "1629472 !"
Waitms 300
Exit Do

End If
Loop

Do
If Pind.4 = 1 Then
Cls : Lcd "2NO!"
Waitms 300
Elseif Pind.4 = 0 Then
Cls : Lcd "1629472 !"
Exit Do
End If
Loop
Wait 1
Cls : Lcd "it's okey :D"
End
اميدوارم به برنامه نويسي من نخندينAngryRolleyes
صفحه‌ها: 1 2 3 4 5