ازاى احسب ال k من ال Visual basic ؟؟؟؟

nonog

عضو جديد
إنضم
1 مايو 2010
المشاركات
14
مجموع الإعجابات
2
النقاط
0
ممكن حد يساعدنى انا عايزة اعمل Visual basic لحساب ال k factor لحساب ال buckling for steel column
يعنى ال nomograph اللى ف الكود انا عايزة طريقه ادخلها بيها على ال visual basic مثلا تحسبلى الK ده علطول مجرد ما ادخل له GA & GB لو حد عنده افكار يقدر يساعدنى بيها اكون شاكره ليه جداااا


وسؤال كمان هو لو بحسب ال buckling لcolumn ف frame المفروض انى احمل الcolumn أللى عايزة احسب ليه الbuckling يعنى احط 1 ton عند أل column اللى بحسبله الbuckling والcolumn ألتانى محط عليه حاجه ولا ايه الصح ؟؟
 

علي محمد يوسف

عضو تحرير المجلة
إنضم
18 أغسطس 2007
المشاركات
3,116
مجموع الإعجابات
587
النقاط
0
السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا وبارك الله فيكم
ما هي علاقة k بـ GA و GB ?
 

alselk2010

عضو جديد
إنضم
31 ديسمبر 2010
المشاركات
210
مجموع الإعجابات
121
النقاط
0
حضرتك ممكن تستخدمى المعادلتين دول لحساب K بمعلومية Ga & Gb
attachment.php
 

المرفقات

  • Untitled.jpg
    Untitled.jpg
    287.9 KB · المشاهدات: 200
التعديل الأخير:

nonog

عضو جديد
إنضم
1 مايو 2010
المشاركات
14
مجموع الإعجابات
2
النقاط
0
حضرتك ممكن تستخدمى المعادلتين دول لحساب K بمعلومية Ga & Gb
attachment.php

طب حضرتك تعرف ازاى ادخل ال equation ده ع ال excel عشان احلها واطلع قيمه K
 

alselk2010

عضو جديد
إنضم
31 ديسمبر 2010
المشاركات
210
مجموع الإعجابات
121
النقاط
0
طب حضرتك تعرف ازاى ادخل ال equation ده ع ال excel عشان احلها واطلع قيمه K
حضرتك هتعملى 4 خلايا فى الاكسل :
الاولى لقيمة Ga
والثانية لقيمة Gb
والثالثة لقيمة K
والرابعة لقيمة المعادلة التى المفروض ان قيمتها تساوى صفر
كما بالصورة
attachment.php

قيمة Ga وGb معلومتين عندك هنقوم بفرض قيمة K ولتكون 1.5 اى قيمة
هنلاحظ ان قيمة المعادلة هتطلع قيمة غير الصفر وذلك لان قيمة K ليست الصحيحة
هنقوم باستخدام خاصية goal seek فى الاكسل وهى خاصية جميلة لايعلمها البعض فى الاكسل تقوم بعمل try and error لحد ما توصل للقيمة الصحيحة
attachment.php

فعندنا هنا قيمة المعادلة عايزين قيمتها صفر عند التغيير فى قيمة K فهيعمل الاكسل try and error لحد ما يوصل الى قيمة K التى تعجل قيمة المعادلة بصفر
فعند استخدام goal seek هتظهر المربع الحوارى الصغير كما بالصورة
attachment.php

set cell هنعلم على قيمة المعادلة بتاعتنا
to value هنضع القيمة التى نريد ان نصل لها وهى هنا الصفر "الطرف الايسر فى المعادلة"
by changing cell هنعلم على قيمة المتغير الذى سيقوم الاكسل بتغيير قيمته للوصول الى قيمة المعادلة المطلوبة الا وهو K
نضغط ok هنلاحظ ان الاكسل طلع قيمة K المطلوبة

ممكن برده حاجة تانية تستخدمى ال numerical methods لايجاد قيمة K عن طريق Vba اذ لم تعجبك الطريقة
 

المرفقات

  • Capture.PNG
    Capture.PNG
    30.5 KB · المشاهدات: 89
  • 2.PNG
    2.PNG
    5.2 KB · المشاهدات: 88
  • 3.PNG
    3.PNG
    15 KB · المشاهدات: 85

nonog

عضو جديد
إنضم
1 مايو 2010
المشاركات
14
مجموع الإعجابات
2
النقاط
0
حضرتك هتعملى 4 خلايا فى الاكسل :
الاولى لقيمة Ga
والثانية لقيمة Gb
والثالثة لقيمة K
والرابعة لقيمة المعادلة التى المفروض ان قيمتها تساوى صفر
كما بالصورة
attachment.php

قيمة Ga وGb معلومتين عندك هنقوم بفرض قيمة K ولتكون 1.5 اى قيمة
هنلاحظ ان قيمة المعادلة هتطلع قيمة غير الصفر وذلك لان قيمة K ليست الصحيحة
هنقوم باستخدام خاصية goal seek فى الاكسل وهى خاصية جميلة لايعلمها البعض فى الاكسل تقوم بعمل try and error لحد ما توصل للقيمة الصحيحة
attachment.php

فعندنا هنا قيمة المعادلة عايزين قيمتها صفر عند التغيير فى قيمة K فهيعمل الاكسل try and error لحد ما يوصل الى قيمة K التى تعجل قيمة المعادلة بصفر
فعند استخدام goal seek هتظهر المربع الحوارى الصغير كما بالصورة
attachment.php

set cell هنعلم على قيمة المعادلة بتاعتنا
to value هنضع القيمة التى نريد ان نصل لها وهى هنا الصفر "الطرف الايسر فى المعادلة"
by changing cell هنعلم على قيمة المتغير الذى سيقوم الاكسل بتغيير قيمته للوصول الى قيمة المعادلة المطلوبة الا وهو K
نضغط ok هنلاحظ ان الاكسل طلع قيمة K المطلوبة

ممكن برده حاجة تانية تستخدمى ال numerical methods لايجاد قيمة K عن طريق Vba اذ لم تعجبك الطريقة


شكرا لحضرتك جدااااااا جزاك الله كل خير ^_^
 
أعلى