'串口页面
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long '***************窗体的移动--开始
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '***************窗体的移动--开始
Dim Cnn As New ADODB.Connection '定义数据连接
Dim rs1s As New ADODB.Recordset '定义数据连接
Dim rs2s As New ADODB.Recordset '定义数据连接
Dim rs3s As New ADODB.Recordset '定义数据连接
Dim rs4s As New ADODB.Recordset '定义数据连接
......
本平台有30路继电器VB实例,实在看不懂!也许是思路不同,坐实费解。也有用FPGA来做的,真是“豆腐做出肉价钱了”。51最小系统应该就能实现,继续努力! |