Basic-Programmieren (Bascom)

[leandro]

Hallo zusammen,
ich möchte auf der unteren zeile eines lcd den minimalwert eines AD-Konverter ausgeben. auf der oberen, den aktuellen wert.
Die auskommentierten Teile des Programms (Max.Wertspeicherung)
funktionieren.
Die Minimalwertspeicherung jedoch nicht.. Kann mir jemand einen
Tip geben wo der Fehler liegt??

------------------------------------------------------------------------------
Dim W As Word
Dim Maxi As Word
Dim Mini As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Do

W = Getadc(0)

'If W > Maxi Then
'Maxi = W
'End If

If W < Mini Then
Mini = W
End If

Waitms 300
Cls

Lcd W

'Lowerline
'Lcd Maxi

Lowerline
Lcd Mini

Loop
End
Return
-----------------------------------------------------------

Es wird nur eine "0" unten dargestellt und oben der aktuelle Wert..

Grüße
Leandro

[Mosi]

du solltest mini und maxi zuallererst einen Wert zuweisen, möglichst einen, der in jedem Fall über- bzw. unterschritten wird. Die Zeile if W<mini kann nicht klappen, da Mini erstmal null ist, kann W auch nicht kleiner werden.
Gruß, Rene

[leandro]

Hi rene,
danke für die schnelle antwort.. habe mini 1024 zugewiesen und jetzt
klappts.. bin aber selber nicht drauf gekommen

grüße aus dem harz

[repi64]

Dein Beitrag wäre aber im Bascom Forum besser aufgehoben.