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

  Рет қаралды 5,778

Ali Qusay

Ali Qusay

Күн бұрын

Пікірлер: 15
@alanesandebeall1911
@alanesandebeall1911 4 жыл бұрын
سلام عليكم ممكن اتشرح هذا سؤال واشلون ينحل سؤال :اكتب الكود البرمجي لتغير خلفيه textمن الالون الاسود الى اللون الاحمر وعند رفع الؤشرcheckيعود الى للون الاسود
@aliqusay
@aliqusay 4 жыл бұрын
If (Check1.Value = 1) Then Text1.BackColor = vbRed ElseIf (Check1.Value = 0) Then Text1.BackColor = vbBlack End If
@dadahadadaha6946
@dadahadadaha6946 3 жыл бұрын
السلام عليكم كيف اعمل زر بالفيجوال بيسك للتاكد من حل سوال مساحة المربع مثلا يعني من اضعط ع الزر يضهر التاكد من الحل
@سرىطالبهانيجاسم
@سرىطالبهانيجاسم 3 жыл бұрын
سلام عليكم صاحب لقناة ممكن مساعده عندي مشروع تخرج بل فيجول بيسك وريد كودات اذا بيه مجال
@it_teyba9141
@it_teyba9141 4 жыл бұрын
سلام عليكم ممكن سؤال
@aliqusay
@aliqusay 4 жыл бұрын
تفضل
@aliqusay
@aliqusay 4 жыл бұрын
وعليكم السلام
@مشكلجيهبنتالناصريه-ظ3ه
@مشكلجيهبنتالناصريه-ظ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
@aliqusay
@aliqusay 4 жыл бұрын
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 شكرا
@aliqusay
@aliqusay 4 жыл бұрын
@@فاطمهعليعيدان بالخدمة
@فاطمهعليعيدان
@فاطمهعليعيدان 4 жыл бұрын
@@aliqusay خادم ربك اكدر اتواصل وياك ع غير برنامج لان عندي كم سؤال.
@aliqusay
@aliqusay 4 жыл бұрын
@@فاطمهعليعيدان حساباتي موجود بالقناة بقسم لمحة عن القناة ... About
@user-iw3bk2ee7d
@user-iw3bk2ee7d 3 жыл бұрын
مرحبا ممكن ترد عليه
СИНИЙ ИНЕЙ УЖЕ ВЫШЕЛ!❄️
01:01
DO$HIK
Рет қаралды 3,3 МЛН
人是不能做到吗?#火影忍者 #家人  #佐助
00:20
火影忍者一家
Рет қаралды 20 МЛН
مثال عملي عن المصفوفات
6:27
Marwa Alsafadi
Рет қаралды 1,5 М.
How I Generate UNLIMITED AI Images | FAST, EASY & FREE
9:13
Vid & Views
Рет қаралды 769
СИНИЙ ИНЕЙ УЖЕ ВЫШЕЛ!❄️
01:01
DO$HIK
Рет қаралды 3,3 МЛН