Español
Fuente/ Codesnippets

Blink Led Statusbar Uhrzeit

 
- Página 1 -



CB
¡Hola

Yo quería en mi Programa gerne el laufende Uhrzeit en el Statusbar y habe mich a diesem Zweck veces en el diversen Foren umgesehen, desafortunadamente aber no Contribución gefunden, wo el direkt umgesetzt war. Einige Fundstücke waren aber bien para mi Zwecke brauchbar - mein Dank para getane Vorarbeiten a Andreas Miethe, Rolf Koch y Co.
Herausgekommen es no sólo el Uhrzeit, pero auch ni kleine optische Spielerei con 2 LEDs en el Statuszeile. El Icons son - con wenigen unverkennbaren Ausnahmen - selbstfabriziert, Ihr dürft also ruhig zugreifen.

Viel Spaß,
Christian

16 kB
Hochgeladen:17.01.2005
Ladeanzahl422
Descargar
 
XProfan 8/9.1, Win XP, AMD 64/3200
17.01.2005  
 



 
- Página 4 -


El XProfanhilfe son encima MCI Brauchbares de. Damit könntest AVI en lugar de Ani uso.

Salve, IF
 
21.01.2005  
 




CB
OK, werds nachlesen. Jetzt muß Yo aber primero heimwärts.

Btw - Yo weiß, gehört no hierhin, por lo tanto bastante kurz: va el Uhr en Deinem Server falso? - 2:15 min Zeitdifferenz?
Saludo,
Christian
 
XProfan 8/9.1, Win XP, AMD 64/3200
21.01.2005  
 



Nun Serverzeit se täglich synchonisiert - aber el Communityzeit es eventuell falso. Tal vez aber auch el Zeiteinstellung Deines Profiles.

Yo glaube aber Profiländern va todavía no - el muß Yo sólo reparieren.

Yo gug veces después de.

Bis denne, IF
 
21.01.2005  
 



So - server y communityzeit haben gestimmt - aber deine Profilzeit war -1 en lugar de +1. Habs geändert - auch el Datumsforumat su profiles war no correcto deutschlich.

Jetzt debería Usted el Comunidad todos Veces correcto Mostrar.

Salve, IF
 
21.01.2005  
 




CB
Hi, IF!
Gracias - ahora passts! Hab mich sólo gewundert - mein Handy sagt Kuckuck (wirklich!) si ne SMS eintrudelt (mi Mailbox versendet el gratis en neuer mail), Yo mostrar en deinen neuen Contribución y sehe como una völlig falsche Tiempo...

Vielen Dank auch para Su MCI-Tip. Posesiones me el Profano-Ayuda a Brust genommen y luego una geniales Aha-Erlebnis gehabt. Auch si yo el Gráficos tal vez doch konventionell hacer voluntad, eröffnet me el MCI una völlig otro Möglichkeit:
Mein Programa se sí una Gerichtsgutachter möglichst viel Tiempo ersparen, manche Befunderhebungen puede aber erheblche Tiempo brauchen. In el Fall podría el por Mikro aufgenommen, como .wav gespeichert y esta später a una Spracherkennungssoftware geschickt voluntad. Wenn el una vez a el Stimme des Anwenders angepaßt, also trainiert worden es, Es el Erkennungsrate mittlerweile erstaunlich bien. Muß veces checken, si esta Möglichkeit gewünscht se.

En dieser Gelegenheit ya veces media herzlichen Glückwunsch a Deinem 1000. Forumsbeitrag - el wirst Usted sí demnächst erreicht haben!

Saludo,
Christian
 
XProfan 8/9.1, Win XP, AMD 64/3200
21.01.2005  
 




Jörg
Sellmeyer
¡Hola,
Zum Thema Uhrzeit en el Statusbar me está todavía qué eingefallen. Uwe Pascal Niemeyer ha una Programa nombre PrfAsm geschrieben.
In el Beispielen dazu ha él por asm una Uhr en un eigenen Thread started.
Leicht abgewandelt sieht el entonces así de:
KompilierenMarcaSeparación
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
disponer a#

Aunque weiß Yo no, si posible wäre, el Uhrzeit auch en un el otro Statusfelder
anzuzeigen.
El dazugehörige Inc es beigefügt.
Den Rest puede ser se en Uwes HP runterladen:
[...] 

Saludo
Jörg

1 kB
Hochgeladen:21.01.2005
Ladeanzahl90
Descargar
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.01.2005  
 




CB
¡Hola Jörg,
Posesiones me Teil näher angesehen - Aunque vom Code her no así weit weg de mi Ejemplo, bloß komme Yo auch no en él, Yo el thread una otro Part el Statusbar zuweisen podría - Yo glaube, en dieser Form va el auch nada. Sonst kann Yo en Deinem Ejemplo alles analog a mi einstellen.
Hier en el Foro war veces una ähnliches Ejemplo de Pascal para el Uhrzeit, el war me algo a komplex. Pascal es genial (el reimt se incluso), aber para mich ne gute Nummer a hoch... Como el se con Dingen juega, de denen Yo no una vez Bahnhof verstehe, me está fast unheimlich.

Welche Profanversion verwendest Usted überdies?
Viellweicht liegts daran, daß mi Uhrzeit No en se ejecuta:

Largo Intwidth#,0 = 374,408,582,%MaxX en me,
(Yo weiß aber, daß el en älteren Profano-Versionen así no va)

entspräche en Deinem Code
Largo a#,0=50
Largo a#,4=170
Largo a#,8=-1

würdest Usted Por favor, versuchsweise en mi Code el así ändern:
Largo a#,0=374
Largo a#,4=408
Largo a#,8=582
Largo a#,12=640

So long a#,algo - irgendwann träum Yo de Variables! (Derzeit sinds ya fast 1200 en mi Programa y täglich voluntad lo mehr...) :|
Gracias para Su Ayuda
Christian
 
XProfan 8/9.1, Win XP, AMD 64/3200
21.01.2005  
 




Jörg
Sellmeyer
¡Hola Christian,
Relacionado con la Largo a#,0=10,20,300 war me nada aufgefallen.
Yo 7.6 como gabs el todavía garnicht (wir hatten sí nichts ).
Außerdem va en me SendMessage sólo Addr(txt$).
Nachdem Yo el umgeschrieben hatte funktionierts.
Tal vez debería uno Code todavía wenigstens a en el 7él-Versionen kompatibel halten
- tal vez Yo aber auch simplemente sólo una XProfanhinweis übersehen.

Aber veces ne otro Cuestión, por qué benutzt Usted SendMessageA y no SendMessage?

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




CB
Hi, Jörg!

Mensch, Usted puede Usted nada vorstellen, como mich el beruhigt, wenns ahora con usted bajo 98 funktioniert!
Mit SendMessageA hast Usted bastante, el ergab se dadurch, Yo me el DEF versuchsweise selbstgestrickt habe, en no sämtliche Encabezamiento mitladen tener, y como es el A stehengeblieben...

Que el Abwärtskompatibilität es así ne Sache (para mich):
el Línea me está auch sólo aufgefallen, como Yo Su código nochmals Stück para Stück con mi verglichen y mich entonces erinnert habe, veces algo como ähnliches en 2 Varianten para 7.6 y 8 gesehen a haben. Con el Addr(texto$) hätte Yo wiederum no gewußt!
So correcto hineingewachsen en Profano bin Yo nämlich sólo con Versión 8, d.h., Yo saber el Unterschiede a alten Versionen zuwenig, en zuverlässig el código así heruntertunen a puede, daß él en Euch allen funktioniert! Versión 7.6 Yo zwar auch todavía, aber kaum verwendet...
Bitte por lo tanto en Verständnis, el ha nix con Nichtwollen a tun! Werde aber en Hinkunft en Veröffentlichungen ausdrücklich mi Systemvoraussetzungen dazuschreiben. Yo gehe veces su de, daß el meisten Forumsmitglieder ya viel länger profanisieren, tal vez wäre uno de Euch entonces así nett, evtl. Inkompatibilitäten para enviar.

Tal vez debería wir todos unsere Userdaten con uno Infozeile versehen, el entonces automáticamente cada Posting mitgesendet se? Yo werds jedenfalls hacer, si yo hay otra vez hineinkomme!

Saludo,
Christian
y Gracias nochmals
 
XProfan 8/9.1, Win XP, AMD 64/3200
22.01.2005  
 




Jörg
Sellmeyer
¡Hola Christian,
>Mensch, Usted puede Usted nada vorstellen, como mich el beruhigt, wenns ahora con usted bajo 98 funktioniert!
Doch!
>Bitte por lo tanto en Verständnis, el ha nix con Nichtwollen a tun!
Es doch klar!

Übrigens el Code de Uwe es ya wesentlich anders como Deiner, como el Profanprogramm
se garnicht mehr a Uhrzeit kümmern muß.
Das hecho el Assemblercode en un eigenen Hilo.
Saludo
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
22.01.2005  
 




CB
Hi,
el con el Asm me está ya klar - Yo meinte el en el %wmtimer o. el thread drumherum.
Christian
 
XProfan 8/9.1, Win XP, AMD 64/3200
22.01.2005  
 



Das cada ser Sys como Signatur mitsich trägt finde Yo besonders en dieser Programmierercommunity vorbildlich. Yo glaube aber el Cambio des eigenen Profiles va en el Moment no - el muß Todavía reparieren.



Uwes Code erscheint natürlich besonders para non-asmer algo wirr - desto effektiver es él sin embargo.

Como pero no cada Profaner con el Grundlagen el gezielten Assemblereinpflanzung vertraut es - y dies ebend auch no nötig es - Yo en alles möglichst stark a vereinfachen el thread.pcu para freien Descargar angeboten.

Mit dieser kann cada threadorientierte Aufgaben erledigen dejar - sin el el eigendliche Programa dies erledigen muß - y - qué besonders en el Gewicht fällt: lo muß no en Ensamblador programmiert voluntad, pero con Xprofan.

Alles lo que el thread.pcu macht es una en el Hauptprogramm festgelegte Procedimiento thread.do en cierto Intervallen a abierto. El Intervalle puede festgelegt voluntad. Lo puede a a 5 Hilos getrennt voneinander angesteuert voluntad.



Zum Thema Kompatiblität möchte Yo auch qué beitragen - auch wenns heikel es. Yo bin no Meinung el lo umbedingt erforderlich es el todos Codes Rückwärtzkompatibel ser necesario. Bitte mi Formulierung beachten así Yo no fehlverstanden voluntad. Eher debería uno su ausgehen puede el cada XProfan auch con el neuesten Versión arbeitet. Dies es wohl en fast cada Software así - y no sólo una Art el Chaosvermeidung. Generell se hier also - sei porque anders verkündet - de el neusten offiziellen para Kauf ofrece XProfan-Versión gesprochen. Das lo natürlich no cada inmediatamente posible es - igual de welchem Grund - el neueste Versión a besitzen - versteht se de incluso - darf aber kein Hindernis darstellen.

Salve, IF
 
22.01.2005  
 




Zum Quelltext


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

29.206 Views

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

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