مساعده بشرح اكواد الفجول

[متميزه]

والله عيونك الحلوه

برنامج يقوم بإددخال الزاوية بالتقدير الستيني ويحولها إلى الزاوية بالتقدير الدائري

نبغى ننقر على زر تحويل عشان يحول الدرجه
لذلك نكتب الكود تحت الزر تحويل
ويكون الحدث عند النقر

Private Sub Command1_Click ( )

ونعرف متغير (العدد المدخل من قبل مستخدم البرنامج .. الزاوية بالتقدير الستيني)

Dim m As Single

ونعرف ثابت وهي قيمه ثابته للباي

Const pi = 3.14

تخزين البيانات المدخلة بمربع النص (العدد) بالمتغير

m = Text1.Text

اخراج النتيجة بمربع النص الثاني من خلال المعادلة (الزاوية بالتقدير الستيني ×3.14)÷180

Text2.Text = m * pi / 180

End Sub

برنامج يقوم بإدخال درجة الحرارة بالمئوي ويحولها إلى درجة الحرارة بالفهرنهايتي

نبغى ننقر على زر تحويل عشان يحول الدرجه
لذلك نكتب الكود تحت الزر تحويل
ويكون الحدث عند النقر

Private Sub Command1_Click ( )

ونعرف متغير (العدد المدخل من قبل مستخدم البرنامج .. درجة الحرارة بالمئوي)

Dim r As Single

تخزين البيانات المدخلة بمربع النص (العدد) بالمتغير

r = Text1.Text

خراج النتيجة بمربع النص الثاني من خلال المعادلة (9÷5 ×درجة الحرارة بالمئوي )+32

Text2.Text = ( 9 / 5 * r ) + 32

End Sub