ممكن اي مصدر تعليمي عن Binary ?

تسأل وتجواب نوع من المشاركة مع الاعضاء

انتظر المثال سأرفقه لك

فاصل ونواصل

اقتباس

Dim a As String * 10

Dim b As String * 10

Open "works.rar" For Binary As #1

Get #1, 1, a

Get #1, 11, b

Put #1, 1, b

Put #1, 11, a

Close

يعافيك ربي يالغالي ..

ياليت شوية توضيح للكود ولا عليك أمر ..

وهل هذا الكود لتغيير القيم ؟

وكيف يتم ارجاعها للقيم الأصلية ..

وفقك الله لكل خير أخوي kindy_ibrahim

اقتباس

وهل هذا الكود لتغيير القيم ؟

نعم

اقتباس

وكيف يتم ارجاعها للقيم الأصلية ..

هتشغلة مرة تانية

اقتباس

ياليت شوية توضيح للكود ولا عليك أمر ..

انتظر الرد القادم

فاصل ونواصل

Dim a As String * 10
Dim b As String * 10

تعريف كل من a & b كمصفوفة تحمل متغيرات نصية

Open "works.rar" For Binary As #1

نطلب من البرنامج بفتح الملف works.rar بالطريقة الثنائية علي قناة الاتصال الاولي

Get #1, 1, a
Get #1, 11, b

نأخذ اول عشرة حروف من الملف الموجود علي قناة الاتصال الاولي ونضعهم في المصفوفة a

نأخذ ثاني عشر حروف من الملف الموجود علي قناة الاتصال الاولي ونضعهم في المصفوفة b

Put #1, 1, b
Put #1, 11, a

سنقوم بعمل تبدي للحروف بوض ما بداخل المتغير b في اول عشر خانات

وطبعاً العكس مع المتغير a

ارجو ان اكون قد اوضحت

وضحت وضحت يا أستاذ ابراهيم والنائج ميه الميه ..

يعافيك ربي يالغالي ..

وجزاك الله خير على تجاوبك السريع ..

اقتباس

هتشغلة مرة تانية

العفو يالغالي ..

هل بالامكان أن اجعل البرنامج يقوم بعملية واحدة فقط ..

بحيث مهما كررت تنفيذ الكود فانه فقط يقوم بعملية التغيير فقط ..

والإعادة مثلاً تكون بكود أخر .. فهل يمكن عمل ذلك ؟

دمت في رعاية الله ..

Dim a As String * 10
Dim b As String * 10

Open "works.rar" For Binary As #1
Get #1, 1, a
Get #1, 11, b
Put #1, 1, b
Put #1, 11, a
Close

'العمليات المرادة عملها علي الملف

Open "works.rar" For Binary As #1
Get #1, 1, a
Get #1, 11, b
Put #1, 1, b
Put #1, 11, a
Close

اقتباس

'العمليات المرادة عملها علي الملف

حيث هي عمليات فك الضغط تو اعطاء تصريح او فتحة الي آخرة

يوفقك ربي ان شاء الله اخوي ابراهيم..

ما قصرت والله ..

لي عوده ان شاء الله بعد التجريب ..:)