تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ فى التحويل من string الى int ؟
#1
السلام عليكم ورحمة الله وبركاته

أستخدم الكود التالى فى حساب درجة الغياب للموظفين

كود :
' حساب الغياب
    Private Sub tx_ghy_TextChanged(sender As Object, e As EventArgs) Handles e_ghyab_tot_tx.TextChanged
        Select Case Val(e_ghyab_tot_tx.Text)
            Case 1 : e_ghyab_deg_tx.Text = 24
            Case 2 : e_ghyab_deg_tx.Text = 20
            Case 3 : e_ghyab_deg_tx.Text = 14
            Case 4 : e_ghyab_deg_tx.Text = 6
            Case 5 : e_ghyab_deg_tx.Text = 0
            Case Else
                Dim count As Integer = 0
                Dim flag As Integer = 0
                For i As Integer = 6 To e_ghyab_tot_tx.Text
                    flag += 1
                    If flag = 1 Then
                        count += 6
                        flag = 0
                    End If
                Next
                e_ghyab_deg_tx.Text = count * -1
        End Select
    End Sub

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

كود :
e_ghyab_deg_tx.Clear
e_ghyab_tot_tx.Clear

تظهر الرسالة التالية ( الحل الذى توصلت اليه هو اننى بدلا من تفريغ التكست بوكس اكتب به 0 ) فكيف يمكن جعله فارغ لأن هذا هو المطلوب ؟


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

بدل سطر الخطأ بالأمر التالي :
كود :
For i As Integer = 6 To[COLOR=#ff0000] If(e_ghyab_tot_tx.Text.Trim = "", 0, e_ghyab_tot_tx.Text.Trim)
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#3
النوع integer معروف أنه value Type وبالتالى لابد أن يحمل قيمة لن تستطيع تخزين null كقيمة عددية حيث انه يتم تخزينه فى ال stack وهى خصيصا للانواع ذات القيمة
الرد }}}}
تم الشكر بواسطة:
#4
Osama_Ghareeb كتب :وعليكم السلام ورحمة الله وبركاته

بدل سطر الخطأ بالأمر التالي :
كود :
For i As Integer = 6 To[COLOR=#ff0000] If(e_ghyab_tot_tx.Text.Trim = "", 0, e_ghyab_tot_tx.Text.Trim)
[/COLOR]

بارك الله فيك

بس ممكن توضح لى معنى الكود كى افهمه ؟
الرد }}}}
تم الشكر بواسطة:
#5
الأمر عبارة عن جملة شرط يقوم بالتحقق ما إذا كان صندوق النص فارغ أم لا فإذا تحقق الشرط أعاد الرقم 0 وإذا لم يتحقق أعاد قيمة صندوق النص
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جلب الرابط بعد التحويل؟ | httpwebrequest | get url after redirect الماجيك مسعد 4 86 17-11-16, 08:08 AM
آخر رد: الماجيك مسعد
Lightbulb [سؤال] كود برنامج string يبحث و يحذف a_abdullah 9 153 07-11-16, 11:55 PM
آخر رد: a_abdullah
Exclamation [VB.NET] استفسار في كود string a_abdullah 11 215 07-11-16, 10:05 PM
آخر رد: a_abdullah
  [سؤال] مشكلة في كود Dim website As String sharo.azad 1 101 09-10-16, 09:59 PM
آخر رد: myalsailamy
  list of string to listview Mohamed20 2 72 17-09-16, 07:26 AM
آخر رد: Mohamed20
  مشكلة Conversion from string "1_2_3_4" to type 'UInteger' is not valid. Mohamed20 3 112 05-08-16, 04:49 PM
آخر رد: Mohamed20
  [VB.NET] كيفية وضع connection string متغير فيي target برنامج؟ Incubus 12 354 16-07-16, 12:58 PM
آخر رد: الوادي
  [VB.NET] مشكلة التحويل من byte الى string ILI 3 402 01-09-15, 12:36 PM
آخر رد: الطالب
Information التحويل إلى قاعدة بيانات أكسس Doctor GME 18 2,646 29-04-15, 08:10 PM
آخر رد: Doctor GME
  [سؤال] مشكلة عند تحويل من string الى Date زيد 4 1,026 14-03-15, 12:56 PM
آخر رد: زيد

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


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