1、以下為Module1.vbModuleDeclareFunctionibACALLPORTIO.dllAliasACALLPORTIO_WriteByte(ByValaddress16,ByValDataOutAsByte)DeclareFunctionWriteWordLibACALLPORTIO.dllAliasACALLPORTIO_WriteWord(ByVal16,ByValDataOut16) DeclareFunctionib以下為Module1.vbModuleDeclareFunctionibACALLPORTIO.dllAliasACALLPORTIO_WriteByte(

2、ByValaddress16,ByValDataOutAsByte)DeclareFunctionWriteWordLibACALLPORTIO.dllAliasACALLPORTIO_WriteWord(ByVal16,ByValDataOut16) DeclareFunctionibACALLPORTIO.dllAliasACALLPORTIO_ReadByte(ByValaddress16,ByRefDataInAsByte)DeclareFunctionReadWordLibACALLPORTIO.dllAliasACALLPORTIO_ReadWord(ByVal16, ByRefD

3、ataIn16)DeclareFunctionDInitLibACALLPORTIO.dllAliasACALLPORTIO_Init()DeclareFunctionDCloseLibACALLPORTIO.dllAliasACALLPORTIO_Close()DeclareFunctionLibACALLPORTIO.dllAliaseger)DeclareFunctionLibACALLPORTIO.dllAlias(ByRefeger)PublicDeclareSubSleepLibkernel32(ByValtimeEnd 以下為Module1.vbPublicClassDimDat

4、aAddressCtlAddress,S usAddressAsShort DimfInit初始化旗初始化按鈕的ClickPublicClassDimDataAddressCtlAddress,S usAddressAsShort DimfInit初始化旗初始化按鈕的Click必須先將驅(qū)動(dòng)程序初始化，才能順利進(jìn)行控PrivateSubbtnInit_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)IfDInit()0MsgBox(初始化錯(cuò)誤, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly

5、, 驅(qū)動(dòng)程序錯(cuò)誤gbData.Enabled=gbControl.Enabled=gbS us.Enabled=fInit=End End 結(jié)束按鈕的Click將驅(qū)動(dòng)程序關(guān)閉后結(jié)束程PrivateSubbtnEnd_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)IfDClose()0MsgBox(關(guān)閉驅(qū)動(dòng)程序發(fā)生錯(cuò)誤, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, 驅(qū)動(dòng)序錯(cuò)誤End End 表單的Load定義地PrivateSubForm1_Load(ByValsenderAsSys

6、tem.Object,ByValeEnd End 表單的Load定義地PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)DataAddress=資料端口地CtlAddressDataAddress2 S usAddressDataAddress1fInit=End 資料輸出埠的CheckedChanged均呼叫DataOutputPrivateSubchkD0_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsHandleschkD0.Checked

7、Changed,chkD1.CheckedChanged,chkD2.CheckedChanged, chkD3.CheckedChanged, chkD4.CheckedChanged, chkD6.CheckedChanged, End 處理資料輸出埠的輸出動(dòng)每一個(gè)Data端口控制的CheckBox SubDimLdataAsIfchkD0.CheckedLdata= ldata= End IfchkD1.CheckedSubDimLdataAsIfchkD0.CheckedLdata= ldata= End IfchkD1.CheckedThenLdata+=2IfchkD2.Check

8、edThenLdata+=2IfchkD3.CheckedThenLdata+=2IfchkD4.CheckedThenLdata+=2IfchkD5.CheckedThenLdata+=2IfchkD6.CheckedThenLdata+=2IfchkD7.CheckedThenLdata+=2, End PrivateSubchkC0_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsHandleschkC0.CheckedChanged,chkC1.CheckedChanged,chkC2.CheckedChanged,End 處理資料輸

9、出埠的輸出動(dòng)每一個(gè)ControlCheckBoxSubDimCtldataAsIfchkC0.CheckedCtldata=Ctldata=End IfchkC1.CheckedThenCtldata+=2IfchkC2.CheckedThenCtldata+=2Ctldata=Ctldata=End IfchkC1.CheckedThenCtldata+=2IfchkC2.CheckedThenCtldata+=2IfchkC3.CheckedThenCtldata+=2, End 計(jì)時(shí)器的Tick透過各bitPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)DimiAsShort,BBAsIfNotfInitThenExiti=ReadByte(S usAddress,If(BBAnd&H8)檢查傳回值中的第三位是否為 picErr.Image=改變燈號為紅picErr.Image=改變燈號為黑End If(BBAnd&H10)檢查傳回值中的第四位是否為 picOL.Image=picOL.Image=End If(BBAnd&H20)檢查傳回值中的第五位是否為 If(BBAnd&H20)檢查傳回值中的第五位是否為 pic