03-11-18, 11:25 AM
(آخر تعديل لهذه المشاركة : 03-11-18, 11:30 AM {2} بواسطة larbihamri.)
قم اولا بعمل Imports System.Text.RegularExpressions
هذا الكود لفصل الارقام عن الحروف
ثم نقوم بعملية الطرح
هذا الكود لفصل الارقام عن الحروف
كود :
Dim x = Regex.Replace(Textbox2.Text, "\D", "")ثم نقوم بعملية الطرح
كود :
Dim y As Integer = TextBox1.Text
Dim z = y - x
MsgBox(z)