سلام عليكم ممكن اتشرح هذا سؤال واشلون ينحل سؤال :اكتب الكود البرمجي لتغير خلفيه textمن الالون الاسود الى اللون الاحمر وعند رفع الؤشرcheckيعود الى للون الاسود
@aliqusay4 жыл бұрын
If (Check1.Value = 1) Then Text1.BackColor = vbRed ElseIf (Check1.Value = 0) Then Text1.BackColor = vbBlack End If
@dadahadadaha69463 жыл бұрын
السلام عليكم كيف اعمل زر بالفيجوال بيسك للتاكد من حل سوال مساحة المربع مثلا يعني من اضعط ع الزر يضهر التاكد من الحل
@سرىطالبهانيجاسم3 жыл бұрын
سلام عليكم صاحب لقناة ممكن مساعده عندي مشروع تخرج بل فيجول بيسك وريد كودات اذا بيه مجال
@it_teyba91414 жыл бұрын
سلام عليكم ممكن سؤال
@aliqusay4 жыл бұрын
تفضل
@aliqusay4 жыл бұрын
وعليكم السلام
@مشكلجيهبنتالناصريه-ظ3ه Жыл бұрын
@@aliqusay ممكن اتوصل وياك مشتركه جديده
@فاطمهعليعيدان4 жыл бұрын
سلام عليكم اريد تساعدني بحل هذا السؤال إذا ممكن 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
@aliqusay4 жыл бұрын
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
@فاطمهعليعيدان4 жыл бұрын
@@aliqusay شكرا
@aliqusay4 жыл бұрын
@@فاطمهعليعيدان بالخدمة
@فاطمهعليعيدان4 жыл бұрын
@@aliqusay خادم ربك اكدر اتواصل وياك ع غير برنامج لان عندي كم سؤال.
@aliqusay4 жыл бұрын
@@فاطمهعليعيدان حساباتي موجود بالقناة بقسم لمحة عن القناة ... About