Passwort per Tastendruck um ein Zeichen minimieren,Getkbg

Da du hier

1

      Keycode = Keycode + 1                                 'könnte aich incr KEYCODE sein

den KeyCode um 1 erhöhst, sollte dann nicht eigentlich, laut deiner 
Tabelle, für # mit 15 verglichen werden und nicht mit 14?

1

      If Keycode = 15 Then                                  'wird die taste "#" gedrückt werden  soll eine Ziffer im Passwort gelöscht werden

Du hättest auch schreiben können

     if Taste = "#" Then

aber da wäre dann das Potential sich selbst auszutricksen nicht so groß 
:-)

Kriegst du sicher hin.

Der Tip den ich dir gebe.
Wenn du Text überschreibst, dann denk daran: Die Teile die du nicht 
überschreibst, sind nach wie vor sichtbar.

Hast du also einen 3 buchstabigen String auf der Anzeige und 
überschreibst du ihn mit einem 2-buchstabigen, dann bleibt die 3. Stelle 
vom alten String sichtbar.

AT32_Bascom_Programmierer schrieb:
> mir fällt gerade noch was auf... ich bekomme das erste Zeichen meiner
> Eingabe nicht gelöscht sieht jemand woran es liegen kann???

Ohne jetzt in die BASCOM Hilfe geschaut zuhaben

1

         Anzahl = Len(eingabe)                              '!!!!!!!so sollte es meiner Meinung gehn... geht aber nicht...!!!!!!!!!!!!!!!!!!!!!!!!!

2

         Anzahl = Anzahl - 1                                '!!!!!!!!es wird immer ein "#" zeichen anstelle der geschriebennen Zahl geschrieben!!!!

3

         Eingabe = Left(eingabe , Anzahl)                   '!!!!!!!wie kann ih das lösen?!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Left wird wohl verweigern, wenn du einen Substring der Länge 0 haben 
willst. (Btw. was passiert dann eigentlich wenn du dann nochmal # 
drückst :-)

AT32_Bascom_Programmierer schrieb:
> in der Bascom Hilfe finde ich nichts , das darauf deutet das es keinen
> Substring der länge 0 geben darf...

Na ja.
Die Anforderung 'Gib mir die 0 linken Zeichen eines Strings' klingt ein 
wenig albern. Man muss kein Hellseher sein um das Ergebnis vorhersagen 
zu können. Kann gut sein, dass der Hersteller entschieden hat, dass 
diese Operation nicht geht.

Aber: Im Zweifel - schreib dir ein Testprogramm und probiers aus.

> jedoch dauert es immer sehr lange bis ich mal was übertragen bekomme, da
> ich immer diese Fehlmeldung am ende des Vorgangs erhalte

Dazu kann ich wenig sagen.
Verkabelung checken. Kabel auf Defekte absuchen. An den Steckern 
wackeln, etc.

AT32_Bascom_Programmierer schrieb:

> hier sage ich einfach das wenn anzahl den Wert 1 erreicht , und nochmal
> auf löschen gedrückt wird der String "eingabe gelöscht

Anzahl ist aber zu diesem Zeitpunkt nicht mehr 1 :-)
Du hast es vorher schon um 1 vermindert.

Und wenn geht such nach einer Lösung, die auch dann funktioniert, wenn 
der String schon leer ist und in dem Fall Anzahl dann in Ruhe lässt :-) 
Sonst musst du nach 8 mal # drücken mindestens 3 mal eine andere taste 
drücken, damit dein System bei 'Kein Tastendruck vorhanden' angelangt 
ist. Frei nach: Wenn aus einem Raum mit 5 Leuten 9 hinausgehen, wieviele 
müssen wieder reingehen, damit keiner drinnen ist?

(PS: das ELSE bei IF THEN ENDIF hast du aber schon entdeckt?)

Überleg mal, was das hier logikmässig machen würde

         Anzahl = Len(eingabe)

         IF Anzahl < 2 THEN                      ' 1 oder 0
           Anzahl = 0
           Eingabe = ""
         ELSE
           Anzahl = Anzahl - 1
           Eingabe = Left(eingabe , Anzahl)
         End If

AT32_Bascom_Programmierer schrieb:
> Karl heinz Buchegger schrieb:
>> Anzahl = Len(eingabe)
>>
>>          IF Anzahl < 2 THEN                      ' 1 oder 0
>>            Anzahl = 0
>>            Eingabe = ""
>>          ELSE
>>            Anzahl = Anzahl - 1
>>            Eingabe = Left(eingabe , Anzahl)
>>          End If
>
>
> ja das würde nichts bringen...oder?

Warum sollte das nichts bringen?

Gehs doch mal durch

Angenommen dein String in eingabe sei "2"

Anzahl = Len(eingabe)

Anzahl bekommt dann den Wert 1

IF Anzahl < 2 THEN

Ist das der Fall? Da Anzahl 1 ist und 1 kleiner als 2 ist, ist das der 
Fall. Also gehts weiter mit
  ANzahl = 0
  Eingabe = ""

Das besagt: Es wurde keine Taste gedrückt und der Eingabestring ist 
leer. Genau das was man erwarten würde, wenn bei "2" ein Zeichen 
gelöscht wird.

So, jetzt sei in Eingabe der leere String. Wieder drückst du #, was 
passiert?

Anzahl bekommt daher den Wert 0, weil Len vom leeren String nun mal 0 
ist.

IF Anzahl < 2 THEN

Ist das der Fall? Ja, das ist der Fall. 0 ist kleiner als 2. Also gehts 
wie weiter?

  ANzahl = 0
  Eingabe = ""

Hmm. Nichts passiert. Anzahl bleibt 0 und Eingabe wird wieder auf den 
leeren String gesetzt. Genau so wie es sein soll.