'Das Programm multipliziert den AD-Wandler-Inhalt mit 1,4 und gibt ihn seriell aus '---------------------------------------------------------- $regfile = "m8def.dat" 'ATmega8-Deklarationen $crystal = 3686400 'Quarz: 3,6864 MHz $baud = 9600 'Baudrate zum PC: 9600 Baud ' Ddrc = &B00000000 'PC7...PC0=0: PortC-Pins auf Eingang Admux = &B01100000 'Bits7+6=01: Aref ist intern verbunden 'Bit5=1: LeftAdjust, nur 8 Bit in ADCH 'Bits3...0=0000: Pin ADC0 wählen Adcsra = &B11100111 'Bit7=1:AdcOn,Bit6=1:Start,Bit5=1:Freilauf 'Bits2+1+0=111: AdcClock=AvrClock/128 Dim Ergebnis As Single Dim Erwin As Integer '---------------------------------------------------------- Do Erwin = Adch 'Hauptschleife Ergebnis = Erwin * 1.4 Udr = Ergebnis 'in den Uart zum Senden Waitms 1 'Datenmenge etwas begrenzen Loop