أطلب المساعدة ولا تخذلوني

[goodgirl]

مرحبا ... أنا معلمة حاسب للمرحلة الثانوية ولم يتم تعييني إلا من وقت قريب ووجدت صعوبة كون تعييني لم يأتي إلا قبل إجازة العيد بأسبوع ووجدت نفسي حائرة بين المنهج والتدريس الذي لا خبرة لي فيه
لذا وأود أن أحصل على أكواد المشروع الثاني والثالث كتاب الطالب التدريب العملي ولكم مني جزيل الشكر .

[متميزه]

تبغى الحسابات ومساحة المستطيل

[goodgirl]

أود أن أحصل على أكواد المشروع الثاني الخاص بتحويل مبلغ من المال بالريال السعودي إلى الدينار الكويتي
والمشروع الثالث ادخال درجات الطالب في المواد الشرعية ثم حساب المجموع وطباعة المتوسط لها في كتاب الطالب التدريب العملي ولكم مني جزيل الشكر .

[متميزه]

المشروع الأول


Private Sub Command1_Click()
Dim R As Single
R = Text1.Text
Text2.Text = R * 12
End Sub



المشروع الثاني عندي مشكلة كتبته كذا بس مادري ايش المشكله
Private Sub Command1_Click()

Dim Q , F , T , S , H , m As Single
Text1.Text = Q
Text2.Text = F
Text3.Text = T
Text4.Text = S
Text5.Text = H
m = Val(Q) + Val(F) + Val(T) + Val(S) + Val(H
Text6.Text = m \ 5
End Sub


اعتذر ان اخطئت