اليكم مذكرة العملى للصف الأول ترم أول2012 عبارة عن أسئلة و أجوبة كل طالب يأخذ سؤال واحد يقوم بتنفيذه على الجهاز ثم يكتب ما قام به من تصميم و برمجة فى ورقة الاجابة مع رسم التصميم و الامتحان من 3 درجات فقط
المشروع الأول ( العمليات الحسابية على رقمين )
* يتم رسم ( 4 ) Label على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم رسم ( 2 ) TextBox على النموذج
* يتم رسم ( 6 ) Button على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم فتح نافذة الكود لكل مفتاح وكتابة الأكواد التالية
Public Class Form1
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
End مفتاح الخروج
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = "" مفتاح خروج
Label4.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Single
a = Val(TextBox1.Text) مفتاح الجمع
b = Val(TextBox2.Text)
c = a + b
Label4.Text = c
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a, b, c As Single
a = Val(TextBox1.Text) مفتاح الطرح
b = Val(TextBox2.Text)
c = a - b
Label4.Text = c
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a, b, c As Single
a = Val(TextBox1.Text)
b = Val(TextBox2.Text) مفتاح القسمة
c = a / b
Label4.Text = c
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a, b, c As Single
a = Val(TextBox1.Text) مفتاح الضرب
b = Val(TextBox2.Text)
c = a * b
Label4.Text = c
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
المشروع الثانى ( تقدير اللغة الانجليزية )
* يتم رسم ( 3 ) Label على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم رسم ( 1 ) Textbox
* يتم رسم ( 3 ) Button على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم فتح نافذة الكود لكل مفتاح وكتابة الأكواد التالية
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End مفتاح الخروج
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
Label3.Text = "" مفتاح جديد
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim en As Single
Dim t As String
en = Val(TextBox1.Text)
If en > 100 Or en < 0 Then
MsgBox("أدخل الدرجة بين 0 و 100") مفتاح النتيجة
Exit Sub
End If
If en >= 90 Then t = "ممتاز"
If en >= 75 And en < 90 Then t = "جيد جداً"
If en >= 65 And en < 75 Then t = "جيد"
If en >= 50 And en < 65 Then t = "مقبول"
If en < 50 Then t = "ضعيف"
Label3.Text = t
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
المشروع الثالث ( تقدير اللغة الانجليزية )
* يتم رسم ( 3 ) Label على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم رسم ( 1 ) Textbox
* يتم رسم ( 3 ) Button على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم فتح نافذة الكود لكل مفتاح وكتابة الأكواد التالية
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End مفتاح الخروج
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
Label3.Text = "" مفتاح جيد
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim en As Single
Dim t As String
en = Val(TextBox1.Text)
If en > 100 Or en < 0 Then
MsgBox("أدخل الدرجة بين 0 و 100") مفتاح النتيجة
Exit Sub
End If
Select Case en
Case Is >= 90
t = "ممتاز"
Case Is >= 75 And en < 90
t = "جيد جداً"
Case Is >= 65 And en < 75
t = "جيد"
Case Is >= 50 And en < 65
t = "مقبول"
Case Is < 50
t = "ضعيف"
End Select
Label3.Text = t
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
المشروع الرابع ( حساب العمر )
* يتم رسم ( 6 ) Textbox على النموذج
* يتم رسم ( 9 ) Label على النموذج ثم يتم تغيير الخصائص اللازمة.
* يتم رسم ( 3 ) Button على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم فتح نافذة الكود لكل مفتاح وكتابة الأكواد التالية
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End مفتاح الخروج
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = "" مفتاح جديد
TextBox5.Text = ""
TextBox6.Text = ""
Label7.Text = ""
Label8.Text = ""
Label9.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d1, d2, m1, m2, y1, y2 As Integer
d1 = Val(TextBox1.Text)
d2 = Val(TextBox4.Text)
m1 = Val(TextBox2.Text)
m2 = Val(TextBox5.Text)
y1 = Val(TextBox3.Text)
y2 = Val(TextBox6.Text) مفتاح احسب
If d1 < d2 Then
d1 = d1 + 30
m1 = m1 - 1
End If
If m1 < m2 Then
m1 = m1 + 12
y1 = y1 - 1
End If
Label7.Text = d1 - d2
Label8.Text = m1 - m2
Label9.Text = y1 - y2
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
المشروع الخامس ( مقارنة ثلاثة أرقام )
* يتم رسم ( 5 ) Label على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم رسم ( 3 ) Textbox على النموذج
* يتم رسم ( 3 ) Button على النموذج ثم يتم تغيير الخصائص اللازمة
* يتم فتح نافذة الكود لكل مفتاح وكتابة الأكواد التالية
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End مفتاح الخروج
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = "" مفتاح جديد
Label5.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, max As Single
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a > b Then max = a Else max = b مفتاح قارن
If max < c Then max = c
Label5.Text = max
If a = b And b = c Then
Label5.Text = "الأعداد متساوية"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
موضوع: مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012 
!!تنبيه !!