Is (operator): Difference between revisions

From NSB App Studio
Jump to navigation Jump to search
(Created page with "''result'' = ''object1'' IS ''object2'' '''Description''' IS returns a boolean specifying if one object reference is identical to another. The required components, ''object1...")
 
No edit summary
Line 1: Line 1:
''result'' = ''object1'' IS ''object2''
''result'' = ''object1'' Is ''object2''


'''Description'''
== Description ==


IS returns a boolean specifying if one object reference is identical to another. The required components, ''object1'' and ''object2'' are two object references.
Is returns a boolean specifying if one object reference is identical to another. The required components, ''object1'' and ''object2'' are two object references.


'''Example'''
== Example''' ==
<pre>
 
REM IS Example
Rem Is Example
DIM Obj1,Obj2
Dim Obj1,Obj2
Obj1 = Array("Lovelace","Hopper","Allen")
Obj1 = Array("Lovelace","Hopper","Allen")
SET Obj2 = Obj1
Set Obj2 = Obj1
CompareObjects Obj1, Obj2
CompareObjects Obj1, Obj2
SET Obj2 = NOTHING
Set Obj2 = NOTHING
CompareObjects Obj1, Obj2
CompareObjects Obj1, Obj2
missing=6
missing=6
notmissing=7
notmissing=7
CompareObjects missing, notmissing
CompareObjects missing, notmissing
SUB CompareObjects(Ob1, Ob2)
Sub CompareObjects(Ob1, Ob2)
   IF Ob1 IS Ob2 THEN
   If Ob1 IS Ob2 THEN
     PRINT "Same"
     Print "Same"
   ELSE
   Else
     PRINT "Different"
     Print "Different"
   END IF
   End If
END SUB
End Sub
</pre>
</pre>


'''Output'''
== Output ==


<pre>
<pre>
Line 33: Line 33:
</pre>
</pre>


'''Related Items'''
== Related Items ==


[[addobject|ADDOBJECT]], [[set|SET]]
[[addobject|ADDOBJECT]], [[set|SET]]
[[Category:Language Reference]]

Revision as of 01:43, 17 August 2012

result = object1 Is object2

Description

Is returns a boolean specifying if one object reference is identical to another. The required components, object1 and object2 are two object references.

Example

Rem Is Example Dim Obj1,Obj2 Obj1 = Array("Lovelace","Hopper","Allen") Set Obj2 = Obj1 CompareObjects Obj1, Obj2 Set Obj2 = NOTHING CompareObjects Obj1, Obj2 missing=6 notmissing=7 CompareObjects missing, notmissing Sub CompareObjects(Ob1, Ob2)

 If Ob1 IS Ob2 THEN
   Print "Same"
 Else
   Print "Different"
 End If

End Sub

Output

Same
Different

Related Items

ADDOBJECT, SET