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
