تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] مشكلة في خطأ كود برمجي
#1
السلام عليكم لدي مشكلة بمشروع أقوم بعمله وأنا أتعلم عن طريق كورس لاكن قمت بعملك كل شي ولا تكتمل معي ويعطين في هذه الرسالة unused local variable على متغير ولا أعرف كيف أتعامل معه

الرد }}}
تم الشكر بواسطة:
#2
هو ليس باخطاء ولكن بتنبيه
حيث ان كلاً من 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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#3
(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 وجزاك الله كل خير
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
كما قال الاخ الجوكر هذا ليس خطأ ولكن الفيجول ينبهك انك عرفت متغير بدون ان تستخدمه
امسحه فقط لن يحدث ايرور بعد مسحه ولن ترى التحذير ايضا
الرد }}}
#5
(29-10-18, 07:38 AM)mero5000 كتب : كما قال الاخ الجوكر هذا ليس خطأ ولكن الفيجول ينبهك انك عرفت متغير بدون ان تستخدمه
امسحه فقط لن يحدث ايرور بعد مسحه ولن ترى التحذير ايضا


شكرا أخي على ردك ولاكن أحتاج إليهم داخل البرنامج في عملية الحفظ وإدراج أرقام متسلسلة وقمت بتحميل نسخة فيجوال إستوديو 2010 ولاكن نفس التنبيه موجود
الرد }}}
تم الشكر بواسطة:
#6
اخي نور الدين كما قال اساتذنا هو ليس خطأ و إنما تنبيه من البرنامج 
قم بالتصريح عليهم في قسم التصريحات (تحت Public Class form1) و سوف تنحل المشكلة بإذن الله
الرد }}}
تم الشكر بواسطة: نورالدين32
#7
(29-10-18, 04:09 PM)larbihamri كتب : اخي نور الدين كما قال اساتذنا هو ليس خطأ و إنما تنبيه من البرنامج 
قم بالتصريح عليهم في قسم التصريحات (تحت Public Class form1) و سوف تنحل المشكلة بإذن الله

أشكرك كثيراً أخي علي مساعدتك ولاكن المشكل مزال قائماً هل أضع رابط الفيديو ربما أنا فاتني شي لم أفهمه ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#8
لا تحتاج الى تغيير النسخة او ما شبه

فقط قم بوضع كود الفورة هنا كاملاً
حتى يتم التعديل عليه بسيطاً وتوضيح ما تم فعله لتجنب تلك التنبيه

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة , نورالدين32
#9

.rar   ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 31)
.rar   ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 31)
.rar   ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 31)
.rar   ACC_TEST.rar (الحجم : 1.39 م ب / التحميلات : 31)
(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
الرد }}}
تم الشكر بواسطة:
#10
ممكن سكربت الجدول مع بعض السجلات بتاع الفورم
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم