29-03-15, 06:30 PM
(آخر تعديل لهذه المشاركة : 29-03-15, 06:33 PM {2} بواسطة انجي عبدالله.)
السلام عليكم انا لسه مبتدئه في الفيجوال بيسك وواجهتي مشاكل في البرنامج اللي انا اعمله
المشكله الاولى :::معي تكست بوكس رقم الحارة ولست بوكس باسماء الحارات ,,اذا اخترت الرقم في التكست يظهر لي تلقائيا اسم الحاره وعملتها بقاعدة if والحمد لله ضبطت معي بس اذا اخترت الحاره مايتغير رقم الحاره يعني العمليه لم تجح معي بالعكس ايضا
المشكلة الثانيه هي case مابتطبق معي وعملتها بنفس الفكره السابقه يعني تكت بوكس في الرقم واللست بوكس فيه الحاله وحطيت الكود التالي في التكست بوكس
اتمنى المساعده من حضراتكم لاني لسه مبتدئه في الفيجوال بيسك واللي اشتغل فيه هو تبع الفيجوال ستوديو 1012
المشكله الاولى :::معي تكست بوكس رقم الحارة ولست بوكس باسماء الحارات ,,اذا اخترت الرقم في التكست يظهر لي تلقائيا اسم الحاره وعملتها بقاعدة if والحمد لله ضبطت معي بس اذا اخترت الحاره مايتغير رقم الحاره يعني العمليه لم تجح معي بالعكس ايضا
المشكلة الثانيه هي case مابتطبق معي وعملتها بنفس الفكره السابقه يعني تكت بوكس في الرقم واللست بوكس فيه الحاله وحطيت الكود التالي في التكست بوكس
Dim x As Integer
Private Sub TextBox38_TextChanged(sender As Object, e As EventArgs) Handles TextBox38.TextChanged
(x = Val(TextBox38.Text
Select Case
Case 1
ListBox2.Text = "منزل\بيت مستقل"
Case 2
ListBox2.Text = "شقه"
Case 3
ListBox2.Text = " منشأة مسكونة"
Case 4
ListBox2.Text = " صندقة"
Case 5
ListBox2.Text = " سكن جماعي\فئات خاصة"
End Select
End Sub
المشكلة الثالثة ::لما اعمل RadioButton او CheckBox عاوزه البيانات اللي تتخزن في الداتا بيس انا احددها مش true & checked.Private Sub TextBox38_TextChanged(sender As Object, e As EventArgs) Handles TextBox38.TextChanged
(x = Val(TextBox38.Text
Select Case
Case 1
ListBox2.Text = "منزل\بيت مستقل"
Case 2
ListBox2.Text = "شقه"
Case 3
ListBox2.Text = " منشأة مسكونة"
Case 4
ListBox2.Text = " صندقة"
Case 5
ListBox2.Text = " سكن جماعي\فئات خاصة"
End Select
End Sub
اتمنى المساعده من حضراتكم لاني لسه مبتدئه في الفيجوال بيسك واللي اشتغل فيه هو تبع الفيجوال ستوديو 1012