MAX/de

Funktion

Gibt den Maximum-Wert eines Byte- oder Word-Arrays zurück.

 

 

Syntax

var1 = MAX(var2)

MAX(ar(1), m ,idx)

 

 

Anmerkungen

var1	Variable der der Maximum-Wert zugewiesen wird.
var2	Startadresse des Arrays.
	Der MAX-Befehl kann auch den Indes zurückgeben
ar(1)	Startadresse des Arrays von dem das Maximum bestimmt werden soll.
m	Gibt den Maximum-Wert des Arrays zurück.
idx	Gibt den Index des Arrayelementes mit dem größten Wert zurück. Gibt eine 0 zurück wenn es mein Maximum gibt.

 

Die MIN() und MAX() Funktionen funktionieren nur mit BYTE- und WORD-Arrays.

 

 

Siehe auch

MIN

 

 

Beispiel

'-----------------------------------------------------------------------------------------
'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" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$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
 
 
' Diese Funktionen arbeiten nur mit BYTE- und WORD-Arrays !!!!!
 
'Dim some variables
Dim Wb As Byte , B As Byte
Dim W(10) As Word ' oder benutzen Sie ein Byte-Array
 
'Füllen des Word-Arrays mit Werten von 1 bis 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