[Amin_Mansouri]

کد:

Sub Form_Load ()
  Dim x As Integer
  Dim BothVolumes As Long

' Note that the waveid is 0 indicating the first wave output device.
' If you were to play multiple wavefiles on multiple wave output devices
' you would use 1 for the second wave output device, 2 for the third and
' so on.
' This code will retrieve the current volume setting

  x = waveOutGetVolume(0, BothVolumes)

  ' This code isolates the low-order word.
  ' Note that the value &HFFFF& is a Long Integer, which is the same
  ' as 0000FFFF, but because Visual Basic would automatically
  ' truncate this to FFFF, you must force the logical operation to use
  ' a four-byte Long Integer (0000FFFF) rather than a two-byte Integer
  ' (FFFF). This is accomplished by using the type casting
  ' character (&).
  CurrentVolLeft = BothVolumes And &HFFFF&

  ' This code isolates the high-order word.
  ' Enter the following two lines as one, single line:
  CurrentVolRight = ((BothVolumes And &HFFFF0000) / &H10000)
    And &HFFFF&

  LeftVol.Caption = Hex$(CurrentVolLeft)   ' Update the label with the
  RightVol.Caption = Hex$(CurrentVolRight) ' current volume settings.
End Sub

Sub PlaySound_Click ()
  Dim x As Integer
  Dim wFlags As Integer
  Dim SoundName As String
  SoundName = "C:\WINDOWS\MSREMIND.WAV"    ' Pick any wave file.
  wFlags = SND_ASYNC Or SND_NODEFAULT
  x = sndPlaySound(SoundName$, wFlags%)    ' Play the wave file.
End Sub

Sub LeftUp_Click ()
  ' Increase the left sound channel setting:
  Dim x As Integer
  CurrentVolLeft = CurrentVolLeft + &H1000&
  ' Prevent the channel setting from exceeding the maximum limit:
  If CurrentVolLeft > &HFFFF& Then CurrentVolLeft = &HFFFF&
  LeftVol.Caption = Format$(Hex$(CurrentVolLeft))
  ' Enter the following two lines as one, single line:
  x = waveoutSetVolume(0, CInt("&H" + Hex$(CurrentVolRight)),
     CInt("&H" + Hex$(CurrentVolLeft)))
End Sub

Sub LeftDown_Click ()
  ' Decrease the left sound channel setting:
  Dim x As Integer
  CurrentVolLeft = CurrentVolLeft - &H1000&
  ' Prevent the channel setting from dropping below the minimum limit:
  If CurrentVolLeft < &H0& Then CurrentVolLeft = &H0&
  LeftVol.Caption = Hex$(CurrentVolLeft)
  ' Enter the following two lines as one, single line:
  x = waveoutSetVolume(0, CInt("&H" + Hex$(CurrentVolRight)),
     CInt("&H" + Hex$(CurrentVolLeft)))
End Sub

Sub RightUp_Click ()
  ' Increase the right sound channel setting:
  Dim x As Integer
  CurrentVolRight = CurrentVolRight + &H1000&
  ' Prevent the channel setting from exceeding the maximum limit.
  If CurrentVolRight > &HFFFF& Then CurrentVolRight = &HFFFF&
  RightVol.Caption = Hex$(CurrentVolRight)
  ' Enter the following two lines as one, single line:
  x = waveoutSetVolume(0, CInt("&H" + Hex$(CurrentVolRight)),
     CInt("&H" + Hex$(CurrentVolLeft)))
End Sub

Sub RightDown_Click ()
  ' Decrease the right sound channel setting:
  Dim x As Integer
  CurrentVolRight = CurrentVolRight - &H1000&
  ' Prevent the channel setting from dropping below the minimum limit:
  If CurrentVolRight < 0 Then CurrentVolRight = 0
  RightVol.Caption = Hex$(CurrentVolRight)
  ' Enter the following two lines as one, single line:
  x = waveoutSetVolume(0, CInt("&H" + Hex$(CurrentVolRight)),
     CInt("&H" + Hex$(CurrentVolLeft)))
End Sub