XProfan

Français

Bernd
Lies

Problem: qui Anwender bearbeitet im Hptprg. Funktionen (ici: sélection de Fragen et en la réponse). parallèle en supplément soll dans einer Statuszeile qui analoge Zeit (60 Min.) chez Start qui sélection qui Fragen sur zéro courir. Ist qui Zeit sur zéro so soll cela Hptprg. avec einm Hinweis geschlossen volonté.

XProfan X2
xprofan 9.0, windows xp pro

31.12.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

veux du une Analog- ou bien Digitalanzeige?
ici un Beispiel avec rückläufiger Zeit et Digitalanzeige et 24h-Format.

Kompilieren Marque Séparation

CLS
Déclarer int t, d, h, m, s, c
t = &gettickcount
c = 60'Nombre de Minuten

Tandis 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"

    Si (d<=0)

        Messagebox("Die Zeit ist abgelaufen","MELDUNG",0)
        end

    EndIf

Endwhile

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

31.12.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

maroro

Programmation Grundlagen

Alle mon Programme avons un grundlegendes Schema.

comme erstes volonté qui Grundlagen gelegt Variablen Arrays Ini-Dossier lesen.

ensuite wird cela la fenêtre aufgebaut Listboxen Buttons etc.

maintenant venez une Boucle ou bien Boucle dans qui/dem qui Nutzereingaben abgefangen volonté.

de là wird le individuel Aktionen verzweigt.

Folgt dein Programme aussi diesem Muster?

XProfan X2

31.12.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

là du oui XProfanX2 la hâte, serait je qui montre dans einem
Prozess courir laisser. Siehe :

Multiprozessing avec XProfan
et qui Proc
SetTitleTime

là on aussi prozess-übergreifend sur Controls Zugriff
hat, könntest du chez le bout qui Zeit réagir, z.B.
avec Sendkey quoi à une Button envoyons, ou bien sur
FileMap usw. Roland hat es oui dans qui Aider très bien
décrit.

Könnte ensuite etwa so air (ici la fois avec einem Hotkey
bouton récréation) gemacht :

Kompilieren Marque Séparation

Déclarer Btn1&, Btn2&, edit1&, text1&
Titre de la fenêtre "Mein Fenster"
Fenêtre 600, 400
Btn1&    = @Créer("Button", %HWnd, "Ende", 5, 10, 60, 25)
Btn2&    = @Créer("Button", %HWnd, "Start Watch", 80, 10, 100, 25)
text1&   = @Créer("Text",   %HWnd, "Eingabe : ", 5, 40, 80, 25)
edit1&   = @Créer("Edit", %HWnd, », 85, 40, 120, 25)
AddHotkey 1001, 19, 0' récréation - bouton

WhileNot @Clicked(Btn1&)

    WaitInput

    Si @Clicked(Btn2&)

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

    EndIf

    Si MenuItem(1001)

        Messagebox("Die Zeit ist abgelaufen","MELDUNG",0)

    EndIf

    Cas %Key = 2 : Pause' Schließen-Croix abfragen

Endwhile

Fin

Proc StartWatch

    Paramètres handle&, c&
    Déclarer d&, h&, m&, s&, t&
    Var ende% = 0
    t& = &GetTickCount

    WhileNot 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"
        cas getText$(handle&) = » : ende% = 1

        Si (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 citation

Absatzweise Citation Zeilenweise Citation

Bernd
Lies

qui répondre avec dem Erstellen einer Analog- ou bien Digitaluhr sommes o.k. mon Problem ist qui Einbindung dans mon Prgramm. D. h. wohin oui c'est ca doit qui Befehle rein: comme Proc ou bien ????. mon Programme steht et funktioniert super. malheureusement plan pas avec qui montre.

xprofan 9.0, windows xp pro

02.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Maroro schrieb es bereits.

maroro (inconnu)

Mach pas den faute et versuche es simple reinzukopieren ... versuche lieber qui funktionsweise trop comprendre so cela du es selbst écrivons peux.

je hoffe tu prends dir cela trop Herzen.

03.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

Tricolore deswegen dessus extra comme Proc ausgelegt, qui
du es besser dans deinem Programme benutzen peux.
je hab oui seulement zum besseren Verständnis un Programme
drumherum gebastelt, bzw. avec cela du es testen peux.
si dein Programme déjà soweit steht fertig ist,
savoir du oui bestimmt, quoi Procs sommes bzw. comment vous
einzubinden sommes. je vais c'est pourquoi la fois en aus,
qui du pas entier am Anfang avec dem Programmieren
avec XProfan stehst.

alors nochmal :
Im Hauptprogramm habe je une Hotkey (AddHotkey)
défini. si qui récréation-bouton eh bien gedrückt wird, sei
es eh bien per main sur qui clavier ou bien simuliert avec Sendkey,
wird un menu-Item aktiviert. cela funktioniert genauso, comme
wären Menüpunkte dans deinem Programme vorhanden. avec
AddHotkey wird cela comme Ereignis verknüpft. si es auftritt,
wird une Messagebox gezeigt.

Im Unterprogramm (Proc) sende je plan cette Tastaturdruck
avec Sendkey à cela Hauptprogrammfenster, si le Zeit abgelaufen
est.

Lese doch s'il te plaît dans qui Aider qui Sujets Multiprozessing et
aussi Hotkeys et schaue dir qui Beispiele à.

03.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bernd
Lies

Vielen Dank à Alle. Habe mich avec dem Code de H.Brill auseinander gesetzt et qui Xprofan-Aider verstanden. Habe ensuite selbst une Code dans mon Programme programmiert (naturellement ab et à sur den Code de H.Brill geschaut) et es fonctionne Super.
Nochmals merci pour qui Aider

XProfan X2
xprofan 9.0, windows xp pro

09.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

Na ensuite suis je oui froh, qui je quelque chose Lehrreiches
weitergeben konnte.
Hab ici encore quoi pour Einsteiger :
Oftmals doit on comme Einsteiger qui Aider durchforsten,
um un GUI-Programmgerüst zusammen trop construire.
on sait zwar dans etwa, comme allez, doit mais quand même
toujours wieder chercher, principale, quoi qui
Programmschelife etc. betrifft. Pour qui Benutzer des
avec XProfan gelieferten XProfed (Editor), habe je folgenden
Code :

Kompilieren Marque Séparation

Titre de la fenêtre "Programm - Gerüst"
Fenêtre 640, 400
ClearClip
Imprimer "Gerüst wird geschrieben...."
PutClip "'$I ' ici peut .inc Fichiers 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 "' ici volonté qui Dialogelemente definiert" + Chr$(13)
PutClip "Btn1& = @Créer(" + Chr$(34) + "Button" + Chr$(34) + ", %HWnd," + Chr$(34) + "Ende" + Chr$(34) + ", 10, 10, 60, 25)" + Chr$(13)
PutClip "Btn2& = @Créer(" + Chr$(34) + "Button" + Chr$(34) + ", %HWnd," + Chr$(34) + "Mach was" + Chr$(34) + ", 100, 10, 80, 25)" + Chr$(13)
PutClip "ende% = 0" + Chr$(13)
PutClip "' ici venez qui Ereignis - Schleife" + Chr$(13)
PutClip "WhileNot ende%" + Chr$(13)
PutClip "     WaitInput" + Chr$(13)
PutClip "     Si @Clicked(Btn1&)" + Chr$(13)
PutClip "        ende% = 1" + Chr$(13)
PutClip "     ElseIf @Clicked(Btn2&)" + Chr$(13)
PutClip "        MachWas()" + Chr$(13)
PutClip "     EndIf" + Chr$(13)
PutClip "     Cas %Key = 2 : ende% = 1 ' Schließen-Croix abfragen" + Chr$(13)
PutClip "EndWhile" + Chr$(13)
PutClip "' ici peut qui Procs pour cela Programme 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)
Imprimer "Quellcode peux aus Zwischenablage kopiert volonté !"
Imprimer "Zum finissons bouton drücken !"
WaitKey
Fin

si on cette compilert (.exe erstellen) et ins Benutzer-menu
einbindet, peux on joli avec -Travailler + insérer ou bien arrêt avec
STRG-V un nouveau Programme anfangen. qui fehlenden Controls, comment
Listboxen, Buttons usw. peux on ensuite après selber encore en supplément
écrivons ou bien vorhandene effacer bzw. austauschen.
qui veux, peux sich aussi obigen Code encore sur sa Bedürfnisse
encore anpassen.

Evtl. ist es pour den une ou bien anderen nützlich.

09.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

en supplément encore un Tipp de mir.

je nutze cela Programme ac'tivAid [...]

avec qui Erweiterung "Hotstrings" quelle pour sorgt, dass de mir eingegebene Textes/Abkürzungen automatisch par de mir eingebene Text ersetzt volonté.
So hab je mir verschiedene Textbausteine angelegt, z.B wird chez Eingabe de #txt cette Text par un Beispiel-Éditer ersetzt, ebenso chez #cmd par une Button usw...cela nimmt une déjà viel travail ab et ist pour Débutant absolu trop empfehlen.

dans ac'tivAid gibt es encore viele autre nützliche Tools/Erweiterungen, simple fois le liste durchgehen. c'est wohl pour jeden quoi dabei.

09.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bernd
Lies

merci, werde je benutzen bzw. mir cela Programme regarder.