Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum
Re: Analogausgang mit Terminal auslesen Kategorie: Programmierung Basic (von Joerg - 7.05.2010 7:27)
Als Antwort auf Analogausgang mit Terminal auslesen von Martin - 6.05.2010 21:35
Ich nutze:
C-Control Pro Mega128
> Hallo
> Ich versuche einen Analogausgang auszulesen und auf dem Terminal auszugeben, erhalte aber nur
> irgendwelche komischen Zeichen. Hat jemand von euch eine Idee?
> Danke für eure Hilfe
>
>
>
>
> Sub main()
>
>     Dim ADC_Wert As Word                      ' Variablen für eingelesenen Wert
>
>     Dim Limit As Word                              ' Minimalwert für Anzeige
>
>     ADC_Set(ADC_VREF_VCC, ADC0)      ' Kanal, Referenzspannung 5 V
>
>     Limit=100                        ' Grenzwerts
>
>     Do While 1
>
>     ADC_Wert=ADC_Read()                        ' einlesen
>
>         If ADC_Wert>Limit Then ausgeben (ADC_Wert)
>
>         End If
>
>      End While
>
> End Sub
>
> Sub ausgeben(ADC_Wert As Word)
>
>          Dim c As Integer
>
>          Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD19200)
>                                                           'Init RS232: 19200 bps, 8 Bit, 1 Stop, NP
>
>          Serial_Write(0,ADC_Wert)           'Wertzur seriellen Schnittstelle senden
>
>          Serial_Write(0,c)                         'Zeichen ausgeben
>
>          AbsDelay(500)                            '500 ms warten
>
> End Sub
>
>

Hallo Martin,

Du must den ADC_Wert erst einmal in ASCII wandeln.

In C mach ich das so:

char IO_Text[10];

Str_Printf(IO_Text,"%d",value);
Serial_WriteText(SERIAL,IO_Text);

Grü�e Jörg

    Antwort schreiben

Antworten: