Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sleep Funktion

Sleep Funktion
15.03.2023 15:08:23
Antonio

Hallo liebe Gemeinde,
bis auf mein Thread "Metronom" ein Antwort bekomme, habe eine Frage:
da mein Metronom mit Verspätung startet, anstatt auf die 1, startet auf die 2, Siehe Post "Metronom" Mappe ist dabei,
habe gedacht ein "Sleep" einzubauen um die 1 zu überbrücken,
mein Problem ist das ich die BPM auf der Form einstellen kann,
und somit ist das Sleep hinfällig weil wenn die BPM höher oder nidriger werden
passt der eingestellter Wert für Sleep nicht mehr.
Wie kann ich dynamisch dieser Wert ändern?
Für jen Tipp bin ich dankbar.
LG Antonio

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sleep Funktion
15.03.2023 16:40:45
Zwenn
Hallo Antonio,

da es sich um BPM handelt, also um Beats Per Minute, ergibt sich die Berechnung Deines Sleep-Wertes aus der Wartezeit für eine Minute = 60.000 ms, den Du nur durch die Anzahl der Beats teilen musst, die Du in einer Minute haben möchtest. Da Du die Beats in einer UF einträgst, verwendest Du diesen Wert einfach in einer entsprechenden Rechnung, die Du statt eines festen Wertes für Sleep() einträgst.

Für 60 BPM muss also für jeden Takt eine Sekunde gewartet werden:
Sleep-Wert = 60.000 / 60 = 1.000

Für 120 BPM muss für jeden Takt eine halbe Sekunde gewartet werden:
Sleep-Wert = 60.000 / 120 = 500

Für 30 BPM muss für jeden Takt zwei Sekunden gewartet werden:
Sleep-Wert = 60.000 / 30 = 2.000

Die 60.000 sind also konstant und den Teiler nimmst Du einfach aus der UF.
Sleep (60000 / CLng(UFName.Textfeld))

Ich habe einfach ein Textfeld angenommen. Dann muss für die Berechnung ein Typecastig angewendet werden, um aus dem Text eine Ganzzahl vom Datentyp Long zu machen:
https://learn.microsoft.com/de-de/office/vba/language/concepts/getting-started/type-conversion-functions

Viele Grüße,

Zwenn


Anzeige
AW: Danke
15.03.2023 16:52:27
Antonio
Hi Zwenn,
das ist es, "Sleep (60000 / CLng(UFName.Textfeld))"
die Syntax hat mir gefehlt
Vielen Dank
LG Antonio

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige