Hallo,

hier nochmal ein Code, den du so direkt im Simulator ausprobieren kannst. Statt deinen ADC-Wert hab ich für W einfach mal den Wert 10 definiert.

Gruss, Thomas

Code:
Dim W As Word
Dim Winkel As Single
Dim Winkelgerundet As String * 10

Cls
Cursor Off

Do

   W = 10
   Winkel = W * 0.341
   Winkelgerundet = Fusing(winkel , "#.#")


   Locate 1 , 1
   Lcd "Original: " ; Winkel

   Locate 2 , 1
   Lcd "Gerundet: " ; Winkelgerundet

Loop

End