طلبات السادة الأعضاء للعام الدراسي 2015-2016

[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة omarmoh

أشكرك جزيلا أستاذ أحمد
ولكن لو سمحت بطلب من حضرتك خدمة وجود رابط لتحميل برنامج v.b.net

ده رابط لتحميل البرنامج رابط مباشر

http://download.microsoft.com/downlo...93AB8C0/VB.iso

[omarmoh]

ما نوع الخطأ اذا كتب الامر
const x as integer=textbox1.text
ونحن نعلم انه لا يمكن تخصيص قىمة للثابت أثناء التشغيل
وشكرا جزيلا يا أستاذنا

[hassanalhawy]

بعد إذن الأستاذ / أحمد قرنى
dim first as integer = 2.6
first = 3

[حسن الاستاذ]

شكرا جزيلا لحضرتك أستاذ احمد ... بالنسبة 2.6 التقريب يكون 3 ولا ايه

[حسن الاستاذ]

سؤالين لو سمحتم
كلمة end if تكتب بينها مسافة ولا ايه
كلمة dim لابد ان تكون كابتل ولا عادى سمول
-
إن&""& textbox1 =txtn.text وضح الكود السابق
-- امامك برنامج يعطى خطأ ادا ادخلنا قيم نصية قم باعادة تصميم البرنامج باستخدام if
* dim x ,y as single
x = me . textbox1.text
y=3*x=2
label1.text=y

[أحـمد قرنى]

[QUOTE=حسن الاستاذ;5833309]سؤالين لو سمحتم
كلمة end if تكتب بينها مسافة ولا ايه
اه لازم يكون فى مسافة
كلمة dim لابد ان تكون كابتل ولا عادى سمول
مش هتفرق
-
إن&""& textbox1 =txtn.text وضح الكود السابق
مش فاهم اكود عايز ايه حضرتك متاكد من صحة كتابته
-- امامك برنامج يعطى خطأ ادا ادخلنا قيم نصية قم باعادة تصميم البرنامج باستخدام if

dim x ,y as single
If isnumeric ( textbox1.text) then
x = me . textbox1.text
y=3*x=2
label1.text=y
else
( " ادخل قيمة عددية " )msgbox
( ) Textbox1 . Focus
""= Textbox1 . txet
End If

[حسن الاستاذ]

[QUOTE=أحـمد قرنى;5834406]

المشاركة الأصلية كتبت بواسطة حسن الاستاذ

سؤالين لو سمحتم
كلمة end if تكتب بينها مسافة ولا ايه
اه لازم يكون فى مسافة
كلمة dim لابد ان تكون كابتل ولا عادى سمول
مش هتفرق
-
إن&""& textbox1 =txtn.text وضح الكود السابق
مش فاهم اكود عايز ايه حضرتك متاكد من صحة كتابته
-- امامك برنامج يعطى خطأ ادا ادخلنا قيم نصية قم باعادة تصميم البرنامج باستخدام if

dim x ,y as single
If isnumeric ( textbox1.text) then
x = me . textbox1.text
y=3*x=2
label1.text=y
else
( " ادخل قيمة عددية " )msgbox
( ) Textbox1 . Focus
""= Textbox1 . txet
End If

شكرا جزيلا لرد حضرتك
بالنسبة للكود ان حرف n بالانجليزي بس مش راضي يكتب معايا

[أحـمد قرنى]

[QUOTE=حسن الاستاذ;5834491]

المشاركة الأصلية كتبت بواسطة أحـمد قرنى

شكرا جزيلا لرد حضرتك
بالنسبة للكود ان حرف n بالانجليزي بس مش راضي يكتب معايا

هيبقى ربط محتوى اداة مربع الكتابة بمحتوى المتغير n وعرضهما داخل اداة مربع الكتابة textbox

[احمد المسلماني1]

ما ناتج ذلك
(“msg box (“ m & “ ، “ & n
(“ “ = “ msg box (“ 2 & “+ “ & 4
("msg box (“ 3 & “ * “ & 5 & “ = “ 3*5

[ابو موده]

تطبع جميعها كما هي لا تغير شيل الاقواس فقط هههههههههه

m & “ ، “ & n - 1

وهكذا

[lora2014]

سؤال
صح ام خطأ
ناتج تنفيذ الكود Degree=TextBox1.Text يكون True أو False ( )

[محمدبلبوله]

سؤال من الكتاب الفصل الثالث
اختر
2/ وظيفة الامر Next في جملة For ..Next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة قيمة الزيادة بقيمة نهاية الحلقة
(ج) كل ما سبق
ــــــــــــــــــــــــــــــــــــــــــ
(( يعني ايه يقارن قيمة الزيادة بقيمة المتغير )) المفروض انا بقارن قيمة المتغير بقيمة النهاية

[محمدبلبوله]

المشاركة الأصلية كتبت بواسطة محمدبلبوله

سؤال من الكتاب الفصل الثالث
اختر
2/ وظيفة الامر Next في جملة For ..Next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة قيمة الزيادة بقيمة نهاية الحلقة
(ج) كل ما سبق
ــــــــــــــــــــــــــــــــــــــــــ
(( يعني ايه يقارن قيمة الزيادة بقيمة المتغير )) المفروض انا بقارن قيمة المتغير بقيمة النهاية

ممكن الاجابة

[mhmoudhassan52]

المجموعة ( ب )
تم عمل برنامج يقوم بحساب مجموع درجات الطالب في ىاربع مواد وايجاد متوسطهم كما يلي :
مجموع المواد Sum = Arabic + English + Math + Science
عددها / مجموع المواد = Aver

تتبع البرنامج لتكشف أن هناك خطأين هما :
الخطأ الاول : يعطل البرنامج ( صحح هذا الخطأ )
الخطأ الثاني : لا يعطل تنفيذ البرنامج لكن يمنع حصولك علي نتائج دقيقة ( حدد السبب ) و البرنامج هو :

Dim Arabic, English, Math , Science ,Sum , Aver as integer

Arabic= 45.5

English = 40

Math = 45

Science =40

Sum = Arabic + English + Math + Science

Aver = Sum / 4

TextBox1.Text = Sum

TextBox1.Text = Aver

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة mhmoudhassan52

المجموعة ( ب )
تم عمل برنامج يقوم بحساب مجموع درجات الطالب في ىاربع مواد وايجاد متوسطهم كما يلي :
مجموع المواد Sum = Arabic + English + Math + Science
عددها / مجموع المواد = Aver

تتبع البرنامج لتكشف أن هناك خطأين هما :
الخطأ الاول : يعطل البرنامج ( صحح هذا الخطأ )
الخطأ الثاني : لا يعطل تنفيذ البرنامج لكن يمنع حصولك علي نتائج دقيقة ( حدد السبب ) و البرنامج هو :

Dim Arabic, English, Math , Science ,Sum , Aver as integer

Arabic= 45.5

English = 40

Math = 45

Science =40

Sum = Arabic + English + Math + Science

Aver = Sum / 4

TextBox1.Text = Sum

TextBox1.Text = Aver

أولاً : لا يوجد خطأ يعطل البرنامج ، حيث أن قيم المواد معروفة مسبقاً ومخصص لها قيم ولم يتم تخصيص قيم مجهوله لمتغيرات هذه المواد ، مثل أن يتم تخصيص قيم لهذه المواد من صناديق نصوص وهذا لم يحدث
ثانياً : الخطأ الذى لا يعطل البرنامج ولكن يمنع الحصول على نتائج دقيقة ، هى تمثيل بيانات المواد والمجموع والمتوسط من نوع بيان عددى صحيح integer ، والأصح أن يكون من نوع بيان عددى غير صحيح Single بهذا الأمر
Dim Arabic, English, Math , Science ,Sum , Aver as Single