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

[زهآآري]

السلام عليكم

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

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

[كـــآدي]

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

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

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

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

[همس**]

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


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

[Mano.92]

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

[أم ريم]

زهاري جواب الفقرة الاولى فيه اخطاء
المطلوب انه يطبع 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

[أم ريم]

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

[أم ريم]

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

[همس**]

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من زهاااري
بس مدري ليه اذا نسختها يصير شكله هيك

[زهآآري]

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

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

[أم ريم]

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