هذا هوا الكود
كل اللى عايز اعمله ان بعد ميحصل فعلا تحقيق الشرط , ارجع تانى لل Main
كود:
sub procedure StepperCW()
' Function used for text moving
While i=0
PORTA.0 = 1
Delay_ms(25) ' second delay
PORTA.0 = 0 ' Turn ON diodes on PORTA
Delay_ms(25) ' second delay
PORTA.1 = 1
Delay_ms(25) ' second delay
PORTA.1 = 0 ' Turn ON diodes on PORTA
Delay_ms(25) ' second delay
PORTA.2 = 1
Delay_ms(25) ' second delay
PORTA.2 = 0 ' Turn ON diodes on PORTA
Delay_ms(25) ' second delay
PORTA.3 = 1
Delay_ms(25) ' second delay
PORTA.3 = 0 ' Turn ON diodes on PORTA
Delay_ms(25) ' second delay
IF BUTTON (PORTC,2,1,1) THEN
GOTO MAIN
END IF
WEND
end sub
ازاى اطلع من إجراء
