Français
Source/ Codesnippets

Blink Led Statusbar l'heure

 
- 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

 
XProfan 8/9.1, Win XP, AMD 64/3200
17.01.2005  
 



 
- page 4 -


qui XProfanhilfe gibt sur MCI Brauchbares aus. avec cela könntest AVI statt Ani verwenden.

Salve, iF
 
21.01.2005  
 




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
 
XProfan 8/9.1, Win XP, AMD 64/3200
21.01.2005  
 



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
 
21.01.2005  
 



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
 
21.01.2005  
 




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
 
XProfan 8/9.1, Win XP, AMD 64/3200
21.01.2005  
 




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éparation
window 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
 
XProfan 8/9.1, Win XP, AMD 64/3200
21.01.2005  
 




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
 
XProfan 8/9.1, Win XP, AMD 64/3200
22.01.2005  
 




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
 
XProfan 8/9.1, Win XP, AMD 64/3200
22.01.2005  
 



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
 
22.01.2005  
 




Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

30.586 Views

Untitledvor 0 min.
p.specht16.12.2020
Jörg Sellmeyer03.06.2018
Georg Teles29.06.2015
Heltal20.08.2014
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie