Code:
$regfile = "m32def.dat"
$crystal = 16000000

Config Adc = Single , Prescaler = Auto
Config Portb = Output
Config Portc = Output

Portc.0 = 1
Portc.1 = 1
Portc.2 = 1
Portc.3 = 1
Portc.4 = 1
Portc.5 = 1
Portc.6 = 1
Portc.7 = 1

DIM einer AS BYTE
DIM komma AS BYTE
DIM zehntel AS BYTE
Dim Strg As String * 6 At Einer Overlay
Dim X As Word
Dim Volt As Single

$const faktor  = 5 / 1024  ' feste werte soll gleich der kompiler ausrechnen

       Start Adc

Do
       X = Getadc(0)
      Volt = X                        ' umwandeln in gleitkomma
      Volt = Volt * faktor               
 
      Strg = Str(volt)  
      einer = einer AND &H0F    '  aus ascii wird  &H00-&H05

      select case einer
      case 0:        'pin setzen für 0
      case 1:        'pin setzen für 1
      case 2:        'pin setzen für 2
      case 3:        'pin setzen für 3
      case 4:        'pin setzen für 4
      case else:    'pin setzen für was weiss der Teufel
      end select
Loop
End
Bei deinen Segment-Pins blick' ich jetzt nicht durch, aber das ist ja nicht das Problem