Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Kleine Helferlein

Passworteingabe Konsole

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.MitgliedTiS 27.02.2008

Eine verbesserte Version der Passworteingabe von ThePuppetMaster. Nun werden *chen angezeigt wenn man etwas eingibt. Auch kann man mit Backspace korrigieren.

Function Passwort(strInput As String = "") As String
    Dim strPasswort As String
    Dim strBuffer As String

    Print strInput;
    Do
        Sleep 1
        strBuffer = InKey()
        If strBuffer <> "" Then
            If Asc(Left(strBuffer, 1)) = 13 Then Exit Do
            If Asc(Left(strBuffer, 1)) = 8 Then
                strPasswort = Left(strPasswort, Len(strPasswort) - 1)
                Locate , Len(strPasswort) + Len(strInput) + 1
                Print " ";
                Locate , Len(strPasswort) + Len(strInput) + 1
            Else
                strPasswort += strBuffer
                Print "*";
            EndIf
        End If
    Loop
    Print ""
    Return strPasswort
End Function

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 27.02.2008 von MitgliedTiS angelegt.
  • Die aktuellste Version wurde am 27.02.2008 von MitgliedTiS gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen