в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:54:01Z

1 версия

Новая страница

==Logical operator: And==

<source lang="vbnet">Module Tester
Sub Main()
Console.WriteLine("And" & vbCrLf & vbCrLf & _
"False And False: " & (False And False) & vbCrLf & _
"False And True: " & (False And True) & vbCrLf & _
"True And False: " & (True And False) & vbCrLf & _
"True And True: " & (True And True))
End Sub
End Module</source>
<pre class=codeResult>And
False And False: False
False And True: False
True And False: False
True And True: True</pre>

==Logical operator: AndAlso==

<source lang="vbnet">Module Tester
Sub Main()
Console.WriteLine("AndAlso" & vbCrLf & vbCrLf & _
"False AndAlso False: " & (False AndAlso False) & _
vbCrLf & "False AndAlso True: " & _
(False AndAlso True) & vbCrLf & _
"True AndAlso False: " & (True AndAlso False) & _
vbCrLf & "True AndAlso True: " & (True AndAlso True))
End Sub
End Module</source>
<pre class=codeResult>AndAlso
False AndAlso False: False
False AndAlso True: False
True AndAlso False: False
True AndAlso True: True</pre>

==Logical operator: Not==

<source lang="vbnet">Module Tester
Sub Main()
Console.WriteLine("Not" & vbCrLf & vbCrLf & _
"Not False: " & (Not False) & vbCrLf & "Not True: " & _
(Not True))
End Sub
End Module</source>
<pre class=codeResult>Not
Not False: True
Not True: False</pre>

==Logical operator: Or==

<source lang="vbnet">Module Tester
Sub Main()
Console.WriteLine("Or" & vbCrLf & _
vbCrLf & "False Or False: " & (False Or False) & _
vbCrLf & "False Or True: " & (False Or True) & _
vbCrLf & "True Or False: " & (True Or False) & _
vbCrLf & "True Or True: " & (True Or True))
End Sub
End Module</source>
<pre class=codeResult>Or
False Or False: False
False Or True: True
True Or False: True
True Or True: True</pre>

==Logical operator: OrElse==

<source lang="vbnet">Module Tester
Sub Main()
Console.WriteLine("OrElse" & vbCrLf & vbCrLf & _
"False OrElse False: " & (False OrElse False) & _
vbCrLf & "False OrElse True: " & (False OrElse True) & _
vbCrLf & "True OrElse False: " & (True OrElse False) & _
vbCrLf & "True OrElse True: " & (True OrElse True))
End Sub
End Module</source>
<pre class=codeResult>OrElse
False OrElse False: False
False OrElse True: True
True OrElse False: True
True OrElse True: True</pre>

==Logical operator: Xor==

<source lang="vbnet">Module Tester
Sub Main()
Console.WriteLine("Xor" & vbCrLf & _
vbCrLf & "False Xor False: " & (False Xor False) & _
vbCrLf & "False Xor True: " & (False Xor True) & _
vbCrLf & "True Xor False: " & (True Xor False) & _
vbCrLf & "True Xor True: " & (True Xor True))
End Sub
End Module</source>
<pre class=codeResult>Xor
False Xor False: False
False Xor True: True
True Xor False: True
True Xor True: False</pre>

==Use Logic operator Or to link two functions==

<source lang="vbnet">Module LogicTest
Sub Main()
Dim x As Integer = 1
Dim y As Integer = 1
If A(x) Or B(y) Then
Console.WriteLine("x= " & CStr(x) & ", y = " & CStr(y))
End If
If A(x) OrElse B(y) Then
Console.WriteLine("x= " & CStr(x) & ", y = " & CStr(y))
End If
End Sub
Function A(ByVal v1 As Integer) As Boolean
Return True
End Function
Function B(ByVal v1 As Integer) As Boolean
Return True
End Function
End Module</source>
<pre class=codeResult>x= 1, y = 1
x= 1, y = 1</pre>

==Use logic operators in If statement: Not, And, Or==

<source lang="vbnet">Module Module1
Sub Main()
Dim A As Boolean = False
Dim B As Boolean = True
Dim C As Boolean = True
If (Not A) Then
Console.WriteLine("Not A")
End If
If (B Or C) Then
Console.WriteLine("B Or C")
End If
If (B And C) Then
Console.WriteLine("B And C")
End If
End Sub
End Module</source>
<pre class=codeResult>Not A
B Or C
B And C</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Operator/Logical operators - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия