عبدالرحمن1987

مثل ما هو طالع بالصوره اليوزر فورم كبير وانا ابي اصغره مع وجود سكرول للصعود والنزول

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

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

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

هذا ملف فيه كل المعادلات والأكواد طبعا اخذته من واحد ما ادري اذا تستفيد منه ؟؟ code.txt

هذي حقت الثانيه أخذتها من طالب : ' Hall-Yarborough method If cmb1.Text = ("Hall-Yarborough") Then t = 1 / tpr Dim y As Double Dim yn As Double r = 1 y = 0.0125 * ppr * t * Exp(-0.12 * ((1 - t) ^ 2)) Do Until r <= 0.00001 aa = -0.06125 * ppr * t * Exp(-1.2 * ((1 - t) ^ 2)) ab = (y + (y ^ 2) + (y ^ 3) + (y ^ 4)) / ((1 - y) ^ 3) ac = (y ^ 2) * ((14.76 * t) - (9.76 * (t ^ 2)) + (4.58 * (t ^ 3))) os = (2.18 + (2.82 * t)) ad = (y ^ os) * ((90.7 * t) - (242.2 * (t ^ 2) + (42.4 * (t ^ 3)))) fy = aa + ab - ac + ad ba = (1 + (4 * y) + (4 * (y ^ 2)) - (4 * (y ^ 3)) - (y ^ 4)) / ((1 - y) ^ 4) bb = ((29.52 * t) - (19.52 * (t ^ 2)) + (9.16 * (t ^ 3))) * y bc = (2.18 + 2.82 * t) * (y ^ (1.18 + (2.82 * t))) * ((90.7 * t) - (242.2 * (t ^ 2) + (42.4 * (t ^ 3)))) dfy = ba - bb + bc yn = y - (fy / dfy) r = Abs((yn ^ 2) - (y ^ 2)) y = yn Loop Zh = ((0.06125 * ppr * t / y) * Exp(-1.2 * (1 - t) ^ 2)) txtan2 = Zh Do Until p < 0 Cells(10 + i, 17) = p Cells(10 + i, 18) = Zh p = p - 50 ppr = p / pcc Zh = ((0.06125 * ppr * t / y) * Exp(-1.2 * (1 - t) ^ 2)) i = i + 1 Loop Set CurrentChart = Sheets("Charts").ChartObjects(1).Chart CurrentChart.Parent.Width = 426 CurrentChart.Parent.Height = 252 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img1.Picture = LoadPicture(Fname) End If

جزاك الله خير على جهدك السخي بالنسبة للمعادلة الأولى المفترض ما تطلع بالسالب ما ادري يمكن ما انتبهت لبعض الأقواس او شي ماني عارف بالضبط ؟؟!!! 1 - (Ppr / Tpr) * ((0.36748758 - 0.04188423) * (Ppr / Tpr)) هذا قانون المسئلة الأولى

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

أخي ضاحي الكود حقي والبرمجه مش كامله فلا تعتمد عليها انا الان لدي 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

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

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

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

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

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

الله يجزاك خير اخووي ضاحي تصميم جميل جداً لكن الأن ابي اضع المعادلات واشغلها وفقاً لليوزر الموجود خلنا نبدأ مثلا بأول معادلة كيف اقدر اشغلها واحسب الــ 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

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

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته مساء الخير ع الجميع أخواني أنا طالب هندسة ومحتاج منكم مساعدة في هذا البروجكت ..!! فكرة البروجكت هي وضع يوزر فورم يقوم بحساب ( Z ) بحيث يكون فيه 5 معادلات لـ (Z) كل وحده لها قانون خاص فلما اضعط على المعادلة المطلوووبة كما هو موضح في ( corolation ) يتم حساب الـ (Z) ... في اليوزر نفسه يوجد temp + presure وجنب كل وحده يوجد الوحده المطلوبه طبعا راح تكون من ضمن المعطيات احطها بالتكست بوكس والبرنامج يحسب لي مباشرة اضافة الى نسب الـ yi انا اقوم بوضعها وهذي ليست مشكلة المشكلة لدي في كيفية تعريف المعادلات وجعل البرنامج يشتغل ؟؟؟ صورة للتوضيح