BASCOM bajom

[Horvath Janos]

Halihó!

>   Gondolom előjeles számként kezeli azt, amit Te előjel nélkülinek 
> gondolsz.
Nem birtam ki, kiprobaltam, hat ha meg LONG, akkor 0-t ad vissza, ami
talan rendben is van, mert
MAX "Returns the maximum value of a word array."

Ha valakinek van 1 kis ideje (es bocs a tobbiektol) ugyan futtassa
mar le ezt a tesztet:
------------------------------
$regfile = "m128def.dat"
$crystal = 14740000
Dim Ad1_tomb(10) As Word
Dim Ad_osszeg As Long
Dim Adtemp1 As Word

Ad1_tomb(1) = 35000
Ad1_tomb(2) = 39000
Ad1_tomb(3) = 32002
Ad1_tomb(4) = 37000
Ad1_tomb(5) = 35000
Ad1_tomb(6) = 36000
Ad1_tomb(7) = 35000
Ad1_tomb(8) = 34000
Ad1_tomb(9) = 35000
Ad1_tomb(10) = 35000

Eleje:
Ad_osszeg = Ad1_tomb(1) + Ad1_tomb(2)
Ad_osszeg = Ad_osszeg + Ad1_tomb(3)
Ad_osszeg = Ad_osszeg + Ad1_tomb(4)
Ad_osszeg = Ad_osszeg + Ad1_tomb(5)
Ad_osszeg = Ad_osszeg + Ad1_tomb(6)
Ad_osszeg = Ad_osszeg + Ad1_tomb(7)
Ad_osszeg = Ad_osszeg + Ad1_tomb(8)
Ad_osszeg = Ad_osszeg + Ad1_tomb(9)
Ad_osszeg = Ad_osszeg + Ad1_tomb(10)

Adtemp1 = Max(ad1_tomb(1))
Ad_osszeg = Ad_osszeg - Adtemp1
Adtemp1 = Min(ad1_tomb(1))
Ad_osszeg = Ad_osszeg - Adtemp1
Ad_osszeg = Ad_osszeg / 8
Goto Eleje
End
---------------------------------------------

Nekem ez mindig a 37000-et adja MAX-nak, a MIN eddig meg stimmel.
Koszi elore is!!!!
JAni
21:06