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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب مبرمج محترف يقوم بكتابة الكود التالي mohamedgadain61 0 0 أمس, 05:01 PM
آخر رد: mohamedgadain61
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,476 12-02-18, 06:37 PM
آخر رد: رمضان محمد
  ما سبب ظهور هذه الرسالة عند التعامل مع ReportViewer في الدوت نت ؟ KH_Alaswad 2 0 09-02-18, 09:25 AM
آخر رد: KH_Alaswad
  [VB.NET] ما هو الكود الذي ينفذ زر امر علي نموذج اخر بزر امر السيد الجوهري 1 0 08-02-18, 08:10 PM
آخر رد: محمد كريّم
  [VB.NET] مساعدة فى تركيب الكود MOSTAFA.KAMEL 21 1 05-02-18, 04:39 PM
آخر رد: MOSTAFA.KAMEL
  الكود مع انه بسيط لكن هلكني وما زبط nooralcown 3 0 03-02-18, 11:54 PM
آخر رد: محمود صالح
  [كود] ارجو المساعدة في تعديل الكود saad mahyoub 0 0 31-01-18, 10:54 PM
آخر رد: saad mahyoub
  [نقاش] عندي مشكلة فى الكود الموجود داخل الموضوع وسام عبدالله الدمرداش 2 1 29-01-18, 03:41 PM
آخر رد: وسام عبدالله الدمرداش
  [VB.NET] هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 5 78 26-01-18, 10:42 PM
آخر رد: Basil Abdallah
  المساعده في تحويل الكود VB.NET 3 69 20-01-18, 09:12 PM
آخر رد: HASAN6.0

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


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