Visual Basic 6 - Metronomo

Cosa ne pensate di questo metronomo fatto con la faìunzione integrata "beep"? Non ho curato molto la grafica perchè è per uso personale.

Edit: l'allegato...

lol carino xD
in che modo l'hai programmato il numero di bmp? con un timer?

Si... scusate ma per sbaglio non ho messo dentro il progetto... ho regolato i bpm così:

if text1.text then
'text1.text sarebbe la txt in cui si inseriscono i BPM,
'da cui ricavo l' intervallo del timer che fa "beep"
timer1.interval= 60 / val(text1.text) * 1000

E' solo quello il codice?
Si potrebbe avere il codice completo?
Credo serva una cosa del genere

Public Property Get Interval() As Integer
value = timer1.Interval
timer1.Interval = value
End Property

ma non l'ho mai usato e al momento non saprei come fare
Ciao

Cmq ho provato l 'EXE.
Non genera nessun suono ne beep.

Ciao

Sei sicuro di avere l' audio acceso? Inserisci i BPM e premi start!


Edit: ecco il progetto!

lol

Non ci crederai ma neanche questo sorgente va nel mio pc,considera che sto provando su un notebook

Non so per quale misterioso motivo,ma se tengo l'APi nel modulo non va,quindi il problema non è il tuo sorgente,se metto l'APi nel FORM funziona.

Modificando cosi' va benissimo

Private Declare Function MySound Lib "kernel32" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
MySound 80, 1000
'MySound 1000, 6000  'Suono da 8000 Hertz per 1000 millisecondi


For x = 100 To 1000 Step 20
MySound x, 100
Next
For y = 1000 To 100 Step -15
MySound y, 100
Next

End Sub

Cosi oltre al solito BEEP ci si puo' prendere spunto per fare i suoni dei videogiochi arcade di qualche anno fa'.

Piuttosto ricordo che nel GWBASIC c'era il comando SOUND sempre se ricordo bene,dove si potevano usare direttamente le note in inglese ,tempo e durata ,c'è qualcosa del genere in VB6?
Ciao