منتدى شنواى



 
الرئيسيةمجلة شنواىاليوميةمكتبة الصورس .و .جبحـثالمجموعاتالتسجيلدخول

شاطر | 
 

 مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
أيمن فتيان
عضو ماسى
عضو ماسى
avatar

الساعة الآن بتوقيت شنواى :
عدد المساهمات : 319
نقاط : 883
تاريخ التسجيل : 19/10/2009

مُساهمةموضوع: مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012   الأحد 12 فبراير 2012 - 2:11

اليكم مذكرة العملى للصف الأول ترم أول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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
أشرف على
admin

admin
avatar

الساعة الآن بتوقيت شنواى :
ذكر
عدد المساهمات : 18213
نقاط : 37564
تاريخ التسجيل : 04/09/2009
الموقع : http://elawa2l.com/vb

الأوسمة
 :
11:

مُساهمةموضوع: رد: مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012   الخميس 19 أبريل 2012 - 5:24



الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://elawa2l.com/vb
 
مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» الباكالوريا الفرنسية من 1983 إلى 2012
» حسان يبدة المدلل الجديد لـ"الخضر" يسيل لعاب أقوى الأندية الأوروبية
» وزارة التربية الوطنية تغير المقررات والبرامج في 2012
» قضية زوال العالم الجديدة
» لماذا القيامة الصغرى عام 2012

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى شنواى  :: المنتدى الإدارى :: أرشيف المناهج والموضوعات القديمة :: الأول الثانوى-
انتقل الى: