مساعدة:فى معرفة نوع الكومبلر المستخدم لهذا الكود


(system) #1

[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

وهذا الالتفاف طبعا يقوم بتحريك النص بالكامل خطوة للامام

+++++++++++++++++++++++++

اتمنى منكم سرعة الرد

لاهمية هذا الموضوع

وشكرلاا لكم مقدما


(system) #2

بعد البحث وجدت برنامج

Proton Lite
http://www.picbasic.nl/
[U]

http://www.picbasic.org/forum/showthread.php?t=5845
[/u]

ولكن للاسف لا يسمح بكود اكثر من 50سطر

ماذلت انتظر الردود من الاخوة


(system) #3

الف شكر لعدم الردود

عموما هذا هو البرنامج المناسب للكود

mikroBasic PRO for PIC 2009

وهذة هى صفحة التحميل

http://www.qariya.com/vb/showthread.php?t=8678

وشكرا لكم جميعا[LEFT][COLOR=#000000]

[/color][/left]