Play .WAV (example 1)
Check if soundcard exist and then play a wave-file. http://137.56.41.168:2080/VisualBasicSource/vb4playwav.txt
AI
ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
كود المصدر
'Add the following code to the Command1_Click event on a form: Private Sub Command1_Click() 'Add the following code to the Command1_Click event: Dim i As Long Const SoundFileName$ = "c:\sb16\samples\s_16_44.wav" i = waveOutGetNumDevs() If i > 0 Then 'There is at least one sound device. i& = sndPlaySound(SoundFileName$, Flags&) Else Beep End If End Sub
التعليقات الأصلية (3)
مسترجع من Wayback Machine