منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

منتديات حاسبكو المتخصصة بمادة الحاسب الآلي (http://www.7asabco.org/index.php)

- الأرشـــــــــيــــــــــــف (http://www.7asabco.org/forumdisplay.php?f=87)

- - أطلب المساعدة ولا تخذلوني (http://www.7asabco.org/showthread.php?t=8316)

goodgirl

12-13-2008 06:22 PM

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

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

متميزه

12-13-2008 06:31 PM

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

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

goodgirl

12-13-2008 06:54 PM

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

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

متميزه

12-13-2008 08:05 PM

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

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

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

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

الساعة الآن 10:44 PM.

a.d - i.s.s.w