لغات برمجة شعبة ناصر شطوان

[الفراشه2008]

اهلين بالحلوين
إن شاء الله المذاكرة تمام
اعتقد انو حل السؤال الخامس بهذي الطريقة
Dim i, t
For i = 1 To 120
t += i
Next
If i >= 50 Then
MsgBox("وصلت قيمة المخزون إلى 50")
End If
TextBox1.Text = t
End Sub
End Class
وبالتوفيق

[my hero]

up
up

[my hero]

بنات إن شاء الله بكره نبغى نتجمع الساعة 8 في المبنى ال2 الي ماهي فاهمة الربط او اي شئ تجي
حنتناقش وانراجع الكودات مع بعض... بالتوفيق

[jowana]

1- اكتب برنامج فيجوال بيسك يقوم بحساب المعدل التراكمي لطالب كما يلي: يقوم الطالب بإدخال الدرجة وعدد الساعات لكل مادة في الجدول الدراسي. يقوم البرنامج بتنفيذ المعادلة التالية لحساب النقاط لكل مادة:

النقاط =( الدرجة ÷ 10 – 5) * عدد الساعات

واذا كان ناتج حساب النقاط اقل من الصفر (في حال كون نتيجة المعادلة سالبة) فإن النقاط التي حصل عليها الطالب في هذه المادة تصبح صفر. ثم يقوم البرنامج بجمع النقاط وجمع إجمالي الساعات وحساب المعدل التراكمي بقسمة مجموع النقاط على مجموع الساعات.

Public Class Form1

Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

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

Dim sub1, sub2, sub3, hour1, hour2, hour3, mark1, mark2, mark3, total As Single

sub1 = Single.Parse(TextBox1.Text)

sub2 = Single.Parse(TextBox2.Text)

sub3 = Single.Parse(TextBox3.Text)

hour1 = Single.Parse(TextBox4.Text)

hour2 = Single.Parse(TextBox5.Text)

hour3 = Single.Parse(TextBox6.Text)

mark1 = hour1 * (sub1 / 10 - 5)

mark2 = hour2 * (sub2 / 10 - 5)

mark3 = hour3 * (sub3 / 10 - 5)

If mark1 < 0 Then

mark1 = 0

ElseIf mark2 < 0 Then

mark2 = 0

ElseIf mark3 < 0 Then

mark3 = 0

End If

total = (mark1 + mark2 + mark3) / (hour1 + hour2 + hour3)

TextBox7.Text = total.ToString

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

2- اكتب برنامج يقوم باستقبال مبلغ المبيعات ثم يتم تحديد وحساب الخصم على المبلغ بحيث تكون النتائج على الشاشة كما يلي:
§ المبلغ.
§ الخصم.
§ الصافي بعد الخصم.

· معدل الخصم كما يلي:
- خمسة في المائة إذا كانت المبيعات بين 500 ريال وألف ريال.
- عشرة في المائة إذا كانت المبيعات بين 1000 ريال و 2000 ريال.
- خمسة عشر في المائة إذا زادت المبيعات عن 2000 ريال.

الحل :

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, C As Integer
a = TextBox1.Text
If a >= 500 And a <= 1000 Then
b = a * 0.05
End If
If a > 1000 And a < 2000 Then
b = a * 0.1
End If
If a > 2000 Then
b = a * 0.15
End If
TextBox2.Text = b
TextBox3.Text = a - b

End Sub





















3- باستخدام التحكم بواسطة الحالات Case اكتب برنامج يقوم بتحويل درجات الطلاب من الأرقام إلى الرموز كالتالي:
4- الدرجة 90 إلى 100 تتحول للرمز A
5- الدرجة 80 إلى 90 تتحول للرمز B
6- الدرجة 70 إلى 80 تتحول للرمز C
7- الدرجة 60 إلى 70 تتحول للرمز D
8- الدرجة اقل من 60 تعطي الرمز F
9- بحيث يستقبل البرنامج الدرجة ثم يقوم بتحويلها للرمز





س2/ أعمل برنامج فيه 3 بوتون توضح فيه
درجة الشفافية me. opacity
مسح النص textbox .clear
إعادة .undotextbox
تركيز textbox .focus

Public Class Form1

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

Me.Opacity = 0.75

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Clear()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox2.Focus()

End Sub

End Class

س3/أعمل برنامج لحساب خصم على الراتب إذا كان الراتب اصغر أو يساوي 1000 ريال يخصم 5% وإذا كان الراتب أكبر من 1000 ويساوي 2000 يخصم 10% إذا كان الراتب أكبر من 2000 يخصم 15%؟




س5/ شركة وطنية ترقب في مراقبات المخزون لديها من خلال إنشاء برنامج يتم عن طريقه المراقبة بحيث إذا وصل قيمة المخزون الى 50 قطعة يتم التنبيه من خلال رسالة إلى إدارة المستودعات علما بان الكمية الموجودة هي 120 قطعة الحل باستخدام جملة التكرار for؟


هادي الأسئلة نزلها أحد الأعضاء في فايل للي ماقدر يفتح الفايل أو مو مسجل بالمنتدى
وبالتوفيق إن شاء الله
دعواتكم

[my hero]

up
up

[roneta]

Dim x As Integer
x = InputBox("ادخل الدرجة")
Select Case x
Case 90 To 100
TextBox1.Text = ("A")
Case 80 To 89
TextBox1.Text = ("b")
Case 70 To 79
TextBox1.Text = ("c")
Case 60 To 69
TextBox1.Text = ("d")
Case Is < 60
TextBox1.Text = ("f")
End Select


End Sub
End Class

بنات هادا المعدل بي selece case

]دعواتكم

[القرشي3770]

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

[القرشي3770]

فين البنات ياهوووو تكفى قولو لنا شي

[jowana]

الاختبار 3 أسئلة السؤال الاول صعب
والثاني عن المصفوفات مرة سهل
والثالث أكمل الكود الناقص برضو سهل

إن شاء الله بعد العصر اقللكم الاسئلة بالضبط
وبالتوفيق

[أحمد المبدع]

ياريت تقولوا لنا كيف كان الاختبار بالزبط

والاجوبه كلها على الجهاز ولا في اجابات على الورقه وكيف كان التسليم

وهل يمدينا نفتح الكتاب ؟