مرحباً أيها الإخوة
أرجوا أن تكون الفكرة قد أعجبتكم , لمن شاهدها و لمن
حَمَّلها
هذا رابط فيه برنامج Bascom-AVR-1.11.9.0
http://www.4shared.com/get/38673422/...VR-111190.html
لقد قمت بتحميله و تجريبه و إنشاء الله يعمل
أما بالنسبة للتجربة السابقة هذا هو الكود الخاص بها
كود:
$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
شكراً لكم ... رمضان كريم .