+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] مشكلة في خطأ كود برمجي (/showthread.php?tid=27161)
مشكلة في خطأ كود برمجي - نورالدين32 - 29-10-18
السلام عليكم لدي مشكلة بمشروع أقوم بعمله وأنا أتعلم عن طريق كورس لاكن قمت بعملك كل شي ولا تكتمل معي ويعطين في هذه الرسالة unused local variable على متغير ولا أعرف كيف أتعامل معه
RE: مشكلة في خطأ كود برمجي - elgokr - 29-10-18
هو ليس باخطاء ولكن بتنبيه
حيث ان كلاً من COD__ و DT_COD
لا يحتوى على اى قيمة صحيحة او افتراضية
حيث ان COD__ هو من نوع Double ولكن تحتوى على قيمة 0 وهو من نوع int
وايضاً DT_COD من نوع DataTable ولكن لم يشعر بالقيمة
فى البداية يمكن تجاهل الامر واستكمال دون الاهتمام الى تلك التنبيهات
ويرجع هذا الامر بسبب اصدار الاستديو المستخدم لديك ولحل المشكلة يمكن عمل التالى
جرب ان تجعل كل منهم بهذا الشكل
كود :
Dim COD__ As Double = 0
الى
Dim COD__ As Double = Nothingوبخصوص
كود :
Dim DT_COD As New DataTable
الى
Dim DT_COD As DataTable = New DataTableتحياتى لك
وتمنياتى لك التوفيق
RE: مشكلة في خطأ كود برمجي - نورالدين32 - 29-10-18
(29-10-18, 01:01 AM)elgokr كتب :هو ليس باخطاء ولكن بتنبيهحيث ان كلاً من COD__ و DT_CODلا يحتوى على اى قيمة صحيحة او افتراضية
حيث ان COD__ هو من نوع Double ولكن تحتوى على قيمة 0 وهو من نوع intوايضاً DT_COD من نوع DataTable ولكن لم يشعر بالقيمة
فى البداية يمكن تجاهل الامر واستكمال دون الاهتمام الى تلك التنبيهاتويرجع هذا الامر بسبب اصدار الاستديو المستخدم لديك ولحل المشكلة يمكن عمل التالى
جرب ان تجعل كل منهم بهذا الشكل
كود :
Dim COD__ As Double = 0
الى
Dim COD__ As Double = Nothing
وبخصوص
كود :
Dim DT_COD As New DataTable
الى
Dim DT_COD As DataTable = New DataTable
تحياتى لكوتمنياتى لك التوفيق
أشكرك كثيراً أخي الجوكر ولاكن لم تحل المشكلة وهما مهمان بالنسبة لي وخاصة البرنامج الذي أشتغل عليه يحتاج إلى شجرة بنود والأمران سيعطيان قيمة رقمية لكل جديد وهل لو قمت بتغيير نسخة الفيجوال أستطيع التغلب على هذه المشكلة وأي نسخة تنصحني بها وهذه النسخة التي لذي 2012 والشخص بالدورة يستعمل 2010 وجزاك الله كل خير
RE: مشكلة في خطأ كود برمجي - mero5000 - 29-10-18
كما قال الاخ الجوكر هذا ليس خطأ ولكن الفيجول ينبهك انك عرفت متغير بدون ان تستخدمه
امسحه فقط لن يحدث ايرور بعد مسحه ولن ترى التحذير ايضا
RE: مشكلة في خطأ كود برمجي - نورالدين32 - 29-10-18
(29-10-18, 07:38 AM)mero5000 كتب : كما قال الاخ الجوكر هذا ليس خطأ ولكن الفيجول ينبهك انك عرفت متغير بدون ان تستخدمه
امسحه فقط لن يحدث ايرور بعد مسحه ولن ترى التحذير ايضا
شكرا أخي على ردك ولاكن أحتاج إليهم داخل البرنامج في عملية الحفظ وإدراج أرقام متسلسلة وقمت بتحميل نسخة فيجوال إستوديو 2010 ولاكن نفس التنبيه موجود
RE: مشكلة في خطأ كود برمجي - larbihamri - 29-10-18
اخي نور الدين كما قال اساتذنا هو ليس خطأ و إنما تنبيه من البرنامج
قم بالتصريح عليهم في قسم التصريحات (تحت Public Class form1) و سوف تنحل المشكلة بإذن الله
RE: مشكلة في خطأ كود برمجي - نورالدين32 - 29-10-18
(29-10-18, 04:09 PM)larbihamri كتب : اخي نور الدين كما قال اساتذنا هو ليس خطأ و إنما تنبيه من البرنامج
قم بالتصريح عليهم في قسم التصريحات (تحت Public Class form1) و سوف تنحل المشكلة بإذن الله
أشكرك كثيراً أخي علي مساعدتك ولاكن المشكل مزال قائماً هل أضع رابط الفيديو ربما أنا فاتني شي لم أفهمه ولكم جزيل الشكر
RE: مشكلة في خطأ كود برمجي - elgokr - 29-10-18
لا تحتاج الى تغيير النسخة او ما شبه
فقط قم بوضع كود الفورة هنا كاملاً
حتى يتم التعديل عليه بسيطاً وتوضيح ما تم فعله لتجنب تلك التنبيه
تحياتى لك
وتمنياتى لك التوفيق
RE: مشكلة في خطأ كود برمجي - نورالدين32 - 30-10-18
[attachment=19951][attachment=19951][attachment=19951][attachment=19951]
(29-10-18, 06:19 PM)elgokr كتب :لا تحتاج الى تغيير النسخة او ما شبه
فقط قم بوضع كود الفورة هنا كاملاًحتى يتم التعديل عليه بسيطاً وتوضيح ما تم فعله لتجنب تلك التنبيه
تحياتى لكوتمنياتى لك التوفيق
هذا الكود مع ملف السورس في المرفقات
Public Class FRM_ACCOUNT
Dim CLS_ACCOUNT_ As New CLS_ACCOUNT
Dim CLS_END_ As New CLS_END
Dim COD__ As New FRM_ACCOUNT
Private Sub FRM_ACCOUNT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
CMB_()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Sub cmb_()
Dim dt As New DataTable
dt.Clear()
dt = CLS_END_.SHOW_
CMB_END.DataSource = dt
CMB_END.ValueMember = "id"
CMB_END.DisplayMember = "name"
End Sub
Sub CREATENODE()
Dim TRN As New TreeNode
Dim DT As New DataTable
DT.Clear()
DT = CLS_ACCOUNT_.SHOW_
For I As Integer = 0 To DT.Rows.Count - 1
If DT.Rows(I)(2).ToString() = "00000000-0000-0000-0000-000000000000" Then
TRN = New TreeNode(DT.Rows(I)(1).ToString())
TRN.Tag = DT.Rows(I)(0).ToString()
TreeView1.Nodes.Add(TRN)
End If
Next
For Each NODE As TreeNode In TreeView1.Nodes
CHELD(NODE)
Next
End Sub
Sub CHELD(ByVal NODE As TreeNode)
Dim TRN As New TreeNode
Dim DT As New DataTable
DT.Clear()
DT = CLS_ACCOUNT_.SHOW_
For I As Integer = 0 To DT.Rows.Count - 1
Dim GUID_ As String = NODE.Tag
If DT.Rows(I)(2).ToString() = GUID_ Then
TRN = New TreeNode(DT.Rows(I)(1).ToString())
TRN.Tag = DT.Rows(I)(0).ToString()
NODE.Nodes.Add(TRN)
CHELD(TRN)
End If
Next
End Sub
Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
Try
CREATENODE()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub CMB_END_KeyPress(sender As Object, e As KeyPressEventArgs) Handles CMB_END.KeyPress
e.Handled = True
End Sub
Private Sub CMB_END_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMB_END.SelectedIndexChanged
End Sub
Private Sub ButtonX4_Click(ByVal sender As Object, e As System.EventArgs) Handles ButtonX4.Click
Try
Dim F As New FRM_ALL_ACCOUNT
F.ShowDialog()
If F.IS_YES = True Then
Dim I As Integer = F.DGV.CurrentRow.Index
TXT_GUID_PARENT.Text = F.DGV.Rows(I).Cells(0).Value.ToString()
TXT_PARENT.Text = F.DGV.Rows(I).Cells(1).Value.ToString()
TXT_CODE_PARENT_GUIDE.Text = F.DGV.Rows(I).Cells(3).Value.ToString()
End If
Catch ex As Exception
End Try
End Sub
Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
Try
If TXT_NAME.Text = Nothing Then
MessageBox.Show("يجب إدخال إسم الحساب", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'------------------------------------------------------------------------
If TXT_GUID_PARENT.Text = Nothing Then
MessageBox.Show("يجب إدخال الحساب الرئيسي", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'------------------------------------------------------------------------
Dim DT As New DataTable
DT.Clear()
DT = CLS_ACCOUNT_.SEARCH_NAME(TXT_NAME.Text)
If DT.Rows.Count > 0 Then
MessageBox.Show("الإسم موجود من قبل", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
'------------------------------------------------------------------------
Dim COD__ As Double = 0
Dim DT_COD As New DataTable
DT_COD.Clear()
DT_COD = CLS_ACCOUNT_.COD_(TXT_GUID_PARENT.Text)
If DT_COD.Rows.Count > 0 Then
COD__ = Val(DT_COD.Rows(0)(0).ToString())
End If
If COD__ = "0" Then
COD__ = Val(TXT_CODE_PARENT_GUIDE.Text) + 10001
End If
'------------------------------------------------------------------------
CLS_ACCOUNT_.ADD_(TXT_NAME.Text, TXT_GUID_PARENT.Text, Val(COD__), Convert.ToInt32(CMB_END.SelectedValue))
MessageBox.Show("تمت عملية الحفظ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class
RE: مشكلة في خطأ كود برمجي - asemshahen5 - 30-10-18
ممكن سكربت الجدول مع بعض السجلات بتاع الفورم