مشاهدة نتائج الإستطلاع: هل ترى ان هذا الموضوع يضع المنهج العلمى الصحيح لدراسه الفلك المالى
- المصوتون
- 133. أنت لم تصوت في هذا الإستطلاع
النتائج 901 إلى 915 من 1504
الموضوع: نظريه المثلث الفلكى & بدايه الطريق
- 07-08-2020, 11:45 AM #901يامرحبا يامرحبا
أخيراً , والله انا قلت الموضوع خلاص بدأ يتنسي طبعاً اكيد فاهمك . هذا الموضوع تحديداً يريد عقول مميزة لإستيعابه وهذا تراه حال الدنيا يعني لو نظرت كل شي تقريباً فيه نجاح وفشل
الجامعات
المعاهد
الكليات
التربية
الاخلاق
القيادة
وقيس على هذا المنوال
بالنسبة لي الأمر نسبة وتناسب ومن الطبيعي أن تموت هذه الموضعات لأننا أمة غير جاهزة (أمة لا تقرأ) نحب الجاهز وخلاص
حالياً قرأت الموضوع مرة ثانية بس اضافة أفكار تطويرية وعدم تبيان هذه الافكار هل تنسب الى الطريقة من عدمه الى الفكرة الأساسية جعل من الصعب فهم طريقة المثلث الفلكي مع اني أشوف بأن ماطرح حتى الآن (فيض من غيض)
-----
نجي لموضوعنا
البرنامج بحمد الله جاهز
أتمنى من الاستاذ عبدالعزيز واخي وجهة نظر تجربة البرنامج ووضع الملاحظات للتعديل
صورة البرنامج
ملاحظة مهمة : برجاء فحص الملف هذا ملف تنفيذي (EXE) ويعتبر هذا إخلاء مسئولية (يعني لاحد يجي يقول فيروس تروجن الخ ....) اللي يريد الكود مفتوح بعطيه الكود كامل بس يتركني في حالي بدون تشهير.
كما أرجو من الاستاذ عبدالعزيز وأخي وجهة نظر طلب أي إضافات سأحاول إضافتها حسب امكانياتي البرمجية
لتحميل البرنامج
إضغط هنا
- 07-08-2020, 12:20 PM #902
الاخ الكريم Win2Win
رحم الله امرأً أهدى إلي عيوبي
اشكرك اخى الكريم نحن هنا جميعا نستفيد ونفيد كلا على قدر استطاعته وكلنا نخطئ ونصيب .
فمن يصحح خطئى فله جزيل الشكر والامتنان لان بدونه ساقع فى نفس الخطأ كل مره وبالتالى ستكون هناك نتائج سيئه مترتبه على ذلك .
اكرر شكرى لك ولكل من يعلمنى ويصحح لى اخطائى .
اما عن ( الجزئية الخاصة بزيادة الدورة على الشارت بعد وضع راس المثلث على الحد الادني .. وقد وجدت انك خاصة دائما تقوم بزيادة الدورة حتي لو كان الاغلاق الاسبوعي ظاهر على الشارت عند وضع راس المثلث على الحد الادني كما شرحت في الحالة الاولى..
واعتقد هذا مخالف لما شرحه الاستاذ عبدالعزيز اوعلى الاقل مافهمته انا)
عند استخدام الحد الادنى هناك المثلث الذى نستخدمه ومربع التسعه
اولا : المثلث هل المقصود هنا ظهور سعر الاغلاق داخل اضلاع المثلث من عند راسه ام لا عند استخدام الحد الادنى مستحيل ان يظهر سعر الاغلاق داخل المثلث
لماذا لان قيمه الحد الادنى اقل من سعر الاغلاق اى يقع فى دوره اقل من دوره سعر الاغلاق
الحاله الوحيد التى سيظهر بها الحد الادنى هو ان يكون مساوى تماما للحد الادنى او للحد الاقصى وهى حاله شاذه كما بالمشاركه التاليه
https://forum.arabictrader.com/t2539...ml#post3298639
وهذا رد الاخ عبدالعزيز
https://forum.arabictrader.com/t2539...ml#post3300806
هذه مشاركه تؤكد انه اذا كان سعر الاغلاق داخل المثلث لا يعتد به واكررها مستحيل ان يكون الاغلاق الاسبوعى داخل المثلث عند وضع الحد الادنى
https://forum.arabictrader.com/t2539...ml#post3300243
ثانيا : ام ظهور سعر الاغلاق بالعموم فى مربع التسعه فى هذه الحاله سيظهر ولكن لم ولن يكون داخل المثلث عند راسه او باى منطقه منه .
*** اذا زياده الدوره هى اهم شرط بالمثلث الفلكى لما تعلمناه حتى الان اذا تم استخددام الحد الادنى
تحياتى ومودتى
- 07-08-2020, 12:35 PM #903
آخر تعديل بواسطة وجهه نظر ، 07-08-2020 الساعة 12:38 PM
- 07-08-2020, 12:43 PM #904
اخى الكريم خالد
للاسف لست ممن يعرفون فى البرمجه او البرامج
وسؤالى ماذا تقصدب اللي يريد الكود مفتوح بعطيه الكود كامل بس يتركني في حالي بدون تشهير.
اما عن الاضافات ان شاء الله سيكون هناك اضافات بالتاكيد لاننا استخدمنا فقط مربع ال 9
ولكن اولا نجرب البرنامج
تحياتى ومودتى
- 07-08-2020, 12:48 PM #905
مضارب ذكى طال غيابك عسى ان يكون غيابك خيرا ان شاء الله
- 07-08-2020, 12:48 PM #906طيب نجي للتطبيق العملي على البرنامج
1. نفتح برنامج جانزيلا ونضع التاريخ المطلوب وليكن 07/08/2020 اليوم الجمعة.
نأخذ أقرب 7 زوايا وهي كالتالي:
الزوايا ثابتة لاتتعير بالنسبة لليوم الذي يتم الاحتساب عليه فيكون بالشكل التالي
تم ترتيب الزوايا من الاقرب الى الأبعد
2. نقوم بإدخال سعر الإغلاق الأسبوعي ولناخذ مثال على عملة EURUSD
سعر الإعلاق كان 1182
3. نضع سعر الإغلاق في البرنامج في الخانة المخصصة ونضغط على كلمة (الناتج)
فتظهر لنا أدني سعر من سعر الإغلاق (1182) والرقم الثاني أعلى من سعر الإغلاق (1182)
بالشكل التالي:
4. في برنامج الجانزيلا نأخذ راس المثلث ومضعة على الحد السفلي ولنأخذ كوكب (عطارد) كان سعر الحد السفلي (1163) . (83 درجة).
5. نحصل على رقمين (1164 , 1173) . (سعر الإغلاق كان 1182)
هنا سؤال (جميع الارقام أدنى من سعر الاغلاق .. فهل هذا صحيح ؟؟)
6. نقوم برسم هذه المستويات على الشارت على فريم الاربع ساعات . كالتالي:
- 07-08-2020, 12:52 PM #907
- 07-08-2020, 01:03 PM #908
هذي هي مشكلة عامة كون البرنامج صغير الحجم
برامج الفيروسات طريقة عملها انها تفحص حجم الملفات مقارنة بقواعد بياناتها فإذا وجدت برنامج بدون شهادة تعريفية وملف تنفيذي ووجدت حجم البرنامج مطابق لحجم برنامج في قاعدة البيانات به فيروس فتعتبر هذا البرنامج مشتبه به حتى تثبت براءته
مع العلم إنه فيه برامج اخرى . برامج تشفير تخلي البرنامج بتخطى برامج الحماية كلها وتعتبره محترم جداً وهو غير ذلك
البرنامج خالي من الفيروسات
ولما قصدت بكود البرنامج قصدت هذا الكود :
كود:Public Class Form1 Private Sub btn_calculate_Click(sender As Object, e As EventArgs) Handles btn_calculate.Click Dim a As Decimal = Val(txt_weeklyClose.Text) Dim b As Decimal = Val(txt_angle1.Text) If txt_weeklyClose.Text = "" Then MsgBox("برجاء ادخال قيمة") Exit Sub End If If txt_weeklyClose.Text < 0 Then MsgBox("برجاء ادخال قيمة موجبة") Exit Sub End If '___________________________________________________________________________ Do Until b >= a b = b + 360 Loop If txt_angle1.Text = "" Then lbl_high1.Text = "" Else lbl_high1.Text = b lbl_high1.BackColor = Color.Green End If b = Val(txt_angle1.Text) Do Until b >= (a - 360) b = b + 360 Loop If txt_angle1.Text = "" Then lbl_down1.Text = "" Else lbl_down1.Text = b lbl_down1.BackColor = Color.Red End If '_____________________________________________________________________________ a = Val(txt_weeklyClose.Text) Do Until b >= a b = b + 360 Loop If txt_angle2.Text = "" Then lbl_high2.Text = "" Else lbl_high2.Text = b lbl_high2.BackColor = Color.Green End If b = Val(txt_angle2.Text) Do Until b >= (a - 360) b = b + 360 Loop If txt_angle2.Text = "" Then lbl_down2.Text = "" Else lbl_down2.Text = b lbl_down2.BackColor = Color.Red End If '____________________________________________________________________________ a = Val(txt_weeklyClose.Text) Do Until b >= a b = b + 360 Loop If txt_angle3.Text = "" Then lbl_high3.Text = "" Else lbl_high3.Text = b lbl_high3.BackColor = Color.Green End If b = Val(txt_angle3.Text) Do Until b >= (a - 360) b = b + 360 Loop If txt_angle3.Text = "" Then lbl_down3.Text = "" Else lbl_down3.Text = b lbl_down3.BackColor = Color.Red End If '____________________________________________________________________________ a = Val(txt_weeklyClose.Text) Do Until b >= a b = b + 360 Loop If txt_angle4.Text = "" Then lbl_high4.Text = "" Else lbl_high4.Text = b lbl_high4.BackColor = Color.Green End If b = Val(txt_angle4.Text) Do Until b >= (a - 360) b = b + 360 Loop If txt_angle4.Text = "" Then lbl_down4.Text = "" Else lbl_down4.Text = b lbl_down4.BackColor = Color.Red End If '____________________________________________________________________________ a = Val(txt_weeklyClose.Text) Do Until b >= a b = b + 360 Loop If txt_angle5.Text = "" Then lbl_high5.Text = "" Else lbl_high5.Text = b lbl_high5.BackColor = Color.Green End If b = Val(txt_angle5.Text) Do Until b >= (a - 360) b = b + 360 Loop If txt_angle5.Text = "" Then lbl_down5.Text = "" Else lbl_down5.Text = b lbl_down5.BackColor = Color.Red End If '____________________________________________________________________________ a = Val(txt_weeklyClose.Text) Do Until b >= a b = b + 360 Loop If txt_angle6.Text = "" Then lbl_high6.Text = "" Else lbl_high6.Text = b lbl_high6.BackColor = Color.Green End If b = Val(txt_angle6.Text) Do Until b >= (a - 360) b = b + 360 Loop If txt_angle6.Text = "" Then lbl_down6.Text = "" Else lbl_down6.Text = b lbl_down6.BackColor = Color.Red End If '____________________________________________________________________________ a = Val(txt_weeklyClose.Text) Do Until b >= a b = b + 360 Loop If txt_angle7.Text = "" Then lbl_high7.Text = "" Else lbl_high7.Text = b lbl_high7.BackColor = Color.Green End If b = Val(txt_angle7.Text) Do Until b >= (a - 360) b = b + 360 Loop If txt_angle7.Text = "" Then lbl_down7.Text = "" Else lbl_down7.Text = b lbl_down7.BackColor = Color.Red End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_clear.Click For Each txt As Control In Me.Controls.OfType(Of TextBox)() txt.Text = "" Next For Each txt In {lbl_down1, lbl_down2, lbl_down3, lbl_down4, lbl_down5, lbl_down6, lbl_down7, lbl_high1, lbl_high2, lbl_high3, lbl_high4, lbl_high5, lbl_high6, lbl_high7} txt.Text = "" Next End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class
تحياتي لك
- 07-08-2020, 01:11 PM #909
- 07-08-2020, 01:31 PM #910
بعد التحيه والتقدير يابطل
انجاز ضخم من الاخ خالد بتقديمه هذا البرنامج الذى يوفر على الاقل 80% من الجهد بأذن الله وبهذا اعتقد انه لم يعد هناك اى حجه لاى انسان ان يجتهد ليفهم هذا الموضوع جيدا ويحاول ان يطور الامر وسوف تجدون خيرا كثيرا ان شاء الله لو اعملتم العقول قليلا فمن الممكن صناعه اكثر من طريقه للعمل بالمثلث الفلكى وده يدفعنا لتقديم فكره العمل على قطر المثلث فى تطبيق مربع 12 أن شاء الله تعالى وحقا كما قلت ان ماطرح هو فيض من غيض
شوف لدى فكره عظيمه يابطل انا احتاج ان احدثك حتى استطيع ان اوضح لك بشكل اوقع ما اريده بالظبط
عمار يامصر طول ماعندك رجاله على هذا المستوى العلمى مايتخافش عليكى ابدا
- 07-08-2020, 01:51 PM #911أعزك الله استاذي الفاضل وهذي شهادة ونبراس أعتز بها وأتمنى أكون عند حسن ظن الجميع
بالنسبة للتواصل يشرفني اتواصل مع قامه علميه مثلك وراح اتواصل معاك بالخاص وارسل لك رقمي الشخصي اذا حبيت معرفة الرجال ذهب فما بالك بشخص مثلك ومثل اخي وجهة نظر عطاء غير منقطع وعمل لوجه الله
- 07-08-2020, 02:51 PM #912
- 07-08-2020, 03:21 PM #913
- 07-08-2020, 05:11 PM #914
- 07-08-2020, 06:31 PM #915