"Beeps" con diferentes tonos en basic

[Kaneex]

Disculpen si la pregunta es tonta. Luego de googlear un buen rato no logre dar con lo que necesitaba exactamente u.u.
Se a ciencia cierta que la bocina de la pc viene con diferentes tonos en sus "beeps" pero si apreto el comando
Beep()
Solo me tira el beep prefijado. Como lograria tener distintos tonos de "beeps"
(El programa en el que vi que esto se hacia estaba en bach. no se si se puede lograr el mismo efecto en basic).

Desde ya gracias por su paciencia

[seba123neo]

Hola, con la api Beep podes ajustar la frecuencia y el tiempo...ejemplo basico:

Código vb:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
Private Sub Command1_Click()
    Beep 1000, 500
End Sub
 

y si pones imaginación podes hacer bucles que aumenten la frecuencia en cada ciclo y asi obtener sonidos muy buenos..por ejemplo este parece el de mario bros jeje..

Código vb:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
Private Sub Command1_Click()
    Dim Cnt As Long
    For Cnt = 0 To 700 Step 10
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub
 

saludos.

[Kaneex]

Muchisimas gracias.
Disculpa no se que estare haciendo mal. Pero pongo el API - y pongo el Beep 1000, 50, etc y no sucede nada.


EDIT:
Tambien la propiedad .caption no me la toma (creo que en el 2005 se cambio al comando .text .. puede ser? o nada que ver)
Y el evento Doevents tambien lo cambiaron. No se como se llamara ahora.

[seba123neo]

como no pusiste que estabas trabajando con .NET asumi que era con visual basic 6...en .NET seria asi, no necesitas mas api's...

Código vb:

Public Class Form1
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Console.Beep(1000, 500)
    End Sub
 
End Class
 

y el otro:

Código vb:

Public Class Form1
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Cnt As Integer = 0 To 700 Step 10
            Console.Beep(Cnt, 50)
            Me.Text = Cnt
            Application.DoEvents()
        Next Cnt
    End Sub
End Class
 

saludos.

[Kaneex]

Muchiiisimas gracias ..
el programa funciona en otra computadora pero en la mia no .. puede ser que sea porque tengo vista o porque uso laptop?

De todos modos graacias :) ya tengo lo que necesito