主要是對SerialPort控件的編程和數(shù)據(jù)庫的讀取,
創(chuàng)新互聯(lián)公司服務(wù)項(xiàng)目包括扎蘭屯網(wǎng)站建設(shè)、扎蘭屯網(wǎng)站制作、扎蘭屯網(wǎng)頁制作以及扎蘭屯網(wǎng)絡(luò)營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,扎蘭屯網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到扎蘭屯省份的部分城市,未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
在數(shù)據(jù)庫讀取方面可以用 DataSet ,BindingSource , TableAdapter 等數(shù)據(jù)綁定控件,
SerialPort控件的具體讀寫方法建議你看MSDN,大概是:
Private Sub 關(guān)閉和啟動串口()
Try
If 串口.IsOpen Then
串口.Close()
End If
串口.Open()
Catch ex As Exception
''''
End Try
End Sub
Private Sub 串口的讀與寫()
......
Dim 發(fā)送字節(jié)() As Byte, 返回字節(jié) As Byte
Try
'例如要發(fā)送字節(jié): 6D
發(fā)送字節(jié) = BitConverter.GetBytes(CByte("H6D"))
串口.Write(發(fā)送字節(jié), 0, 1)
......
'例如讀串口返回的字節(jié)
返回字節(jié) = 串口.ReadByte
Catch ex As Exception
''''
End Try
......
End Sub
'等等
VB.NET如何在調(diào)試時(shí)實(shí)時(shí)顯示變量信息
Dim?a1?As?String
a1?=?TextBox1.Text
Shell("explorer.exe?a?href="
)
VB.NET里用GDI+畫指示燈其實(shí)很簡單,稍微查一點(diǎn)資料就能找到gdi+語句的用法的。用GDI+可以畫很多種圖形,圓形半圓形自然不在話下。如果有很多指示燈在一起的話,改起來也很方便。
當(dāng)然如果嫌GDI+麻煩可以用label控件,把a(bǔ)utosize關(guān)掉,將尺寸調(diào)小一點(diǎn),然后利用backcolor調(diào)背景顏色作為指示燈,只不過是方形的。
如果指示燈很多而且頻繁換顏色的話建議用GDI+,因?yàn)镚DI+效率高一些
SCON = 0x50; //REN=1允許串行接受狀態(tài),串口工作模式1 TMOD|= 0x20; 試下這個(gè)程序,PC發(fā)什么,它就回送什么,收到數(shù)據(jù),點(diǎn)亮P2.0的LED。
用shape控件,把類型設(shè)置為圓形,程序里控制它的填充色來表示不同狀態(tài)
給你思路把:當(dāng)汽車運(yùn)動時(shí),他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍,就停止汽車運(yùn)動的那個(gè)計(jì)時(shí)器,并將另一個(gè)計(jì)時(shí)器的時(shí)間設(shè)為延時(shí)秒數(shù)并開啟,里面的代碼是打開騎車運(yùn)動的計(jì)時(shí)器。