so ungefähr:
Code:
'so einfach geht das mit dem adc...
'(c) uwegw featuring Bascom helpfile...

  $regfile = "m8def.dat"
  $crystal = 16000000
  Dim W As Word

  Config Adc = Single , Prescaler = Auto                    'einstellen
  Start Adc                                                 'wichtig: aktivieren!!!

  Do

  W = Getadc(0)                                             'wert von kanal null (wir zählen ab null durch!!!) in A packen...
  Print "ADC-Wert: " ; W                                    '...und über RS232 rausgeben...
  Waitms 500                                                'pause zum mitschreiben...

  Loop

  End
an vref muss noch ne referenzspannung angesclossen werden... am einfachsten direkt an 5V gehen...