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

[مسويه دفره]

السلام عليكم ورحمة الله وبركاته
بنااات بليييييييييييز ساعدوني
مو عارفه حل السؤال 4+5+6 بـ اسئلة البرمجه

اللي تبع كلمة المرور ومادري ايش

بلييييز اللي عارفته تشرح لي ايااه


؟؟؟؟؟

[برنسيسهـ]

1. انشيء برنامج يسمح للمستخدم بإدخال كلمة مرور ثم بعد ذلك يتأكد أن كلمة المرور تحتوي على “n” و"*" عندما تحتوي على هذين الرمزين يظهر رساله مرحباً بك وغير ذلك يظهر رساله كلمة مرور خاطئة.
Dim pass As String
pass = TextBox1.Text
If pass.IndexOf("n" & "*") >= 0 Then
MsgBox("مرحباً بك")
Else
MsgBox("كلمة المرور خاطئة")

End If
2. أنشيء برنامج يسمح للمستخدم بإدخال كلمة المرور ثم يتأكد من أن كلمة المرور تحتوي على "t!t" في نفس الوقت وعلى التوالي, وطول احرفها 8 عندما تجدها تظهر مربع رساله مرحبا بك, غير ذلك تظهر رساله كلمة مرور خاطئة
Dim pass As String
pass = TextBox1.Text
If pass.IndexOf("t!t") >= 0 And Len(pass) >= 8 Then
MsgBox("مرحباً بك")
Else
MsgBox("كلمة المرور خاطئه")
End If
3. انشيء برنامج يسمح للمستخدم بإدخال كلمة مرور ثم بعد ذلك يتأكد أن كلمة المرور تحتوي على “*” أو"q" عندما تحتوي على هذين الرمزين يظهر رساله مرحباً بك وغير ذلك يظهر رساله كلمة مرور خاطئة
Dim pass As String
pass = TextBox1.Text
If pass.IndexOf("*") >= 0 Or pass.IndexOf("q") >= 0 Then
MsgBox("مرحباً بك")
Else
MsgBox("كلمة المرور خاطئة")
End If

[مسويه دفره]

مشكوررره خيتو برنسيسه
ربي يعطيك الف الف عاااااااااااافيه:106:

[مسويه دفره]

طيب سؤال ثاني

وشو النوع اللي يحتوي على رقم ونص

يعني الأرقام تبع الـ antegr
والحروف تبع الـ string

في نوع يضم الحروف والأرقام وش هو؟

[جلكسيه]

تقصدين single :g2:

[مسويه دفره]

لالا

نوع يضم الأعداد والحروف مع بعض

مش single

[مسويه دفره]

طيب بناات سؤال ثاني
السؤال اللي رقمه 13

تقول فيه انشئي مشروع متكامل بحيث تكون النافذه الأولى تحتوي على مربع نص له ارساء من جميع الجهات
!!!!

شنو يعني له ارساء من جميع الجهات؟؟

قصدها يعني انو لو نحرك الفورم يكون مربع النص يتحرك معاه ولا ايش؟؟

[مسويه دفره]

ليييييييييييش محد رد


بلييييييز ساعدووووووووني:sdfgdsf:

[همس**]

بنات ايش رايكم تنزلون لنا الحلوول بليز تكسبون فينا اجر :"""""""""""""""""(

[كـــآدي]

السلام عليكم

ممكن بنات الي عندها الحلول تنزلها

ياليت والله لان حاسه ضايعين بليزززز

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

:Cry111:

[زهآآري]

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

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

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

[كـــآدي]

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

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

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

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

:love080::106:

[همس**]

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


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

[Mano.92]

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

[أم ريم]

زهاري جواب الفقرة الاولى فيه اخطاء
المطلوب انه يطبع 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من زهاااري
بس مدري ليه اذا نسختها يصير شكله هيك:bawling:

[زهآآري]

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

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

[أم ريم]

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

[تبولهـ ـالدوسري]

بليييييييييز ابي ايميل مس مها
ضروري ضروري ضروري
بليززز ردو علي

[9oOfif]

::

خيتوو تبوولهـ الايميل موجود فيذاا الموضوع ..
و مدري يعني لازم كابيتل ومدري شنو ..
انتي دشي و بتشوفينه ...
http://www.ckfu.org/vb/t275653.html


واذا فهمتي عطيني خير :(269): ..
لأني رسلت بدون كابيتل وهيك ...

تحيااتي

::

[تبولهـ ـالدوسري]

يسلمو حبيبي
وعادي ترسلين الايميل كابيتل و سمول
بالنهاية بوصل لها الاضافة

[تبولهـ ـالدوسري]

حبيبتي ممكن تسدحييييييين الايميل هنا
مممممممممككككككن!!!

[9oOfif]

::

يسسلمج ربي من كل شر ..
يب وهذا اللي اعرفه بس خفت :000:

[9oOfif]

::


يب ممكن :biggrin: ...


تفضلي هذا الايميل
mahaalser3@live.com (mahaalser3@live.com)



::

[أم ريم]

mahaalser3@live.com (mahaalser3@live.com)
و ان شاء الله ما يكون غلط لاني تعيجزت اليوم انقله عقلي قففففل بعد الهندسة
حرررررررررام ينحط البرمجة في وسط الاسبوع و جنب الهندسة و كانه مادة ماااي وسهلة

[تبولهـ ـالدوسري]

يسلمو حبيبتي
تمت الاضافة:biggrin: