تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عدم إشتغال هذا الكود في معظم الحالات
#1
السلام عليكم أستعمل هذا الكود في حساب الريب للحساب البريدي لكنه في معظم الحالات غير شغال
مع العلم أن الريب مكون من رقمين

كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Try
           Dim x, y, RiB As String
           x = (Val(TextBox1.Text) * 100 Mod 97) + 85
           If (x > 97) Then
               y = x - 97
               RiB = y
           Else
               y = x
               RiB = 97 - y
               TextBox3.Text = RiB
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
End Class

الرجاء مساعدتي في تصحيحه
الرد
تم الشكر بواسطة: asemshahen5
#2
السلام عليكم تم إيجاد الحل
كود :
Try
           Dim x, y, RiB As String
           x = ((Val(TextBox1.Text) * 100 Mod 97)) + 85
           If (x > 97) Then
               y = x - 97
               RiB = Format(97 - y, "00")
               TextBox3.Text = RiB
           Else
               y = x
               RiB = Format(97 - y, "00")
               TextBox3.Text = RiB
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
هل هنالك إمكانية تحويله إلى دالة
وبارك الله فيكم
الرد
تم الشكر بواسطة: asemshahen5
#3
كود :
Function ribfunc (RIB) as string
Try
          Dim x, y, RiB As String
          x = ((Val(TextBox1.Text) * 100 Mod 97)) + 85
          If (x > 97) Then
              y = x - 97
              RiB = Format(97 - y, "00")
          Else
              y = x
              RiB = Format(97 - y, "00")
          End If
      Catch ex As Exception
          MessageBox.Show(ex.Message)
      End Try

End function
الرد
تم الشكر بواسطة: asemshahen5
#4
بارك الله فيك أخي أبوباسل على الرد
ولكن كيف يتم إستدعائها إذا كانت متعلقة بتسمية التيكست بوكس1
x = ((Val(TextBox1.Text) * 100 Mod 97)) + 85
في هذه الحالة يجب في كل مرة تغيير تسمية TextBox1.Tex
الرد
تم الشكر بواسطة: asemshahen5
#5
ضع هذا في موديول :

PHP كود :
   Public Function ribfunc(TextBoxXT As String) As String
        Try
            Dim x
yRIB As String
            x 
= ((Val(TextBoxXT) * 100 Mod 97)) + 85
            If 
(97Then
                y 
97
                RIB 
Format(97 y"00")
 
               Return RIB
            Else
                y 
x
                RIB 
Format(97 y"00")
 
               Return RIB
            End 
If
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
           Return Nothing
        End 
Try
 
   End Function 

طريقة الاستخدام :

PHP كود :
TextBox2.Text ribfunc(TextBox1.Text
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة:
#6
بارك الله فيك أخي عاصم
الدالة شغالة
والشكر كذلك للأخ أبوباسل
شكرا لكم جميعا
الرد
تم الشكر بواسطة: asemshahen5
#7
الحمد الله و الشكر الله رب العالمين .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 2 53 , 01:09 AM
آخر رد: محمد مسافر
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 45 21-09-20, 12:27 AM
آخر رد: Anas Mahmoud
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 108 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 101 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 933 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  [سؤال] خطأ في التنفيذ الكود بعد فلترة dataGridView محمد العامر 2 217 20-08-20, 01:38 PM
آخر رد: محمد العامر
  [مشروع] هلا ساعدتموني في اكتشاف الخطأ في الكود gharib 6 298 18-08-20, 03:45 PM
آخر رد: gharib
  [كود] اريد التعديل على الكود وهو عدم التكرار عمور2016 3 257 23-07-20, 01:03 AM
آخر رد: عبد العزيز البسكري
  هذا الكود غلبني المهنا 2 283 19-07-20, 12:12 AM
آخر رد: المهنا
  [سؤال] منين او ازاى اجيب الكود الخاص بالصورة دى mostafa nada 1 217 13-07-20, 10:16 PM
آخر رد: DR.YASER

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


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