مشكل ست كردن پايه ميكرو

[t3r!p3000]

خوب قلقشو بگین ما هم یاد بگیریم !!!

[اشك]

خوب قلقشو بگین ما هم یاد بگیریم !!!

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

خلاصه پدرم در اومد تا جواب گرفتم و بخاطر اينكه پدر ديگه اي در نياد كدش رو ميزارم تا استفاده كنن !

کد:

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

اميدوارم به برنامه نويسي من نخندين