هوامير البورصة السعودية - ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برنامجك

هوامير البورصة السعودية (https://hawamer.com/vb/index.php)

◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برنامجك

بسم الله الرحمن الرحيم

قال رسول الله صلى الله عليه وسلم: "خيركم من تعلم العلم وعلمه"

هذا الموضوع بصدد دورة تدريبية مجانية وحصرية لمنتديات هوامير البورصة السعودية
وهي خلاصة مجهود سنــــوات طويــــــلة من البحث والتحليل قررت أفيــد بها الأعضاء
وستتكون هذه الدورة بإذن الله تعالى من عدد كبيــــر من الدروس + أمثـــــلة تطبيقية
والهدف منها احتراف التحليل الفني عن طريق استخدام برنامج الإكسل Excel

سنتعلم فيها الآتي بإذن الله تعالى:

1- إنشــاء جــــــداول الأسعـــار اللحظية والتاريخية لأي فترة زمنية.
2- إضافة أي مؤشرات أو استراتيجيات قد تخطر على بـــ،ــ،ــ،ــالك.
3- عرض الرسوم البيانيـــــة (الشموع اليابانية) ببرنامج الإكســـل.
4- الحصول على أي معلومات أو جداول تريدها باحترافية وسهولة.

ملفات الميتاستوك MetaStock

هي ملفات تقوم جميع برامج متابعة التداول بإنشائها وتحديثها تلقائيًا مع السوق اللحظي
وهي مرتبة بتصنيــــف IEEE الذي سيتم شرحــــــه فيما بعد بإذن الله
وتحتوي هذه الملفات على البيانات التاريخية واللحظية لجميع الأسهم
إذا كنت تستــــــخدم TickerChart أو Mubasher Pro أو الاتجاه برو أو غيرهم من البرنامج،
أبشِـــ،ـ،ـ،ــــــر! ... فأنت تمتلك كنزًا يسمى بيانات الميتـــــاستــــــوك

يجب التأكـــد من وجود بيانات الميتاستوك على جهازك قبل الشروع بالبدأ بهذه الدورة التدريبية
كما يجب معرفة مكان مجلد بيانات الميتاستوك وذلك عن طريق برنامج التداول الذي تستخدمه
ويتم معرفة المجلد عن طريق اتباع الخطوات الآتية ببرنامج TickerChart
ويتم عمل نفس الشيء ببرامج التداول الأخرى مع اختلاف قوائم العرض

https://image.ibb.co/mMYRfa/1.png

***

https://image.ibb.co/jXzMDv/2.png

ملحوظة: ينبغي التأكد من تفعيل اختيار (تحديث ملفات بيانات الميتاستـــــوك)
(الاختيار موجود ببرامج التداول الأخرى بخلاف TickerChart مع تشابه الألفاظ)

قم بفتح مجلد البيانات الموجود على جهازك تجد مجلدات بهذا الشكل
(مع اختلاف تسمية المجلدات حسب برنامج التداول المستخــــــــدم)

https://image.ibb.co/jo0Ttv/3.png

كل مجــــلد يحتوي على جميــع بيانات الأســــــهم الخاصة بفتــــرة المجلد
قم بفتح مجلد Daily مثلًا وهو يحتوي على بيانات الأسهم للشموع اليومية
قد يحتوي هذا المجلد على مجلد آخر بداخله، قم بفتحه تجــد هذه الملفات

https://image.ibb.co/bDXxmF/4.png

تنقسم الملفات إلى نوعين:

1- ملف EMASTER أو MASTER
وتحتوي على قائمة جميع الأسهم، وسنتعلم فيما بعد بإذن الله قراءة
قائمة الأسهم من هذه الملفات (كود السهم - اسم السهم - الفترة)
ويتشابه ملف MASTER مع EMASTER بشكل كبير حيث يمكن قراءة
قائمة الأسهم من كلًا من الملفين، ولكن ملف EMASTER أكثر تطورًا

2- ملفات مرقمة تبدأ بحرف F بصيغة DAT
مثلًا: F10.DAT - F119.DAT
وكل ملف منها يخص سهم معين ويحتوي على بيانات الشموع منذ أقدم تاريخ متــــــاح وحتى تاريــــخه
(تاريخ الشمعة - سعر الافتتاح - سعر الإغلاق - أعلى سعر - أدنى سعر - حجـم التداول خلال الشمعة)
وأثناء عمل السوق تجد أن هذه الملفات يتم تحديثها بشكل تلقائي عن طريق برنامج التداول المستخدم
حيث يتم إضافة الشموع الجديدة إلى الملف، أو تعديل آخر شمعة (الحاليــة) بأسعار السوق اللحظيـــة
وسنتعلم فيما بعد بإذن الله قراءة هذه الملفات عن طريق الإكســــــل وربطها بالرسم البياني والجداول
من من ثَمَّ إجراء أي عمليات حسابية بشكل لحظي على البيانات

يتم معرفة السهم الخاص بكل ملف عن طريـــق EMASTER أو MASTER
وسنتناول كيفية الحصول على قائمة الأسهم والملف المرتبط بكل سهم
وعرضها بجدول الإكسل بالدرس الأول إن شاء الله

هذه الدورة التدريبية تحتاج إلى متابـــــعة وممارســـــــة ..
وسأجيب على جميع أسئلة الأعضــــــــــاء بإذن الله تعالى
وجاري تحضير الدرس الأول

في انتظار دعواتكم قبل ردودكم،،،

الدرس الأول - تجهيز ملف الإكسل

بسم الله الرحمن الرحيم
الدرس الأول - تجهيز ملف الإكسل

1- قم بفتح مجـــلد جديد فارغ في برنامج الإكسل.

***

2- قم بالضغــــط على Alt + F11 لتفتـــح نافـــــذة
تسمى Microsoft Visual Basic for Applications
وفيها سيتم كتابة كود ربط بيانات الميتاستوك بلغة VBA

***

3- قم بكليــــك يميـن على الSheet الحاليـة
ثم اختيار إضافة Module وذلك كما بالصورة:

https://image.ibb.co/i7HdbF/11.png

***

4- حاول أن تكتب الآن باللغة العربية بداخل الModule المضافة ..
تستطيع كتابة الإنجليزية فقط .. هل تستطيــــــع كتابـــة العربية ؟
إذا كنـت لا تستطيـــــع، قم بتفعيل اللغـــة العربيــــة وذلك بالضغـط على Tools ثم Options
ثم اختيار قائمة Editor Format وتغيير اللغة إلى Courier New (Arabic) وذلك كما بالصورة:

https://image.ibb.co/mS7N3v/12.png

***

والآن قد جهزت بيئة العمل لبداية في كتابة كود استيراد البيانات من مجلد الميتاستوك
حيث سيتم في الدرس القادم بإذن الله البداية بكتابة أول كود بداخل Module1

في انتظار دعواتكم قبل ردودكم،،،
تابعونا،،، :hawamer5612

الدرس الثاني - تجهيز الأعمدة لاستيراد البيانات

بسم الله الرحمن الرحيم
الدرس الثاني - تجهيز الأعمدة لاستيراد البيانات

كما ذكرنــا في المقدمة، يوجد في مجلد الميتاستوك
عدد كبير من ملفات تبدأ بحرف F وتنتهي بصيغة DAT
وكل ملف من هذه الملفات يتبع ســـهـــــم معيــــــن،
ويربط هذه الملفات بأسماء الأسهم ملـــف EMASTER

نريــد الآن أن نقرأ ملف EMASTER
وأن نعرضه بالإكسل كما بالصورة:

https://image.ibb.co/dwVObF/21.png

كما نرى في الصورة السابقة أن كل سهم يرتبــــط بملف الميتاستــــوك الخاص به
وسيتم في الدروس القادمة بإذن الله تعلم كيفية قراءة الأسعار اللحظية والتاريخية
من هذه الملفات، وعرضها بالجدول وبالرسم البياني

الآن، خطوة بخطوة .. نقوم بتنسيق الصفحة وإعدادها
من حيث تحديد لون النص، وعرض الخانات، وغيرهمــا
وهذه الإعدادات يمكن أن تتم يدويًا عن طريق الإكسل
أو برمجيًا بإضافة الكود الآتي بداخل Module1 كما بالصورة:

https://image.ibb.co/mDwRVa/111.png

والكود السابق موضح به كل شيء باللون الأخضر
حيث يمكن تغيير خصائص أو محتوى الخلايا المفردة باستخدام Cells
وتغيير خصائص أو محتوى الأعمدة بأكمــــــــلها باستخدام Columns

وبالمثل تغيير خصائص أو محتوى الصفـوف بأكملها باستخدام Rows

ويبدأ الترقيم من رقم 1 لأول صف أو عامود ثم 2 و 3 ...

يمكنك نسخ الكود من هنا:

كود:

Sub Main()

    'تحديد اتجاه الصفحة من اليمين إلى اليسار (اللهم اجعلنا من أهل اليمين)

    ActiveSheet.DisplayRightToLeft = True

    Cells.Font.Name = "Arial Unicode MS"

    Cells.Font.Size = 10



    'عامود كود السهم

    Columns(1).ColumnWidth = 8                  'سمكه صغير نسبيًا

    Columns(1).HorizontalAlignment = xlCenter  'محاذاة للمنتصف

    Columns(1).Font.Color = vbRed              'اللون الأحمر

    Columns(1).Font.Bold = True                'الخط الثقيل

    

    'عامود إسم السهم

    Columns(2).ColumnWidth = 25                'سمكه كبير

    Columns(2).HorizontalAlignment = xlRight    'محاذاة لليمين

    Columns(2).Font.Color = vbBlue              'اللون الأزرق

    Columns(2).Font.Bold = True                'الخط الثقيل

    

    'عامود مسار ملف الميتاستوك الخاص بالسهم

    Columns(3).ColumnWidth = 80                'سمكه كبير جدًا

    Columns(3).HorizontalAlignment = xlLeft    'محاذاة لليسار

    

    'تلوين صف عناوين الأعمدة

    Rows(1).Interior.Color = RGB(220, 220, 255)

    Rows(1).Font.Bold = True                'الخط الثقيل

    

    'تحديد أسماء الأعمدة ومحاذتها

    Cells(1, 1) = "الكود"

    Cells(1, 2) = "إسم السهم"

    Cells(1, 2).HorizontalAlignment = xlCenter  'محاذاة للمنتصف

    Cells(1, 3) = "مسار ملف الميتاستوك"

    Cells(1, 3).HorizontalAlignment = xlCenter  'محاذاة للمنتصف

End Sub

الآن قم بحفظ ملف الإكســــــل بالضغط على Ctrl + S
واختيار نوع الملف Excel Macro-Enabled Workbook
ثم الضغط على حفظ Save كما بالصورة:

https://image.ibb.co/kGZYbF/13.png

الآن يمكنك تشغيل البرنامج عن طريـــق الضغـــط على F5 أو بالضغط على Play أعلى الشاشــــة
ثم الانتقال إلى ملف الإكسل لنجد أن الأعمدة تم كتابة أسماءها وتحديد عرضها بما يناسب البيانات

وسيتم التعرف على كيفية استيراد البيانات من ملف EMASTER لإدراجها
بهذا الجدول بالدرس القادم بإذن الله تعالى،،،

في انتظار دعواتكم قبل ردودكم،،،
تابعونا،،، :hawamer5612

التطبيق الأول

تطبيق

قم بإضافة على الدرس السابق
باستخدام كود vba
خانة جديدة وهي خانة "سعر الإغلاق"
وتغيير لون النـص بها إلى اللون الأزرق
وخانة جديدة وهي خانة "التغيــــر %"
وتغيير لون النص بها إلى اللون الأخضر
مع مراعاة محاذاة محتوى الخانات إلى المنتصف

رد: ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برن

للأسف مامعي اي اشتراك في البرامج
لكن حبيت طرحك ألف شكر لك
انت انسان رائع بيض الله وجهك
الله يوفقك يارب

رد: ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برن

ملحوظة: ينبغي التأكد من تفعيل اختيار (تحديث ملفات بيانات الميتاستـــــوك)
(الاختيار موجود ببرامج التداول الأخرى بخلاف TickerChart مع تشابه الألفاظ)
استفسار بارك الله فيك هل يفي برنامج TickerChart
او الأفضل مباشر برو

رد: ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برن

الله يوفقك
شرح وافي وسهل

رد: ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برن

عليكم السلام ورحمة الله وبركاته
جزااااااااااااااااااااااك الله خير اخوي

والله الصباح جالس أقرأ عن هالموضوع

متابعين معك ,
وأتمنى التطرق لـ :
- ( تحويل ملفات الاكسل إلى ميتاستوك )
- ( التعامل مع البيانات "التاريخيه" و "المؤشرات " في الاكسل )

والأهم :

أقتباس3- عرض الرسوم البيانيـــــة (الشموع اليابانية) ببرنامج الإكســـل.

ربي يووووووووووووووووووووووووووووووفقك
بإنتظارك ربي يسعدك

رد: ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برن

اقتباس:

المشاركة الأصلية كتبت بواسطة حمد ناصر (المشاركة 35854796)

للأسف مامعي اي اشتراك في البرامج
لكن حبيت طرحك ألف شكر لك
انت انسان رائع بيض الله وجهك
الله يوفقك يارب

أهلًا بك أخي الكريم ونورت الموضوع
لو أردت متابعة الموضوع دون الحاجـــــة لبرامج
يمكن أن أرسل لك ملفات ميتاستوك تطبق عليها الدورة
:d8uj1385968616_602: :d8uj1385968616_602: :d8uj1385968616_602:

اقتباس:

المشاركة الأصلية كتبت بواسطة مهندس متقاعد (المشاركة 35855177)

الله يوفقك
شرح وافي وسهل

نورت الموضوع أخي الكريم
ويرجى المتابعة كي تعم الفائدة

رد: ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برن

اقتباس:

المشاركة الأصلية كتبت بواسطة حمد ناصر (المشاركة 35854799)

أهلًا بك أخي الكريم
يمكنك استخدام أي برنامج تداول
جميع البرامج تحدث بيانات الميتاستوك
TickerChart
أو
Mubasher Pro
أو
الاتجاه برو
أو ..........

ويمكنك معرفة طريقة الربط بالصور
ببرنامج TickerChart
وذلك في مقدمة الموضوع

:d8uj1385968616_602: :d8uj1385968616_602: :d8uj1385968616_602:

رد: ◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برن

اقتباس:

المشاركة الأصلية كتبت بواسطة !مشعل! (المشاركة 35855262)

عليكم السلام ورحمة الله وبركاته
جزااااااااااااااااااااااك الله خير اخوي

والله الصباح جالس أقرأ عن هالموضوع

متابعين معك ,
وأتمنى التطرق لـ :
- ( تحويل ملفات الاكسل إلى ميتاستوك )
- ( التعامل مع البيانات "التاريخيه" و "المؤشرات " في الاكسل )

والأهم :

ربي يووووووووووووووووووووووووووووووفقك
بإنتظارك ربي يسعدك

أهلًا بك أخي الكريم ونورتني
جــاري إعداد الشرح لكل ما تنتظر وأكثر بإذن الله
ولكن تابعني خطوة بخطوة حتى لا تحدث لخبطة
لأن الدروس تحتاج إلى تركيز وممارسة

:d8uj1385968616_602: :d8uj1385968616_602: :d8uj1385968616_602:

الدرس الثالث - قراءة ملف Emaster

بسم الله الرحمن الرحيم
وبه نستعين
الدرس الثالث - قراءة ملف EMASTER

كما ذكرنــا في الدرس السابق، ملف الEMASTER يحتوي على بيانات الأسهم الآتية:
1- الكود الخاص بالســــهم (مثلاً 1820)
2- إسم السهم (مثلًا مجموعة الحكيــر)
3- ملف أسعــار السهم (مثلًا F28.DAT)

وقمنا في الدرس السابق بتجهيز عدد 3 أعمدة بملف الإكسل لملئها بالبيانـــات أعلاه

https://image.ibb.co/dwVObF/21.png

ما يتبقى الآن هو قراءة ملف EMASTER لاستخراج البيانات كما بالصورة
وعلى ذلك يجب التعرف على تكوين ملف EMASTER على شكل Bytes

دائمًا يكون حجم ملف EMASTER من مضاعفــــات الرقم 192
مش مصدق؟
جرب بنفسك!
كليك يمين على الملف وخصائص كما بالصورة:

https://dl.dropboxusercontent.com/s/...zhjrm78a/1.png

الحجم عندي كما يظهر بالصورة هو 40320 بايــــــت
وهو من مضاعفات رقم 192 حيث أن:
40320 ÷ 192 = 210

قد يختـــــلف حجم الملف عندك حسب عدد الأسهم بالسوق
ولكن يبقى دائمًا حجمه من مضاعفات الرقم 192
فكل سهم من الأسهم يمثل عدد 192 بايت بداخل EMASTER
باستثنــــاء أول 192 بايـــت داخل الملف لا تمثل أي سهم
(وهي بيانات عامة عن الفترة سيتم التطرق لها فيما بعد)

ولذلك إذا كان حجم ملف EMASTER مقسومًا على 192 يســــــــاوي 210
فهذا يعني أن السوق يحتوي على عدد 209 سهم فقط لأن أول 192 بايت لا يحتسبوا
وهو بالفعل عدد الأسهم بداخل برنامج التداول الخاص بك
ويمكنك مقارنة هذه الأعداد بنفســــك من على جهــــازك

وبذلك يكون ترتيب الBytes بداخل ملف EMASTER كما بالصورة:

https://dl.dropboxusercontent.com/s/...alk4h9tl/2.png

تعرفنا على تكوين ملف الEMASTER
الآن نبدأ بقراءة الملف عن طريق كود VBA بداخل Module1
ويتم قراءة الملف على شكل مصفوفة من الBytes
تحتوي على البيــــــانات بالصـــــــورة أعلاه

لقراءة أي ملف وتحويله إلى مصفوفة من Bytes
يمكنك إضافة هــــــذه الدالـــــــة إلى Module1
وذلك أسفل دالة Main التي تم إضافتها بالدرس السابق:

https://dl.dropboxusercontent.com/s/...xjxv4pwx/3.png

ويمكنك نسخ الكود من هنا:

كود:

'دالة قراءة أي ملف وتحويله إلى مصفوفة من البايت حيث يتم إدخال بها مسار الملف

Public Function GetFileBytes(ByVal path As String) As Byte()



    'فرض الملف

    Dim file As Long

    file = FreeFile()

    

    'فرض مصفوفة البايتس التي سيتم قراءة الملف فيها

    Dim bytes() As Byte

    

    If LenB((path)) Then    'التحقق من وجود الملف لتجنب حدوث أخطاء

    

        'فتح الملف لقراءته

        Open path For Binary Access Read As file

        

        'تحديد طول مصفوفة البايتس وهو طول الملف سالب واحد

        'وذلك لأن الترقيم بأي مصفوفة يبدأ من صفر وليس واحد

        ReDim bytes(LOF(file) - 1) As Byte

        

        'قراءة الملف داخل المصفوفة

        Get file, , bytes

        

        'إغلاق الملف بعد الانتهاء من قراءته

        Close lngFileNum

    End If

    

    'إرجاع القيمة المطلوبة كناتج للدالة، وهي مصفوفة البايتس

    GetFileBytes = bytes

End Function

ويمكن استخدام هذه الدالة مباشرة فيما بعد
وذلك لقــراءة أي ملف من جهازك
وتحويله إلى مصفوفة من Bytes
وذلك باستخـــــدام إسم الدالة السابقة فقط
GetFileBytes
دون التطرق لمحتـــواها كالآتي:

https://dl.dropboxusercontent.com/s/...hflle2zi/4.png

انتبه!
يجب تغيير المسار إلى المسار الصحيح لملف EMASTER على جهازك
ويمكن كتابة السطرين السابقين بداخل دالة Main

وبهذا نكون قد قرأنا ملف الEMASTER بالكامـــــــل
وسنتعرف بالدرس القادم بعد بإذن الله على كيفية استخراج
بيـــــانات كل سهم من ال192 بايـــتس الخاصة به

في انتظار دعواتكم قبل ردودكم،،،
تابعونا،،، :hawamer5612