4900H238 4900H237 4900H208 1
Visual Basic AD/DA Visual Basic 2
PCI AD/DA Visual Basic Visual Basic 3
4
3 3 4 AD/DA ID AD/DA PCI AD/DA 15 Visual Basic 17 5
20 PID Visual Basic 26 31 Visual Basic------------------------------------------------------------- 33 Visual Basic V----------------------------------------------------------------- 33 6
CAD/CAM NC ( Open-loop Control) ( Closed-loop Control or Feedback control ) 7
( Fuzzy Control ) 8
PCI AD/DA Visual BasicPID 9
xi q xi q 10
1 2 3 4 11
(discrete) 12
13
14 (ADC) (DAC) (hybrid)
AD/DA (A/D) (D/A) IC (D/A) 15
PCI AD/DA PCI PNP(Plug & Play) Win98/2000/XP CPLD PCI I/O bit A to D (AD#0-AD#7) D to A (AD#8-AD#9) 16
(3) (4) (2) (1) AD/DA PCI BUS I/O CPLD ID (JP1) AD/DA ID ID ID ID 17
AD/DA IO (CPD1) CPD1 DB25 Pin Cable (25Pin Cable AD DA IO Pin (CPP1)P1AP1B P1C Pin (CPP2)P2AP2B P2C P1A0 P1B0 P2A0 P2B0 P1A1 P1B1 P2A1 P2B1 P1A2 P1B2 P2A2 P2B2 P1A3 P1B3 P2A3 P2B3 P1A4 P1B4 P2A4 P2B4 P1A5 P1B5 P2A5 P2B5 P1A6 P1B6 P2A6 P2B6 P1A7 P1B7 P2A7 P2B7 P1C0 P1C4 P2C0 P2C4 P1C1 P1C5 P2C1 P2C5 P1C2 P1C6 P2C2 P2C6 P1C3 P1C7 P2C3 P2C7 GND VCC GND VCC CPP1 AD/DA CPP2 18
ID ID PCI Windows Driver\ADDA_DIO.inf ICCI Control Card ADDA_DIO 19
ID ID Cable Cable LED Cable addadio.exe ID ADDA DA0 DA1 DIO PORT IO PORT1 PORT1A LED AA LED 20
PCI AD/DA 21
22
2-4 Visual Basic Dartmouth John Kemeny Thomas BASIC BASIC KB Quick BASIC QB BASIC Quick BASIC Windows DOS Visual Basic BASIC DOS Quick BASIC Visual Basic Visual Basic VB6VB.Net Me VB5 VB4 Visual Basic 23
Visual Basic Visual Basic BASICBeginner's All-purpose Symbollc Instruction Code VB VB Visual Basic VB Visual (GUI) Basic VB VB VB 24
VB VB Visual Basic Visual Basic Visual Basic Visual Basic 25
26? (.EXE) NO Yes
PID (PID) PID PID PID Kp Ki Kd 27
PID s 28
PID KpKdKi 29
PID 30
PID PID PID 31
Visual Basic Private Sub Form_Load() Visual Basic End Sub Private Sub Option1_Click() CardID = 0 End Sub Private Sub Option2_Click() CardID = 4 End Sub Private Sub Option3_Click() CardID = 1 End Sub 32
Private Sub Option4_Click() CardID = 5 End Sub Private Sub Option5_Click() CardID = 2 End Sub Private Sub Option6_Click() CardID = 6 End Sub Private Sub Option7_Click() CardID = 3 End Sub Private Sub Option8_Click() CardID = 7 End Sub Private Sub Command10_Click() ec4 = adda_dio_writebyte(ba + 16, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 16, ad) Text5.Text = ec3 f = ad * 0.0195312 f = Mid(f, 1, 4) Label27.Caption = f & "V" End Sub Private Sub Command11_Click() ec4 = adda_dio_writebyte(ba + 17, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 17, ad) Text5.Text = ec3 f = ad * 0.0195312 f = Mid(f, 1, 4) Label28.Caption = f & "V" 33
End Sub Private Sub Command12_Click() ec4 = adda_dio_writebyte(ba + 18, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 18, ad) Text5.Text = ec3 f = ad * 0.0195312 f = Mid(f, 1, 4) Label29.Caption = f & "V" End Sub Private Sub Command13_Click() ec4 = adda_dio_writebyte(ba + 19, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 19, ad) Text5.Text = ec3 f = ad * 0.0195312 f = Mid(f, 1, 4) Label30.Caption = f & "V" End Sub Private Sub Command14_Click() ec4 = adda_dio_writebyte(ba + 20, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 20, ad) Text5.Text = ec3 f = ad * 0.0195312 f = Mid(f, 1, 4) Label31.Caption = f & "V" End Sub Private Sub Command15_Click() ec4 = adda_dio_writebyte(ba + 21, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 21, ad) Text5.Text = ec3 f = ad * 0.0195312 34
f = Mid(f, 1, 4) Label32.Caption = f & "V" End Sub Private Sub Command16_Click() ec4 = adda_dio_writebyte(ba + 22, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 22, ad) Text5.Text = ec3 f = ad * 0.0195312 f = Mid(f, 1, 4) Label33.Caption = f & "V" End Sub Private Sub Command17_Click() ec4 = adda_dio_writebyte(ba + 23, 0) Text4.Text = ec4 ec3 = adda_dio_readbyte(ba + 23, ad) Text5.Text = ec3 f = ad * 0.0195312 f = Mid(f, 1, 4) Label34.Caption = f & "V" End Sub Private Sub HScroll1_Change() ec4 = adda_dio_writebyte(ba + 24, HScroll1.Value) Text4.Text = ec4 da1 = HScroll1.Value * 0.01953 da1 = Mid(da1, 1, 4) Label35.Caption = da1 & "V" End Sub '¾Þ @ r ꪺ ç¼æ Private Sub HScroll2_Change() ec4 = adda_dio_writebyte(ba + 25, HScroll2.Value) Text4.Text = ec4 da2 = HScroll2.Value * 0.01953 da2 = Mid(da2, 1, 4) Label36.Caption = da2 & "V" '¾Þ @ r ꪺ ç¼æ 35
End Sub Private Sub Timer4_Timer() Text7.Text = x x = x - 1 Text7.Text = x If x = 0 Then Timer4.Enabled = False adda_dic_close = Ture End If End Sub 36
Visual Basic PC D/A PCI AD/DA 37
PCI D/AA/D AD/DA Visual Basic AD Step3~6 38
Visual Basic Visual Basic V 39
A/D 40
Visual Basic 6.0 VISUAL BASIC VB Visual Basic PA800 BASIC-C 41