'串口頁面
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最小系統應該就能實現，繼續努力！ |
