помогите разобраться с mciSendString

[BOO]

Как то раньше не приходилось пользоваться mciSendString, но вот,так сказать, время пришло но я че то немогу понять как им пользоваться для проигрывания файлов!!
Может кто напишет какие файлы как проигрывать ну и прочиее "нюансы"

[GSerg]

Нюансов до фига, вперёд и с песней...

[Erkin]

В примерах программ для VB5 или VB6
есть классный пример для воспроизведения введённой цифры
на английском языке
С небольшими преобразованиями он у меня стал
автоинформатором времени

если не найдешь пиши Erkin@dinosoft.uz помогу

[Робинович]

Мало там особенно на vb!

[Erkin]

бери
кусок понравится напиши на mail

Option Explicit
Private Declare Function mciSendStringA Lib "WinMM" _
(ByVal mciCommand As String, ByVal returnStr As String, _
ByVal returnLength As Integer, ByVal callBack As Integer) As Long
Private Declare Function mciGetErrorStringA Lib "WinMM" _
(ByVal error As Long, ByVal buffer As String, _
ByVal length As Integer) As Integer

Private Sub ReadSingle(number)
Dim errorCode As Integer
Dim returnStr As Integer
Dim returnCode As Integer
Dim errorStr As String * 256

If number = 1 Then
errorCode = mciSendStringA("play numbers from 500 to 1500 wait", returnStr, 255, 0)
ElseIf number = 2 Then
errorCode = mciSendStringA("play numbers from 1500 to 2500 wait", returnStr, 255, 0)
ElseIf number = 3 Then
errorCode = mciSendStringA("play numbers from 2500 to 3500 wait", returnStr, 255, 0)
ElseIf number = 4 Then
errorCode = mciSendStringA("play numbers from 3500 to 4500 wait", returnStr, 255, 0)
ElseIf number = 5 Then
errorCode = mciSendStringA("play numbers from 4500 to 5500 wait", returnStr, 255, 0)
ElseIf number = 6 Then
errorCode = mciSendStringA("play numbers from 5500 to 6500 wait", returnStr, 255, 0)
ElseIf number = 7 Then
errorCode = mciSendStringA("play numbers from 6500 to 7500 wait", returnStr, 255, 0)
ElseIf number = 8 Then
errorCode = mciSendStringA("play numbers from 7500 to 8500 wait", returnStr, 255, 0)
ElseIf number = 9 Then
errorCode = mciSendStringA("play numbers from 8500 to 9500 wait", returnStr, 255, 0)
ElseIf number = 10 Then
errorCode = mciSendStringA("play numbers from 9500 to 10500 wait", returnStr, 255, 0)
ElseIf number = 11 Then
errorCode = mciSendStringA("play numbers from 10500 to 11500 wait", returnStr, 255, 0)
ElseIf number = 12 Then
errorCode = mciSendStringA("play numbers from 11500 to 12500 wait", returnStr, 255, 0)
ElseIf number = 13 Then
errorCode = mciSendStringA("play numbers from 12500 to 13500 wait", returnStr, 255, 0)
ElseIf number = 14 Then
errorCode = mciSendStringA("play numbers from 13500 to 14500 wait", returnStr, 255, 0)
ElseIf number = 15 Then
errorCode = mciSendStringA("play numbers from 14500 to 15500 wait", returnStr, 255, 0)
ElseIf number = 16 Then
errorCode = mciSendStringA("play numbers from 15500 to 16500 wait", returnStr, 255, 0)
ElseIf number = 17 Then
errorCode = mciSendStringA("play numbers from 16500 to 17500 wait", returnStr, 255, 0)
ElseIf number = 18 Then
errorCode = mciSendStringA("play numbers from 17500 to 18500 wait", returnStr, 255, 0)
ElseIf number = 19 Then
errorCode = mciSendStringA("play numbers from 18500 to 19500 wait", returnStr, 255, 0)
End If
End Sub

Private Sub ReadTenths(number)
Dim errorCode As Integer
Dim returnStr As Integer
Dim returnCode As Integer
Dim errorStr As String * 256

If number = 20 Then
errorCode = mciSendStringA("play numbers from 20000 to 20500 wait", returnStr, 255, 0)
ElseIf number = 30 Then
errorCode = mciSendStringA("play numbers from 21000 to 21500 wait", returnStr, 255, 0)
ElseIf number = 40 Then
errorCode = mciSendStringA("play numbers from 22000 to 22500 wait", returnStr, 255, 0)
ElseIf number = 50 Then
errorCode = mciSendStringA("play numbers from 23000 to 23500 wait", returnStr, 255, 0)
ElseIf number = 60 Then
errorCode = mciSendStringA("play numbers from 24000 to 24700 wait", returnStr, 255, 0)
ElseIf number = 70 Then
errorCode = mciSendStringA("play numbers from 25000 to 25700 wait", returnStr, 255, 0)
ElseIf number = 80 Then
errorCode = mciSendStringA("play numbers from 26100 to 26700 wait", returnStr, 255, 0)
ElseIf number = 90 Then
errorCode = mciSendStringA("play numbers from 27400 to 27900 wait", returnStr, 255, 0)
End If

End Sub

[BOO]

Спасибо!
Все что хотел я узнал!