CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

decko Nybegynder

09. december 2003 - 14:48 Der er 7 kommentarer og
1 løsning

Max volume, min volume

Hvis jeg nu har sagt at hver gang man trykker "vol +" stiger volumen med 4000 (det maksimale med det komponent jeg bruger er 65535. Men hvis den nu står på 65000 altså 535 fra det maksimale og man så trykker "vol +" starten den forfra på volumen. Håber I kan hjælpe, og forstå hvad jeg mener?

Synes godt om

Slettet bruger

09. december 2003 - 15:47 #1

Du kan tjekke om volumen kommer over 65535 eller under 0, hver gang du trykker på "vol +" eller "vol -", måske noget i den her stil:

Inc(I, 4000);
if 65535 < I then
I := 65535;

Synes godt om

decko Nybegynder

09. december 2003 - 15:58 #2

Hvis du mener sådan her, virker det ikke:

var
i : integer
begin
if 65535 < i then
Vol.MasterVolume:= 65535
else
Vol.MasterVolume:= i +4369;
i:= Vol.MasterVolume;

Synes godt om

Slettet bruger

09. december 2003 - 16:02 #3

Jeg mener:

var
i : integer
begin
Vol.MasterVolume:= i +4369;
if 65535 < Vol.MasterVolume then
Vol.MasterVolume:= 65535
i := Vol.MasterVolume;

Synes godt om

athlon-pascal Juniormester

09. december 2003 - 16:05 #4

Noget i retning af dette:

var
i, volume: integer
begin
volume := Vol.MasterVolume + 4000;
if volume > 65535 then
volume := 65535;
Vol.MasterVolume := volume;
i := Vol.MasterVolume;
end;

Synes godt om

decko Nybegynder

09. december 2003 - 16:19 #5

Efter at have rettet i din kode ser den sådan ud, og virker ikke!

var i : integer;
begin
Vol.MasterVolume:= i +4369;
if 65535 < Vol.MasterVolume then
Vol.MasterVolume:= 65535;
i:= Vol.MasterVolume;

Synes godt om

athlon-pascal Juniormester

09. december 2003 - 16:21 #6

Prøv min kode, jeg har dog ikke selv prøvet det...

Synes godt om

decko Nybegynder

09. december 2003 - 16:21 #7

Wuhu, athlon-pascals' kode virker. Post lige et svar!

Synes godt om

athlon-pascal Juniormester

09. december 2003 - 16:22 #8

Svar :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29
Modifyed Field for all Records in Access Af ingeman i Andet programmering	2	29/04/202416:05	30/04/202407:19
Delphi - Parser JSON Fil Af juzas i Andet programmering	4	25/02/202407:13	28/02/202420:56
Bat fil Af sjass i Andet programmering	5	15/01/202417:45	15/01/202420:35

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS