السلام عليكم أستعمل هذا الكود في حساب الريب للحساب البريدي لكنه في معظم الحالات غير شغال
مع العلم أن الريب مكون من رقمين
الرجاء مساعدتي في تصحيحه
مع العلم أن الريب مكون من رقمين
كود :
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
الرجاء مساعدتي في تصحيحه