| |
|
|
- page 1 - |
|
CB | allô
je voulais dans mon Programme volontiers qui laufende l'heure dans qui Statusbar et habe mich trop diesem Zweck la fois dans den diversen Foren umgesehen, malheureusement mais keinen Beitrag trouvé, wohin cela direct mise en œuvre était. quelques Fundstücke étions mais bien pour mon Zwecke brauchbar - mon Dank pour getane Vorarbeiten à Andreas Miethe, Rolf Koch et Co. Herausgekommen ist pas seulement qui l'heure, mais aussi encore une kleine optische Spielerei avec 2 LEDs dans qui Statuszeile. qui Icônes sommes - avec wenigen unverkennbaren Ausnahmen - selbstfabriziert, son dürft alors calme zugreifen.
Viel Amusement, Christian |
|
|
| |
|
|
| |
|
- page 4 - |
|
|
| qui XProfanhilfe gibt sur MCI Brauchbares aus. avec cela könntest AVI statt Ani verwenden.
Salve, iF |
|
|
| |
|
|
|
CB | OK, werds nachlesen. maintenant doit je mais erstmal heimwärts.
Btw - je sais, est pas hierhin, tout autor entier kurz: allez qui montre sur Deinem Server faux? - 2:15 min Zeitdifferenz? Salut, Christian |
|
|
| |
|
|
|
| eh bien Serverzeit wird täglich synchonisiert - mais qui Communityzeit ist eventuell faux. peut-être mais aussi qui Zeiteinstellung Deines Profiles.
je crois mais Profiländern allez encore pas - cela doit je seulement reparieren.
je gug la fois pour.
jusqu'à denne, iF |
|
|
| |
|
|
|
| So - server et communityzeit avons gestimmt - mais deine Profilzeit était -1 statt +1. Tricolore geändert - aussi cela Datumsforumat votre profiles était pas richtig deutschlich.
maintenant devrait Dir qui Community alle Zeiten richtig Montrer.
Salve, iF |
|
|
| |
|
|
|
CB | Hi, iF! merci - maintenant passts! Hab mich seulement gewundert - mon Handy sagt Kuckuck (wirklich!) si ne SMS eintrudelt (mon Mailbox versendet cela gratis chez neuer mail), je exposition sur deinen neuen Beitrag et vois là une völlig falsche Zeit...
Vielen Dank aussi pour Deinen MCI-Tip. Habe mir qui Profan-Aider zur Brust pris et ensuite un geniales Aha-Erlebnis gehabt. aussi si je qui Grafiken peut-être doch konventionell faire werde, eröffnet mir qui MCI une völlig autre Possibilité: mon Programme soll oui einem Gerichtsgutachter possible viel Zeit ersparen, manche Befunderhebungen peut mais erheblche Zeit brauchen. dans dem le cas pourrait cela per Mikro aufgenommen, comme .wav gespeichert et cet später à une Spracherkennungssoftware envoyé volonté. si qui einmal à qui Stimme des Anwenders ajusté, alors trainiert worden ist, ist qui Erkennungsrate mittlerweile erstaunlich bien. Doit la fois checken, si cet Possibilité gewünscht wird.
chez cette Gelegenheit déjà la fois meinen herzlichen Glückwunsch trop Deinem 1000. Forumsbeitrag - den wirst Du oui bientôt erreicht avons!
Salut, Christian |
|
|
| |
|
|
|
Jörg Sellmeyer | Salut, Zum Thema l'heure dans qui Statusbar c'est moi encore quoi eingefallen. Uwe Pascal Niemeyer hat un Programme nommé PrfAsm geschrieben. dans den Beispielen en supplément hat il per asm une montre dans einem eigenen Fil gestartet. léger abgewandelt sieht cela ensuite so aus: KompilierenMarqueSéparationwindow 50,50-500,200
setactivewindow(%hwnd)
usermessages 16
def GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
def GetProcAddress(2) !"KERNEL32","GetProcAddress"
def CreateThread(6) !"KERNEL32","CreateThread"
def TerminateThread(2) !"KERNEL32","TerminateThread"
declare a$,a&,a#,StatusBar1&
declare Funct1&,Funct2&,Funct3&,Dummy&,Thread&
a$="Kernel32"
a&=GetModuleHandle(addr(a$))
a$="GetTimeFormatA"
Funct1&=GetProcAddress(a&,addr(a$))
a$="Sleep"
Funct3&=GetProcAddress(a&,addr(a$))
a$="User32"
a&=GetModuleHandle(addr(a$))
a$="SendMessageA"
Funct2&=GetProcAddress(a&,addr(a$))
Dim a#,200
###### Statusbarerzeugung ####
StatusBar1&=Control("msctls_statusbar32","",$054000900,0,0,0,0,%hwnd,2000,%hinstance)
Declare text$
text$="Uhrzeit"
Long a#,0=50
Long a#,4=170
Long a#,8=-1
SendMessage(StatusBar1&,$0404,3,a#)
SendMessage(StatusBar1&,$0401,1,Addr(text$))
text$="u.s.w."
SendMessage(StatusBar1&,$0401,2,Addr(text$))
Clear a#
##############################
$I G:DatenProfanProfASMDemosExtraPermanentClock.inc
long a#,100 =Funct1& GetTimeFormat
long a#,104 =Funct2& SendMessageA
long a#,108 =Funct3& Sleep
long a#,112 =StatusBar1&Zielhandle
Thread&=CreateThread(0,0,a#,a#+100,0,addr(Dummy&))
while 1
waitinput
case %umessage=16:break
endwhile
TerminateThread(Thread&,259) 259 = STILL_ACTIVE
dispose a#
Allerdings sais je pas, si es possible wäre, qui l'heure aussi dans einem qui anderen Statusfelder anzuzeigen. qui dazugehörige Inc ist beigefügt. Den reste peux on sich sur Uwes HP runterladen: [...]
Salut Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.01.2005 ▲ |
|
|
|
|
CB | allô Jörg, Habe mir cela partie näher angesehen - ist zwar vom Code her pas so large weg de meinem Beispiel, bloß viens je aussi pas sur elle, comment Je l' thread einem anderen Part qui Statusbar zuweisen pourrait - je crois, dans cette forme allez cela aussi gar pas. Sonst peux je dans Deinem Beispiel alles analog trop meinem einstellen. ici im Forum était la fois un ähnliches Beispiel de Pascal pour qui l'heure, cela était mir quelque chose trop komplex. Pascal ist genial (cela reimt sich sogar), mais pour mich ne gute numéro trop hoch... comment qui sich avec Dingen écoutes, de denen je pas einmal gare verstehe, c'est moi presque unheimlich.
quelle Profanversion verwendest Du überdies? Viellweicht Il se trouve daran, qui mon l'heure chez Dir pas fonctionne:
Long Intwidth#,0 = 374,408,582,%MaxX chez mir, (je sais mais, qui cela dans älteren Profan-Versionen so pas allez)
entspräche dans Deinem Code Long a#,0=50 Long a#,4=170 Long a#,8=-1
würdest Du s'il te plaît versuchsweise dans mon Code cela so changement: Long a#,0=374 Long a#,4=408 Long a#,8=582 Long a#,12=640
So long a#,irgendwas - irgendwann träum je de Variablen! (Derzeit sinds déjà presque 1200 dans mon Programme et täglich volonté es plus...) :| merci pour Votre Aider Christian |
|
|
| |
|
|
|
Jörg Sellmeyer | allô Christian, Relatif à la Long a#,0=10,20,300 était mir gar pas aufgefallen. je hab 7.6 là Gabs le reste garnicht (wir hatten oui rien ). Aussi allez chez mir SendMessage seulement avec Addr(txt$). après que je cela umgeschrieben hatte funktionierts. peut-être sollte on Code encore wenigstens jusqu'à dans qui 7il-Versionen kompatibel tenir - peut-être habe je mais aussi simple seulement une XProfanhinweis übersehen.
mais la fois ne autre Frage, pourquoi benutzt Du SendMessageA et pas SendMessage?
Salut Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 22.01.2005 ▲ |
|
|
|
|
CB | Hi, Jörg!
homme, tu peux Dir gar pas présenter, comment mich cela beruhigt, wenns maintenant chez Dir sous 98 funktioniert! avec SendMessageA la hâte Du droite, cela ergab sich dadurch, qui je mir qui DEF versuchsweise selbstgestrickt habe, um pas sämtliche En-tête mitladen trop doit, et voilà cela A stehengeblieben...
Que le Abwärtskompatibilität est ne l'affaire (pour mich): qui la ligne c'est moi aussi seulement aufgefallen, comme je Deinen Code nochmals Stück pour Stück avec meinem verglichen et mich ensuite erinnert habe, la fois quelque chose comme ähnliches dans 2 Varianten pour 7.6 et 8 gesehen trop avons. Avec l' Addr(text$) hätte je wiederum pas gewußt! So richtig hineingewachsen dans Profan suis je nämlich seulement avec Version 8, d.h., je connais qui Unterschiede le alten Versionen zuwenig, um zuverlässig den Code so heruntertunen trop peut, qui il chez Euch allen funktioniert! Version 7.6 habe je zwar aussi encore, mais à peine verwendet... s'il te plaît daher um Verständnis, cela hat nix avec Nichtwollen trop 1faire! Werde mais dans Hinkunft chez Veröffentlichungen ausdrücklich mon Systemvoraussetzungen dazuschreiben. je vais la fois en aus, qui qui meisten Forumsmitglieder déjà viel länger profanisieren, peut-être wäre einer de Euch ensuite so gentil, peut-être. Inkompatibilitäten trop posten.
peut-être devrait wir alle unsere Userdaten avec einer Infozeile versehen, qui ensuite automatisch chez chaque Posting mitgesendet wird? je werds jedenfalls faire, si je là wieder hineinkomme!
Salut, Christian et merci nochmals |
|
|
| |
|
|
|
Jörg Sellmeyer | allô Christian, >Mensch, tu peux Dir gar pas présenter, comment mich cela beruhigt, wenns maintenant chez Dir sous 98 funktioniert! Doch! >Bitte daher um Verständnis, cela hat nix avec Nichtwollen trop 1faire! c'est doch bien sûr!
Incidemment qui Code de Uwe ist déjà wesentlich anders comme Deiner, là cela Profanprogramm sich garnicht plus à l'heure kümmern doit. cela erledigt qui Assemblercode dans einem eigenen Fil. Salut Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 22.01.2005 ▲ |
|
|
|
|
CB | Hi, cela avec dem Asm c'est moi déjà bien sûr - je meinte cela um den %wmtimer bzw. den thread drumherum. Christian |
|
|
| |
|
|
|
| cela chacun son Sys comme Signatur mitsich trägt finde je besonders dans cette Programmierercommunity vorbildlich. je crois mais cela Changement des eigenen Profiles allez im Moment pas - cela doit je encore reparieren.
Uwes Code erscheint naturellement besonders pour non-asmer quelque chose wirr - desto effektiver ist il cependant.
là mais pas chacun Profaner avec den Grundlagen qui gezielten Assemblereinpflanzung vertraut ist - et ca ebend aussi pas nötig ist - habe je um alles possible stark trop simplifier qui thread.pcu zum freien Télécharger angeboten.
avec cette peux chacun threadorientierte Aufgaben erledigen laisser - sans cela cela eigendliche Programme ca erledigen doit - et - quoi besonders ins Gewicht fällt: es doit pas dans Assembler programmiert volonté, mais avec Xprofan.
Alles quoi qui thread.pcu pouvoir ist une im Hauptprogramm festgelegte Procédure thread.do dans certain Intervallen trop ouvrir. qui Intervalle peut festgelegt volonté. Es peut jusque 5 Threads getrennt voneinander angesteuert volonté.
Zum Thema Kompatiblität voudrais je aussi quoi beitragen - aussi wenns heikel ist. je suis pas qui attitude cela es umbedingt erforderlich ist cela alle Codes Rückwärtzkompatibel son doit. s'il te plaît mon Formulierung tenir compte de avec cela je pas fehlverstanden werde. plutôt sollte on en sortir peut cela chacun XProfaner aussi avec qui neuesten Version arbeitet. ca ist wohl chez presque chacun Software so - et pas seulement une Art qui Chaosvermeidung. Generell wird ici alors - sei car anders verkündet - de qui neusten offiziellen zum achat angebotenen XProfan-Version gesprochen. cela es naturellement pas chaque tout de suite possible ist - juste aus welchem Grund - qui neueste Version trop besitzen - versteht sich de selbst - darf mais ne...aucune Hindernis représenter.
Salve, iF |
|
|
| |
|
|