اريد يوزرفورم لمعادلات متخصصه بالبترول

عبدالرحمن1987 · مايو 21, 2013

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

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

مساء الخير ع الجميع

أخواني أنا طالب هندسة ومحتاج منكم مساعدة في هذا البروجكت ..!!

فكرة البروجكت هي وضع يوزر فورم يقوم بحساب ( Z ) بحيث يكون فيه 5 معادلات لـ (Z) كل وحده لها قانون خاص فلما اضعط على المعادلة المطلوووبة كما هو موضح في ( corolation ) يتم حساب الـ (Z) ...

في اليوزر نفسه يوجد temp + presure وجنب كل وحده يوجد الوحده المطلوبه طبعا راح تكون من ضمن المعطيات احطها بالتكست بوكس والبرنامج يحسب لي مباشرة اضافة الى نسب الـ yi انا اقوم بوضعها وهذي ليست مشكلة المشكلة لدي في كيفية تعريف المعادلات وجعل البرنامج يشتغل ؟؟؟

صورة للتوضيح

عبدالرحمن1987 · مايو 21, 2013

أتمنى اللي عنده حل أو وصلت له الفكره ما يبخل علي والله اني بأمس الحاجه لهاا والله يجزاكم خير

المعادلات حق كل وحده موجوده عندي

عبدالرحمن1987 · مايو 21, 2013

أخواني اذا احد يقدر يسوي لي الأولى على الأقل ابي المعادلة الاولى ابي اعرف كيف اشغلها

جزاكم الله خير

**ضاحي الغريب** · مايو 21, 2013

اخي الكريم

اكتبلي معادلات الحساب المستخدمة في الحساب وابشر ان شاء الله

او ارسلي نموذج اكسيل موضحا المعادلات

عبدالرحمن1987 · مايو 21, 2013

الله يجزاك خير اخوي ضاحي

انا حطيت صورة للديزاين وفي عندك 5 معادلات كما هو موضح

الحين راح احطهم لك باذن الله

عبدالرحمن1987 · مايو 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

أخي الكريم // عبدالرحمن

شكل الفورم بعد الانتهاء

برجاء مراجعة المسميات وان كان هناك تعديل ارسلي

اريد المعادلات علي ملف اكسيل حتي اقوم بتجربتها

الفورم بالمرفقات اذا كنت تريد تركيب المعادلات بنفسك

ووفقنا الله واياك للخير

تقبل تحياتي

شركة البترول.rar

**ضاحي الغريب** · مايو 21, 2013

الملف بعد اضافة العناصر للكمبوبوكس

شركة البترول.rar

عبدالرحمن1987 · مايو 22, 2013

الله يجزاك خير اخووي ضاحي تصميم جميل جداً

لكن الأن ابي اضع المعادلات واشغلها وفقاً لليوزر الموجود

خلنا نبدأ مثلا بأول معادلة كيف اقدر اشغلها واحسب الــ Z حقهااا ؟؟

Zp = 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr))

هذا القانون حقها وبعض المعطيات موجوده تحتها وفوقها

جزاك الله خير

**ضاحي الغريب** · مايو 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

وكذلك اين تظهر قيمة Z في الفورم

واشرحلي استخدام التكسات في الفورم وانا احاول اركب لك المعادلة

امسك الفورم الذي ارسلت ووضح لي كل تكست بوكس استخدامه

وحدد لي التكسات التي تظهر فيها نتيجة z

بالمرفقات ما توصلت اليه بعد عدة محاولات

لكن الكود المرسل منكم ناقص

وايضا وضح لي الخمس معادلا ت الخاصة بقيمة ((z))

شركة البترول.rar

عبدالرحمن1987 · مايو 22, 2013

الله يجزاك خير اخووي

بالنسبة لـ Z راح تظهر قيمتها تحت الكوروليشن يعني نحط تحت الكوروليشن تكست بوكس يطلع قيمتها انا للأسف ما وضحته لك

اذا ما عندك اشكاليه احط لك كل المعادلات ؟؟

عبدالرحمن1987 · مايو 22, 2013

ما ادري اخوي ضاحي الحين عطيتك معادلتين هل تقدر تضبطهم لي لو احط لهم قيم البرشر والتمبرشتر وقيم الواي يطلعون عندي بتكست بوكس ؟

**ضاحي الغريب** · مايو 22, 2013

ما ادري اخوي ضاحي الحين عطيتك معادلتين هل تقدر تضبطهم لي لو احط لهم قيم البرشر والتمبرشتر وقيم الواي يطلعون عندي بتكست بوكس ؟

عبدالرحمن1987 · مايو 22, 2013

اخوي تم ارسال الملف على اsales.dep@msn.com

اتمنى التعديل فيه

عبدالرحمن1987 · مايو 22, 2013

Presur له وحدتين psi و atm وانا حطيت لها شرط اذا تم وضع اي وحده

كذلك tempreture لها وحدتين بعد

**ضاحي الغريب** · مايو 22, 2013

Presur له وحدتين psi و atm وانا حطيت لها شرط اذا تم وضع اي وحده

كذلك tempreture لها وحدتين بعد

أخوي // عبدالرحمن

انا المسميات التي اتبعتها فهمتها من الكود

انت اشرح لي كل تكست بوكس معطياته

وشروطه التي اضعها فيه

وبعد نحاول نركب المعادلات بعد ما نضبط المسميات والشروط

**ضاحي الغريب** · مايو 22, 2013

أخي // عبدالرحمن

انا قمت باخذ الكود وقمت بتصيحيح ما استطعت فيه

لكن في متغييرين مو عارف ووين مصدرهم ولا اساس حسابهم

Ppr = P / PC
Tpr = t / Tc
المشكلة في P  و T
Tc موجودة
pc   موجودة

**ضاحي الغريب** · مايو 22, 2013

انا حاولت محاولات كثيرة حتي اصل لشيء لكن هناك شيء ما ماقدرت اوصل له

الملف بالمرفقات أذا احد من الاخوة المتخصصيين يظبط لك المعادلات

لاني انا مو عارف اسوي فيها شيء لانها بعيدة تماما عن تخصصي

شركة البترول.rar

عبدالرحمن1987 · مايو 23, 2013

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

مسااء الخير اخ ضاحي

الله يجزاك خير على ما قمت به واعتذر لك كان لدي فاينل اليوم

عبدالرحمن1987 · مايو 23, 2013

أخي // عبدالرحمن

انا قمت باخذ الكود وقمت بتصيحيح ما استطعت فيه

لكن في متغييرين مو عارف ووين مصدرهم ولا اساس حسابهم
Ppr = P / PC
Tpr = t / Tc
المشكلة في P  و T
Tc موجودة
pc   موجودة
بالنسبه للـ P و الـ T راح اضعهم انا باليوزر فورم

عبدالرحمن1987 · مايو 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

أتمنى يكون فيه فايده حتى للأخوان في المنتدى ومن لديه مشاركة ومساعدة يتفضل مشكور وجزاكم الله خير

**ضاحي الغريب** · مايو 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

جزاك الله خير على جهدك السخي

بالنسبة للمعادلة الأولى المفترض ما تطلع بالسالب ما ادري يمكن ما انتبهت لبعض الأقواس او شي ماني عارف بالضبط ؟؟!!!

1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr))

هذا قانون المسئلة الأولى

تسجيل الدخول

اريد يوزرفورم لمعادلات متخصصه بالبترول

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information