[ahmedfa71]

السلام عليكم أستعمل هذا الكود في حساب الريب للحساب البريدي لكنه في معظم الحالات غير شغال
مع العلم أن الريب مكون من رقمين

كود :

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

الرجاء مساعدتي في تصحيحه

[ahmedfa71]

السلام عليكم تم إيجاد الحل

كود :

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

هل هنالك إمكانية تحويله إلى دالة
وبارك الله فيكم

[abubasilIraq]

كود :

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

[ahmedfa71]

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

[asemshahen5]

ضع هذا في موديول :

PHP كود :

   Public Function ribfunc(TextBoxXT As String) As String
        Try
            Dim x, y, RIB As String
            x = ((Val(TextBoxXT) * 100 Mod 97)) + 85
            If (x > 97) Then
                y = x - 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) 


[ahmedfa71]

بارك الله فيك أخي عاصم
الدالة شغالة
والشكر كذلك للأخ أبوباسل
شكرا لكم جميعا

[asemshahen5]

الحمد الله و الشكر الله رب العالمين .