وظيفة المشروع :
قد يكون شبيها نوعا ما بأجهزة PLC وهو تشغيل و إطفاء عدة مخارج ( 4 مخارج في هذا المشروع ) و يمكن التوسيع حتى تصبح 8 مخارج ..
وصف عمل هذه التجربة :
كود: $regfile = "m8def.dat" $crystal = 8000000 '-------------------- Config Portb = &B11111111 Portb = $b00000000 '---------------------------------------- R1 Alias Portb.1 R2 Alias Portb.2 R3 Alias Portb.3 R4 Alias Portb.4 '----------------------------------------- Dim I As Byte '----------------------------------------- For I = 0 To 0 Waitms 200 Set R1 Set R2 Waitms 100 Set R3 Set R4 Waitms 100 Reset R2 Reset R4 Waitms 100 Reset R1 Waitms 100 Reset R3 Next I End إعداد المهندس أبو زكووور |
كلمات دليليه |
أزمنة , مؤقت , برمجة , timer |