home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4609 / wavplus / wdevice.frm < prev   
Text File  |  1994-06-28  |  5KB  |  176 lines
  1. VERSION 2.00
  2. Begin Form Wdevice 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "WAV Device Info"
  6.    ClientHeight    =   2490
  7.    ClientLeft      =   2220
  8.    ClientTop       =   1545
  9.    ClientWidth     =   3975
  10.    ControlBox      =   0   'False
  11.    Height          =   2895
  12.    Left            =   2160
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2490
  17.    ScaleWidth      =   3975
  18.    Top             =   1200
  19.    Width           =   4095
  20.    Begin CommandButton CmdOkay 
  21.       BackColor       =   &H00C0C0C0&
  22.       Cancel          =   -1  'True
  23.       Caption         =   "O &K A Y"
  24.       Default         =   -1  'True
  25.       Height          =   375
  26.       Left            =   240
  27.       TabIndex        =   0
  28.       Top             =   1920
  29.       Width           =   3495
  30.    End
  31.    Begin Label Label2 
  32.       Alignment       =   1  'Right Justify
  33.       BackStyle       =   0  'Transparent
  34.       Caption         =   "Label2"
  35.       Height          =   195
  36.       Index           =   4
  37.       Left            =   2400
  38.       TabIndex        =   6
  39.       Top             =   1440
  40.       Width           =   1335
  41.    End
  42.    Begin Label Label2 
  43.       Alignment       =   1  'Right Justify
  44.       BackStyle       =   0  'Transparent
  45.       Caption         =   "Label2"
  46.       Height          =   195
  47.       Index           =   3
  48.       Left            =   2400
  49.       TabIndex        =   7
  50.       Top             =   1200
  51.       Width           =   1335
  52.    End
  53.    Begin Label Label2 
  54.       Alignment       =   1  'Right Justify
  55.       BackStyle       =   0  'Transparent
  56.       Caption         =   "Label2"
  57.       Height          =   195
  58.       Index           =   2
  59.       Left            =   2400
  60.       TabIndex        =   10
  61.       Top             =   960
  62.       Width           =   1335
  63.    End
  64.    Begin Label Label2 
  65.       Alignment       =   1  'Right Justify
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "Label2"
  68.       Height          =   195
  69.       Index           =   1
  70.       Left            =   2400
  71.       TabIndex        =   9
  72.       Top             =   480
  73.       Width           =   1335
  74.    End
  75.    Begin Label Label2 
  76.       Alignment       =   1  'Right Justify
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "Label2"
  79.       Height          =   200
  80.       Index           =   0
  81.       Left            =   2400
  82.       TabIndex        =   8
  83.       Top             =   240
  84.       Width           =   1335
  85.    End
  86.    Begin Label Label1 
  87.       BackStyle       =   0  'Transparent
  88.       Caption         =   "Maximum Sample Rate:"
  89.       Height          =   195
  90.       Index           =   4
  91.       Left            =   240
  92.       TabIndex        =   5
  93.       Top             =   1440
  94.       Width           =   2055
  95.    End
  96.    Begin Label Label1 
  97.       BackStyle       =   0  'Transparent
  98.       Caption         =   "Maximum Channels:"
  99.       Height          =   195
  100.       Index           =   3
  101.       Left            =   240
  102.       TabIndex        =   4
  103.       Top             =   1200
  104.       Width           =   2055
  105.    End
  106.    Begin Label Label1 
  107.       BackStyle       =   0  'Transparent
  108.       Caption         =   "Maximum Bit Size:"
  109.       Height          =   195
  110.       Index           =   2
  111.       Left            =   240
  112.       TabIndex        =   3
  113.       Top             =   960
  114.       Width           =   2055
  115.    End
  116.    Begin Label Label1 
  117.       BackStyle       =   0  'Transparent
  118.       Caption         =   "Can Record WAVs:"
  119.       Height          =   195
  120.       Index           =   1
  121.       Left            =   240
  122.       TabIndex        =   2
  123.       Top             =   480
  124.       Width           =   2055
  125.    End
  126.    Begin Label Label1 
  127.       BackStyle       =   0  'Transparent
  128.       Caption         =   "Can Play WAVs:"
  129.       Height          =   195
  130.       Index           =   0
  131.       Left            =   240
  132.       TabIndex        =   1
  133.       Top             =   240
  134.       Width           =   2055
  135.    End
  136. End
  137.  
  138. Sub CmdOkay_Click ()
  139.     Unload Me
  140. End Sub
  141.  
  142. Sub Form_Load ()
  143.     FormCenterForm Me, DemoMain
  144.     If HowManyWavPlayDevices() = 0 Then
  145.         CanPlay$ = "False"
  146.         CanRecord$ = "False"
  147.         Channels$ = "0"
  148.         SampleBitSize$ = "0"
  149.         SampleRate$ = "0"
  150.         Else
  151.         CanPlay$ = Space$(255)
  152.         WavCanPlay CanPlay$
  153.         CanRecord$ = Space$(255)
  154.         WavCanRecord CanRecord$
  155.         SampleBitSize$ = Space$(255)
  156.         WavMaxBitSize SampleBitSize$
  157.         Channels$ = Space$(255)
  158.         WavMaxChannels Channels$
  159.         SampleRate$ = Space$(255)
  160.         WavMaxSampleRate SampleRate$
  161.  
  162.         End If
  163.     Label2(0).Caption = CanPlay$
  164.     Label2(1).Caption = CanRecord$
  165.     Label2(2).Caption = SampleBitSize$
  166.     Label2(3).Caption = Channels$
  167.     Label2(4).Caption = SampleRate$
  168.     Screen.MousePointer = 0
  169. End Sub
  170.  
  171. Sub Form_Paint ()
  172.     DoForm3D Me, sunken, 3, 0
  173.     DoForm3D Me, raised, 1, 3
  174. End Sub
  175.  
  176.