Beeper

Télécharger le projet
Commenter

Description

Ba, il y a pas grand chose à dire à part qu'il fait un beep à la fréquance voulu.
Ce programme est tres tres simple il permet au debutant de connetre l'API beep.

Voici le code:

Source / Exemple : 


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

Private Sub Command1_Click()
Beeper SliderFrequance, 1000
End Sub

Private Sub Command2_Click()
Beeper SliderFrequance, 5000
End Sub

Private Sub Command3_Click()
Beeper SliderFrequance, 10000
End Sub

Private Sub Command4_Click()
Beeper SliderFrequance, 60000
End Sub

Private Sub Form_Load()
Rafrech.Interval = RafrechTime
Timeaffiche.Caption = RafrechTime
LabelFrequance.Caption = SliderFrequance
End Sub

Private Sub Rafrech_Timer()
Timeaffiche.Caption = RafrechTime
Rafrech.Interval = RafrechTime
LabelFrequance.Caption = SliderFrequance
End Sub

Conclusion :


Et je sais, pas la peine de présiser je suis le chambion des fautes d'orthographes. Merci.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (pcman5)