MIN

Action

Returns the minimum value of a byte or word array.

 

 

Syntax

var1 = MIN(var2)

MIN(ar(1), m , idx)

 

 

Remarks

var1	Variable that will be assigned with the minimum value.
var2	The first address of the array.
	The MIN statement can return the index too
Ar(1)	Starting element to get the minimum value and index of
M	Returns the minimum value of the array
Idx	Return the index of the array that contains the minimum value. Returns 0 if there is no minimum value.

 

The MIN() ans MAX() functions work on BYTE and WORD arrays only.

 

 

See also

MAX

 

 

Example

'-----------------------------------------------------------------------------------------
'name : minmax.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show the MIN and MAX functions
'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
 
 
' These functions only works on BYTE and WORD arrays at the moment !!!!!
 
'Dim some variables
Dim Wb As Byte , B As Byte
Dim W(10) As Word ' or use a BYTE array
 
'fill the word array with values from 1 to 10
For B = 1 To 10
W(b) = B
Next
 
Print "Max number " ; Max(w(1))
Print "Min number " ; Min(w(1))
 
Dim Idx As Word , M1 As Word
Min(w(1) , M1 , Idx)
Print "Min number " ; M1 ; " index " ; Idx
 
Max(w(1) , M1 , Idx)
Print "Max number " ; M1 ; " index " ; Idx
End

Languages	English • Deutsch