System højtaler

beep

Er funktionen ikke bare Beep?

Nej, Beep kommer med en lyd i de alm højtaler men det er system højtaleren jeg vil have til at gige et bib.

Som der står i hjælpefilen:
Sounds a tone through the computer's speaker

Syntax
Beep

Ja det er gennem computerens højtaler (lydkortet's udgang) men det er ikke det jeg søger, det jeg søger er at computeren skal give et bib gennem bundkortets system højtaler (ikke lydkortets udgang).

Jeg har intet lydkort på mit arbejde. Og den siger BEEP

Det er derfor den siger bib i systemhøjtaleren :) men hvis man har lydkort installeret kommer den med den tone man har vælge som "Kritisk" eller sådan noget.

Genstart computeren... Hiv evt. grafikkortet ud. Så får du nok en 3-4 stykker :)

He he det er næsten point værd :) venter lige og ser om ikke der kommer et bedre svar :)

prøv med denne api, jeg har det sværre ikke noget lydkort

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

      '100 hertz, 50 milliseconds
        Beep 100, 50

nu skal du bare ramme den rigtige tone :)

den her virker på min computer:

'--------------------- Form1 ---------------------
Option Explicit

Private Declare Function Beep Lib "kernel32" ( _
                        ByVal dwFreq As Long, _
                        ByVal dwDuration As Long) As Long

Private Sub Form_Activate()
Dim i As Long
  For i = 0 To 5000 Step 10
    Beep i, 20
      Me.Caption = i
    DoEvents
  Next i
End Sub
'--------------------- Form1 ---------------------

lokespas >> Du glemte svar :) men tak for hjælpen
sjh >> Du huskede svar så pointene er dine :) mange tak for hjælpen det var lige præsis det jeg ledte efter :)

selv tak :-)