+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=33073)
عدم إشتغال هذا الكود في معظم الحالات - ahmedfa71 - 21-01-20
السلام عليكم أستعمل هذا الكود في حساب الريب للحساب البريدي لكنه في معظم الحالات غير شغال
مع العلم أن الريب مكون من رقمين
كود :
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الرجاء مساعدتي في تصحيحه
RE: عدم إشتغال هذا الكود في معظم الحالات - ahmedfa71 - 21-01-20
السلام عليكم تم إيجاد الحل
كود :
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وبارك الله فيكم
RE: عدم إشتغال هذا الكود في معظم الحالات - abubasilIraq - 21-01-20
كود :
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 functionRE: عدم إشتغال هذا الكود في معظم الحالات - ahmedfa71 - 22-01-20
بارك الله فيك أخي أبوباسل على الرد
ولكن كيف يتم إستدعائها إذا كانت متعلقة بتسمية التيكست بوكس1
x = ((Val(TextBox1.Text) * 100 Mod 97)) + 85
في هذه الحالة يجب في كل مرة تغيير تسمية TextBox1.Tex
RE: عدم إشتغال هذا الكود في معظم الحالات - asemshahen5 - 22-01-20
ضع هذا في موديول :
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)
RE: عدم إشتغال هذا الكود في معظم الحالات - ahmedfa71 - 22-01-20
بارك الله فيك أخي عاصم
الدالة شغالة
والشكر كذلك للأخ أبوباسل
شكرا لكم جميعا
RE: عدم إشتغال هذا الكود في معظم الحالات - asemshahen5 - 22-01-20
الحمد الله و الشكر الله رب العالمين .