|
|
'串口頁(yè)面
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long '***************窗體的移動(dòng)--開(kāi)始
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 '***************窗體的移動(dòng)--開(kāi)始
Dim Cnn As New ADODB.Connection '定義數(shù)據(jù)連接
Dim rs1s As New ADODB.Recordset '定義數(shù)據(jù)連接
Dim rs2s As New ADODB.Recordset '定義數(shù)據(jù)連接
Dim rs3s As New ADODB.Recordset '定義數(shù)據(jù)連接
Dim rs4s As New ADODB.Recordset '定義數(shù)據(jù)連接
......
本平臺(tái)有30路繼電器VB實(shí)例，實(shí)在看不懂！也許是思路不同，坐實(shí)費(fèi)解。也有用FPGA來(lái)做的，真是“豆腐做出肉價(jià)錢(qián)了”。51最小系統(tǒng)應(yīng)該就能實(shí)現(xiàn)，繼續(xù)努力！ |
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
