Hallo,

mein Bascom ist ein bisschen eingerostet.

Hier habe ich 3 LDR auf dem Steckbrettboard. µC wertet brav die Werte aus.

Wie kann ich anstelle Werte Wörter (dunkel, mittel, heller) in Print ausgeben?

Code:
'LDR Helligkeit messen

$regfile = "m8def.dat"
$crystal = 16000000
$Baud = 9600

Config Adc = Single , Prescaler = Auto , Reference = Avcc

'PortC.0 = LDR1
'PortC.1 = LDR2
'PortC.2 = LDR3

Dim A As Integer
Dim B As Integer
Dim C As Integer

Start Adc

Do

A = Getadc(0)
B = Getadc(1)
C = Getadc(2)

Print "LDR1: " ; A ; " | " ; "LDR2: " ; B ; " |" ; "LDR3: " ; C

Loop
Ergebnis:
Code:
LDR1: 118 | LDR2: 23 | LDR3: 81
.
.
.
So möchte ich haben:
Code:
LDR1: heller | LDR2: dunkel | LDR3: mittel
.
.
.