VERSION 5.00 Begin VB.Form dma9221 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "9221 dma" ClientHeight = 4980 ClientLeft = 1380 ClientTop = 1740 ClientWidth = 7665 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& LinkTopic = "Form1" PaletteMode = 1 'UseZOrder ScaleHeight = 4980 ScaleWidth = 7665 Begin VB.CommandButton btnExit Appearance = 0 'Flat BackColor = &H80000005& Caption = "Exit" Height = 500 Left = 3720 TabIndex = 5 Top = 4320 Width = 1000 End Begin VB.CommandButton btnStop Appearance = 0 'Flat BackColor = &H80000005& Caption = "Stop" Height = 500 Left = 2520 TabIndex = 4 Top = 4320 Width = 1000 End Begin VB.CommandButton btnStart Appearance = 0 'Flat BackColor = &H80000005& Caption = "Start" Height = 500 Left = 1320 TabIndex = 3 Top = 4320 Width = 1000 End Begin VB.Frame frmData Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Data Size" ForeColor = &H00FF0000& Height = 615 Left = 1920 TabIndex = 2 Top = 3500 Width = 1935 Begin VB.ComboBox cobData Appearance = 0 'Flat Height = 315 Left = 120 Style = 2 'Dropdown List TabIndex = 18 Top = 240 Width = 975 End Begin VB.Label labData Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Records" ForeColor = &H0000FFFF& Height = 255 Left = 1155 TabIndex = 19 Top = 255 Width = 720 End End Begin VB.Frame frmSample Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Sampling Rate" ForeColor = &H00FF0000& Height = 615 Left = 120 TabIndex = 1 Top = 3500 Width = 1700 Begin VB.ComboBox cobSample Appearance = 0 'Flat Height = 315 Left = 120 Style = 2 'Dropdown List TabIndex = 17 Top = 240 Width = 975 End Begin VB.Label Label1 Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "KHz" ForeColor = &H0000FFFF& Height = 255 Left = 1150 TabIndex = 20 Top = 260 Width = 450 End End Begin VB.Frame dmaFrame Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "dmaerrupt Input(A/D)" ForeColor = &H00FF0000& Height = 3375 Left = 120 TabIndex = 0 Top = 120 Width = 7455 Begin VB.Frame frmRange Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Range" ForeColor = &H00FF0000& Height = 615 Left = 5880 TabIndex = 8 Top = 2640 Width = 1380 Begin VB.ComboBox cobRange Appearance = 0 'Flat Height = 315 Left = 100 Style = 2 'Dropdown List TabIndex = 16 Top = 240 Width = 1200 End End Begin VB.Frame frmChannel Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "AD Channel" ForeColor = &H00FF0000& Height = 1755 Left = 5880 TabIndex = 7 Top = 240 Width = 1380 Begin VB.OptionButton optChn Caption = "7" Height = 315 Index = 7 Left = 720 TabIndex = 28 Top = 1260 Width = 435 End Begin VB.OptionButton optChn Caption = "6" Height = 315 Index = 6 Left = 720 TabIndex = 27 Top = 960 Width = 435 End Begin VB.OptionButton optChn Caption = "5" Height = 315 Index = 5 Left = 720 TabIndex = 26 Top = 660 Width = 435 End Begin VB.OptionButton optChn Caption = "4" Height = 315 Index = 4 Left = 720 TabIndex = 25 Top = 360 Width = 435 End Begin VB.OptionButton optChn Caption = "3" Height = 315 Index = 3 Left = 120 TabIndex = 24 Top = 1260 Width = 435 End Begin VB.OptionButton optChn Caption = "2" Height = 315 Index = 2 Left = 120 TabIndex = 23 Top = 960 Width = 435 End Begin VB.OptionButton optChn Caption = "1" Height = 315 Index = 1 Left = 120 TabIndex = 22 Top = 660 Width = 435 End Begin VB.OptionButton optChn Caption = "0" Height = 315 Index = 0 Left = 120 TabIndex = 21 Top = 360 Value = -1 'True Width = 435 End End Begin VB.PictureBox picScreen Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H00000000& ForeColor = &H80000008& Height = 2700 Left = 720 ScaleHeight = 178 ScaleMode = 3 'Pixel ScaleWidth = 331 TabIndex = 6 Top = 480 Width = 4995 End Begin VB.Label labValue Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "-5.00" ForeColor = &H0000FFFF& Height = 255 Index = 4 Left = 100 TabIndex = 15 Top = 3050 Width = 600 End Begin VB.Label labValue Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "-2.50" ForeColor = &H0000FFFF& Height = 255 Index = 3 Left = 100 TabIndex = 14 Top = 2400 Width = 600 End Begin VB.Label labValue Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "0.00" ForeColor = &H0000FFFF& Height = 255 Index = 2 Left = 100 TabIndex = 13 Top = 1740 Width = 600 End Begin VB.Label labValue Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "2.50" ForeColor = &H0000FFFF& Height = 255 Index = 1 Left = 100 TabIndex = 12 Top = 1070 Width = 600 End Begin VB.Label labValue Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "5.00" ForeColor = &H0000FFFF& Height = 255 Index = 0 Left = 100 TabIndex = 11 Top = 420 Width = 600 End Begin VB.Label labVots Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Vots" ForeColor = &H0000FFFF& Height = 255 Left = 120 TabIndex = 10 Top = 200 Width = 495 End Begin VB.Label labSignal Appearance = 0 'Flat BackColor = &H00C0C0C0& Caption = "Signals" ForeColor = &H0000FFFF& Height = 300 Left = 2800 TabIndex = 9 Top = 200 Width = 780 End End End Attribute VB_Name = "dma9221" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim BufferId As Integer Dim Scandmav As Long Dim Sampdmav As Long Dim gnADChn As Integer Dim gnCount As Integer Dim nSample As Long Dim range_value(4) As Integer Dim gnC1 As Integer Dim gnC2 As Integer Dim gnBuffer(4096) As Integer Private Sub btnExit_Click() If card >= 0 Then Release_Card (card) End End Sub Private Sub btnStart_Click() Dim result As Integer picScreen.Cls result = AI_9221_Config(card, 0, 0, 0) Scandmav = 40000 / nSample Sampdmav = Scandmav result = AI_9221_CounterInterval(card, Scandmav, Sampdmav) result = AI_SetTimeOut(card, 10000) result = AI_ContBufferSetup(card, gnBuffer(0), gnCount, BufferId) result = AI_ContReadChannel(card, gnADChn, range_value(cobRange.ListIndex), BufferId, gnCount, 0, SYNCH_OP) ShowData (gnCount) End Sub Private Sub btnStop_Click() picScreen.Cls AI_ContBufferReset (card) End Sub Private Sub cobData_Click() gnCount = Val(Trim$(cobData)) End Sub Private Sub cobRange_Click() Select Case cobRange.ListIndex Case 0 labValue(0).Caption = "5.0" labValue(1).Caption = "2.5" labValue(2).Caption = "0.0" labValue(3).Caption = "-2.5" labValue(4).Caption = "-5.0" Case 1 labValue(0).Caption = "1.0" labValue(1).Caption = "0.5" labValue(2).Caption = "0.0" labValue(3).Caption = "-2.5" labValue(4).Caption = "-1.0" Case 2 labValue(0).Caption = "0.50" labValue(1).Caption = "0.25" labValue(2).Caption = "0.00" labValue(3).Caption = "-0.25" labValue(4).Caption = "-0.50" Case 3 labValue(0).Caption = "0.2" labValue(1).Caption = "0.1" labValue(2).Caption = "0.0" labValue(3).Caption = "-0.1" labValue(4).Caption = "-1.2" End Select End Sub Private Sub cobSample_Click() nSample = Val(Trim$(cobSample)) End Sub Private Sub Form_Load() Dim result As Integer SettingForm.Show 1 If card < 0 Then MsgBox "Register Card Failed" End End If gnC1 = 10 cobRange.AddItem "+/- 5V" cobRange.AddItem "+/- 1V" cobRange.AddItem "+/- 0.5V" cobRange.AddItem "+/- 0.2V" cobRange.ListIndex = 0 range_value(0) = 2 range_value(1) = 10 range_value(2) = 7 range_value(3) = 25 cobData.AddItem "1024" cobData.AddItem "2048" cobData.AddItem "4096" cobData.ListIndex = 2 cobSample.AddItem "10" cobSample.AddItem "40" cobSample.AddItem "100" cobSample.AddItem "160" cobSample.AddItem "250" cobSample.ListIndex = 4 gnADChn = 0 End Sub Private Sub Form_Unload(Cancel As Integer) If card >= 0 Then Release_Card (card) End Sub Private Sub optChn_Click(Index As Integer) gnADChn = Index End Sub Private Sub ShowData(Count As Integer) Dim i, last, total As Integer Dim x1, y1, x2, y2 As Integer Dim w, h, data As Integer last = Count w = picScreen.ScaleWidth h = picScreen.ScaleHeight data = gnBuffer(0) x1 = (last * w) / Count y1 = h - ((CLng(data) + 32768) * h / 65535) last = last - 1 While (last > 0) data = gnBuffer(Count - last) x2 = (last * w) / Count y2 = h - ((CLng(data) + 32768) * h / 65535) last = last - 1 picScreen.Line (x1, y1)-(x2, y2), &HFFFF& x1 = x2 y1 = y2 Wend AI_ContBufferReset (card) End Sub