Español
Foro

Contraseña-Editar

 
- Página 1 -



Andre
Hilprecht
Hi,
brauche veces otra vez Ayuda. Posesiones en mi Prog una Adminbereich el sólo encima una einzugebendes Contraseña a erreichen ser se. Funzt auch alles bestens - sólo Yo möchte ahora todavía erreichen el auch en el Editar-Feld para el Passworteingabe el ***** (Sternchen) y no el Contraseña en Reinschrift erscheinen.
Posesiones hier ya gesucht aber nix passendes gefunden.

Saludo André
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
12.06.2006  
 



 
- Página 2 -



Andre
Hilprecht
Jo, jo, jo,

ahora son el Sternchen vom Feinsten. Como ya he dicho, Yo bin blutiger Principiante, Yo lerne cada Tag qué Neues dazu y manchmal braucht uno eben el Klaps uffn Hinterkopp.

Como se Yo porque vorher wissen el Yo Sternchen por SendMessages a el Variable Pass% enviar kann sin aber ihren wirklichen Inhalt a verändern.

Gracias euch allen.
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
12.06.2006  
 



Usted puede el Aussehen des Sternchens auch simplemente encima setfont  bestimmen.
 
13.06.2006  
 




Michael
Wodrich
[quote:9ed5506d10]Como se Yo porque vorher wissen el Yo Sternchen por SendMessages a el Variable Pass% enviar kann sin aber ihren wirklichen Inhalt a verändern.
[/quote:9ed5506d10]
Pass% enthält el Handle des Editar-Dialoges. Über dieses Handle läßt se el Diálogo ansprechen y feintunen.

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
13.06.2006  
 




Michael
Wodrich
Yo habe me todavía una vez el ersten Postings durchgelesen...

Vermutest Usted algo el eingegebenen Daten en Pass% ???

El Daten uno Editar-Controls erhälst Usted con el Función GetText$().

El Original-Hilfedatei es de paso mejor como ihr Ruf lo a ser scheint. Dort findest Usted auch Einführungskapitel.

Siehe bajo:
- Einführung
- 20.4. Einfache Editierfelder

Das debería helfen...

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
13.06.2006  
 




Andre
Hilprecht
Muss mich tal vez veces entschuldigen, si yo mich no tan completamente professionell ausdrücke. Yo bin Hobby-Anfangs-Autodidakt. Posesiones hier niemanden, el Yo algo encima Programmieren fragen podría, en el Schule kein Informatik gahabt (bin Baujahr 60).
Baue me mi propio Philosophie encima el Programmieren en y verrenne mich esta determinado auch veces. Kann me con el Ayuda así einiges zusammenreimen, aber eben no siempre. Bin lernwillig aber brauche manchmal una Anschubs y bin Euch deshalb dankbar, el uno hier muy rápidamente el Ayuda bekommt, el uno braucht.
KompilierenMarcaSeparación
Pass%    = @Create(Edit,D%,,   20, 50,200,-30)
....
....

If Pass%=123456

    Dann kanns im Prog weitergehen

ElseIf Pass% <> 123456

    kommt die Fehlermeldung: Falsches Passwort !

Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
13.06.2006  
 



Bin Baujahr 59, el debería also kein Problema ser
Tal vez verstehste folgendes Code-Snippet y kannst lo verweden:
KompilierenMarcaSeparación
Declare Password$
Password$ = GetText$(Pass%)

If Password$ <> Mein geheimes Passwort

    falsches Passwort

Else

    richtiges Passwort

13.06.2006  
 




Andre
Hilprecht
Das verstehe Yo, alles klar.
Tal vez brauchte Yo, el Umweg encima GetText$(Pass%) no ir, porque mein Contraseña kein Wort pero una Zahl es.

Was más, como bekommt ihr el Programmcode aquí en así una Ventana, sieht mejor de y yo muss determinado veces otra vez unos pocos Zeilen Quellcode puesto?

Saludo André
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
13.06.2006  
 




Rolf
Koch
entweder Usted klickst en Ausführliche Antwort escribir y hast como el Formatierungsoptionen oder du setzt lo sin la Leerzeichen zwischen el code (sólo así lo hier dargestellt se):
[c o d e]hier el code[/c o d e]
 
13.06.2006  
 




Jörg
Sellmeyer
Andre Hilprecht
Das verstehe Yo, alles klar.
Tal vez brauchte Yo, el Umweg encima GetText$(Pass%) no ir, porque mein Contraseña kein Wort pero una Zahl es.

Was más, como bekommt ihr el Programmcode aquí en así una Ventana, sieht mejor de y yo muss determinado veces otra vez unos pocos Zeilen Quellcode puesto?

Saludo André


Es kein Umweg pero el einzige Möglichkeit a el Texto a kommen - egal si Texto oder Zahl. Pass% enthält sólo el Handle para Editcontrol.
Si usted una Zahl hast y weiterverwenden willst, darfst No vergessen ellos con Val(GetText$(Pass%)) en una numerischen Valor a verwandeln.

Saludo
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
13.06.2006  
 



Andre Hilprecht

Tal vez brauchte Yo, el Umweg encima GetText$(Pass%) no ir, porque mein Contraseña kein Wort pero una Zahl es.


Den Umweg wirste ya ir necesario
Beim redactar des Editar-Controls ordnet Windows diesem una Identifizierungnummer a, el Usted en Pass% gespeichert hast. Dort es como sólo el ID para Editar gespeichert. Um a el Texto a kommen, mußt esta con GetText$ auslesen, wobei Usted el ID a el Control übergibst, welches esta Texto enthält.

Yo bin a langsam , naja alter Mann y el Hitze
 
13.06.2006  
 




Andre
Hilprecht
Hm, ihr macht me gerade klar, el algo no va, qué en me aber funzt ??!!??
Also mein Teil sieht ahora así de:
KompilierenMarcaSeparación
Text%    = @Create(Text,D%,Bitte Programmpasswort eingeben:,20,20,300,20)
Pass%    = @Create(Edit,D%,,   20, 50,200,-30)
Font%    = @Create(Font,Sans Serif,24,0,0,0,0)
SetFont Pass%, Font%
sendmessage(Pass%,204,ord(*),0)
OK%      = @Create(DefButton,D%,OK, 20,140, 140,30)
CANCEL%  = @Create(DefButton,D%,Abbruch,180,140,140,30)
@SetFocus(Pass%)
F% = 0

WhileNot F%

    WaitInput

    If Clicked(OK%)

        Pass$    = @GetText$(Pass%)

        If Pass$=0000

            DestroyWindow(OK%)
            F% = 1
            DestroyWindow(D%)
            Client

        ElseIf Pass$ <> 0000

            Text1% = @Create(Text,D%,Das Passwort ist leider,20,200,140,20)
            Text2% = @Create(Text,D%,F A L S C H   ! !,60,220,140,20)
            EnableWindow Text%,0
            EnableWindow Pass%,0
            EnableWindow OK%,0
            EnableWindow CANCEL%,0
            SLEEP 2500
            F% = 1
            DestroyWindow(D%)

        EndIf

    ElseIf @Clicked(CANCEL%)

        F% = 1
        DestroyWindow(D%)

    EndIf

EndWhile


y lo funzt ahora wunschgemäß.

Gracias Euch allen, a para nächsten Denkanstoß Saludo André
 
Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils
13.06.2006  
 



Usted machst lo doch así, como wir schrieben
KompilierenMarcaSeparación
Pass$  = @Gettext$(Pass%)
>

Pass% Es el ID vom Editar
Pass$ Es el Stringvariable wo el Texto gespeichert voluntad se
 
13.06.2006  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

4.945 Views

Untitledvor 0 min.
Georg Teles01.12.2018
RudiB.05.06.2016
Q26.05.2016
Georg25.07.2013

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie