Beep

Antworten
Yogi
Beiträge: 77
Registriert: 14.01.2011 16:25:26

Beep

Beitrag von Yogi »

Moin,

beim Lesen der Hilfe für BasicMaker 2021 Thema Beep las ich:
Beep

Gibt einen kurzen Ton aus.

Beispiel:

Sub Beep3x

Dim i As Integer

For i = 1 to 3

Beep

Next i

End Sub

Versuche damit ergaben, dass unter W8.1 gegen Erwarten ein konstant langer Gongton ausgegeben wird, unabhängig von der oberen Grenze der Forschleife.
Auch drei Beeps untereinander, wie folgt
Beep
Beep
Beep
ergaben nur einen Gongton.
Ich glaube das ist noch ein Relikt aus DOS-Zeiten. Vielleicht sollte die Hilfe hier angepasst werden. Hallo World und Beep sind schließlich verdammt wichtig :lol:
Grüße
Yogi
SuperTech
SoftMaker Team
SoftMaker Team
Beiträge: 3332
Registriert: 11.03.2020 17:30:08

Re: Beep

Beitrag von SuperTech »

Vielen Dank für die Meldung dieses Problems. Ich konnte es reproduzieren und habe die Details an unser Entwicklerteam weitergeleitet.
Benutzeravatar
Get
Beiträge: 231
Registriert: 08.12.2014 13:39:39
Kontaktdaten:

Re: Beep

Beitrag von Get »

das liegt am Tempo der modernen Rechner. In der Schleife entsteht keine für uns wahrnehmbare Pause, deswegen klingen die Töne wie ein einziger.
Wenn man in das Skript eine Pause einfügt, merkt man das:

Code: Alles auswählen

Dim i, warten As Integer

For i = 1 to 3

Beep
' -------------------------------------------------------------Nun eine Pause:
  warten = MsgBox ("Nochmal?", MB_OKCANCEL)
  if warten = IDCANCEL then End
'--------------------------------------------------------------Ende der Pause
Next i
Klick auf "OK" bringt den nächsten Ton der Schleife, "Abbrechen" beendet die Schleife vorzeitig.
Gerhard Etzel
Autor (gerhard-etzel-buch.de). Meine Bücher wurden alle mit Textmaker geschrieben!
Windows 10, SMO NX Universal 64 Bit Prof.
Intel(R) Core(TM) i5, 16 GB Ram
Benutzeravatar
Get
Beiträge: 231
Registriert: 08.12.2014 13:39:39
Kontaktdaten:

Re: Beep

Beitrag von Get »

P.S.
Eine Funktion wie "Sleep" oder "Delay" wäre ein nettes Feature in BM.
Gerhard Etzel
Autor (gerhard-etzel-buch.de). Meine Bücher wurden alle mit Textmaker geschrieben!
Windows 10, SMO NX Universal 64 Bit Prof.
Intel(R) Core(TM) i5, 16 GB Ram
Eierlein
Beiträge: 179
Registriert: 01.02.2010 19:38:04

Re: Beep

Beitrag von Eierlein »

Code: Alles auswählen

'http://vbarchiv.net/tipps/tipp_532-realisierung-einer-wait-funktion.html

Declare Function Pause Lib "kernel32" ALIAS "WaitForSingleObject" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long

' Ewartet wird die Zeitangabe in Millisekunden!
' z.B. 1000 für 1 Sekunde
' Pause -1, mSek
'----------------------------------------------------------------------------

Dim i&
For i = 1 to 3
    Beep
    Pause -1, 1000
Next i
Benutzeravatar
Get
Beiträge: 231
Registriert: 08.12.2014 13:39:39
Kontaktdaten:

Re: Beep

Beitrag von Get »

Eierlein hat geschrieben: 04.07.2021 17:14:38

Code: Alles auswählen

'http://vbarchiv.net/tipps/tipp_532-realisierung-einer-wait-funktion.html

Declare Function Pause Lib "kernel32" ALIAS "WaitForSingleObject" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long

' Ewartet wird die Zeitangabe in Millisekunden!
' z.B. 1000 für 1 Sekunde
' Pause -1, mSek
'----------------------------------------------------------------------------

Dim i&
For i = 1 to 3
    Beep
    Pause -1, 1000
Next i
Danke für die Info! :D
Gerhard Etzel
Autor (gerhard-etzel-buch.de). Meine Bücher wurden alle mit Textmaker geschrieben!
Windows 10, SMO NX Universal 64 Bit Prof.
Intel(R) Core(TM) i5, 16 GB Ram
Antworten

Zurück zu „BasicMaker 2021 für Windows“