VERSION 4.00 Begin VB.Form util9111 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "9111 Sample Program" ClientHeight = 6480 ClientLeft = 1125 ClientTop = 1410 ClientWidth = 8520 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 6885 Left = 1065 LinkTopic = "Form1" ScaleHeight = 432 ScaleMode = 3 'Pixel ScaleWidth = 568 Top = 1065 Width = 8640 Begin VB.CommandButton ExitBtn Appearance = 0 'Flat BackColor = &H80000005& Caption = "Exit" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 5610 TabIndex = 47 Top = 5415 Width = 795 End Begin VB.Frame Frame3D2 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Range" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 735 Left = 6180 TabIndex = 2 Top = 3300 Width = 2055 Begin VB.ComboBox Gain Height = 315 Left = 300 TabIndex = 3 Text = "Gain" Top = 315 Width = 1395 End End Begin VB.Frame DO_Frame Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Digital Output" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 735 Left = 120 TabIndex = 5 Top = 4260 Width = 5895 Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 0 Left = 5520 Picture = "vb9111.frx":0000 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 1 Left = 5160 Picture = "vb9111.frx":0172 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 3 Left = 4440 Picture = "vb9111.frx":02E4 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 2 Left = 4800 Picture = "vb9111.frx":0456 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 4 Left = 4080 Picture = "vb9111.frx":05C8 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 5 Left = 3720 Picture = "vb9111.frx":073A Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 6 Left = 3360 Picture = "vb9111.frx":08AC Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 7 Left = 3000 Picture = "vb9111.frx":0A1E Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 8 Left = 2640 Picture = "vb9111.frx":0B90 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 9 Left = 2280 Picture = "vb9111.frx":0D02 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 10 Left = 1920 Picture = "vb9111.frx":0E74 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 11 Left = 1560 Picture = "vb9111.frx":0FE6 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 12 Left = 1200 Picture = "vb9111.frx":1158 Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 13 Left = 840 Picture = "vb9111.frx":12CA Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 14 Left = 480 Picture = "vb9111.frx":143C Top = 280 Width = 300 End Begin VB.Image DOP Appearance = 0 'Flat Height = 300 Index = 15 Left = 120 Picture = "vb9111.frx":15AE Top = 280 Width = 300 End End Begin VB.Frame DI_Frame Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Digital Input" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 735 Left = 120 TabIndex = 6 Top = 3300 Width = 5895 Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 15 Left = 120 Picture = "vb9111.frx":1720 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 14 Left = 480 Picture = "vb9111.frx":1892 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 13 Left = 840 Picture = "vb9111.frx":1A04 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 12 Left = 1200 Picture = "vb9111.frx":1B76 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 11 Left = 1560 Picture = "vb9111.frx":1CE8 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 10 Left = 1920 Picture = "vb9111.frx":1E5A Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 9 Left = 2280 Picture = "vb9111.frx":1FCC Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 8 Left = 2640 Picture = "vb9111.frx":213E Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 7 Left = 3000 Picture = "vb9111.frx":22B0 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 6 Left = 3360 Picture = "vb9111.frx":2422 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 5 Left = 3720 Picture = "vb9111.frx":2594 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 4 Left = 4080 Picture = "vb9111.frx":2706 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 3 Left = 4440 Picture = "vb9111.frx":2878 Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 2 Left = 4800 Picture = "vb9111.frx":29EA Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 1 Left = 5160 Picture = "vb9111.frx":2B5C Top = 280 Width = 300 End Begin VB.Image DI Appearance = 0 'Flat Height = 300 Index = 0 Left = 5520 Picture = "vb9111.frx":2CCE Top = 280 Width = 300 End End Begin VB.Frame DA_Frame Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Analog Output (D/A)" ForeColor = &H00FF0000& Height = 855 Left = 6180 TabIndex = 7 Top = 4200 Width = 2055 Begin VB.ComboBox DA_Wave Height = 315 Left = 240 TabIndex = 8 Text = "DA_Wave" Top = 360 Width = 1575 End End Begin VB.Frame Channel_Frame Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Channel" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 1335 Index = 1 Left = 6360 TabIndex = 10 Top = 1680 Width = 1575 Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "15" ForeColor = &H80000008& Height = 195 Index = 24 Left = 780 TabIndex = 11 Top = 960 Width = 240 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "14" ForeColor = &H80000008& Height = 195 Index = 25 Left = 780 TabIndex = 12 Top = 720 Width = 240 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "13" ForeColor = &H80000008& Height = 195 Index = 26 Left = 780 TabIndex = 13 Top = 480 Width = 240 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "12" ForeColor = &H80000008& Height = 195 Index = 27 Left = 780 TabIndex = 14 Top = 240 Width = 240 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "11" ForeColor = &H80000008& Height = 195 Index = 28 Left = 120 TabIndex = 15 Top = 960 Width = 240 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "10" ForeColor = &H80000008& Height = 195 Index = 29 Left = 120 TabIndex = 16 Top = 720 Width = 240 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "9" ForeColor = &H80000008& Height = 195 Index = 30 Left = 210 TabIndex = 17 Top = 480 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "8" ForeColor = &H80000008& Height = 195 Index = 31 Left = 210 TabIndex = 18 Top = 240 Width = 135 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 8 Left = 390 Picture = "vb9111.frx":2E40 Stretch = -1 'True Top = 240 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 9 Left = 390 Picture = "vb9111.frx":2F6A Stretch = -1 'True Top = 480 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 10 Left = 390 Picture = "vb9111.frx":3094 Stretch = -1 'True Top = 720 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 11 Left = 390 Picture = "vb9111.frx":31BE Stretch = -1 'True Top = 960 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 12 Left = 1050 Picture = "vb9111.frx":32E8 Stretch = -1 'True Top = 240 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 13 Left = 1050 Picture = "vb9111.frx":3412 Stretch = -1 'True Top = 480 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 14 Left = 1050 Picture = "vb9111.frx":353C Stretch = -1 'True Top = 720 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 15 Left = 1050 Picture = "vb9111.frx":3666 Stretch = -1 'True Top = 960 Width = 270 End End Begin VB.Frame Channel_Frame Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Channel" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 1335 Index = 0 Left = 6360 TabIndex = 19 Top = 360 Width = 1575 Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 7 Left = 1080 Picture = "vb9111.frx":3790 Stretch = -1 'True Top = 960 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 6 Left = 1080 Picture = "vb9111.frx":38BA Stretch = -1 'True Top = 720 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 5 Left = 1080 Picture = "vb9111.frx":39E4 Stretch = -1 'True Top = 480 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 4 Left = 1080 Picture = "vb9111.frx":3B0E Stretch = -1 'True Top = 240 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 3 Left = 420 Picture = "vb9111.frx":3C38 Stretch = -1 'True Top = 960 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 2 Left = 420 Picture = "vb9111.frx":3D62 Stretch = -1 'True Top = 720 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 1 Left = 420 Picture = "vb9111.frx":3E8C Stretch = -1 'True Top = 480 Width = 270 End Begin VB.Image Channel Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Height = 210 Index = 0 Left = 420 Picture = "vb9111.frx":3FB6 Stretch = -1 'True Top = 240 Width = 270 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "0" ForeColor = &H80000008& Height = 195 Index = 14 Left = 240 TabIndex = 20 Top = 240 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "1" ForeColor = &H80000008& Height = 195 Index = 13 Left = 240 TabIndex = 21 Top = 480 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "2" ForeColor = &H80000008& Height = 195 Index = 12 Left = 240 TabIndex = 22 Top = 720 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "3" ForeColor = &H80000008& Height = 195 Index = 11 Left = 240 TabIndex = 23 Top = 960 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "4" ForeColor = &H80000008& Height = 195 Index = 10 Left = 900 TabIndex = 24 Top = 240 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "5" ForeColor = &H80000008& Height = 195 Index = 9 Left = 900 TabIndex = 25 Top = 480 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "6" ForeColor = &H80000008& Height = 195 Index = 8 Left = 900 TabIndex = 26 Top = 720 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "7" ForeColor = &H80000008& Height = 195 Index = 7 Left = 900 TabIndex = 27 Top = 960 Width = 135 End End Begin VB.Frame AD_Frame Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Analog Input (A/D)" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 3255 Left = 240 TabIndex = 33 Top = 0 Width = 7935 Begin VB.PictureBox Signal Appearance = 0 'Flat BackColor = &H00000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 1200 Index = 0 Left = 900 ScaleHeight = 80 ScaleMode = 3 'Pixel ScaleWidth = 333 TabIndex = 28 Top = 480 Width = 4995 End Begin VB.PictureBox Signal Appearance = 0 'Flat BackColor = &H00000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 1200 Index = 1 Left = 900 ScaleHeight = 80 ScaleMode = 3 'Pixel ScaleWidth = 333 TabIndex = 42 Top = 1800 Width = 4995 End Begin VB.Line Line1 Index = 4 X1 = 840 X2 = 900 Y1 = 1665 Y2 = 1665 End Begin VB.Line Line1 Index = 3 X1 = 840 X2 = 900 Y1 = 1380 Y2 = 1380 End Begin VB.Line Line1 Index = 2 X1 = 840 X2 = 900 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line1 Index = 1 X1 = 840 X2 = 900 Y1 = 780 Y2 = 780 End Begin VB.Line Line1 Index = 0 X1 = 840 X2 = 900 Y1 = 480 Y2 = 480 End Begin VB.Line Line1 Index = 5 X1 = 840 X2 = 900 Y1 = 1800 Y2 = 1800 End Begin VB.Line Line1 Index = 6 X1 = 840 X2 = 900 Y1 = 2100 Y2 = 2100 End Begin VB.Line Line1 Index = 7 X1 = 840 X2 = 900 Y1 = 2400 Y2 = 2400 End Begin VB.Line Line1 Index = 8 X1 = 840 X2 = 900 Y1 = 2700 Y2 = 2700 End Begin VB.Line Line1 Index = 9 X1 = 840 X2 = 900 Y1 = 2985 Y2 = 2985 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "-5.00" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 6 Left = 345 TabIndex = 29 Top = 1590 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "-2.50" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 5 Left = 345 TabIndex = 30 Top = 1350 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "0.00" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 4 Left = 345 TabIndex = 31 Top = 1050 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "2.50" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 3 Left = 345 TabIndex = 32 Top = 750 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "5.00" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 2 Left = 345 TabIndex = 34 Top = 450 Width = 480 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "V" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 1 Left = 240 TabIndex = 35 Top = 690 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Signals" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 0 Left = 3060 TabIndex = 36 Top = 240 Width = 735 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "O" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 15 Left = 240 TabIndex = 37 Top = 1110 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "L" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 16 Left = 240 TabIndex = 38 Top = 1470 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "T" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 17 Left = 240 TabIndex = 39 Top = 1890 Width = 135 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "S" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 18 Left = 240 TabIndex = 40 Top = 2310 Width = 135 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "5.00" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 19 Left = 345 TabIndex = 41 Top = 1800 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "2.50" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 20 Left = 345 TabIndex = 43 Top = 2070 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "0.00" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 21 Left = 345 TabIndex = 44 Top = 2370 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "-2.50" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 22 Left = 345 TabIndex = 45 Top = 2670 Width = 480 End Begin VB.Label Label1 Alignment = 1 'Right Justify Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "-5.00" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Serif" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Index = 23 Left = 345 TabIndex = 46 Top = 2910 Width = 480 End End Begin VB.Timer Timer1 Enabled = 0 'False Interval = 70 Left = 1920 Top = 5760 End Begin VB.CommandButton StopBtn Appearance = 0 'Flat BackColor = &H80000005& Caption = "Stop" Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 3420 TabIndex = 4 Top = 5415 Width = 795 End Begin VB.CommandButton StartBtn Appearance = 0 'Flat BackColor = &H80000005& Caption = "Start" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 2520 TabIndex = 0 Top = 5415 Width = 795 End Begin VB.CommandButton PauseBtn Appearance = 0 'Flat BackColor = &H80000005& Caption = "Pause" Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 4320 TabIndex = 1 Top = 5415 Width = 795 End Begin VB.Label Label2 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0" ForeColor = &H80000008& Height = 195 Left = 240 TabIndex = 9 Top = 4080 Width = 5775 End Begin VB.Image Image0 Appearance = 0 'Flat Height = 300 Left = 2400 Picture = "vb9111.frx":40E0 Top = 5820 Visible = 0 'False Width = 300 End Begin VB.Image Image1 Appearance = 0 'Flat Height = 300 Left = 2700 Picture = "vb9111.frx":4252 Top = 5820 Visible = 0 'False Width = 300 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 0 Left = -180 Picture = "vb9111.frx":43C4 Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 1 Left = 60 Picture = "vb9111.frx":44EE Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 2 Left = 300 Picture = "vb9111.frx":4618 Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 3 Left = 540 Picture = "vb9111.frx":4742 Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 4 Left = 780 Picture = "vb9111.frx":486C Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 5 Left = 1020 Picture = "vb9111.frx":4996 Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 6 Left = 1260 Picture = "vb9111.frx":4AC0 Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChDn Appearance = 0 'Flat Height = 210 Index = 7 Left = 1500 Picture = "vb9111.frx":4BEA Top = 5760 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 0 Left = -180 Picture = "vb9111.frx":4D14 Top = 5940 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 1 Left = 60 Picture = "vb9111.frx":4E3E Top = 5940 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 2 Left = 300 Picture = "vb9111.frx":4F68 Top = 5940 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 3 Left = 540 Picture = "vb9111.frx":5092 Top = 5940 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 4 Left = 780 Picture = "vb9111.frx":51BC Top = 5940 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 5 Left = 1020 Picture = "vb9111.frx":52E6 Top = 5940 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 6 Left = 1260 Picture = "vb9111.frx":5410 Top = 5940 Visible = 0 'False Width = 270 End Begin VB.Image ChUp Appearance = 0 'Flat Height = 210 Index = 7 Left = 1500 Picture = "vb9111.frx":553A Top = 5940 Visible = 0 'False Width = 270 End End Attribute VB_Name = "util9111" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Dim PrevP(15) As Long Dim ChannelOn(15) As Long Dim SignalColor(15) As Long Dim range_value(5) As Integer Dim Active As Long Dim NewStart As Long Dim status(15) As Long Dim angle As Single Dim sq As Integer Dim gnAddr As Long Dim gnIrq As Long Dim gnDoValue As Long Const SINE_WAVE = 0 Const SQUARE_WAVE = 1 Const Pi = 3.14159 Private Sub Channel_Click(Index As Integer) If ChannelOn(Index) Then If Index < 8 Then Channel(Index) = ChUp(Index) Else Channel(Index) = ChUp(Index - 8) End If Else If Index < 8 Then Channel(Index) = ChDn(Index) Else Channel(Index) = ChDn(Index - 8) End If End If ChannelOn(Index) = Not ChannelOn(Index) End Sub Sub Combo1_Change() End Sub Private Sub DOP_Click(Index As Integer) Dim i As Integer Dim v As Integer, d As Long Dim do_data As Integer If Active Then If status(Index) = 1 Then DOP(Index) = Image0 status(Index) = 0 d = 1 For i = 1 To Index d = d * 2 Next gnDoValue = gnDoValue - d Else DOP(Index) = Image1 status(Index) = 1 d = 1 For i = 1 To Index d = d * 2 Next gnDoValue = gnDoValue + d End If 'translate unsigned value to signed integer If (gnDoValue > 32767) Then do_data = gnDoValue - 65536 Else do_data = gnDoValue End If 'v = W_9111_DO(0, do_data) v = DO_WritePort(card, 0, gnDoValue) End If End Sub Private Sub ExitBtn_Click() Dim result As Integer If card >= 0 Then result = Release_Card(card) End If End End Sub Private Sub Form_Load() Dim result As Integer Dim i As Integer SettingForm.Show 1 If card < 0 Then MsgBox "Register card failed." End End If For i = 0 To 15 PrevP(i) = -1 ChannelOn(i) = False Next For i = 0 To 15 status(i) = 0 Next NewStart = True Active = False gnDoValue = 0 result = DO_WritePort(card, 0, gnDoValue) gain.AddItem "+/- 10V" gain.AddItem "+/- 5V" gain.AddItem "+/- 2.5V" gain.AddItem "+/- 1.25V" gain.AddItem "+/- 0.625V" 'CardName.AddItem "9111DG" 'CardName.AddItem "9111HR" range_value(0) = 1 range_value(1) = 2 range_value(2) = 3 range_value(3) = 4 range_value(4) = 5 gain.ListIndex = 0 'CardName.ListIndex = 0 DA_Wave.AddItem "Sine Wave" DA_Wave.AddItem "Square Wave" DA_Wave.ListIndex = 0 SignalColor(0) = &HFFFF& SignalColor(1) = &H8000& SignalColor(2) = &HFF0000 SignalColor(3) = &HFF& SignalColor(4) = &HFFFF00 SignalColor(5) = &HFF00FF SignalColor(6) = &HFF00& SignalColor(7) = &HFFFFFF SignalColor(8) = &HFFFF& SignalColor(9) = &H8000& SignalColor(10) = &HFF0000 SignalColor(11) = &HFF& SignalColor(12) = &HFFFF00 SignalColor(13) = &HFF00FF SignalColor(14) = &HFF00& SignalColor(15) = &HFFFFFF End Sub Private Sub Form_Unload(Cancel As Integer) Dim result As Integer If card >= 0 Then result = Release_Card(card) End If End Sub Private Sub Gain_Click() Dim result As Long Scale_Change gain.ListIndex End Sub Private Sub PauseBtn_Click() Timer1.Enabled = False Active = False NewStart = False StartBtn.Enabled = True PauseBtn.Enabled = False End Sub Private Sub StartBtn_Click() StartBtn.Enabled = False StopBtn.Enabled = True PauseBtn.Enabled = True Active = True If NewStart Then Signal(0).Cls Signal(1).Cls gnDoValue = 0 angle = 0 sq = 0 End If Timer1.Enabled = True End Sub Private Sub StopBtn_Click() Dim i As Integer Timer1.Enabled = False For i = 0 To 15 PrevP(i) = -1 Next For i = 0 To 15 status(i) = 0 DOP(i) = Image0 Next i = DO_WritePort(card, 0, 0) Active = False NewStart = True StartBtn.Enabled = True StopBtn.Enabled = False PauseBtn.Enabled = False End Sub Private Sub Timer1_Timer() Dim result As Integer Dim i As Integer, j As Integer, d As Integer Dim l As Long Dim di_data As Long Dim p As Integer Dim m As Single Static vt(15) As Variant ' Do While Contd 'Analog-Digital Input result = BitBlt(Signal(0).hDC, 4, 0, Signal(0).Width / Screen.TwipsPerPixelX, Signal(0).Height / Screen.TwipsPerPixelY, Signal(0).hDC, 0, 0, SRCCOPY) result = BitBlt(Signal(1).hDC, 4, 0, Signal(1).Width / Screen.TwipsPerPixelX, Signal(1).Height / Screen.TwipsPerPixelY, Signal(1).hDC, 0, 0, SRCCOPY) For i = 0 To 15 If ChannelOn(i) Then result = AI_ReadChannel(card, i, range_value(gain.ListIndex), d) l = d If card_type Then If i < 8 Then p = (32767 - CSng(l)) / 65535 * (Signal(0).Height / Screen.TwipsPerPixelY - 2) If PrevP(i) <> -1 Then Signal(0).Line (4, p)-(8, PrevP(i)), SignalColor(i) Else p = (32767 - CSng(l)) / 65535 * (Signal(1).Height / Screen.TwipsPerPixelY - 2) If PrevP(i) <> -1 Then Signal(1).Line (4, p)-(8, PrevP(i)), SignalColor(i) End If End If Else l = l / 16 If i < 8 Then p = (2047 - CSng(l)) / 4095 * (Signal(0).Height / Screen.TwipsPerPixelY - 2) If PrevP(i) <> -1 Then Signal(0).Line (4, p)-(8, PrevP(i)), SignalColor(i) Else p = (2047 - CSng(l)) / 4095 * (Signal(1).Height / Screen.TwipsPerPixelY - 2) If PrevP(i) <> -1 Then Signal(1).Line (4, p)-(8, PrevP(i)), SignalColor(i) End If End If End If PrevP(i) = p End If Next i 'Digital Input result = DI_ReadPort(card, 0, l) If (l < 0) Then di_data = l + 65536 Else di_data = l End If For i = 0 To 15 p = di_data Mod 2 If p = 0 Then DI(i) = Image0 Else 'p = 1 DI(i) = Image1 End If di_data = CLng(Fix(di_data / 2)) Next i 'Analog Output Select Case DA_Wave.ListIndex Case SINE_WAVE: m = Sin(angle) angle = angle + Pi / 36 p = CInt(m * 2048 + 2048) If p >= 4096 Then p = 4095 result = AO_WriteChannel(card, 0, p) Case SQUARE_WAVE: result = AO_WriteChannel(card, 0, sq) If (angle Mod 36) = 0 Then If sq = 0 Then sq = 4095 Else sq = 0 End If angle = angle + 1 End Select End Sub