XProfan

Español

Bernd
Lies

Problema: Der Anwender bearbeitet en el Hptprg. Características (hier: Auswahl de Fragen y deren Beantwortung). Parallel dazu se en uno Statuszeile el analoge Tiempo (60 Min.) en Start el Auswahl el Fragen en Null laufen. Ist el Tiempo en Null así se el Hptprg. con einm Referencia geschlossen voluntad.

XProfan X2
xprofan 9.0, windows xp pro

31.12.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Willst du una Analog- oder Digitalanzeige?
Hier una Ejemplo con rückläufiger Tiempo y Digitalanzeige y 24h-Formato.

Kompilieren Marca Separación

CLS
Declarar int t, d, h, m, s, c
t = &gettickcount
c = 60'Anzahl el Minuten

Mientras que 1

    d = (c*60000)-(&gettickcount - t) + 1000
    h = (d mod 86400000) /3600000
    m = (d mod 3600000) / 60000
    s = (d mod 60000) / 1000
    Settext %hwnd, Str$(h) + "h; " + Str$(m) + "m; "+Str$(s)+"s"

    If (d<=0)

        Messagebox("Die Tiempo es abgelaufen","MELDUNG",0)
        end

    EndIf

EndWhile

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

31.12.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

maroro

Programación Grundlagen

Alle mi Programas haben una grundlegendes Schema.

Als erstes voluntad el Grundlagen gelegt Variables Arrays Ini-Expediente lesen.

Dann se el Ventana aufgebaut Listboxen Buttons etc.

Jetzt kommt una Bucle oder Loop en el/el el Nutzereingaben abgefangen voluntad.

Von hay se a individual Aktionen verzweigt.

Folgt dein Programa auch diesem Muster?

XProfan X2

31.12.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Como du sí XProfanX2 hast, sería Yo el Uhr en un
Prozess laufen dejar. Siehe :

Multiprozessing con XProfan
y el Proc
SetTitleTime

Como uno auch prozess-übergreifend en Controls Zugriff
ha, könntest du en Ablauf el Tiempo reagieren, z.B.
con Sendkey qué a una Button enviar, oder encima
FileMap usw. Roland ha lo sí en el Ayuda muy bien
beschrieben.

Könnte entonces etwa así aussehen (hier veces con un Hotkey
Taste Pause) gemacht :

Kompilieren Marca Separación

Declarar Btn1&, Btn2&, edit1&, texto1&
Título de la ventana "Mein Fenster"
Ventana 600, 400
Btn1&    = @Crear("Button", %HWnd, "Ende", 5, 10, 60, 25)
Btn2&    = @Crear("Button", %HWnd, "Start Watch", 80, 10, 100, 25)
text1&   = @Crear("Text",   %HWnd, "Eingabe : ", 5, 40, 80, 25)
edit1&   = @Crear("Edit", %HWnd, "", 85, 40, 120, 25)
AddHotkey 1001, 19, 0' Pause - Taste

Sinestar encargado @Clicked(Btn1&)

    WaitInput

    If @Clicked(Btn2&)

        pExec("|StartWatch", %HWnd, 1)

    EndIf

    If MenuItem(1001)

        Messagebox("Die Tiempo es abgelaufen","MELDUNG",0)

    EndIf

    Case %Key = 2 : Romper' Schließen-Cruz abfragen

EndWhile

End

Proc StartWatch

    Parámetros handle&, c&
    Declarar d&, h&, m&, s&, t&
    Var ende% = 0
    t& = &GetTickCount

    Sinestar encargado ende%

        d& = (c& * 60000)-(&gettickcount - t&) + 1000
        h& = (d& mod 86400000) /3600000
        m& = (d& mod 3600000) / 60000
        s& = (d& mod 60000) / 1000
        Settext handle&, Str$(h&) + "h; " + Str$(m&) + "m; "+Str$(s&)+"s"
        caso getText$(handle&) = "" : ende% = 1

        If (d& <= 0)

            SendKey(handle&, 19)
            ende% = 1

        EndIf

    EndWhile

ENDPROC

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

01.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bernd
Lies

El Respuesta con el Erstellen uno Analog- oder Digitaluhr son o.k. Mein Problema Es el Einbindung en mi Prgramm. D. h. wo genau necesario el Befehle rein: como Proc oder ????. Mein Programa es y funktioniert super. Leider eben no con el Uhr.

xprofan 9.0, windows xp pro

02.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Maroro schrieb lo ya.

maroro (Unbekannt)

Mach no el Fehler y versuche lo simplemente reinzukopieren ... versuche más bien el funktionsweise a verstehen así el du lo incluso escribir kannst.

Yo hoffe du nimmst dir Das a Herzen.

03.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Habs deswegen oben extra como Proc ausgelegt, daß
du lo mejor en deinem Programa benutzen kannst.
Yo sí sólo para mejor Verständnis una Programa
drumherum gebastelt, o. así du lo testen kannst.
Wenn dein Programa ya soweit es fertig es,
weißt du sí determinado, qué Procs son o. como ellos
einzubinden son. Yo gehe deshalb veces su de,
daß du no bastante al Anfang con el Programmieren
con XProfan stehst.

Also otra vez :
Im Hauptprogramm Yo una Hotkey (AddHotkey)
definiert. Wenn el Pause-Taste nun gedrückt se, sei
lo nun por Hand en el Tastatur oder simulado con Sendkey,
se una Menü-Item aktiviert. Das funktioniert genauso, como
wären Menüpunkte en deinem Programa disponible. Mit
AddHotkey se como el Ereignis verknüpft. Wenn lo auftritt,
se una Messagebox gezeigt.

Im Unterprogramm (Proc) sende Yo eben esta Tastaturdruck
con Sendkey a el Hauptprogrammfenster, si la Tiempo abgelaufen
es.

Lese pero por favor en el Ayuda el Temas Multiprozessing y
auch Hotkeys y schaue dir el Beispiele a.

03.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bernd
Lies

Vielen Dank a Alle. Posesiones mich con el Code de H.Brill auseinander gesetzt y el Xprofan-Ayuda verstanden. Posesiones entonces incluso una Code en mein Programa programmiert (natürlich de y a en el código de H.Brill geschaut) y lo se ejecuta Super.
Nochmals Gracias para el Ayuda

XProfan X2
xprofan 9.0, windows xp pro

09.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Na entonces bin Yo sí froh, Yo algo Lehrreiches
weitergeben podría.
Hab hier todavía qué para Einsteiger :
Oftmals muß uno como Einsteiger el Ayuda durchforsten,
en una GUI-Programmgerüst zusammen a bauen.
Man weiß zwar en etwa, como va, muß aber trotzdem
siempre otra vez nachschauen, hauptsächlich, lo que el
Programmschelife etc. betrifft. Für el Benutzer des
con XProfan gelieferten XProfed (Editor), Yo folgenden
Code :

Kompilieren Marca Separación

Título de la ventana "Programm - Gerüst"
Ventana 640, 400
ClearClip
Imprimir "Gerüst se geschrieben...."
PutClip "'$I ' Hier puede .inc Archivos eingebunden werden" + Chr$(13)
PutClip "WindowTitle " + Chr$(34) + "Mein Fenster" + Chr$(34) + Chr$(13)
PutClip "Window 640, 400" + Chr$(13)
PutClip "Declare ende%, Btn1&, Btn2&" + Chr$(13)
PutClip "' Hier voluntad el Dialogelemente definiert" + Chr$(13)
PutClip "Btn1& = @Crear(" + Chr$(34) + "Button" + Chr$(34) + ", %HWnd," + Chr$(34) + "Ende" + Chr$(34) + ", 10, 10, 60, 25)" + Chr$(13)
PutClip "Btn2& = @Crear(" + Chr$(34) + "Button" + Chr$(34) + ", %HWnd," + Chr$(34) + "Mach was" + Chr$(34) + ", 100, 10, 80, 25)" + Chr$(13)
PutClip "ende% = 0" + Chr$(13)
PutClip "' Hier kommt el Ereignis - Schleife" + Chr$(13)
PutClip "WhileNot ende%" + Chr$(13)
PutClip "     WaitInput" + Chr$(13)
PutClip "     If @Clicked(Btn1&)" + Chr$(13)
PutClip "        ende% = 1" + Chr$(13)
PutClip "     ElseIf @Clicked(Btn2&)" + Chr$(13)
PutClip "        MachWas()" + Chr$(13)
PutClip "     EndIf" + Chr$(13)
PutClip "     Case %Key = 2 : ende% = 1 ' Schließen-Cruz abfragen" + Chr$(13)
PutClip "EndWhile" + Chr$(13)
PutClip "' Hier puede el Procs para el Programa geschrieben werden" + Chr$(13)
PutClip "Proc MachWas" + Chr$(13)
PutClip "     MessageBox(" + Chr$(34) + "Hallo" + Chr$(34) + ", " + Chr$(34) + "Info" + Chr$(34) + ", 0)" + Chr$(13)
PutClip "EndProc" + Chr$(13)
PutClip "End" + Chr$(13)
Imprimir "Quellcode kann de Zwischenablage kopiert voluntad !"
Imprimir "Zum Beenden Taste drücken !"
WaitKey
End

Wenn uno esta compilert (.exe redactar) y en el Benutzer-Menü
einbindet, puede ser schön con -Editar + Einfügen oder sólo con
STRG-V una neues Programa anfangen. El fehlenden Controls, como
Listboxen, Buttons usw. puede ser entonces nachher selber todavía dazu
escribir oder vorhandene löschen o. austauschen.
Wer voluntad, kann se auch obigen Code todavía en seine Bedürfnisse
todavía adaptar.

Evtl. es para el una oder otro nützlich.

09.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Dazu todavía una Tipp de me.

Yo nutze el Programa ac'tivAid [...]

con el Erweiterung "Hotstrings" welche dafür sorgt, dass de me eingegebene Textos/Abkürzungen automáticamente por de me eingebene Texto ersetzt voluntad.
So tener Yo verschiedene Textbausteine creado, z.B se en Eingabe de #txt dieser Texto por una Ejemplo-Editar ersetzt, ebenso en #cmd por una Button usw...Das nimmt una ya viel Arbeit de y es para Principiante absolut a empfehlen.

In ac'tivAid hay todavía viele otro nützliche Tools/Erweiterungen, simplemente veces el Liste durchgehen. Es wohl para cada qué esta.

09.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bernd
Lies

Gracias, voluntad Yo benutzen o. me Programa ansehen.