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
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
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
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
Dein Beitrag wäre aber im Bascom Forum besser aufgehoben.
Gruß RePi!
*** Holzhacken ist deshalb so beliebt, weil man bei dieser Tätigkeit den Erfolg sofort sieht. ***
*** (Albert Einstein) ***
Lesezeichen