منتدى شنواى



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

شاطر | 
 

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

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


الساعة الآن بتوقيت شنواى :
عدد المساهمات : 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


الساعة الآن بتوقيت شنواى :
ذكر
عدد المساهمات : 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

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