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 > > > > Dim wert1, wert2 As Single > > > > Dim zeile1(10) As Char > > > > Dim zeile2(10) As Char > > > > > > > > Sub main() > > > > LCD_Init() > > > > LCD_ClearLCD() > > > > LCD_CursorOff() > > > > > > > > zeile1=" 0.00" > > > > zeile2=" 0.00" > > > > Do While (True) > > > > ADC_Set(ADC_VREF_VCC,0) > > > > wert1 = ADC_Read()*5.0/1024.0 > > > > ADC_Set(ADC_VREF_VCC,1) > > > > wert2 = ADC_Read()*5.0/1024.0 > > > > Ausgabe() > > > > > > > > AbsDelay(500) > > > > End While > > > > End Sub > > > > > > > > Sub Ausgabe() > > > > Dim einheit(3) As Char > > > > einheit = " V" > > > > If wert1>4.99 Then > > > > zeile1=" HHHH" > > > > Else > > > > Str_WriteFloat(wert1,2,zeile2,1) !!!!Du hast zwei Mal zeile2!!! > > > > End If > > > > > > > > If wert2>4.99 Then > > > > zeile2=" HHHH" > > > > Else > > > > Str_WriteFloat(wert2,2,zeile2,1) > > > > End If > > > > > > > > LCD_CursorPos(0x00) > > > > LCD_WriteText(zeile1) > > > > LCD_WriteText(einheit) > > > > LCD_CursorPos(0x40) > > > > LCD_WriteText(zeile2) > > > > LCD_WriteText(einheit) > > > > End Sub > > > > > > > > hi ich bin totaler neuling im programmieren und entschuldige mich schon mal für die fragen! > > > > also ich brauche für ein schulprojekt den C-Control pro mega128 CAN damit will ich eine spannung > > > > messen und auf dem display anzeigen lassen! > > > > nun mein problem: an adc0 liegen ständig 4,6V an und an adc1 schwankt die spannuing zwischen 1.4V > > > > und 1.7V obwohl ich da nichts angeschlossen habe! adc0 funktioniert überhaupt nicht und wenn > > > > an adc1 gegen gnd eine 1.5V batterie messe zeigt das display 0.00 an. ich weiß absolut nicht mehr > > > > weiter und hoffe ihr könnt mir helfen. > > > > schonmal danke im vorraus > > > > mfg NOOBIE > > > > > > Hallo, > > > offene Ports haben immer einen undefinierten zustand, weil sie wie eine Antenne > > > wirken. Du solltest bei der Fehlersuche auch immer mit einem > > > Msg_Befehl arbeiten. Mit Msg kannst du zB sofort erkenne ob > > > du was misst oder ob du Schmarrn in der Ausgabe programmiert hast, > > > wie in deinem Fall. > > > Komma null ist auch unnötig. > > > Gruß Max > > > > > > Dim wert1, wert2 As Single > > > Dim zeile1(10) As Char > > > Dim zeile2(10) As Char > > > > > > Sub main() > > > LCD_Init() > > > LCD_ClearLCD() > > > LCD_CursorOff() > > > > > > > > > Do While (True) > > > ADC_Set(ADC_VREF_VCC,0) > > > wert1 = ADC_Read() > > > wert1 = wert1 *5/1024 > > > Msg_WriteFloat(wert1) > > > Msg_WriteText(" wert1") > > > Msg_WriteChar(13) > > > ADC_Set(ADC_VREF_VCC,1) > > > wert2 = ADC_Read() > > > wert2 = wert2 *5/1024 > > > Msg_WriteFloat(wert2) > > > Msg_WriteText(" wert2") > > > Msg_WriteChar(13) > > > Ausgabe() > > > AbsDelay(500) > > > End While > > > End Sub > > > > > > Sub Ausgabe() > > > Dim einheit(3) As Char > > > zeile1="" > > > zeile2="" > > > einheit = " V" > > > If wert1>4.99 Then > > > zeile1=" HHHH" > > > Else > > > Str_WriteFloat(wert1,2,zeile1,0) > > > End If > > > > > > If wert2>4.99 Then > > > zeile2=" HHHH" > > > Else > > > Str_WriteFloat(wert2,2,zeile2,0) > > > End If > > > > > > LCD_CursorPos(0x00) > > > LCD_WriteText(zeile1) > > > LCD_WriteText(einheit) > > > LCD_CursorPos(0x40) > > > LCD_WriteText(zeile2) > > > LCD_WriteText(einheit) > > > End Sub > > > > >> danke für die antwort Max! > > >> ich habe das programm so geändert wie du es geschrieben hast aber jetzt schwanken die messwerte > > >> beider eingänge zwischen ca. 1.5V und 2,5V ohne dass ich etwas messe! wie kann ich es hinbekommen > > >> , dass wenn ich nichts messe auch 0,0V angezeigt wird? oder messe ich falsch? > > >> mfg NOOBIE > > Hallo NOOBIE, > wenn du 0,0V haben willst, dann musst du deinen Eingang mit Masse verbinden bzw eine > Spannungsquelle mit 0,0V anschließe. > Offene Eingänge zeigen immer dieses Verhalten, weil die Eingänge sehr hochohmig sind. > Was ist wenn du deine Batterie an die Eingänge hältst? > > Gruß Max
