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

أم ريم · 2012- 1- 2

تسلمي..

هذا حل الشفرات...مش انا اللي حليتهم للامانة بس تأكدت من صحتهم
ما عدا الفقرة الاولى حطيت حل و مش متأكدة منه لأني مافهمت المطلوب
.................
اكتبي الشفرات التالية ...
1. شفرة تتحقق من الوصول لنهاية ملف والذي له الرقم 5 وعندها تطبع الرسالة "the end">>الحل توقع مني مش أكيد لأني ما فهمت المطلوب تمام
Do until EOF (5)
Textbox1.text &=LineInput(5) &vbcrlf
Loop
MsgBox("the end")
2. سطر برمجي يقوم بإرساء مربع الصوره بحيث يكون ملتصقا بالناحية اليمنى للنموذج
PictureBox1.Dock = DockStyle.Right
3. سطر برمجي للبحث عن علامه @ داخل السلسلة h-hb23@hotmail.com
Dim c As String
c = "h-hb23@hotmail.com "
MsgBox(c.IndexOf("@"))
4. سطرين برمجيين لإنشاء نموذج جديد بالشفرة وتغير موقعه الى 100نقطة من اليسار الشاشة و300نقطة من أعلى الشاشة دون تغيرحجمه
Dim form2 As New Form
Dim form2rect As New Rectangle(100, 300, 0, 0)
form2.DesktopBounds = form2rect
form2.ShowDialog()
5. تصريحfunction يحتوي شفرة لإعادة مجموع رقمين مع كتابة استدعائها

Function max(ByVal b As Integer, ByVal d As Integer) As Integer
Dim n As Integer
n = b + d
Return n
End Function
الاستدعاء
Textbox3.text= max(textbox1.text,textbox2.text)

2012- 1- 2	#10
أم ريم أكـاديـمـي نــشـط الملف الشخصي: رقم العضوية : 17530 تاريخ التسجيل: Wed Dec 2008 المشاركات: 111 الـجنــس : أنـثـى عدد الـنقـاط : 2825 مؤشر المستوى: 73 بيانات الطالب: الكلية: كلية إدارة أعمال الدراسة: انتساب التخصص: إدارة أعمال المستوى: المستوى الأول	رد: مراجعة برمجه + اتمته العام الماضي تسلمي.. هذا حل الشفرات...مش انا اللي حليتهم للامانة بس تأكدت من صحتهم ما عدا الفقرة الاولى حطيت حل و مش متأكدة منه لأني مافهمت المطلوب ................. اكتبي الشفرات التالية ... 1. شفرة تتحقق من الوصول لنهاية ملف والذي له الرقم 5 وعندها تطبع الرسالة "the end">>الحل توقع مني مش أكيد لأني ما فهمت المطلوب تمام Do until EOF (5) Textbox1.text &=LineInput(5) &vbcrlf Loop MsgBox("the end") 2. سطر برمجي يقوم بإرساء مربع الصوره بحيث يكون ملتصقا بالناحية اليمنى للنموذج PictureBox1.Dock = DockStyle.Right 3. سطر برمجي للبحث عن علامه @ داخل السلسلة h-hb23@hotmail.com Dim c As String c = "h-hb23@hotmail.com " MsgBox(c.IndexOf("@")) 4. سطرين برمجيين لإنشاء نموذج جديد بالشفرة وتغير موقعه الى 100نقطة من اليسار الشاشة و300نقطة من أعلى الشاشة دون تغيرحجمه Dim form2 As New Form Dim form2rect As New Rectangle(100, 300, 0, 0) form2.DesktopBounds = form2rect form2.ShowDialog() 5. تصريحfunction يحتوي شفرة لإعادة مجموع رقمين مع كتابة استدعائها Function max(ByVal b As Integer, ByVal d As Integer) As Integer Dim n As Integer n = b + d Return n End Function الاستدعاء Textbox3.text= max(textbox1.text,textbox2.text)