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

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

- كل مايخص اختبارات الماده النظريه والعمليه (http://www.7asabco.org/forumdisplay.php?f=140)

- - نبي أكواد البرامج .. (http://www.7asabco.org/showthread.php?t=11159)

al_redini

01-07-2011 02:26 AM

نبي أكواد البرامج ..

السلام عليكم .. نبي أكواد البرامج التاليه .. لتفيذها للعملي ....
1 - مبلغ مدخل بالريال السعودي للدينار الكويتي ..
2- مساحة المستطيل
3- التحويل من الكيلومتر إلى المتر
4- مساحة المربع .
بحيث أن الطالب يصمم البرنامج ثم يكتب الكود وينفذ البرنامج

متميزه

01-07-2011 12:09 PM

مشاركة: نبي أكواد البرامج ..

كود برنامج التحويل من الريال لدينار

http://www.7asabco.org/t11081.html

متميزه

01-07-2011 12:21 PM

مشاركة: نبي أكواد البرامج ..

كود مساحة المستطيل

Private Sub Command1_Click()
Dim a, b As Single
a = text1.Text
b = text2.Text
text3.Text = a * b
End Sub

التحويل من الكيلومتر إلى المتر

Private Sub Command1_Click ( )
Dim r As Single
r = Text1.Text
Text2.Text =1000 * r
End Sub

مساحة المربع .

Private Sub Command1_Click()
Dim a As Single
a = text1.Text
text2.Text = a ^2
End Sub

al_redini

01-12-2011 08:30 PM

مشاركة: نبي أكواد البرامج ..

السلام عليكم ... شكراً جزيلاً .. اختي المتميزة الله يوفقك .... أستفدت من الأكواد وهذي إختباراتي أش رايك .أرسلتها عاللإيميل .....

الساعة الآن 09:07 PM.

a.d - i.s.s.w