منتدى شنواى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةمجلة شنواىأحدث الصورالتسجيلدخول

 

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

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


عدد المساهمات : 319
نقاط : 883
تاريخ التسجيل : 19/10/2009

مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012 Empty
مُساهمةموضوع: مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012   مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012 Emptyالأحد 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
أشرف على


ذكر
عدد المساهمات : 27639
نقاط : 60776
تاريخ التسجيل : 04/09/2009
الموقع : http://elawa2l.com/vb

الأوسمة
 :
11:

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

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

مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012 91990
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://elawa2l.com/vb
 
مذكرة العملى الحاسب الآلى للصف الأول الثانوى ترم أول2012
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» مذكرة منهج الحاسب الآلى الترم الأول الصف الأول الثانوى روووووعه
» اختبار الحاسب الآلى للصف الأول الثانوى الفصل الدراسى الأول
» مراجعة عما سبق دراسته لمنهج الحاسب الآلى للصف الأول الثانوى
» اختبار الحاسب الآلى للصف الأول الثانوى الفصل الدراسى الثانى
» مذكرة النظرى لمنهج الحاسب الآلى الترم الثانى الأول الثانوى + بعض الأسئلة

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