Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Re: Wert von Analogeingang auf Display anzeigen Kategorie: CC-Pro Unit & Appl.Board (von uwe - 20.11.2006 23:32)
Als Antwort auf Wert von Analogeingang auf Display anzeigen von Christoph - 8.11.2006 11:35
Ich nutze:
C-Control Pro Mega32, eigenes Board
' 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


    Antwort schreiben


Antworten: