شرح برنامج متجر أجهزة الحاسب ببرنامج microsoft visual studio 2010
اسم الدرس
|
شرح برنامج متجر أجهزة الحاسب
ببرنامج microsoft visual studio 2010
|
مستوى الدرس
|
متقدم
|
اسم البرنامج
|
Microsoft Visual Studio 2010
|
رابط تحميل البرنامج
|
|
الأكواد البرمجية:
|
|
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Dim
a, b As String
a = ListBox1.Text
b = ComboBox1.Text
If a
= "حاسب محمول" And b = "LG"
Then
TextBox1.Text = "2000"
ElseIf
a = "حاسب مكتبي" And b = "HP"
Then
TextBox1.Text = "1600"
ElseIf
a = "حاسب مكتبي" And b = "TOSHIBA"
Then
TextBox1.Text = "3500"
Else
TextBox1.Text = "المنتج غير متوفر"
End If
End Sub
End Class
------------------------------ الكود البرمجي كاااامل ----------------------------- Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As String a = ListBox1.Text b = ComboBox1.Text If a = "حاسب محمول" And b = "DELL" Then TextBox1.Text = "6127" ElseIf a = "حاسب محمول" And b = "LG" Then TextBox1.Text = "6131" ElseIf a = "حاسب محمول" And b = "HP" Then TextBox1.Text = "5175" ElseIf a = "حاسب لوحي" And b = "SAMSUNG" Then TextBox1.Text = "2737" ElseIf a = "حاسب لوحي" And b = "APPLE" Then TextBox1.Text = "2906" ElseIf a = "طابعة متعددة المهام" And b = "EPSON" Then TextBox1.Text = "1631" ElseIf a = "طابعة متعددة المهام" And b = "HP" Then TextBox1.Text = "1871" ElseIf a = "حاسب مكتبي" And b = "LG" Then TextBox1.Text = "2850" ElseIf a = "حاسب مكتبي" And b = "DELL" Then TextBox1.Text = "4050" ElseIf a = "جهاز عرض" And b = "LG" Then TextBox1.Text = "7687" ElseIf a = "جهاز عرض" And b = "HP" Then TextBox1.Text = "8625" Else TextBox1.Text = "غير متوفر هذا الجهاز" End If End Sub End Class |
|
ليست هناك تعليقات :