| Analogausgang mit Terminal auslesen Kategorie: Programmierung Basic (von Martin - 6.05.2010 21:35) | ||
| ||
|
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 | ||
Antwort schreiben Antworten:  Grundsäzliche Frage (Analogausgang mit Terminal auslesen) (von Martin - 7.05.2010 12:35)Re: Grundsäzliche Frage (Analogausgang mit Terminal auslesen) (von Joerg - 7.05.2010 13:13)Re: Grundsäzliche Frage (Analogausgang mit Terminal auslesen) (von Martin - 7.05.2010 18:32)Re: Grundsäzliche Frage (Analogausgang mit Terminal auslesen) (von Andreas - 26.08.2010 16:15)Re: Grundsäzliche Frage (Analogausgang mit Terminal auslesen) (von Andreas - 30.08.2010 10:03)Re: Analogausgang mit Terminal auslesen (von Joerg - 7.05.2010 7:27) | ||
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum