تقييم الموضوع :
  • 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
الف الف شكر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 71 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 321 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 49 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 60 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 97 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 166 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 69 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 111 18-01-17, 05:25 PM
آخر رد: dubai.eig
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 222 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 478 04-01-17, 01:12 AM
آخر رد: Namer

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


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