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



أبغى البرنامج إذا كتب المستخدم في TextBox1 أمر1 وفي TextBox2 أمر 2 وفي TextBox3 أمر ثالث ينفذ له الشرط
ولا يعيده للقائمه الرئسيه



ولكم جزل الشكر Heart
الرد }}}}
تم الشكر بواسطة:
#2
مثال سريع....
كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' يستدعى الدالة ويرسل لها ثلاث معطيات ويعود بالنتيجة إما صح أو خطأ ويضعه في متغير
        Dim result As Boolean = abc(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text)

        ' هل النتيجة هي صح
        If result Then
            MsgBox("تنفيذ الشرط")

        Else ' إذا النتيجة خطأ
            MsgBox("لا تنفذ الشرط")

        End If

    End Sub

    ' دالة لها ثلاث معطيات
    Private Function abc(ByVal t1 As String, ByVal t2 As String, ByVal t3 As String) As Boolean

        ' هل المعطيات لها القيم المحددة
        If t1 = "أمر1" And t2 = "أمر2" And t3 = "أمر3" Then
            Return True ' إرجاع بالنتيجة صح

        Else ' إذا كانت  المعطيات ليس لها القيم المحددة
            Return False ' إرجع بالنتيجة لا

        End If

    End Function

End Class
الرد }}}}
تم الشكر بواسطة:
#3
لماذا لم نكتبها بهذه الطريقة
كود :
[align=left]  If TextBox1.Text = "أمر 1" And TextBox2.Text = "أمر2" And TextBox3.Text = "أمر 3" Then
            MsgBox("نفذ")
        Else
            MsgBox("لا تنفذ")
        End If[/align]
أقصد لماذا الدالة ؟
الرد }}}}
تم الشكر بواسطة:
#4
إضافة بسيطة:

عندما نقارن مدخلات بهذا الاسلوب و حتي لا يحدث اخطاء في قيمة الدالة........هام جدا ان نستخدم

CultureInfo و أيضا CompareOptions

الكلاس String به الكثير من الدوال التي من الممكن استخدامها لعمل الدالة الخاصة بك


اللينك التالية...... ربما يساعدك علي توضيح الأمور و من ثم كتابة الكود بشكل افضل

CompareOptions >>>>>>Link

String.Compare>>>>>>>Link
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تصدر معلومات أكتبها في datagridview إلى أداة Tablix sniperjawadino 11 258 02-08-16, 09:23 PM
آخر رد: sniperjawadino
  مشكل في Thred جديد لتشغيل Function HTTP b4getws 4 388 22-08-15, 02:17 PM
آخر رد: b4getws
  [سؤال] ?How do I call a SQL function from ado. net emando 4 412 05-05-15, 02:26 AM
آخر رد: emando
  مشكلة ال Function ابوهديل 4 668 28-01-14, 05:31 PM
آخر رد: ابوهديل
  [سؤال] كيف نجعل الدالة (Function) تعيد اكثر من قيمة؟؟ سعود 2 819 19-10-13, 12:07 AM
آخر رد: سعود

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


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