16 | اداتين الاختيار checkbox & optionbutton في لغة فيجوال بيسك 6 | Visual Basic 6.0 Tutorial

[@alanesandebeall1911]

سلام عليكم ممكن اتشرح هذا سؤال واشلون ينحل
سؤال :اكتب الكود البرمجي لتغير خلفيه textمن الالون الاسود الى اللون الاحمر وعند رفع الؤشرcheckيعود الى للون الاسود

[@aliqusay]

If (Check1.Value = 1) Then
Text1.BackColor = vbRed
ElseIf (Check1.Value = 0) Then
Text1.BackColor = vbBlack
End If

[@dadahadadaha6946]

السلام عليكم كيف اعمل زر بالفيجوال بيسك للتاكد من حل سوال مساحة المربع مثلا يعني من اضعط ع الزر يضهر التاكد من الحل

[@سرىطالبهانيجاسم]

سلام عليكم صاحب لقناة ممكن مساعده عندي مشروع تخرج بل فيجول بيسك وريد كودات اذا بيه مجال

[@it_teyba9141]

سلام عليكم ممكن سؤال

[@aliqusay]

تفضل

[@aliqusay]

وعليكم السلام

[@مشكلجيهبنتالناصريه-ظ3ه]

​@@aliqusay ممكن اتوصل وياك مشتركه جديده

[@فاطمهعليعيدان]

سلام عليكم اريد تساعدني بحل هذا السؤال إذا ممكن Q/ Write a program in V.B to find the result of the following equations by using check box:
Z1= 3X³+Y
Z2= 10X-Y²
If check1 and check2 are activated together then the result will be Z= Z1+Z2 in text3

[@aliqusay]

Private Sub Check1_Click()
Dim z1, z2, x, y As Double
x = Val(Text1.Text)
y = Val(Text2.Text)
z1 = 3 * (x ^ 3) + y
z2 = 10 * x - (y ^ 2)
Text3.Text = z1
If (Check1.Value = 1) And (Check2.Value = 1) Then
Text3.Text = z1 + z2
End If
End Sub
Private Sub Check2_Click()
Dim z1, z2, x, y As Double
x = Val(Text1.Text)
y = Val(Text2.Text)
z1 = 3 * (x ^ 3) + y
z2 = 10 * x - (y ^ 2)
Text3.Text = z2
If (Check1.Value = 1) And (Check2.Value = 1) Then
Text3.Text = z1 + z2
End If
End Sub

[@فاطمهعليعيدان]

@@aliqusay شكرا

[@aliqusay]

@@فاطمهعليعيدان بالخدمة

[@فاطمهعليعيدان]

@@aliqusay خادم ربك اكدر اتواصل وياك ع غير برنامج لان عندي كم سؤال.

[@aliqusay]

@@فاطمهعليعيدان
حساباتي موجود بالقناة بقسم لمحة عن القناة ... About

[@user-iw3bk2ee7d]

مرحبا ممكن ترد عليه