home *** CD-ROM | disk | FTP | other *** search
/ Microsoft DirectX SDK 7.0 / Dx7.bin / DXF / samples / multimedia / vbsamples / dsound / src / fullduplex / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-16  |  3.7 KB  |  121 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFullDuplex 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Full Duplex"
  5.    ClientHeight    =   2130
  6.    ClientLeft      =   150
  7.    ClientTop       =   435
  8.    ClientWidth     =   3150
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2130
  14.    ScaleWidth      =   3150
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.Frame fraInfo 
  17.       Caption         =   "Full Duplex"
  18.       Height          =   1695
  19.       Left            =   240
  20.       TabIndex        =   0
  21.       Top             =   120
  22.       Width           =   2775
  23.       Begin VB.CommandButton cmdEnd 
  24.          Caption         =   "S&top"
  25.          Height          =   495
  26.          Left            =   1320
  27.          TabIndex        =   2
  28.          Top             =   960
  29.          Width           =   1215
  30.       End
  31.       Begin VB.CommandButton cmdStart 
  32.          Caption         =   "&Start"
  33.          Height          =   495
  34.          Left            =   1320
  35.          TabIndex        =   1
  36.          Top             =   360
  37.          Width           =   1215
  38.       End
  39.    End
  40. Attribute VB_Name = "frmFullDuplex"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. '==========================================================
  46. ' This program is a sample of using DirectSound for full
  47. ' duplex activities.  The only issue is a small latency
  48. ' Dominic Riccetti 1/28/1999
  49. ' This also shows how to use the DirectXEvent
  50. '==========================================================
  51. Dim dxs As New DirectX7
  52. Dim MultiLoop As Boolean ' for the looping of the sounds
  53. Implements DirectXEvent
  54. Private Sub cmdEnd_Click()
  55.     fraInfo.Caption = "Full Duplex"
  56.     cmdStart.Enabled = True
  57.     Call StopAll
  58. End Sub
  59. Private Sub cmdStart_Click()
  60. On Error GoTo err_out
  61. fraInfo.Caption = "Full Duplex : Running"
  62. cmdStart.Enabled = False
  63. Call record
  64. AllTogetherNow
  65. RunBuffers
  66. Do While MultiLoop <> True
  67.     CopyBuffers
  68.     DoEvents ' By passing the doevents command we wave passage to other processes
  69.              ' however if you were to do one process over and over you might get
  70.              ' skipping until the process is released.  Also this
  71.              ' allows the user to kill the program when finished.
  72. Exit Sub
  73. err_out:
  74.     MsgBox Err.Description, vbApplicationModal
  75.     End
  76. End Sub
  77. Private Sub DirectXEvent_DXCallback(ByVal eventid As Long)
  78. On Error GoTo err_out
  79.     Select Case eventid
  80.         Case Is = lid1
  81.             Part_one
  82.             num = 0
  83.         Case Is = lid2
  84.             part_two
  85.             num = 1
  86.         Case Is = lid3
  87.             num = 2
  88.     End Select
  89. Exit Sub
  90. err_out:
  91.     MsgBox Err.Description, vbApplicationModal
  92.     End
  93. End Sub
  94. Private Sub form_load()
  95. On Error GoTo err_out
  96.     'set all the events active
  97.     Me.Show
  98.     lid1 = DX.CreateEvent(Me)
  99.     lid2 = DX.CreateEvent(Me)
  100.     lid3 = DX.CreateEvent(Me)
  101.     DoEvents
  102.     InitSoundDevices Me.hWnd ' initiate the direct sound
  103.                              ' and the direct sound capture
  104.                              ' devices
  105. Exit Sub
  106. err_out:
  107.     MsgBox Err.Description, vbApplicationModal
  108.     End
  109. End Sub
  110. Private Sub Form_Unload(Cancel As Integer)
  111. On Error GoTo err_out
  112.     ' when the form is closed kill the process
  113.     MultiLoop = False
  114.     'end the program
  115.     End
  116. Exit Sub
  117. err_out:
  118.     MsgBox Err.Description, vbApplicationModal
  119.     End
  120. End Sub
  121.