Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > ' Hauptprogramm > Dim ADC_Wert, ADC_Wert_alt As Word > Dim ADC_Spg As Single > Dim text(8), textx As Char > Dim channel As Integer > > Sub main() > LCD_Init() ' Display initialisieren > LCD_ClearLCD() ' Display löschen > LCD_CursorOff() ' Display Cursur ausschalten > > Do While 1 > > LCD_CursorPos(0) > LCD_ClearLCD() > channel=0 > Do > ADC_Set(ADC_VREF_VCC,channel) > ADC_Wert = ADC_Read() ' // Werte von 0 - 1023 > ADC_Spg = (ADC_Wert*4.927)/1000' // VCC 5.045V / 1024 = 4.927 > > Str_WriteFloat(ADC_Spg, 2, text, 0) ' // ADC_Spg in einen String umwandeln > LCD_CursorOff() ' Display Cursur ausschalten > LCD_CursorPos(0x00)' > LCD_WriteText(text)' > LCD_WriteChar(0x56)' // " V " > ADC_Wert_alt = ADC_Wert' > > AbsDelay(300) ' Verzögerung um 300ms > channel=channel+1 > > Loop While channel<1 > > End While > End Sub > > > Ich habe das am Conradboard mit Erfolg an AD Eingang 0 getsetet. > > Zur besseren Verwendung von ATMEL Prozessoren empfehle ich: > STK500 Board ca 80€ > BASCOM Basic ca 90€ oder Freeware > das Buch: Programmieren der AVR RISC Mikrocontroller mit BASCOM-AVR ISBN:3-907857-04-6