درس عملي ( ضروري )

[نونو العسوله]

السلام عليكم ورحمته الله وبركاته

بغيت أطلب منكم طلب وإن شاء الله ماتقصرون معي ..

أنا عندي درس عملي في الفيجول بيسك وماعرفت أطبق عليه حاولت بس مو راضي يضبط معي

فاللي بعرف يسويه مايبخل عليا .. ويجزاه الف خير

[متميزه]

الاول كوده

Private Sub Command1_Click()
If Option1.Value = True Then Form2.Show
If Option2.Value = True Then Form3.Show


End Sub

والثاني كوده

Private Sub Command1_Click()

Dim a As Single
a = text1.Text
text2.Text = a
End Sub

والثالث


Private Sub Command1_Click()

Dim a, b As Single
a = text1.Text
b = text2.Text
If a>b Then text3.Text = a
else
text3.Text = b
End if
End Sub

[نونو العسوله]

جزاكـ الله خير ويعطيك الف عافيه ..
ماقصرتي يامتميرة . من جد إسم على مسمى

[متميزه]

العفو .. واياك