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 > > Hallo hier mal ein teil eines programms, bin am verzweifeln. > > es zeigt mir zwar den wert der tastetur an wenn ich 1 drück > > aber die if schleife wird nicht ausgeführt. > > > > bitte helft mir.... > > > > > > Lab menu '#########################-Menü-####################################### > > > > zeile_1="FIRST CHARGE 1" > > zeile_2="CAP CHECK 2" > > zeile_3="FINAL CHARGE 3" > > zeile_3="UEBERWACHUNG 4" > > > > LCD_Start() > > LCD_Locate(1,1) > > LCD_WriteText(zeile_1) > > LCD_Locate(2,1) > > LCD_WriteChar(eingelesenASCII) > > 'LCD_Locate(3,1) > > 'LCD_WriteText(zeile_3) > > 'LCD_Locate(4,1) > > 'LCD_WriteText(zeile_4) > > AbsDelay(2000) > > > > Key_Init() > > > > eingelesen=Key_Scan() > > If eingelesen<>0 Then > > eingelesenASCII=Key_TranslateKey(eingelesen) > > End If > > '###########################-First Charge-##################################### > > If eingelesenASCII=1 Then > > LCD_Start() > > '*********************************************************************** > > ADC_Set(0xC0,ADC1) 'adc F0 initialisieren (zellen) > > Uges=0XC0/1023*ADC_Read() > > 'ACHTUNG Spannungsteiler einfügen für gesammtspannung > > ADC_Disable() > > If Uges<20 Then 'programm überprüft den messdeckel > > zeile_1="BitteMessplatte" 'wenn nicht angebracht sprung zurück > > zeile_2=" anbringen" 'ins menü > > > > LCD_Start() > > LCD_Locate(1,1) > > LCD_WriteText(zeile_1) > > LCD_Locate(2,1) > > LCD_WriteText(zeile_2) > > AbsDelay(3000) > > LCD_ClearLCD() > > Goto menu > > End If > > '********************************************************************** > > First_Charge() > > > > > Hallo Vitty, > > Du wandelst mit <basic>Key_TranslateKey</basic> deine Eins in ASCII um. Wenn mich nicht alles > täuscht ist die 1 in ASCII 49. Versuche doch mal <basic>If eingelesenASCII=49 Then</basic>. > Habe es selbst nicht ausprobiert, könnte aber gehen. > > Grüße > Jürgen
