عبدالرحمن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 راح تظهر قيمتها تحت الكوروليشن يعني نحط تحت الكوروليشن تكست بوكس يطلع قيمتها انا للأسف ما وضحته لك اذا ما عندك اشكاليه احط لك كل المعادلات ؟؟