27-04-14, 08:27 PM
مثال سريع....
كود :
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