ملتقى طلاب وطالبات جامعة الملك فيصل,جامعة الدمام - برمجه 3

صفحة 2 من 3

عرض 100 مشاركات من هذا الموضوع لكل صفحة

ملتقى طلاب وطالبات جامعة الملك فيصل,جامعة الدمام (https://vb.ckfu.org/)

- قسم المحذوفات و المواضيع المكررة (https://vb.ckfu.org/f33)

- - برمجه 3 - اسئلة المراجعه (https://vb.ckfu.org/t269688.html)

زهآآري

2011- 12- 23 12:45 PM

رد: برمجه 3 - اسئلة المراجعه

1 مرفق

السلام عليكم :106:

هذا حل أسئلة المراجعة

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

كـــآدي

2011- 12- 23 07:09 PM

رد: برمجه 3 - اسئلة المراجعه

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

جزآك الله الجنه يييارب

الله يجعله في ميزآن حسناتك ان شاءالله

الله يوفقك ويسعدك

:love080::106:

همس**

2011- 12- 23 07:19 PM

رد: برمجه 3 - اسئلة المراجعه

زهااري الله يوفقك ياقمررر :love080::love080:

بنات سوال18 مو محلول الي تغرف الحل تعطينا وشكرا

Mano.92

2011- 12- 23 08:00 PM

رد: برمجه 3 - اسئلة المراجعه

:love080::106:الله يجزاك خير

أم ريم

2011- 12- 23 08:45 PM

رد: برمجه 3 - اسئلة المراجعه

زهاري جواب الفقرة الاولى فيه اخطاء
المطلوب انه يطبع 3 اسماء ..الاسم الاول و الاسم الثاني و الاسم الاخير
و كل واحد يكون اول حرف منه كابيتال
بس الحاصل لما اطبق شفرتك انه ما يطبع الا اسم واحد و اتوقع السبب لأنك اخترتي قيمة الوورد ياخذها من التكست بوكس 2 و هذا ما يدعم تكرار القيمة
الافضل تخليه ياخذ القيمة من انبوت بوكس
و ايضا تحطي علامة & جنب التكست بوكس1 حتى يحط النواتج مع بعض و لا راح يطلع القيمة الاخيرة فقط

يعني يصير الحل كذا

Dim word, first, last
For i = 1 To 3
word =Inputbox("ما الاسم؟")
first = UCase(Mid(word, 1, 1))
last = LCase(Mid(word, 2))
TextBox1.Text & = first & last & Chr(13) & Chr(10)
Next

أم ريم

2011- 12- 23 09:06 PM

رد: برمجه 3 - اسئلة المراجعه

النوع اللي يقبل ارقام او حروف هو object
اذا انتي ما حددتي نوع المتغير البرنامج من نفسه يحطها اوبجكت

أم ريم

2011- 12- 23 09:39 PM

رد: برمجه 3 - اسئلة المراجعه

ارساء يعني تكون في مسافة ثابتة بين الاداة و الحافة و لما تقول تبيها من كل الجهات يعني تكون في مسافة بين الاداة و بين كل الحواف فتصير الاداة في المنتصف

همس**

2011- 12- 23 10:37 PM

رد: برمجه 3 - اسئلة المراجعه

Public b As Integer = 15000

Function account(ByVal a As Integer, ByVal l As Integer)
If a > 0 And l = 1 Then

Return (a - B)
ElseIf a > 0 And l = 2 Then

Return (a + B)
Else
Return (0)

End If
End Function

End Module
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label3.Text = account(TextBox1.Text, TextBox2.Tex
t

هذا حل سوال 18من زهاااري
بس مدري ليه اذا نسختها يصير شكله هيك:bawling:

زهآآري

2011- 12- 24 07:01 AM

رد: برمجه 3 - اسئلة المراجعه

ام الريم السؤال الاول استاذه هيام حلته معانا

يعني هذا حل الاستاذه

أم ريم

2011- 12- 24 11:18 AM

رد: برمجه 3 - اسئلة المراجعه

و الحل اللي حطيته كذلك حل استاذه هيام ..لكن ممكن الجواب اللي حطيتيه اما لمثال مختلف او ان الاستاذة غلطت و ما نتبهت انتو جربو طبقو الشيفرة في الفيجوال و ماراح يطبق عشانها خطأ

All times are GMT +3. الوقت الآن حسب توقيت السعودية: 06:43 AM.

صفحة 2 من 3

عرض 100 مشاركات من هذا الموضوع لكل صفحة

Adsense Management by Losha

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