+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1641)
الكود المناسب بلفة الدوت نت - محمد مسافر - 21-01-14
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
عندي كود مكتوب بلغة الاكسيس فيها التاكس بوكس الاول والتاكس بوكس الثاني اريد عنما ادخل الرقم في التاكس بوكس الاول المكون من 9 ارقام يتحول في التاكس بوكس الثاني الرقم السري المكون من اربعة ارقام , حسب الكود الموجود في الصورة اريد تحويل وترجمة هذاء الكود او الصيغة الى لغة الدوت نت هل ممكن احد يقول لي بالكود الخاص بالعملية , وهل الكود في الاكسيس يختلف عن كود بلغة الدوت نت وشكراً احبائي الكرام .
وهذاء هو الكود في الاكسيس
Private Sub Text0_AfterUpdate()
If Left(Val(Text0.Value), 2) = "71" Then
If Len(Text0.Value) = 9 Then
Text2.Value = Left(Val((Right(Text0.Value, 4) * 2) + 2998), 4)
End If
Else
MsgBox ".ÊÃßÏ ãä ÇáÑÞã ÇáãÏÎá "
Text0.Value = ""
End If
Exit Sub
End Sub
Private Sub Text0_Change()
Text2.Value = ""
End Sub
RE: الكود المناسب بلفة الدوت نت - amgadtamer - 22-01-14
كود :
If Microsoft.VisualBasic.Left(Val(Me.TextBox1.Text), 2) = 71 Then
If Len(Me.TextBox1.Text) = 9 Then
Dim txtval As String = Val(Microsoft.VisualBasic.Right(Me.TextBox1.Text, 4) * 2) + 2998
Me.TextBox2.Text = Microsoft.VisualBasic.Left(txtval, 4)
End If
End IfRE: الكود المناسب بلفة الدوت نت - محمد مسافر - 22-01-14
الف الف شكر