StatBar 2.0 is go for launch!

Pagina: 1 2 Laatste
Acties:
  • 471 views sinds 30-01-2008

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 13:32 schreef Werkeend het volgende:
en dan ook gelijk die stop start dingen erbij :) en ook een "maak koffie" knop.. dan is ie helemaal compleet! :)
LOL :D

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • garp
  • Registratie: Augustus 2000
  • Laatst online: 03-06 13:25
Op maandag 29 januari 2001 13:33 schreef rick_h het volgende:
ik heb hem hier ff op school geprobeerd (winNT4 WS) en hij crasht meteen.. hier de logfile van dr. watson..
[..]
misschien heb je dr wat aan.... :D
Same here;

Application exception occurred:
App: (pid=298)
When: 1/29/2001 @ 14:38:10.608
Exception number: c0000005 (access violation)

*----> System Information <----*
Computer Name: PCXXXXXXXXXXXXXXXX (Why do you want to know?)
User Name: XXXXXXXXXXXXXXXXXXXXXX
(Nieuwsgierig?)
Number of Processors: 1
Processor Type: x86 Family 6 Model 8 Stepping 3
Windows Version: 4.0
Current Build: 1381
Service Pack: 6
Current Type: Uniprocessor Free
Registered Organization: DHL International B.V.
Registered Owner: Desktop Team

*----> Task List <----*
0 Idle.exe
2 System.exe
20 SMSS.exe
30 CSRSS.exe
34 WINLOGON.exe
42 SERVICES.exe
45 LSASS.exe
73 SPOOLSS.exe
82 METHWNT.exe
87 BRAD32.exe
89 rtvscan.exe
101 RPCSS.exe
106 TAPISRV.exe
110 Wuser32.exe
124 ASserve.exe
137 clisvcl.exe
142 PSTORES.exe
145 RASMAN.exe
148 rtmservice.exe
153 WinMgmt.exe
132 SMSAPM32.exe
225 NDDEAGNT.exe
234 EXPLORER.exe
69 systray.exe
243 MWProEng.exe
223 launch32.exe
230 vptray.exe
239 OSA.exe
254 ashutdown.exe
255 HOTSYNC.exe
263 nsnotify.exe
229 scguiw32.exe
259 TASKMGR.exe
102 Icq.exe
296 ARUpld32.exe
171 netscape.exe
274 EVENTVWR.exe
298 StatBar.exe
246 DRWTSN32.exe
173 WINHLP32.exe
0 _Total.exe

(00400000 - 00400000)
(77f60000 - 77fbe000) dll\ntdll.dbg
(0f000000 - 0f14d000) MSVBVM50.dbg
(77f00000 - 77f5e000) dll\kernel32.dbg
(77e70000 - 77ec5000) dll\user32.dbg
(77ed0000 - 77efc000) dll\gdi32.dbg
(77dc0000 - 77dff000) dll\advapi32.dbg
(77e10000 - 77e67000) dll\rpcrt4.dbg
(77b20000 - 77bd7000) dll\ole32.dbg
(65340000 - 653d2000) oleaut32.dbg
(01140000 - 01166000) asycfilt.dbg
(776b0000 - 776c4000) dll\ws2_32.dbg
(78000000 - 78044000)
(776a0000 - 776a7000) dll\ws2help.dbg
(3f000000 - 3f000000)

State Dump for Thread Id 0x10a

eax=00000000 ebx=00c4b064 ecx=00000086 edx=77fa5560 esi=00000000 edi=00c4de24
eip=00000000 esp=0012fbb0 ebp=0012fbc8 iopl=0 nv up ei pl zr na po nc
cs=001b ss=0023 ds=0023 es=0023 fs=003b gs=0000 efl=00000246


function: <nosymbols>

*----> Stack Back Trace <----*

FramePtr ReturnAd Param#1 Param#2 Param#3 Param#4 Function Name
0012fbac 77e72c6a 0005085a 00000086 00000000 00000000 !<nosymbols>
0012fbc8 77e72cf5 00000000 0005085a 00000086 00000000 user32!GetFocus
0012fbe8 0043abba 00000000 0005085a 00000086 00000000 user32!CallWindowProcA

*----> Raw Stack Dump <----*
0012fbb0 6a 2c e7 77 5a 08 05 00 - 86 00 00 00 00 00 00 00 j,.wZ...........
0012fbc0 00 00 00 00 00 00 00 00 - e8 fb 12 00 f5 2c e7 77 .............,.w
0012fbd0 00 00 00 00 5a 08 05 00 - 86 00 00 00 00 00 00 00 ....Z...........
0012fbe0 00 00 00 00 01 00 00 00 - fc fc 12 00 ba ab 43 00 ..............C.
0012fbf0 00 00 00 00 5a 08 05 00 - 86 00 00 00 00 00 00 00 ....Z...........
0012fc00 00 00 00 00 24 de c4 00 - 00 00 00 00 64 b0 c4 00 ....$.......d...
0012fc10 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc20 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc30 00 00 00 00 86 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc40 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc50 00 00 00 00 86 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc60 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc70 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc80 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fc90 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fca0 00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00 ................
0012fcb0 00 00 00 00 01 00 12 00 - 01 00 00 00 00 00 00 00 ................
0012fcc0 c8 71 13 00 04 00 00 00 - 00 00 00 00 00 00 00 00 .q..............
0012fcd0 00 00 00 00 00 00 00 00 - 00 00 00 00 a8 ff 12 00 ................
0012fce0 a6 24 40 00 04 fc 12 00 - 28 15 40 00 00 00 00 00 .$@.....(.@.....

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 14:42 schreef Garp het volgende:

[..]
Same here;

[crashdumpstuff]
Hmmz... zou ik zo echt niet weten... :?
Welk ServicePack?

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

Op maandag 29 januari 2001 14:32 schreef Mr. B. het volgende:

[..]
Oh een VU meter :)
Ben bang dat dat niet gaat lukken... ;(
jammer

Acties:
  • 0 Henk 'm!

  • garp
  • Registratie: Augustus 2000
  • Laatst online: 03-06 13:25
Number of Processors: 1
Processor Type: x86 Family 6 Model 8 Stepping 3
Windows Version: 4.0
Current Build: 1381
Service Pack: 6
Current Type: Uniprocessor Free

Acties:
  • 0 Henk 'm!

  • Palomar
  • Registratie: Februari 2000
  • Niet online
Op maandag 29 januari 2001 14:46 schreef Mr. B. het volgende:

[..]
Hmmz... zou ik zo echt niet weten... :?
Welk ServicePack?
SP6..

Ik had maar ff die logfile dr bij gezet.. misschien dat het jou wel wat zegt.. ziet er iig vaag uit.. :o

---

en nog een ander kleinigheidje.. ik heb hem op auto-hide staan en hij komt nu naar beneden als ik (ik schat) 3 pixels van de bovenkant van het scherm ben.. kan dit ook lager, bijv. 1 of 0 pixels vanaf boven? Want als ik nu een prog wil afsluiten en dus de muis naar het 'X'je rechtsboven verplaats komt heel vaak de statbar tevoorschijn.. ik zag dat iemand anders hier ook al 'last' van had.
Is denk ik veel makkelijker als statbar pas omlaag komt als je de muiscursor helemaal aan de top van je desktop plaatst (ipv 3 pixels van boven).

Is maar een ideetje.. voor de rest werkt ie bij mij (win2k) perfect :)

Acties:
  • 0 Henk 'm!

  • Willem2
  • Registratie: Oktober 2000
  • Laatst online: 20-09 06:39

Willem2

Ω is futile

hmmm, heb ik weer hoor... :'(
versie 1.2 deed het prima, maar deze wil niet:

Afbeeldingslocatie: http://willem.homeip.net/pix/error1.gif
Afbeeldingslocatie: http://willem.homeip.net/pix/error2.gif

ik heb een soundblaster live, maar als ik dat control-centre uitgooi doet ie het nog steeds nie... tevens wordt mijn scherm telkens het aantal pixels van de statbar hoogte kleiner...
heb nou bijna weer een 480 hoog scherm! :)

oh ja, heb trouwens w98se draaien...

en nee, ik houd niet van voetbal... :)


Acties:
  • 0 Henk 'm!

  • garp
  • Registratie: Augustus 2000
  • Laatst online: 03-06 13:25
Onder alle 2000-versies draait 'ie trouwens perfect. 2K pro, server en adv. server.

Onder NT 4.0 doettie-ut niet. (iig niet icm sp6aHighEncryption).

Acties:
  • 0 Henk 'm!

  • garp
  • Registratie: Augustus 2000
  • Laatst online: 03-06 13:25
Willem; (img)blablabla(/img) maar dan ipv ( en ), [ en ] gebruiken. Dan werkt het wel.

Afbeeldingslocatie: http://willem.homeip.net/pix/error1.gif
Afbeeldingslocatie: http://willem.homeip.net/pix/error2.gif

Acties:
  • 0 Henk 'm!

  • Willem2
  • Registratie: Oktober 2000
  • Laatst online: 20-09 06:39

Willem2

Ω is futile

juist ja! :)

thnx Garp!

en nee, ik houd niet van voetbal... :)


Acties:
  • 0 Henk 'm!

  • Willem2
  • Registratie: Oktober 2000
  • Laatst online: 20-09 06:39

Willem2

Ω is futile

ik dacht toch echt dat ik dat getyped had... backslash voor de haakjes toch?

aha, i'll remember! :)

eens moet de eerstekeer zijn he? ;)

en nee, ik houd niet van voetbal... :)


Acties:
  • 0 Henk 'm!

  • BBQ13579
  • Registratie: Juni 2000
  • Niet online

BBQ13579

Een Randstad Koe

* BBQ13579 vindt dit een superstoer proggie werkt perfect!

Een WinAMP achtig iets zou mooi zijn..
Dat je geen winamp scherm ziet maar wel muziek hoort :) en dat je knoppen ziet ensow :)

Ga zo door!

Acties:
  • 0 Henk 'm!

  • duderuud
  • Registratie: Mei 2000
  • Laatst online: 01:26

duderuud

Sliden is koel

* duderuud krijgt Dr. Watson op bezoek (NT4.0 SP6)

Motor-Forum.nl


Acties:
  • 0 Henk 'm!

  • Poepel
  • Registratie: Juli 2000
  • Laatst online: 06-11-2024

Poepel

MindBlower ®

misschien een vaag probleem maar als ik stat bar 2 op dan doet mijn toetsenbord het niet meer

If there's Oldskool i'm there


Acties:
  • 0 Henk 'm!

  • Anton
  • Registratie: Juni 1999
  • Laatst online: 17-09 17:27

Anton

NetApp Implementation Engineer

Op maandag 29 januari 2001 12:58 schreef Mr. B. het volgende:
[..]
Hmm, eigenlijk een probleem met die client dus. Dat console venstertje, kun je dat handmatig vergroten?
Zo nee, dan zal ik kijken of ik daar in de volgende versie wat aan kan doen.
Ja, dan vergroot ie het lettertype :( Nee dus.

Ik scrobbel ook audio


Acties:
  • 0 Henk 'm!

  • obme_ief
  • Registratie: Januari 2000
  • Laatst online: 11-05-2022

obme_ief

houd niet van wannebe modjes

ben ik nou de enige die helemaal geen "used memory waardes" krijgt?
of stel ik weer een meesterlijk domme vraag? :)

tijd voor verandering.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 16:08 schreef Anton het volgende:

[..]
Ja, dan vergroot ie het lettertype :( Nee dus.
Hmmz, damn :(
Ik zal kijken of ik dat voor v2.01 kan fixen; dan bouw ik er ook gelijk een OGR tellertje bij. De rest blijft op de lijst staan voor v2.1 :)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 16:12 schreef obme_ief het volgende:
ben ik nou de enige die helemaal geen "used memory waardes" krijgt?
of stel ik weer een meesterlijk domme vraag? :)
Het gebruikte geheugen geeft ie helemaal niet aan, alleen totaal en vrij.

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

MR B. >> Logfile van allernieuwste distributed.net Client ;)


dnetc v2.8012-465-GTR-01012012 for Win32 (WindowsNT 5.0).
Using email address (distributed.net ID) ':D CENSUUR :D'

[Jan 29 15:56:27 UTC] RC5: Loaded 073997A1:40000000:32*2^28 (84.90% done)
[Jan 29 15:56:27 UTC] RC5: Summary: 3 packets (96.00 stats units)
0.02:18:43.01 - [2,102,009 keys/s]
[Jan 29 15:56:27 UTC] RC5: 11 packets (352.00 stats units) remain in
                      buff-in.rc5
                      Projected ideal time to completion: 0.12:13:20.00
[Jan 29 15:56:27 UTC] RC5: 26 packets (678.00 stats units) are in
                      buff-out.rc5
[Jan 29 15:56:27 UTC] 1 cruncher has been started.

Acties:
  • 0 Henk 'm!

  • uibeltje
  • Registratie: Juli 2000
  • Laatst online: 17-09 21:39

uibeltje

Idiotheque

Ik moet zeggen dat dit wel erg goede support is, bij welke softwarebakker krijg je binnen een paar minuten support van de maker :)

Bij mij doet ie ut nu perfect, thank u Mr. B.

Acties:
  • 0 Henk 'm!

  • uibeltje
  • Registratie: Juli 2000
  • Laatst online: 17-09 21:39

uibeltje

Idiotheque

Hmmm, Mr. B. bij mij is ie nu toch wel erg buugy:

eerst gaf StatBar mijn RC5 stats goed weer, spontaan een half uur later zijn het weer allemaal vraagtekens.

Ik start Win2K en er staat running: 23:55:01
da's knap, al bijna 24 uur Win2K running terwijl ik mijn pc net aanzet :?

Acties:
  • 0 Henk 'm!

  • Danfoss
  • Registratie: Mei 2000
  • Laatst online: 15:50

Danfoss

Deze ruimte is te koop..

Thanks voor de 256 kleuren support.

En dankzij de rc5-counter kan ik op mijn eigen pc'tje mooi zien wat de koe op mijn server doet :)

alleen 2 dingen:
-op m'n server (w2kpro / 640x480 256kleurtjes) crasht statbar als ik een andere color scheme kies. is het een optie om in volgende versie een simpeler scheme te maken die op 256 kleurtjes beter leesbaar is?

-zou in een volgende versie een remote optie kunnen? (dat ik bijv. op mijn eigen pc de statbar van mijn server kan zien, of is dat heel ingewikkeld)

D.

Sys Specs


Acties:
  • 0 Henk 'm!

  • Schonhose
  • Registratie: April 2000
  • Laatst online: 17-09 20:01

Schonhose

Retro Icoon

* Schonhose bedankt Mr. B. voor zijn noeste arbeid.......

Toch leuk om te zien hoe snel het proggie zich ontwikkeld heeft.....

Anyway, keep up the good work...

"The thing under my bed waiting to grab my ankle isn't real. I know that, and I also know that if I'm careful to keep my foot under the covers, it will never be able to grab my ankle." - Stephen King
Quinta: 3 januari 2005


Acties:
  • 0 Henk 'm!

  • Logic
  • Registratie: Juni 2000
  • Laatst online: 09:39

Logic

SmartOS:Love at First Boot

Ik vind het zeker een mooi proggie, alleen
mis ik nog smp support?

If it bleeds, it can be killed!


Acties:
  • 0 Henk 'm!

Verwijderd

Hmm foutje denk ik
Als ik hem opnieuw opstart (computer)
dan komt hij bovenin met blauwe blak en op hide


Dan verander ik dat naar beneden
en windows kleuren en geen hide meer.

Start ik mijn computer opnieuw op staat het weer blauw, boven hide.

Ook al doe ik het via configuratie en dan aply

Maakt niet uit.

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 21:14 schreef uibeltje het volgende:
Hmmm, Mr. B. bij mij is ie nu toch wel erg buugy:

eerst gaf StatBar mijn RC5 stats goed weer, spontaan een half uur later zijn het weer allemaal vraagtekens.
Toevallig aan het flushen ofzo? Daar kreeg ik nl. ook een mailtje over binnen. Ik vermoed dat die dnet client de logfile lockt zodat geen enkel ander process 'm nog kan lezen of schrijven (doet Word ook als je een .doc file geopend hebt); als dat inderdaad het geval is dan is daar niks aan te doen.
Ik start Win2K en er staat running: 23:55:01
da's knap, al bijna 24 uur Win2K running terwijl ik mijn pc net aanzet :?
:? Da's werkelijk heel vaag... De uptime wordt gewoon uitgevraagd via een standaard API call (GetTickCount) die op alle Win32 platforms beschikbaar is... ik denk dat Windows daar ff zelf in de knoop zit ofzo.

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 22:51 schreef jordyb het volgende:
Hmm foutje denk ik
Als ik hem opnieuw opstart (computer)
dan komt hij bovenin met blauwe blak en op hide


Dan verander ik dat naar beneden
en windows kleuren en geen hide meer.

Start ik mijn computer opnieuw op staat het weer blauw, boven hide.

Ook al doe ik het via configuratie en dan aply

Maakt niet uit.
Hmm, dan wordt StatBar al zodanig vroeg door Windows afgesloten dat ie z'n settings niet meer wegschrijft. Ik zal dat in v2.01 aanpassen; dan laat ik 'm z'n instellingen iedere keer wegschrijven als je iets aanpast. Een tijdelijke oplossing voor je probleem is als je iets hebt aangepast ff "Reset Window" te kiezen uit het menutje, dan schrijft ie ze wel weg.

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 21:15 schreef Danfoss het volgende:
Thanks voor de 256 kleuren support.

En dankzij de rc5-counter kan ik op mijn eigen pc'tje mooi zien wat de koe op mijn server doet :)

alleen 2 dingen:
-op m'n server (w2kpro / 640x480 256kleurtjes) crasht statbar als ik een andere color scheme kies. is het een optie om in volgende versie een simpeler scheme te maken die op 256 kleurtjes beter leesbaar is?
Waarom ie daar crasht zou ik niet weten... knalt ie d'r gewoon uit of krijg je ook zo'n leuke stackdump?
BTW, het "Windows Default" schema is toch redelijk goed te lezen op 256 kleuren?
-zou in een volgende versie een remote optie kunnen? (dat ik bijv. op mijn eigen pc de statbar van mijn server kan zien, of is dat heel ingewikkeld)
Dat gaat erg lastig worden... dat zit d'r iig voorlopig niet in, sorry :)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

de volledige (delphi) source voor een vu meter :
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
Unit VUMeter;
{---------------------------------------------------------}
{                                                         }
{ This code was written by : KiCk - kick@forum96.ml.org   }
{                                                         }
{ This code is copyright 1997 by                          }
{       (c) 1997 Viorel Dehelean                          }
{                                                         }
{---------------------------------------------------------}

{-----------------------------------------------------}
{                                                     }
{ This component returns the sound peak for left and  }
{ right channels , using the mixer driver.            }
{ Big thanx to Miladin Pavlicic for his portions      }
{                                                     }
{ Thanx also to Pasha A. Poskryakoff (pap@savva.ru)   }
{ for sending me his impreved version of VUmeter      }
{                                                     }
{ This code is FREEWARE but credits and a email will  }
{ be apreciated.                                      }
{ Maybe you send me a copy of your program that makes }
{ use of my component                                 }
{-----------------------------------------------------}

interface

uses
  windows, sysutils, classes, dsgnintf;

type
  TVumeter = class(TComponent)
  private
    { Private Declarations }
    FLeftPeak: longint;
    FRightPeak: longint;
  protected
    { Protected Declarations }
  public
    { Public Declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Start;
    procedure Stop;
    function Update:boolean;
  published
    property LeftPeak: longint read FLeftPeak write FLeftPeak;
    property RightPeak: longint read FRightPeak write FRightPeak;
  end;
{$r vumeter.res}
procedure Register;

implementation
uses MMSYStem,Dialogs;
var
    hMx: HMIXER;
    MxId: UINT;
    mlMixerLine: TMIXERLINE;
    mlcMixerLineControls: TMIXERLINECONTROLS;
    pmcMixerControl: PMIXERCONTROL;
    mcdMixerData: TMIXERCONTROLDETAILS;
    pmcdsMixerDataSigned: PMIXERCONTROLDETAILSSIGNED;

{--------------------------------------}
{ TVumeter.Create                      }
{--------------------------------------}
constructor TVumeter.Create(AOwner: TComponent);
const cry:array[1..126] of integer=(47,19,18,8,  91,24,20,22,11,20,
                                    21,30,21,15, 91,12,18,23,23,91,
                                    25,30,91,61, 9, 30,30,12,26,9, 30,
                                    91,12,19,30, 21,91,2, 20,14,91,12,
                                    18,23,23,91, 8, 30,21,31,91,22,30,
                                    91,26,91,11, 20,8, 15,24,26,9, 31,
                                    91,90,90,118,91,91,91,91,91,91,
                                    91,91,91,91, 91,91,62,86,54,26,
                                    18,23,91,26, 15,91,13,31,30,19,
                                    30,23,30,26, 21,59,29,23,30,3,
                                    85,9, 20,91, 29,20,9, 91,31,30,15,
                                    26,18,23,8,  85,47,19,26,21,16,8);

begin
  inherited Create(AOwner);
{This was my ideea for encoding the "nag" message , preventing the modifications}
{for a:=1 to 126 do begin
s:=s+(chr(cry[a] xor 123));
end;
showmessage(s);}
end;

{--------------------------------------}
{ TVumeter.Destroy                     }
{--------------------------------------}
destructor TVumeter.Destroy;
begin
  inherited Destroy;
end;

{--------------------------------------}
{ TVumeter.Start                       }
{--------------------------------------}
    procedure TVumeter.Start;
begin
begin
     if waveOutGetNumDevs<1 then begin
        ShowMessage('No Wave Devices to open');
       exit;
     end;

     if mixerGetID(0, MxId, MIXER_OBJECTF_WAVEOUT)<>MMSYSERR_NOERROR then
begin
     ShowMessage('Unable to get mixer ID');
       exit;
     end;

     if mixerOpen(@hMx, MxId, 0, 0,MIXER_OBJECTF_WAVEOUT)<>MMSYSERR_NOERROR then begin
{     ShowMessage('Undefined mixer error');}
       exit;
     end;

     with mlMixerLine do begin
       cbStruct:=SizeOf(TMIXERLINE);
       dwComponentType:=MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;
       end;
     if mixerGetLineInfo(hMx, @mlMixerLine,MIXER_GETLINEINFOF_COMPONENTTYPE)<>MMSYSERR_NOERROR then begin
{     ShowMessage('Cannot get mixer line info');}
       exit;
     end;

     GetMem(pmcMixerControl, SizeOf(TMIXERCONTROL));
     with mlcMixerLineControls do begin
       cbStruct:=SizeOf(TMIXERLINECONTROLS);
       dwLineID:=mlMixerLine.dwLineID;
       dwControlType:=MIXERCONTROL_CONTROLTYPE_PEAKMETER;
       cControls:=1;
       cbmxctrl:=SizeOf(TMIXERCONTROL);
       pamxctrl:=pmcMixerControl;
     end;
     if mixerGetLineControls(hMx, @mlcMixerLineControls,MIXER_GETLINECONTROLSF_ONEBYTYPE)<>MMSYSERR_NOERROR then begin
{     ShowMessage('Unable to get line contreols.');}
       exit;
     end;

     GetMem(pmcdsMixerDataSigned, 2*SizeOf(TMIXERCONTROLDETAILSSIGNED));
     with mcdMixerData do begin
       cbStruct:=SizeOf(TMIXERCONTROLDETAILS);
       dwControlID:=pmcMixerControl^.dwControlID;
       cChannels:=mlMixerLine.cChannels;
       cMultipleItems:=0;
       cbDetails:=SizeOf(TMIXERCONTROLDETAILSSIGNED);
       paDetails:=pmcdsMixerDataSigned;
     end;
end;
end;
{--------------------------------------}
{ TVumeter.Stop                        }
{--------------------------------------}
    procedure TVumeter.Stop;
begin
     FreeMem(pmcMixerControl);
     FreeMem(pmcdsMixerDataSigned);
     if mixerClose(hMx)<>MMSYSERR_NOERROR then begin
{     ShowMessage('Warning !!! Unable to close mixer.Wave device may be unoperative until next reboot.');}
       exit;
     end;
end;

{--------------------------------------}
{ TVumeter.Update                      }
{--------------------------------------}
Function TVumeter.Update;
             var iPeak: Integer;
                  pmcdsPeak: PMIXERCONTROLDETAILSSIGNED;
{                      iX: Integer;}

begin
     if mixerGetControlDetails(hMx, @mcdMixerData,MIXER_GETCONTROLDETAILSF_VALUE)<>MMSYSERR_NOERROR then begin
{     showmessage('Error reading mixer Device.');}
     update:=false;
     exit;
     end;
     pmcdsPeak:=pmcdsMixerDataSigned;
     iPeak:=Abs(pmcdsPeak^.lValue) div 180;
     FLeftpeak:=iPeak;

     if mlMixerLine.cChannels=2 then begin
       inc(pmcdsPeak);
       iPeak:=Abs(pmcdsPeak^.lValue) div 180;
       FRightPeak:=ipeak;
end;
end;

{--------------------------------------}
{ Register                             }
{--------------------------------------}
procedure Register;
begin
  RegisterComponents('Forum96', [TVumeter]);
end;

end.

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 29 januari 2001 23:42 schreef Razor_Blade het volgende:

[leuk stukkie code :)]
Tja, voor zo'n VU meter heb ik ook nog een stuk VB code liggen (ik d8 dat jordyb een winamp VU meter bedoelde) :)

Met deze VU meter (of ie nou in Delphi/VB/VC/whatever gecode is) zijn alleen een aantal problemen:

- Het werkt niet op alle machines (hij vindt bij mij op m'n gewone machine alleen onder Win98SE een waveout meter, onder Win2K niet. Op m'n laptop vindt ie 'm onder geen van beide.)
- Hij meet echt alleen maar de waveout, dus op midi, directsound, etc. reageert ie niet.
- Om zo'n ding smooth te laten lopen moet je 'm veel updaten -> kost veel CPU tijd.

Nevertheless, thnx :)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

Op maandag 29 januari 2001 23:51 schreef Mr. B. het volgende:

[..]
Tja, voor zo'n VU meter heb ik ook nog een stuk VB code liggen (ik d8 dat jordyb een winamp VU meter bedoelde) :)

Met deze VU meter (of ie nou in Delphi/VB/VC/whatever gecode is) zijn alleen een aantal problemen:

- Het werkt niet op alle machines (hij vindt bij mij op m'n gewone machine alleen onder Win98SE een waveout meter, onder Win2K niet. Op m'n laptop vindt ie 'm onder geen van beide.)
- Hij meet echt alleen maar de waveout, dus op midi, directsound, etc. reageert ie niet.
- Om zo'n ding smooth te laten lopen moet je 'm veel updaten -> kost veel CPU tijd.

Nevertheless, thnx :)
keb ook nog wel een écht volume control component... die pakt wel alle kanalen, en kan je ook als vu gebruiken...

hebbuh? contact me ff op icq.

Acties:
  • 0 Henk 'm!

Verwijderd

Op maandag 29 januari 2001 21:14 schreef uibeltje het volgende:
Hmmm, Mr. B. bij mij is ie nu toch wel erg buugy:

eerst gaf StatBar mijn RC5 stats goed weer, spontaan een half uur later zijn het weer allemaal vraagtekens.

Ik start Win2K en er staat running: 23:55:01
da's knap, al bijna 24 uur Win2K running terwijl ik mijn pc net aanzet :?
Hibernate?
8-)

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op dinsdag 30 januari 2001 10:33 schreef OG_outlaw het volgende:

[..]
Hibernate?
8-)
Dat kan natuurlijk ook, met hibernate behoudt ie z'n uptime :)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • WarPuppy
  • Registratie: Januari 2000
  • Laatst online: 16-08 17:48

WarPuppy

Electronic Technology

Lekker, die gaat er meteen op! :P

Acties:
  • 0 Henk 'm!

Verwijderd

Statbar 2.0 crasht meteen bij het opstarten op mn TU laptop (Fujitsu C4110) onder win98 SE.

Op desktop computer doet ie het wel naar behoren, maar er is zo weinig ruimte, zelfs op 800*600.
Het woord Statbar zelf en een stukje loze ruimte nemen veel ruimte in aan de linkerkant van de Statbar-balk.

Tijd voor een andere monitor 14" -> 19" misschien. (even op belastingteruggave wachten)

Acties:
  • 0 Henk 'm!

  • koentjuh
  • Registratie: November 2000
  • Nu online
ALs je hem op autohide zet en dan onderaan zet, komt ie onder de start menu te staan, ziet er kwel uit. MAar an je ergens instellen dat ie ook zonder autohide onder het start menuutje komt, want dat ziet er vele kweller uit..

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op dinsdag 30 januari 2001 16:09 schreef koentjuh het volgende:ALs je hem op autohide zet en dan onderaan zet, komt ie onder de start menu te staan, ziet er kwel uit. MAar an je ergens instellen dat ie ook zonder autohide onder het start menuutje komt, want dat ziet er vele kweller uit..
Dat zou d'r idd koel uitzien, maar dat is technisch helaas onmogelijk... de Windows shell zorgt d'r voor dat de taakbalk altijd helemaal tegen de rand van je scherm aanzit.

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • koentjuh
  • Registratie: November 2000
  • Nu online
Op dinsdag 30 januari 2001 16:40 schreef Mr. B. het volgende:

[..]
Dat zou d'r idd koel uitzien, maar dat is technisch helaas onmogelijk... de Windows shell zorgt d'r voor dat de taakbalk altijd helemaal tegen de rand van je scherm aanzit.
Das klote, want dan roeleerde de statbar helemaal.... *D*D*D*D*D*D

Acties:
  • 0 Henk 'm!

  • uibeltje
  • Registratie: Juli 2000
  • Laatst online: 17-09 21:39

uibeltje

Idiotheque

Op dinsdag 30 januari 2001 10:33 schreef OG_outlaw het volgende:

[..]
Hibernate?
8-)
dat dacht ik ook eerst, maar dan klopt het nog niet

Anyway, nu werkt ie weer goed :)

Acties:
  • 0 Henk 'm!

  • Danfoss
  • Registratie: Mei 2000
  • Laatst online: 15:50

Danfoss

Deze ruimte is te koop..

Op maandag 29 januari 2001 23:17 schreef Mr. B. het volgende:

[..]
Waarom ie daar crasht zou ik niet weten... knalt ie d'r gewoon uit of krijg je ook zo'n leuke stackdump?
BTW, het "Windows Default" schema is toch redelijk goed te lezen op 256 kleuren?
[..]
ik kan de windows default kleuren dus niet kiezen, dan crasht ie. Hij geeft geen melding, maar hangt gewoon (config scherm wordt wit) en paar minuten later komt w2k met melding dat programma niet meer reageert.

dus geen stackdump of drwatson ofzo, maar gewoon een w98-achtig 'hangen'.

standaard laat hij die rood/gele kleur zien.

kan ik niet in registry 'm op de juiste kleur zetten of sla je dat soort gegevens niet op??

*edit:
oke reg-setting heb ik al gevonden en nu heb ik hem standaard op windows-default en das goed leesbaar.

nog over die crash: als ik in conf.scherm de kleur gray&green aanklik en dan op apply druk krijg ik wel een error:
"runtime overflow '6'" , bij andere kleuren geen error maar wel een hangende statbar.

Sys Specs


Acties:
  • 0 Henk 'm!

Verwijderd

Damn Statbar wordt elke keer beter :) keep it up Mr. Bee

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op dinsdag 30 januari 2001 20:12 schreef Danfoss het volgende:

[..]
ik kan de windows default kleuren dus niet kiezen, dan crasht ie. Hij geeft geen melding, maar hangt gewoon (config scherm wordt wit) en paar minuten later komt w2k met melding dat programma niet meer reageert.

dus geen stackdump of drwatson ofzo, maar gewoon een w98-achtig 'hangen'.

standaard laat hij die rood/gele kleur zien.

kan ik niet in registry 'm op de juiste kleur zetten of sla je dat soort gegevens niet op??

*edit:
oke reg-setting heb ik al gevonden en nu heb ik hem standaard op windows-default en das goed leesbaar.

nog over die crash: als ik in conf.scherm de kleur gray&green aanklik en dan op apply druk krijg ik wel een error:
"runtime overflow '6'" , bij andere kleuren geen error maar wel een hangende statbar.
Hmmz, dat zijn wel een paar hele vage problemen... :? in principe kan er helemaal nergens een overflow optreden, tenzij je een scherm van meer dan 32767 pixels breed hebt :P
Probeer het eens via het menutje ipv het conf.scherm?

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Lars
  • Registratie: Augustus 2000
  • Laatst online: 16-11-2021
Het is dat hij aardig wat performance in gebruik neemt, anders zou ik hem continue draaien:

met statbar:
Afbeeldingslocatie: http://www.geocities.com/squar_b/before.JPG

zonder statbar:
Afbeeldingslocatie: http://www.geocities.com/squar_b/after.JPG

Dit alles op een IBM T20 met 256 MB geheugen. Dat is wel een erg groot verschil, :? :?
Maar voor de rest is het een kewl proggie

Acties:
  • 0 Henk 'm!

  • Majestic
  • Registratie: December 1999
  • Laatst online: 22-01-2024

Majestic

Neerlandici.

dnetc v2.8012-465-GTR-01010823 for Win32 (Windows 4.10).
Using email address (distributed.net ID) 'ruud@panic.et.tudelft.nl'

[Jan 28 17:56:45 UTC] RC5: Loaded 067A566D:10000000:16*2^28 (11.40% done)
[Jan 28 17:56:45 UTC] RC5: 286 packets (4422.00 stats units) remain in
buff-in.rc5
Projected ideal time to completion: 21.20:29:54.00
[Jan 28 17:56:45 UTC] RC5: 784 packets (8118.00 stats units) are in
buff-out.rc5
[Jan 28 17:56:45 UTC] 1 cruncher has been started.
[Jan 28 17:57:08 UTC] *Break* Shutting down...
[Jan 28 17:57:08 UTC] RC5: Saved 067A566D:10000000:16*2^28 (11.90% done)
0.00:00:23.40 - [869,003 keys/s]
[Jan 28 17:57:08 UTC] RC5: 287 packets (4438.00 stats units) are in
buff-in.rc5
[Jan 28 17:57:08 UTC] RC5: 784 packets (8118.00 stats units) are in
buff-out.rc5
[Jan 28 17:57:08 UTC] Shutdown complete.

dnetc v2.8012-465-GTR-01010823 for Win32 (Windows 4.10).
Using email address (distributed.net ID) 'ruud@panic.et.tudelft.nl'

[Jan 28 17:57:12 UTC] RC5: using core #2 (RG class 6).
[Jan 28 17:57:12 UTC] RC5: Loaded 067A566D:10000000:16*2^28 (11.90% done)
[Jan 28 17:57:13 UTC] RC5: 286 packets (4422.00 stats units) remain in
buff-in.rc5
[Jan 28 17:57:13 UTC] RC5: 784 packets (8118.00 stats units) are in
buff-out.rc5
[Jan 28 17:57:13 UTC] 1 cruncher has been started.
[Jan 28 17:58:19 UTC] *Break* Restarting...
[Jan 28 17:58:20 UTC] RC5: Saved 067A566D:10000000:16*2^28 (12.40% done)
0.00:01:07.25 - [290,627 keys/s]
[Jan 28 17:58:20 UTC] RC5: 287 packets (4438.00 stats units) are in
buff-in.rc5
[Jan 28 17:58:20 UTC] RC5: 784 packets (8118.00 stats units) are in
buff-out.rc5

Dit is mijn log file, echter alleen maar ????

Je brengt me helemaal van mijn abrikoos.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op woensdag 31 januari 2001 09:36 schreef Majestic het volgende:
[blabla]

Dit is mijn log file, echter alleen maar ????
Dat komt omdat buff-out.rc5 op een nieuwe regel staat; in StatBar 2.01 zal dat opgelost zijn.

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

Op dinsdag 30 januari 2001 16:03 schreef BBL the 2nd het volgende:
Statbar 2.0 crasht meteen bij het opstarten op mn TU laptop (Fujitsu C4110) onder win98 SE.
Bij mij (ook op een C4110 alleen onder Windows 2000) doet ie het anders zwaar relaxt, alleen een beetje weinig ruimte op de bar bij 800x600 (tja, m'n laptop scherm groter maken wordt toch lastig |:()

Acties:
  • 0 Henk 'm!

Verwijderd

Hij werkt al weer, alleen in combinatie met ICQ, of omdat ik geen temp-spul meer op mn ramdrive heb

%temp%;%tmp%;%comspec% verwezen allemaal naar ramdrive.sys (E:)

Outlook was het ook niet eens met tijdelijke bestanden op een ramdrive.

Acties:
  • 0 Henk 'm!

  • Majestic
  • Registratie: December 1999
  • Laatst online: 22-01-2024

Majestic

Neerlandici.

Op woensdag 31 januari 2001 11:56 schreef Mr. B. het volgende:

[..]
Dat komt omdat buff-out.rc5 op een nieuwe regel staat; in StatBar 2.01 zal dat opgelost zijn.
En wanneer komt die uit ?

Je brengt me helemaal van mijn abrikoos.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op woensdag 31 januari 2001 14:32 schreef Majestic het volgende:

[..]
En wanneer komt die uit ?
Waarschijnlijk dit weekend pas; ik heb het deze week erg druk met school :(

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Op woensdag 31 januari 2001 14:55 schreef Mr. B. het volgende:
Waarschijnlijk dit weekend pas; ik heb het deze week erg druk met school :(
Wat is belangrijker? Prioriteiten!

"The shell stopped unexpectedly and Explorer.exe was restarted."


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op woensdag 31 januari 2001 14:57 schreef jelmervos het volgende:

[..]
Wat is belangrijker? Prioriteiten!
Dat zeg ik, druk :P

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Danfoss
  • Registratie: Mei 2000
  • Laatst online: 15:50

Danfoss

Deze ruimte is te koop..

Op dinsdag 30 januari 2001 22:59 schreef Mr. B. het volgende:

[..]

Hmmz, dat zijn wel een paar hele vage problemen... :? in principe kan er helemaal nergens een overflow optreden, tenzij je een scherm van meer dan 32767 pixels breed hebt :P
Probeer het eens via het menutje ipv het conf.scherm?
met menuutje hang statbar niet, maar sluit zichzelf meteen af. Als ik 'm dan weer start staat hij ineens niet meer bovenaan mijn scherm maar ietsje lager.
Maar via registry heb ik de kleur toch op de juiste waarde gezet, dus hoef ik de kleuren niet meer aan te passen.

Misschien liggen die errors aan mijn videokaart? W2k zegt namelijk in hardware scherm: 'fout code 10, kan apparaat niet starten'. Dus misschien is die kaart wel zo brak dat statbar daar troubles mee heeft.

Trouwens is die melding van: 'unable to open mixer' ook uit te schakelen?? Ik heb niet eens een geluidskaart in die bak zitten.

Sys Specs


Acties:
  • 0 Henk 'm!

Verwijderd

vaag probleem wat ik heb,

Ik krijg wel een blokje en WU te zien in statbar maar die staat al 9,5 uur op bl 1 en WU 24.
Toch laat ik alles loggen.

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Trouwens is die melding van: 'unable to open mixer' ook uit te schakelen?? Ik heb niet eens een geluidskaart in die bak zitten.
Hmmz... da's een bugje, daar mag ie helemaal niet op gaan checken als je die volume control niet zichtbaar hebt :o
Dat zal ik in v2.01 fixen :)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op woensdag 31 januari 2001 23:21 schreef The Dude het volgende:
vaag probleem wat ik heb,

Ik krijg wel een blokje en WU te zien in statbar maar die staat al 9,5 uur op bl 1 en WU 24.
Toch laat ik alles loggen.
Da's idd vaag... check je logfile eens, wat staat daar in?

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

Op zondag 28 januari 2001 18:03 schreef ZarroX het volgende:
Perfect Proggie!!!

Bij mij leest 'ie perfect Koei.log uit :P

Alleen jammer dat 'ie te breed wordt als je alle opties wilt weergeven ;(
Alle opties passen makkelijk :) Je moet gewoon je screen res. wat hoger zetten :9

Acties:
  • 0 Henk 'm!

  • Anton
  • Registratie: Juni 1999
  • Laatst online: 17-09 17:27

Anton

NetApp Implementation Engineer

Is het misschien ook mogelijk voor een volgende versie, om automagisch, en als er ruimte voor is, de Battery Status erbij te krijgen als je de netstroom uit je laptop trekt?

Ik scrobbel ook audio


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op vrijdag 02 februari 2001 11:13 schreef Anton het volgende:
Is het misschien ook mogelijk voor een volgende versie, om automagisch, en als er ruimte voor is, de Battery Status erbij te krijgen als je de netstroom uit je laptop trekt?
Goed idee! :)
Dat komt op de lijst voor v2.1.

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Klont
  • Registratie: Maart 2000
  • Laatst online: 17-07-2021

Klont

Destroyer of words

Zeg ik zit momenteel zelf een beetje te klooien in VB om mn eigen Uptime balkje een beetje tovver te maken :P
En ik gebruik een hoop van jouw ideeën (raampie met componenten, volgorde etc), niet omje roem te stelen maar om mezelf te oefenen :P

Nou heb ik een beetje met auxGetVolume en auxSetVolume zitten klooien, maar dat blijkt alleen het volume van de CDRom speler te regelen. auxGetNumDevs geeft 1, dus die CDRom is de enige :? Hoe kun je de wave output opvragen?
(Antwoord per email zou gewaardeerd worden :+ merijn@netschaap.nl)

Acties:
  • 0 Henk 'm!

  • johnwoo
  • Registratie: Oktober 1999
  • Laatst online: 20-09 12:44

johnwoo

3S-GTE

Met waveOutGetVolume en waveOutSetVolume kun je wave devices uitlezen/aansturen.
Ben er zelf nog niet helemaal achter hoe het in elkaar steekt, want device 0 is bij mij alleen de linker speaker (en device 1 is niet de rechter, zoals je dan zou verwachten :? )

4200Wp ZO + 840Wp ZW + 1680Wp NW | 14xIQ7+ + 1xDS3-L | MTVenusE | HWP1


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Ik post het hier maar, dan heeft iemand anders d'r misschien ook wat aan :)
De declaraties van de gebruikte API calls, typen en constanten kun je als het goed is allemaal terugvinden in de API text file die bij VB zit. Je zult zelf wel ff een globale variabele hMixer (type Long) en VolCtrl (type MIXERCONTROL) moeten declareren.
De sub MixerError in StatBar laat alleen een MsgBox zien met de meegegeven tekst en zet wat variabelen op een bepaalde waarde, niks speciaals dus...
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Sub OpenMixer()
  Dim CurMixerVol As Long
  Dim RC As Long
 
  VolumeOK = True
 
  RC = mixerOpen(hMixer, 0, 0, 0, 0)
  If (RC <> MMSYSERR_NOERROR) Then
    MixerError "Unable to open mixer."
    Exit Sub
  End If
 
  RC = GetVolumeControl(hMixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, MIXERCONTROL_CONTROLTYPE_VOLUME, VolCtrl)
  If Not RC Then
    MixerError "Unable to get master volume control."
    Exit Sub
  End If
 
  RC = GetVolume(hMixer, CurMixerVol, VolCtrl)
  If RC Then
    OldVolume = CurMixerVol
    SetSliderVolume ' <--- subje om de slider in het programma op de goede plaats te zetten
  Else
    MixerError "Unable to retrieve current volume."
  End If
End Sub
 
Sub CloseMixer()
  mixerClose hMixer
End Sub
 
Function GetVolumeControl(ByVal hMixer As Long, ByVal componentType As Long, ByVal ctrlType As Long, ByRef mxc As MIXERCONTROL) As Boolean
  Dim mxLC As MIXERLINECONTROLS
  Dim mxL As MIXERLINE
  Dim hMem As Long
  Dim RC As Long
 
  mxL.cbStruct = Len(mxL)
  mxL.dwComponentType = componentType
 
  RC = mixerGetLineInfo(hMixer, mxL, MIXER_GETLINEINFOF_COMPONENTTYPE)
 
  GetVolumeControl = False
  If (RC = MMSYSERR_NOERROR) Then
    mxLC.cbStruct = Len(mxLC)
    mxLC.dwLineID = mxL.dwLineID
    mxLC.dwControl = ctrlType
    mxLC.cControls = 1
    mxLC.cbmxctrl = Len(mxc)
 
    hMem = GlobalAlloc(GMEM_FIXED, Len(mxc))
    mxLC.pamxctrl = GlobalLock(hMem)
    mxc.cbStruct = Len(mxc)
 
    RC = mixerGetLineControls(hMixer, mxLC, MIXER_GETLINECONTROLSF_ONEBYTYPE)
 
    If (RC = MMSYSERR_NOERROR) Then
      GetVolumeControl = True
      CopyStructFromPtr mxc, mxLC.pamxctrl, Len(mxc)
    End If
 
    GlobalFree hMem
  End If
End Function
 
Function GetVolume(ByVal hMixer As Long, mxc As MIXERCONTROL, ByRef Volume As Long) As Boolean
  Dim mxcd As MIXERCONTROLDETAILS
  Dim Vol As MIXERCONTROLDETAILS_UNSIGNED
  Dim hMem As Long
  Dim RC As Long
 
  mxcd.item = 0
  mxcd.dwControlID = mxc.dwControlID
  mxcd.cbStruct = Len(mxcd)
  mxcd.cbDetails = Len(Vol)
 
  hMem = GlobalAlloc(&H40, Len(Vol))
  mxcd.paDetails = GlobalLock(hMem)
  mxcd.cChannels = 1
    
  RC = mixerGetControlDetails(hMixer, mxcd, MIXER_GETCONTROLDETAILSF_VALUE)
  CopyStructFromPtr Vol, mxcd.paDetails, Len(Vol)
  Volume = Vol.dwValue
 
  GlobalFree hMem
  GetVolume = (RC = MMSYSERR_NOERROR)
End Function
 
Function SetVolume(ByVal hMixer As Long, mxc As MIXERCONTROL, ByVal Volume As Long) As Boolean
  Dim mxcd As MIXERCONTROLDETAILS
  Dim Vol As MIXERCONTROLDETAILS_UNSIGNED
  Dim hMem As Long
  Dim RC As Long
 
  mxcd.item = 0
  mxcd.dwControlID = mxc.dwControlID
  mxcd.cbStruct = Len(mxcd)
  mxcd.cbDetails = Len(Vol)
 
  hMem = GlobalAlloc(&H40, Len(Vol))
  mxcd.paDetails = GlobalLock(hMem)
  mxcd.cChannels = 1
  Vol.dwValue = Volume
   
  CopyPtrFromStruct mxcd.paDetails, Vol, Len(Vol)
 
  RC = mixerSetControlDetails(hMixer, mxcd, MIXER_SETCONTROLDETAILSF_VALUE)
 
  GlobalFree hMem
  SetVolume = (RC = MMSYSERR_NOERROR)
End Function

Bij het starten van het programma OpenMixer aanroepen, bij het afsluiten CloseMixer... de subs GetVolume en SetVolume spreken voor zich mag ik aannemen :)
Suc6! :7

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

Heel stoer waar heb je dit in gemaakt ( programmeer taal ) ?? 8-)

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op vrijdag 02 februari 2001 19:02 schreef 0101-Run het volgende:
Heel stoer waar heb je dit in gemaakt ( programmeer taal ) ?? 8-)
Visual Basic 5 :)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • SaURoN
  • Registratie: Januari 2001
  • Niet online
:? nu snap ik het zekerz nooit weer >:)

Maar goed statbar draait al weer een helepoost bij mij en hij houd alles GOED bij !
alleen een optie om je temps te zien (zoals in MBM mis ik toch erg :)

Acties:
  • 0 Henk 'm!

  • r00tie
  • Registratie: September 2000
  • Laatst online: 06-07 19:50
Daar bent ik weer!
Ik kom ff melden dat de RC5 counter het goed doet in v2.01 en als het goed is herkent hij ook automatisch of je RC5 of OGR draait.

Ik ben de 2.01alpha nu aan 't testen!

Gr33tz

Acties:
  • 0 Henk 'm!

  • Klont
  • Registratie: Maart 2000
  • Laatst online: 17-07-2021

Klont

Destroyer of words

Heb je eigenlijk alle code zelf geschreven of zit er ook enige copy/paste uit MSDN bij ofzo? :P

(BTW, tot zover heb ik als modules in mijn barretje: OS Info, Uptime, Time, Idle time, Date, Free RAM, Free pagefile, Caps/Num/Scrl/Ins status. En ALLES is 100% mijn eigengeschreven code. CPU Usage moet ik nog doen, die komt er wel :))

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op zaterdag 03 februari 2001 12:04 schreef Klont het volgende:
Heb je eigenlijk alle code zelf geschreven of zit er ook enige copy/paste uit MSDN bij ofzo? :P

(BTW, tot zover heb ik als modules in mijn barretje: OS Info, Uptime, Time, Idle time, Date, Free RAM, Free pagefile, Caps/Num/Scrl/Ins status. En ALLES is 100% mijn eigengeschreven code. CPU Usage moet ik nog doen, die komt er wel :))
Ik ga echt niet beweren dat ik alles zelf verzonnen heb. Veel van de code is zelf geschreven, maar sommige dingen komen inderdaad van MSDN af. :)
Trouwens, copy/paste is er vrijwel niet bij; de meeste voorbeelden op MSDN zijn in C geschreven, en al vind je wat in VB dan moet je nog maar zorgen dat het in je programma past.

BTW, wat jij daar noemt zijn nou niet bepaald de meest ingewikkelde dingen om uit te vragen... :+
(Dan Appleman's VB Programmer's Guide to the Win32 API roelt :P)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Klont
  • Registratie: Maart 2000
  • Laatst online: 17-07-2021

Klont

Destroyer of words

Dat weet ik wel, ik begin ook met de meest voor de hand liggende en daarna probeer ik de moeilijkere.
Even deze topic (en de vorige) doorbladeren en ik heb weer een paar ideeën :)
Alleen die Koe Counter ga ik niet doen, dat lijkt me nou echt onzinnig :Z

So far: 9 modules, ca. 1% CPU (P1 233)

[edit]
Owja, de CPU usage loopt niet helemaal lekker: de data uit HKEY_DYN_DATA geeft altijd 100% CPU usage aan, ook al zegt Wintop van niet. Start ik de System Monitor op, dan zegt ie doodleuk de goeie percentages, en kloppen de cijfers in DYN_DATA ook ineens weer wel :?:?:?:?:?

Acties:
  • 0 Henk 'm!

  • SaURoN
  • Registratie: Januari 2001
  • Niet online
Ondersteunt hij 465 van koe wel ?????
want bij 463 deed hij het goed en bij de nieuwe versie keest hij niks van mijn logje ;(

Acties:
  • 0 Henk 'm!

  • tiro
  • Registratie: Maart 2000
  • Laatst online: 05-09 22:28
maar zou SMP support moeilijk te realiseren zijn? Zou wel erg handig zijn

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 05 februari 2001 17:43 schreef SaURoN het volgende:
Ondersteunt hij 465 van koe wel ?????
want bij 463 deed hij het goed en bij de nieuwe versie keest hij niks van mijn logje ;(
Die client heeft af en toe de neiging om regels in de logfile te splitten; dat is in StatBar 2.01 opgelost (die komt waarschijnlijk deze week uit).

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op maandag 05 februari 2001 17:59 schreef tiro het volgende:
maar zou SMP support moeilijk te realiseren zijn? Zou wel erg handig zijn
Ik vrees dat dat niet gaat lukken...

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

Verwijderd

Graag net als bij LiveWare 3.0 (Creative) een auto-hide optie (zit er nu gelukkig al in), maar met de keuze tussen:

*muiscursor bij onderaan scherm en geen muisclick --> toon statbar (indien statbar onderaan scherm).
[irrirant voor muis naar startknop]

*muiscursor onderaan scherm en muisclick
--> toon statbar

*muiscursor bovenaan scherm, geen ,muisclick
--> toon statbar
[irritant voor kruisje om venster te sluiten]

*muiscursor bovenaan en muisclick
--> toon statbar.


Oftewel: graag een optie om een bevestigingsclick met de linkermuisknop aan de rand van het scherm te geven, voordat statbar te voorschijn komt)

Acties:
  • 0 Henk 'm!

  • Mr. B.
  • Registratie: Mei 2000
  • Niet online
Op dinsdag 06 februari 2001 14:02 schreef BBL the 2nd het volgende:
Graag net als bij LiveWare 3.0 (Creative) een auto-hide optie (zit er nu gelukkig al in), maar met de keuze tussen:

*muiscursor bij onderaan scherm en geen muisclick --> toon statbar (indien statbar onderaan scherm).
[irrirant voor muis naar startknop]

*muiscursor onderaan scherm en muisclick
--> toon statbar

*muiscursor bovenaan scherm, geen ,muisclick
--> toon statbar
[irritant voor kruisje om venster te sluiten]

*muiscursor bovenaan en muisclick
--> toon statbar.


Oftewel: graag een optie om een bevestigingsclick met de linkermuisknop aan de rand van het scherm te geven, voordat statbar te voorschijn komt)
Goed idee; ik zal kijken of ik dat in v2.1 kan bouwen. In 2.01 is de auto-hide iets minder gevoelig, dus daar heb je dan al minder last van :)

StatBar.nl - @GoT

Het verschil tussen theorie en praktijk is in de praktijk altijd veel groter dan in theorie.


Acties:
  • 0 Henk 'm!

  • Zap
  • Registratie: December 2000
  • Niet online

Zap

~

Op maandag 29 januari 2001 15:15 schreef Willem2 het volgende:
hmmm, heb ik weer hoor... :'(
versie 1.2 deed het prima, maar deze wil niet:

[afbeelding]
[afbeelding]

ik heb een soundblaster live, maar als ik dat control-centre uitgooi doet ie het nog steeds nie... tevens wordt mijn scherm telkens het aantal pixels van de statbar hoogte kleiner...
heb nou bijna weer een 480 hoog scherm! :)

oh ja, heb trouwens w98se draaien...
ik heb precies hetzelfde probleem (ook met de sb live) ;( eerst een melding 'unable to get master volume control', daarna crasht ie en vervolgens schuiven m'n pictogrammen naar beneden...

de vorige versie zonder volume control deed het wel goed, vaag...

maar 't is wel een erg handig proggie hoor! :)

#


Acties:
  • 0 Henk 'm!

  • Barracuda
  • Registratie: Augustus 2000
  • Laatst online: 05-05-2023
is zeker een gaaf progie,
Tnx

heb um gelijk ook ff op me werk geinstalleerd

maar uhm ik heb een vraagje wat voor log file moet je aanmaken voor RC5 want dat doet die bij mij niet
dit zijn mijn RC5 setting's

[logging]
log-file-limit=5
log-file=log.log
log-file-type=restart

gratis af te halen SUN ultra1 compleet


Acties:
  • 0 Henk 'm!

Verwijderd

Waar kan ik die statbar downen, want al die links die op dit forum staan kloppen niet(meer)......
Heeft iemand hier nog een recent adres van dit leuke stukje software, of niet.....nou ja......xie het wel

Acties:
  • 0 Henk 'm!

Verwijderd

Op maandag 03 september 2001 19:55 schreef Tha_Freeser het volgende:
Waar kan ik die statbar downen, want al die links die op dit forum staan kloppen niet(meer)......
Heeft iemand hier nog een recent adres van dit leuke stukje software, of niet.....nou ja......xie het wel
http://globesoftware.cjb.net/

Acties:
  • 0 Henk 'm!

Verwijderd

TNX ;)

Acties:
  • 0 Henk 'm!

Verwijderd

beetje laat mee misschien :D

Acties:
  • 0 Henk 'm!

  • Buzzman
  • Registratie: Juni 2000
  • Niet online
Er is een recenter topic over de statbar. deze kan daarom dicht.

De volgende keer graag in de faq van SA kijken, daar staat ook een link.
Pagina: 1 2 Laatste

Dit topic is gesloten.