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
Grüße
Yogi
Beep
Re: Beep
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:
Klick auf "OK" bringt den nächsten Ton der Schleife, "Abbrechen" beendet die Schleife vorzeitig.
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
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
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
Re: Beep
P.S.
Eine Funktion wie "Sleep" oder "Delay" wäre ein nettes Feature in BM.
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
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
Re: Beep
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
Re: Beep
Danke für die Info!Eierlein hat geschrieben: ↑04.07.2021 17:14:38Code: 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
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
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