wie benutzt man declare function

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

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...???
Bild


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


Bild


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????


Bild


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


Bild


Betrifft: danke an alle, habs hingekriegt
von: ray
Geschrieben am: 26.11.2003 15:21:03

a


Bild


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


Bild


Betrifft: Danke oT
von: K.Rola
Geschrieben am: 26.11.2003 15:41:36

oT


Bild


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 ....


Bild


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 ....


Bild


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"



Bild

Beiträge aus den Excel-Beispielen zum Thema " wie benutzt man declare function"