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

[al_redini]

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

[متميزه]

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

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

[متميزه]

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

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]

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