' Beispiel FFT für SerialComInstruments ' avr.device = atmega168p avr.clock = 22118400 avr.stack = 100 uart.baud = 460800 uart.Send.enable #Library "Library/Adc.interface" adc.enable adc.clock = 64 adc.mode = single adc.reference = avcc Adc.Channel = 0 Avr.Interrupts.Enable portb.0.mode = output Dim Wert as Word Dim s as string do Wert = Adc.Value s = "#59M" + str(Wert) + "<" Print s; loop