الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجوكم انا بحاجة ماسة لمساعدتكم ؟؟؟

مغلق
بدأه alnoor في 25 أكتوبر 2005 · 5 رد · 3,365 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

في البداية اشكر المشرفين على الجهد المبذول و الرائع في هذا المنتدى الاكثر من رائع

و انا سمعت عنه الكثير بعد ان تخصصت في الفيجوال بيسك ...

و قد اتى الوقت الذي اشارك فيه لحاجتي الماسة لمساعدتكم !! فهل ستساعدوني ؟؟؟ للضرورة القصوى

لدي سؤال في الفيجوال و هو :

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

هل يسمح لي بسؤال آخر ؟؟؟

ارجو الاجابة عن سؤالي و مساعدتي في حله ..

مع جزيل الشكر

و عساكم على القوة

#2

اخوي

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

اول شي لازم يكون عندك نسبة الفرق

بعدها تنشي معادلة ضرب درجة السيليلوز في نسبة الفرق لتحصل على درجة الفهرنهايت

هذا الي فهمته من السؤال

تم تعديل هذه المشاركة بواسطة rayig في 25 أكتوبر 2005 في 19:53

&&& سبحانك اللهم وبحمدك .. أشهد ان لا إله إلا أنت .. أستغفرك وأتوب إليك &&&

...

#3

للتحويل من درجة حرارة فهرنهايت إلى مئوية:

درجة الحرارة (فهرنهات) -32 ثم اضرب الناتج ب 5/9

من درجة حرارة مئوية (سلسيوس) إلى فهرنهايت:

اضرب درجة الحرارة (مئوي) بـ 9 واقسم الناتج على 5 وأضف له 32

:)

*******

ملاحظة: هناك دوال جاهزة في الإكسل لهذه العمليات وهي:

=CONVERT(A2,"C","F")

إذا أردت شرح عن هذه الدالة في إكسل قم بقراءة هذا المقال:

http://www.al-jazirah.com.sa/digimag/05122004/tm57.htm

تم تعديل هذه المشاركة بواسطة ala101 في 25 أكتوبر 2005 في 21:18

اللهم طهر أرض فلسطين من العملاء والخونة

#4

مرحبا

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

اشلون ممكن انفذ هذا البرنامج ؟ و شنو هي الكودات الازمة لهذا البرنامج ؟

كما ان الفرق موجود و هو معدل الزيادة

ارجو مساعدتي في اسرع وقت

مع جزيل الشكر

تم تعديل هذه المشاركة بواسطة alnoor في 25 أكتوبر 2005 في 21:28

#5

تفضل

Private Sub Text1_LostFocus()
If Val(Me.Text1) < 5 Or Val(Me.Text1) > 70 Then Me.Text2 = "": Exit Sub
Me.Text2 = Round((Val(Me.Text1) - 32) * 5 / 9, 4)

End Sub

Private Sub Text2_LostFocus()
If Val(Me.Text1) < 5 Or Val(Me.Text1) > 70 Then Me.Text2 = "": Exit Sub
Me.Text1 = Val(Me.Text2) * 9 / 5 + 32
End Sub

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

#6

مشكووووووووووور اخوي

الله يعطيك العافية ، انا ما راح انسى جميلك

لكن ممكن اطلب مساعدة ثانية منك في كتابة كود آخر لمسألة اخرى ؟

اذا ممكن ارجو الرد

مع خالص جزيل الشكر

هذا الموضوع مغلق.

مواضيع مشابهة