LOOKDOWN

From MCS Wiki AVR
Revision as of 21:16, 11 February 2013 by Admin (Talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Contents

Action

Returns the index of a series of data.

 

 

Syntax

var = LOOKDOWN( value, label, entries)

 

 

Remarks

Var

The returned index value

Value

The value to search for

Label

The label where the data starts

entries

The number of entries that must be searched

 

When you want to look in BYTE series the VALUE variable must be dimensioned as a BYTE. When you want to look in INTEGER or WORD series the VALUE variable must be dimensioned as an INTEGER.

 

The LookDown function is the counterpart of the LookUp function.

Lookdown will search the data for a value and will return the index when the value is found. It will return –1 when the data is not found.

 

 

See also

LOOKUPSTR , LOOKUP

 

 

 

Example


'-----------------------------------------------------------------------------------------
'name : lookdown.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : LOOKDOWN
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
 
Dim Idx As Integer , Search As Byte , Entries As Byte
 
'we want to search for the value 3
Search = 3
'there are 5 entries in the table
Entries = 5
 
'lookup and return the index
Idx = Lookdown(search , Label , Entries)
Print Idx
 
Search = 1
Idx = Lookdown(search , Label , Entries)
Print Idx
 
 
Search = 100
Idx = Lookdown(search , Label , Entries)
Print Idx ' return -1 if not found
 
 
'looking for integer or word data requires that the search variable is
'of the type integer !
Dim Isearch As Integer
Isearch = 400
Idx = Lookdown(isearch , Label2 , Entries)
Print Idx ' return 3
End
 
Label:
Data 1 , 2 , 3 , 4 , 5
 
Label2:
Data 1000% , 200% , 400% , 300%

Languages   English Deutsch  
Personal tools
Namespaces
Variants
Actions
Navigation
In other languages
Language