[فارس النيل]

يا جماعة عايز اعمل برنامج يضيء اربع ليدات الليد الاول يضيء ثانية ويطفيء ثانية والليد الثاني يضيء ثانيتين ويطفيء ثانيتين والثالث يضيء ثلاث ثواني ويطفيء ثلاث ثواني والرابع يضيء اربع ثواني ويطفيء اربع ثواني المشكلة اني عايز العملية دي تحصل في وقت واحد وليس بالترتيب مش عارف بقى اخليهم يعملوا كده في وقت واحد ازاي ياريت مساعدة منكم يا شباب
وجزاكم الله خيرا

[crom]

قصدك فى بداية التشغيل ... يشتغلو الجميع مع بعض وبعدها كل واحد يشتغل على توقيتة الخاص

[فارس النيل]

ايوه يا بشمهندس كل الليدات يبداوا مع بعض وبعد كده كل واحد يضيء ويطفيء على حسب توقيته ولك جزيل الشكر

[crom]

تفضل يا بشمهندس

'     Name            program Test
'     MCU:             P16F84A
'     Oscillator:      HS, 04.000 MHz
'     SW:              mikroBasic v7.0
program Test

dim Tl,T2 ,T3,T4  as word


TRISA=0
TRISB=0
PORTB =$FF

start:

Tl = Tl + 1
select case Tl
       case  100
       PORTB.0 = 0

       case  200
       PORTB.0 = 1
       Tl = 0
end select


T2 = T2 + 1
select case T2
       case  200
       PORTB.1 = 0

       case  400
       PORTB.1 = 1
       T2 = 0
end select


T3 = T3 + 1
select case T3
       case  300
       PORTB.2 = 0

       case  600
       PORTB.2 = 1
       T3 = 0
end select

T4 = T4 + 1
select case T4
       case  400
       PORTB.3 = 0

       case  800
       PORTB.3 = 1
       T4 = 0
end select

   Delay_ms(10)
goto start

 
end.

[فارس النيل]

الف شكر لك يا بشمهندس كروم وجزاك الله خيرا وبالتوفيق دائما ان شاء الله