تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الكود المناسب بلفة الدوت نت
#1
Rainbow 
بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاتة

عندي كود مكتوب بلغة الاكسيس فيها التاكس بوكس الاول والتاكس بوكس الثاني اريد عنما ادخل الرقم في التاكس بوكس الاول المكون من 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
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:
#2
كود :
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 If
الرد
تم الشكر بواسطة: محمد مسافر
#3
الف الف شكر
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحكم فى لون خلفية الازرار من خلال الكود nabil.1710 6 512 03-05-22, 09:53 PM
آخر رد: nabil.1710
  السلام عليكم 2 مشكله حقل data type نوع text لو الكود اكثر من 10احرف لا يضيف ahmedhhh2 4 550 17-03-22, 12:52 AM
آخر رد: ahmedhhh2
  [كود] مساعدة في حل مشكل هذا الكود Necro PC 3 521 01-02-22, 01:12 PM
آخر رد: Necro PC
Brick [VB.NET] اختصار الكود EMADSS 1 389 12-01-22, 12:52 AM
آخر رد: أبو خالد الشكري
  رغم تنشيط Devexpress لكن مع تشغيل الكود يعطى هذه الرسالة shrarf_eg 2 446 28-12-21, 03:21 AM
آخر رد: DR.YASER
  ما هو الخطأ في هذا الكود haithammoftah 0 328 19-12-21, 09:29 PM
آخر رد: haithammoftah
  اريد عمل استعلام الكود يعمل على SQL server اريد يعمل على vb.net new_programer 17 1,262 17-12-21, 04:41 AM
آخر رد: new_programer
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 3 706 30-11-21, 07:37 AM
آخر رد: E100
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 14 1,418 30-11-21, 07:26 AM
آخر رد: E100
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 0 421 29-11-21, 06:53 PM
آخر رد: جيولوجي مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم