windows 8
New member
آلسلآم عليكمُ ورحمة آلله وبركآتة
أليوم جـآيب لكم طريقه انشآء اله حآسبه
بطريقه مختلفه عن الي شفتهـآ بالمنتديات
طبعـآ لا احد ينقدني لاني مـآلي اسبوع جـآلس اتعلم
الفيجول بيسك دوت نت , فـ اخذتهـآ من منطق اذا تعلمت علم علم النـآس به
مالكم بالطويله نبدآ !
| ---------------------------------------------------------------------|
المتطلبآت بتصميم الوآجهه : Label1 +TextBox2 + Button1 + ComboBox1
Label الباقيات للزينه اما الي الشغل عليه هو الي عليه عبارت الناتج
الان نذهب لـ Button دبل كلك
ونضيف الاكوآد
اقتباس:
Dim x As Integer
Dim xx As Integer
x = TextBox1.Text
xx = TextBox2.Text
Select Case ComboBox1.Text
Case "جمع"
Label3.Text = x + xx
Case "ظرب"
Label3.Text = x * xx
Case "قسمه"
Label3.Text = x \ xx
Case "طرح"
Label3.Text = x - xx
| ---------------------------------------------------------------------|
الى هنـآ اكون انتهيت من الشرح
اتمنى يكون واضح وسهل
أحترامي لكم !
أليوم جـآيب لكم طريقه انشآء اله حآسبه
بطريقه مختلفه عن الي شفتهـآ بالمنتديات
طبعـآ لا احد ينقدني لاني مـآلي اسبوع جـآلس اتعلم
الفيجول بيسك دوت نت , فـ اخذتهـآ من منطق اذا تعلمت علم علم النـآس به
مالكم بالطويله نبدآ !
| ---------------------------------------------------------------------|
المتطلبآت بتصميم الوآجهه : Label1 +TextBox2 + Button1 + ComboBox1
Label الباقيات للزينه اما الي الشغل عليه هو الي عليه عبارت الناتج
الان نذهب لـ Button دبل كلك
ونضيف الاكوآد
اقتباس:
Dim x As Integer
Dim xx As Integer
x = TextBox1.Text
xx = TextBox2.Text
Select Case ComboBox1.Text
Case "جمع"
Label3.Text = x + xx
Case "ظرب"
Label3.Text = x * xx
Case "قسمه"
Label3.Text = x \ xx
Case "طرح"
Label3.Text = x - xx
| ---------------------------------------------------------------------|
الى هنـآ اكون انتهيت من الشرح
اتمنى يكون واضح وسهل
أحترامي لكم !
التعديل الأخير بواسطة المشرف:
