عبدالرحمن1987 قام بنشر مايو 21, 2013 قام بنشر مايو 21, 2013 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته مساء الخير ع الجميع أخواني أنا طالب هندسة ومحتاج منكم مساعدة في هذا البروجكت ..!! فكرة البروجكت هي وضع يوزر فورم يقوم بحساب ( Z ) بحيث يكون فيه 5 معادلات لـ (Z) كل وحده لها قانون خاص فلما اضعط على المعادلة المطلوووبة كما هو موضح في ( corolation ) يتم حساب الـ (Z) ... في اليوزر نفسه يوجد temp + presure وجنب كل وحده يوجد الوحده المطلوبه طبعا راح تكون من ضمن المعطيات احطها بالتكست بوكس والبرنامج يحسب لي مباشرة اضافة الى نسب الـ yi انا اقوم بوضعها وهذي ليست مشكلة المشكلة لدي في كيفية تعريف المعادلات وجعل البرنامج يشتغل ؟؟؟ صورة للتوضيح
عبدالرحمن1987 قام بنشر مايو 21, 2013 الكاتب قام بنشر مايو 21, 2013 أتمنى اللي عنده حل أو وصلت له الفكره ما يبخل علي والله اني بأمس الحاجه لهاا والله يجزاكم خير المعادلات حق كل وحده موجوده عندي
عبدالرحمن1987 قام بنشر مايو 21, 2013 الكاتب قام بنشر مايو 21, 2013 أخواني اذا احد يقدر يسوي لي الأولى على الأقل ابي المعادلة الاولى ابي اعرف كيف اشغلها جزاكم الله خير
ضاحي الغريب قام بنشر مايو 21, 2013 قام بنشر مايو 21, 2013 اخي الكريم اكتبلي معادلات الحساب المستخدمة في الحساب وابشر ان شاء الله او ارسلي نموذج اكسيل موضحا المعادلات
عبدالرحمن1987 قام بنشر مايو 21, 2013 الكاتب قام بنشر مايو 21, 2013 الله يجزاك خير اخوي ضاحي انا حطيت صورة للديزاين وفي عندك 5 معادلات كما هو موضح الحين راح احطهم لك باذن الله
عبدالرحمن1987 قام بنشر مايو 21, 2013 الكاتب قام بنشر مايو 21, 2013 Private Sub ComboBox1_Change() If comboboxuniet.Value = "atm" Then P = Txt19.Value * 14.7 Else P = Txt19.Value End If If ComboBox3.Value = "F" Then t = TextBox10.Value + 460 Else t = TextBox10.Value End If Dim yc1 As Double Dim yc2 As Double Dim yc3 As Double Dim yic4 As Double Dim ync4 As Double Dim yic5 As Double Dim ync5 As Double Dim yc6 As Double Dim yc7 As Double Dim tt As Double yc1 = Txt1.Value Pc1 = 673 Tc1 = 343.5 yc2 = Txt2.Value Pc2 = 708 Tc2 = 550.1 yc3 = Txt3.Value Pc3 = 617 Tc3 = 666.2 yic4 = Txt4.Value Pcic4 = 527 Tcic4 = 734 ync4 = Txt5.Value Pcnc4 = 551 Tcnc4 = 765.6 yic5 = Txt6.Value Pcic5 = 490.4 Tcic5 = 929 ync5 = Txt7.Value Pcnc5 = 485 Tcnc5 = 847 yc6 = Txt8.Value Pc6 = 434 Tc6 = 914.6 yc7 = Txt9.Value Pc7 = 397 Tc7 = 972.8 Pc = Pci * yi = ((Pc1 * yc1) + (Pc2 * yc2) + (Pc3 * yc3) + (Pic4 * yic4) + (Pnc4 * ync4) + (Pic5 * yic5) + (Pnc5 * ync5) + (Pc6 * yc6) + (Pc7 * yc7)) Tc = Tci * yi = ((Tc1 * yc1) + (Tc2 * yc2) + (Tc3 * yc3) + (Tic4 * yic4) + (Tnc4 * ync4) + (Tic5 * yic5) + (Tnc5 * ync5) + (Tc6 * yc6) + (Tc7 * yc7)) If ComboBox1.Value = "Pay Pay" Then Ppr = P / Pc Tpr = t / Tc Zp = 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) TextBox20.Value = Zp ElseIf ComboBox1.Value = "Hall - Youbrough" Then R = 1 Y = 3 tt = 1 / Tpr Do Until R < 0.0001 a = ((0.06125 * Ppr ^ t)) * Exp((-1.2 * (1 - t) ^ 2)) b = (((Y) + (Y ^ 2) + (Y ^ 3) - (Y ^ 4)) / (1 - Y) ^ 3) c = (-((14.76 * tt) - (9.76 * tt ^ 2) + (4.58 * tt ^ 3)) * Y ^ 2) d = ((90.7 * tt) - (242.2 * tt ^ 2) + (42.4 * tt ^ 3)) * (Y ^ (2.18 + (2.82 * tt))) f = a + b + c + d df = ((1 + 4 * Y + 4 * Y ^ 2 - 4 * Y ^ 3 + Y ^ 4) / (1 - Y) ^ 4) - ((29.52 * tt) - (19.52 * tt ^ 2) + (9.16 * tt ^ 3)) * Y + (2.18 + 2.82 * tt) * (90.7 * tt - (242.2 * tt ^ 2) + (42.2 * tt ^ 3)) * (Y ^ (1.18 + 2.82 * tt)) Yn = Y - (f / df) R = Abs((Yn ^ 2) - Y ^ 2) Y = Yn Loop
ضاحي الغريب قام بنشر مايو 21, 2013 قام بنشر مايو 21, 2013 أخي الكريم // عبدالرحمن شكل الفورم بعد الانتهاء برجاء مراجعة المسميات وان كان هناك تعديل ارسلي اريد المعادلات علي ملف اكسيل حتي اقوم بتجربتها الفورم بالمرفقات اذا كنت تريد تركيب المعادلات بنفسك ووفقنا الله واياك للخير تقبل تحياتي شركة البترول.rar
ضاحي الغريب قام بنشر مايو 21, 2013 قام بنشر مايو 21, 2013 الملف بعد اضافة العناصر للكمبوبوكس شركة البترول.rar
عبدالرحمن1987 قام بنشر مايو 22, 2013 الكاتب قام بنشر مايو 22, 2013 الله يجزاك خير اخووي ضاحي تصميم جميل جداً لكن الأن ابي اضع المعادلات واشغلها وفقاً لليوزر الموجود خلنا نبدأ مثلا بأول معادلة كيف اقدر اشغلها واحسب الــ Z حقهااا ؟؟ Zp = 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) هذا القانون حقها وبعض المعطيات موجوده تحتها وفوقها جزاك الله خير
ضاحي الغريب قام بنشر مايو 22, 2013 قام بنشر مايو 22, 2013 اخي الكريم // عبدالرحمن السلام عليكم ورحمة الله وبركاته انا حاولت افك المعادلات التي ارسلتها اول مرة لكن يتفصني الفهم يعني قيمة z التي تبيها Zp = 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) وهذا الكود الذي ارسلت لي ياه مسبقا Private Sub ComboBox1_Change() If comboboxuniet.Value = "atm" Then P = Txt19.Value * 14.7 Else P = Txt19.Value End If If ComboBox3.Value = "F" Then t = TextBox10.Value + 460 Else t = TextBox10.Value End If Dim yc1 As Double Dim yc2 As Double Dim yc3 As Double Dim yic4 As Double Dim ync4 As Double Dim yic5 As Double Dim ync5 As Double Dim yc6 As Double Dim yc7 As Double Dim tt As Double yc1 = Txt1.Value Pc1 = 673 Tc1 = 343.5 yc2 = Txt2.Value Pc2 = 708 Tc2 = 550.1 yc3 = Txt3.Value Pc3 = 617 Tc3 = 666.2 yic4 = Txt4.Value Pcic4 = 527 Tcic4 = 734 ync4 = Txt5.Value Pcnc4 = 551 Tcnc4 = 765.6 yic5 = Txt6.Value Pcic5 = 490.4 Tcic5 = 929 ync5 = Txt7.Value Pcnc5 = 485 Tcnc5 = 847 yc6 = Txt8.Value Pc6 = 434 Tc6 = 914.6 yc7 = Txt9.Value Pc7 = 397 Tc7 = 972.8 Pc = Pci * yi = ((Pc1 * yc1) + (Pc2 * yc2) + (Pc3 * yc3) + (Pic4 * yic4) + (Pnc4 * ync4) + (Pic5 * yic5) + (Pnc5 * ync5) + (Pc6 * yc6) + (Pc7 * yc7)) Tc = Tci * yi = ((Tc1 * yc1) + (Tc2 * yc2) + (Tc3 * yc3) + (Tic4 * yic4) + (Tnc4 * ync4) + (Tic5 * yic5) + (Tnc5 * ync5) + (Tc6 * yc6) + (Tc7 * yc7)) If ComboBox1.Value = "Pay Pay" Then Ppr = P / Pc Tpr = t / Tc Zp = 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) TextBox20.Value = Zp ElseIf ComboBox1.Value = "Hall - Youbrough" Then R = 1 Y = 3 tt = 1 / Tpr Do Until R < 0.0001 a = ((0.06125 * Ppr ^ t)) * Exp((-1.2 * (1 - t) ^ 2)) b = (((Y) + (Y ^ 2) + (Y ^ 3) - (Y ^ 4)) / (1 - Y) ^ 3) c = (-((14.76 * tt) - (9.76 * tt ^ 2) + (4.58 * tt ^ 3)) * Y ^ 2) d = ((90.7 * tt) - (242.2 * tt ^ 2) + (42.4 * tt ^ 3)) * (Y ^ (2.18 + (2.82 * tt))) f = a + b + c + d df = ((1 + 4 * Y + 4 * Y ^ 2 - 4 * Y ^ 3 + Y ^ 4) / (1 - Y) ^ 4) - ((29.52 * tt) - (19.52 * tt ^ 2) + (9.16 * tt ^ 3)) * Y + (2.18 + 2.82 * tt) * (90.7 * tt - (242.2 * tt ^ 2) + (42.2 * tt ^ 3)) * (Y ^ (1.18 + 2.82 * tt)) Yn = Y - (f / df) R = Abs((Yn ^ 2) - Y ^ 2) Y = Yn Loop انا قدرت اخمن اسماء التكسات لكن لو استطعت ترسل لي موديل الذي يحتوي علي حساب z يكون افضل للدقة واعذرني ليس ملم بالعمليات الهندسية كثيرا
ضاحي الغريب قام بنشر مايو 22, 2013 قام بنشر مايو 22, 2013 وكذلك اين تظهر قيمة Z في الفورم واشرحلي استخدام التكسات في الفورم وانا احاول اركب لك المعادلة امسك الفورم الذي ارسلت ووضح لي كل تكست بوكس استخدامه وحدد لي التكسات التي تظهر فيها نتيجة z بالمرفقات ما توصلت اليه بعد عدة محاولات لكن الكود المرسل منكم ناقص وايضا وضح لي الخمس معادلا ت الخاصة بقيمة ((z)) شركة البترول.rar
عبدالرحمن1987 قام بنشر مايو 22, 2013 الكاتب قام بنشر مايو 22, 2013 الله يجزاك خير اخووي بالنسبة لـ Z راح تظهر قيمتها تحت الكوروليشن يعني نحط تحت الكوروليشن تكست بوكس يطلع قيمتها انا للأسف ما وضحته لك اذا ما عندك اشكاليه احط لك كل المعادلات ؟؟
عبدالرحمن1987 قام بنشر مايو 22, 2013 الكاتب قام بنشر مايو 22, 2013 ما ادري اخوي ضاحي الحين عطيتك معادلتين هل تقدر تضبطهم لي لو احط لهم قيم البرشر والتمبرشتر وقيم الواي يطلعون عندي بتكست بوكس ؟
ضاحي الغريب قام بنشر مايو 22, 2013 قام بنشر مايو 22, 2013 ما ادري اخوي ضاحي الحين عطيتك معادلتين هل تقدر تضبطهم لي لو احط لهم قيم البرشر والتمبرشتر وقيم الواي يطلعون عندي بتكست بوكس ؟
عبدالرحمن1987 قام بنشر مايو 22, 2013 الكاتب قام بنشر مايو 22, 2013 اخوي تم ارسال الملف على اsales.dep@msn.com اتمنى التعديل فيه
عبدالرحمن1987 قام بنشر مايو 22, 2013 الكاتب قام بنشر مايو 22, 2013 Presur له وحدتين psi و atm وانا حطيت لها شرط اذا تم وضع اي وحده كذلك tempreture لها وحدتين بعد
ضاحي الغريب قام بنشر مايو 22, 2013 قام بنشر مايو 22, 2013 Presur له وحدتين psi و atm وانا حطيت لها شرط اذا تم وضع اي وحده كذلك tempreture لها وحدتين بعد أخوي // عبدالرحمن انا المسميات التي اتبعتها فهمتها من الكود انت اشرح لي كل تكست بوكس معطياته وشروطه التي اضعها فيه وبعد نحاول نركب المعادلات بعد ما نضبط المسميات والشروط
ضاحي الغريب قام بنشر مايو 22, 2013 قام بنشر مايو 22, 2013 أخي // عبدالرحمن انا قمت باخذ الكود وقمت بتصيحيح ما استطعت فيه لكن في متغييرين مو عارف ووين مصدرهم ولا اساس حسابهم Ppr = P / PC Tpr = t / Tc المشكلة في P و T Tc موجودة pc موجودة
ضاحي الغريب قام بنشر مايو 22, 2013 قام بنشر مايو 22, 2013 انا حاولت محاولات كثيرة حتي اصل لشيء لكن هناك شيء ما ماقدرت اوصل له الملف بالمرفقات أذا احد من الاخوة المتخصصيين يظبط لك المعادلات لاني انا مو عارف اسوي فيها شيء لانها بعيدة تماما عن تخصصي شركة البترول.rar
عبدالرحمن1987 قام بنشر مايو 23, 2013 الكاتب قام بنشر مايو 23, 2013 السلام عليكم ورحمة الله وبركاته مسااء الخير اخ ضاحي الله يجزاك خير على ما قمت به واعتذر لك كان لدي فاينل اليوم
عبدالرحمن1987 قام بنشر مايو 23, 2013 الكاتب قام بنشر مايو 23, 2013 أخي // عبدالرحمن انا قمت باخذ الكود وقمت بتصيحيح ما استطعت فيه لكن في متغييرين مو عارف ووين مصدرهم ولا اساس حسابهم Ppr = P / PC Tpr = t / Tc المشكلة في P و T Tc موجودة pc موجودة بالنسبه للـ P و الـ T راح اضعهم انا باليوزر فورم
عبدالرحمن1987 قام بنشر مايو 23, 2013 الكاتب قام بنشر مايو 23, 2013 أخي ضاحي الكود حقي والبرمجه مش كامله فلا تعتمد عليها انا الان لدي 5 معادلات اتمنى فقط لو تستطيع تشغيل اول معادلتين وهي Pay Pay و Hall - Youbrou اعتقد لابد من تعريف كل شي بوضع Dim as هكذا Dim yc1 As Double Dim yc2 As Double Dim yc3 As Double Dim yic4 As Double Dim ync4 As Double Dim yic5 As Double Dim ync5 As Double Dim yc6 As Double Dim yc7 As Double Dim tt As Double
عبدالرحمن1987 قام بنشر مايو 23, 2013 الكاتب قام بنشر مايو 23, 2013 أتمنى يكون فيه فايده حتى للأخوان في المنتدى ومن لديه مشاركة ومساعدة يتفضل مشكور وجزاكم الله خير
ضاحي الغريب قام بنشر مايو 24, 2013 قام بنشر مايو 24, 2013 اخي // عبدالرحمن بعد عناء في فهم المعادلة الاولي توصلت لحلها جرب واعلمني بالنتيجة المعادلة الثانية والتالية لحساب قيمة (Z) أرسلتها ناقصة اكملها ElseIf ComboBox1.Value = "Hall - Youbrough" Then R = 1 Y = 3 tt = 1 / Tpr Do Until R < 0.0001 a = ((0.06125 * Ppr ^ T)) * Exp((-1.2 * (1 - T) ^ 2)) b = (((Y) + (Y ^ 2) + (Y ^ 3) - (Y ^ 4)) / (1 - Y) ^ 3) c = (-((14.76 * tt) - (9.76 * tt ^ 2) + (4.58 * tt ^ 3)) * Y ^ 2) d = ((90.7 * tt) - (242.2 * tt ^ 2) + (42.4 * tt ^ 3)) * (Y ^ (2.18 + (2.82 * tt))) f = a + b + c + d df = ((1 + 4 * Y + 4 * Y ^ 2 - 4 * Y ^ 3 + Y ^ 4) / (1 - Y) ^ 4) - ((29.52 * tt) - (19.52 * tt ^ 2) + (9.16 * tt ^ 3)) * Y + (2.18 + 2.82 * tt) * (90.7 * tt - (242.2 * tt ^ 2) + (42.2 * tt ^ 3)) * (Y ^ (1.18 + 2.82 * tt)) Yn = Y - (f / df) R = Abs((Yn ^ 2) - Y ^ 2) Y = Yn Loop End If شركة البترول.rar
عبدالرحمن1987 قام بنشر مايو 24, 2013 الكاتب قام بنشر مايو 24, 2013 جزاك الله خير على جهدك السخي بالنسبة للمعادلة الأولى المفترض ما تطلع بالسالب ما ادري يمكن ما انتبهت لبعض الأقواس او شي ماني عارف بالضبط ؟؟!!! 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) هذا قانون المسئلة الأولى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.