[CENTER]السلام عليكم ورحمة الله وبركاتة
وكل عام وانتم جميعا بكل خير
اولا احب ان اشكر كل من دخل هذا الموضوع وحتى وان لم يساعد بة
فمن يدخل موضوع طلب مساعدة اعتقد انة يحب ان يساعد الاخرين .
موضوعى اتمنى ان يكون بسيط
وهو ان اهتمام هو الليد ماتريكس
وانا درست بعض من لغة ال الميكرو سى
وللاسف اتضح ان 99% من مشاريع الماتركس منفذة بلغة الاسمبلى
المهم
فى هذة الصفحة كود بة عرض ماتركس بشكل ثابت وهو بلغة بيزك
وكود اخر لعرض ماتركس متحرك
وانا قمت بتحويل الكود الاول الى ميكروسى واشتغل كويس جدا
انما الكود الاخر لم يعمل عندما حولتة الى لغة السى
لانة يوجد داخل الكود ((التفاف)) ولا اعرف الطريقة الصحيحة للالتفاف بلغة السى
واردت فقط ان استخدم الكود كما هو علية مع التعديل علية فقط
وقمت بتجربت تحويلة الى هكس ببرنامج البيك بيزك برو فور بيك
ولم ينجح
واتمنى من شخصكم الكريم التفضل بتعريفى ماهو الكومبيلر المناسب لة
اليكم اولا صفحة الموضوع الماخوز منه الاكواد
http://www.teknomerkez.net/makale.asp?b=157
واليكم الكود الاول وهذا تم تحويلة بنجاح والحمد لله
[/center]
'===M KARAKTERINI DEGISKENLERLE OLUSTURMAK===
P1 VAR BYTE
d1 VAR BYTE
d2 VAR BYTE
d3 VAR BYTE
d4 VAR BYTE
d5 VAR BYTE
TRISA=%00000000
TRISB=%00000000
P1=5
'===M karakteri degiskenlerde tanimlandi===
d1=%01111111 '*******
d2=%00000010 ' *
d3=%00000100 ' *
d4=%00000010 ' *
d5=%01111111 '*******
BASLA:
'===M karakterinin olusturulmasi===
PORTA=%11111110 'SUTUN 1 ICIN
PORTB=d1 'BU DEGERLER
Pause P1 'BEKLE
PORTA=%11111101 'SUTUN 2 ICIN
PORTB=d2 'BU DEGERLER
Pause P1 'BEKLE
PORTA=%11111011 'SUTUN 3 ICIN
PORTB=d3 'BU DEGERLER
Pause P1 'BEKLE
PORTA=%11110111 'SUTUN 4 ICIN
PORTB=d4 'BU DEGERLER
Pause P1 'BEKLE
PORTA=%11101111 'SUTUN 5 ICIN
PORTB=d5 'BU DEGERLER
Pause P1 'BEKLE
GoTo BASLA
End
اما الكود المطلوب معرفة نوع الكومبيلر المناسب فهو هذا
'===COKLU KARAKTER KAYDIRILIYOR===
P1 VAR BYTE
i VAR BYTE
i1 VAR BYTE
d0 VAR BYTE
d1 VAR BYTE
d2 VAR BYTE
d3 VAR BYTE
d4 VAR BYTE
d5 VAR BYTE
d6 VAR BYTE
d7 VAR BYTE
d8 VAR BYTE
d9 VAR BYTE
d10 VAR BYTE
d11 VAR BYTE
d12 VAR BYTE
d13 VAR BYTE
d14 VAR BYTE
d15 VAR BYTE
d16 VAR BYTE
d17 VAR BYTE
d18 VAR BYTE
d19 VAR BYTE
d20 VAR BYTE
d21 VAR BYTE
d22 VAR BYTE
d23 VAR BYTE
d24 VAR BYTE
d25 VAR BYTE
d26 VAR BYTE
d27 VAR BYTE
d28 VAR BYTE
d29 VAR BYTE
TRISA=%00000000 '===BUTUN UCLAR===
TRISB=%00000000 '===CIKIS YAPILDI===
P1=5 '===TITREMEYI ENGELLEMEK LCLN===
i=0 '=== BU DEGER SABIT KALSIN===
i1=22 '===KAYMA HIZINI AYARLIYOR===
'===MEHMET karakterinin degiskenlere atanmasi===
d0=%00000000
d1=%01111111
d2=%00000010
d3=%00000100
d4=%00000010
d5=%01111111
d6=%00000000
d7=%01111111
d8=%01001001
d9=%01001001
d10=%00000000
d11=%01111111
d12=%00001000
d13=%00001000
d14=%01111111
d15=%00000000
d16=%01111111
d17=%00000010
d18=%00000100
d19=%00000010
d20=%01111111
d21=%00000000
d22=%01111111
d23=%01001001
d24=%01001001
d25=%00000000
d26=%00000001
d27=%01111111
d28=%00000001
d29=%00000000
BASLA:
i=i+1 'i YI BIR ARTTIR
IF i=i1 Then kaydir
PORTA=%11111110 'SUTUN 1 ICIN
PORTB=d1
Pause P1
PORTA=%11111101 'SUTUN 2 ICIN
PORTB=d2
Pause P1
PORTA=%11111011 'SUTUN 3 ICIN
PORTB=d3
Pause P1
PORTA=%11110111 'SUTUN 4 ICIN
PORTB=d4
Pause P1
PORTA=%11101111 'SUTUN 5 ICIN
PORTB=d5
Pause P1
GoTo BASLA
kaydir:
i=0
'===KAYDIRMA BASLIYOR===
d0=d1
d1=d2
d2=d3
d3=d4
d4=d5
d5=d6
d6=d7
d7=d8
d8=d9
d9=d10
d10=d11
d11=d12
d12=d13
d13=d14
d14=d15
d15=d16
d16=d17
d17=d18
d18=d19
d19=d20
d20=d21
d21=d22
d22=d23
d23=d24
d24=d25
d25=d26
d26=d27
d27=d28
d28=d29
d29=d0
GoTo BASLA
End
وللمعلومة فقط
انا استخدمت تعرف char بديل عن تعريف
VAR BYTE
اما الالتفاف المقصود فهو هذا الجزء
kaydir:
i=0
'===KAYDIRMA BASLIYOR===
d0=d1
d1=d2
d2=d3
d3=d4
d4=d5
d5=d6
d6=d7
d7=d8
d8=d9
d9=d10
d10=d11
d11=d12
d12=d13
d13=d14
d14=d15
d15=d16
d16=d17
d17=d18
d18=d19
d19=d20
d20=d21
d21=d22
d22=d23
d23=d24
d24=d25
d25=d26
d26=d27
d27=d28
d28=d29
d29=d0
GoTo BASLA
End
وهذا الالتفاف طبعا يقوم بتحريك النص بالكامل خطوة للامام
+++++++++++++++++++++++++
اتمنى منكم سرعة الرد
لاهمية هذا الموضوع
وشكرلاا لكم مقدما