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



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


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