Herbers Excel-Forum - das Archiv
wie benutzt man declare function
Betrifft: wie benutzt man declare function
von: ray
Geschrieben am: 26.11.2003 14:54:04
hallo Jörg,
bin link gefolgt:
Hallo, ich möchten folgendes benutzen und bekomme es nicht eingebaut.
kann mir jemand sagen wo und wie???
Declare
Function Ton& Lib "kernel32" _
Alias "Beep" _
(ByVal dwFrequenz As Long, _
ByVal dwDauer As Long)
Sub LautAn()
Ton 1000, 1000
MsgBox "Ok, alles klar!"
End Sub
bekomme das nicht eingebaut...wie baue ich die/das declare wo ein...???
Betrifft: AW: wie benutzt man declare function
von: K.Rola
Geschrieben am: 26.11.2003 15:05:14
Hallo,
einfach in ein Standardmodul kopieren:
Option Explicit
Private Declare
Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub ton()
Dim f As Long
For f = 100 To 2000 Step 200
Beep f, 50
Next
End Sub
Gruß K.Rola
Betrifft: AW: wie benutzt man declare function
von: ray
Geschrieben am: 26.11.2003 15:15:04
hallo k.rola
wenn ich das eingebe kommt immer fehler
ich hab in ein leeres modul ohne sub() folgendes eingeben
Option Explicit
Private Declare
Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
(hier macht das programm automatischen einen strich)
Sub ton()
Dim f As Long
For f = 100 To 2000 Step 200
Beep f, 50
Next
End Sub
...wohl ein fall von DAU. Bin ich zu blöd????
Betrifft: AW: wie benutzt man declare function
von: K.Rola
Geschrieben am: 26.11.2003 15:17:51
Hallo,
Private Declare Function Beep Lib ".....
müssen in eine Zeile, das wird hier dummer Weise immer auseinander-
gerissen.
Gruß K.Rola
Betrifft: danke an alle, habs hingekriegt
von: ray
Geschrieben am: 26.11.2003 15:21:03
a
Betrifft: AW: wie benutzt man declare function
von: Reinhard
Geschrieben am: 26.11.2003 15:31:00
Hallo KRola,
nimm den pre-Tag dann bleibt es zusammen.
Ohne pre:
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub ton()
Dim f As Long
For f = 100 To 2000 Step 200
Beep f, 50
Next
End Sub
Mit pre:
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub ton()
Dim f As Long
For f = 100 To 2000 Step 200
Beep f, 50
Next
End Sub
Gruß
Reinhard
Betrifft: Danke oT
von: K.Rola
Geschrieben am: 26.11.2003 15:41:36
oT
Betrifft: AW: wie benutzt man declare function
von: golem
Geschrieben am: 26.11.2003 15:19:13
Hi,
Declare in die selbe Zeile wie Function ....
Betrifft: AW: wie benutzt man declare function
von: golem
Geschrieben am: 26.11.2003 15:19:13
Hi,
Declare in die selbe Zeile wie Function ....
Betrifft: AW: wie benutzt man declare function
von: Reinhard
Geschrieben am: 26.11.2003 15:19:21
Hi ray,
schreib's in ein Modul, wobei ich aber glaube, es kann überall stehen.
aber nicht declare allein sondern so:
Declare Function Ton& Lib "kernel32" _
Alias "Beep" _
(ByVal dwFrequenz As Long, _
ByVal dwDauer As Long)
Sub LautAn()
Ton 400, 80
MsgBox "Ok, alles klar!"
End Sub
oder, wenn du mehrere Declares hast:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare Function Ton& Lib "kernel32" _
Alias "Beep" _
(ByVal dwFrequenz As Long, _
ByVal dwDauer As Long)
Sub LautAn()
Ton 400, 80
MsgBox "Ok, alles klar!"
End Sub
Sub test()
Dim x As Long
For x = 0 To 5000 Step 10
Beep x, 5000
Next x
End Sub
Das "_ "-Zeichen (vor und nachher immer ein Leerzeichen!) dient nur zum Zeilenumbruch wegen otischer Darstellung.
MsgBox "Huhu"
ist das Gleiche wie
MsgBox _
"Huhu"
