سلام
این نمونه کد رو به ساده ترین حالت مینویسم که دوستان تازه وارد هم سر در بیارن :
کد:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Config Portc = Output
Dim tedad As Byte
tedad=0
Do
PORTB=&B00000001
waitms 50
PORTB=&B00000010
waitms 50
PORTB=&B00000100
waitms 50
PORTB=&B00001000
waitms 50
PORTB=&B00010000
waitms 50
PORTB=&B00100000
waitms 50
PORTB=&B01000000
waitms 50
PORTB=&B10000000
waitms 50
incr tedad
if tedad=50 then
tedad=0
PORTC=&B00001111
waitms 500
PORTC=&B00000000
end if
Loop
end
در این مثال با هر بار اجرا شدن حلقه 1 واحد به tedad اضافه میشه و بعد از رسیدن به عدد 50 دستور داخل شرط اجرا میشه که در مثال با روشن شد 4 تا از پین های پورت c می باشد .