主要是對SerialPort控件的編程和數(shù)據(jù)庫的讀取,
成都創(chuàng)新互聯(lián)是由多位在大型網(wǎng)絡(luò)公司、廣告設(shè)計(jì)公司的優(yōu)秀設(shè)計(jì)人員和策劃人員組成的一個(gè)具有豐富經(jīng)驗(yàn)的團(tuán)隊(duì),其中包括網(wǎng)站策劃、網(wǎng)頁美工、網(wǎng)站程序員、網(wǎng)頁設(shè)計(jì)師、平面廣告設(shè)計(jì)師、網(wǎng)絡(luò)營銷人員及形象策劃。承接:網(wǎng)站制作、成都網(wǎng)站建設(shè)、網(wǎng)站改版、網(wǎng)頁設(shè)計(jì)制作、網(wǎng)站建設(shè)與維護(hù)、網(wǎng)絡(luò)推廣、數(shù)據(jù)庫開發(fā),以高性價(jià)比制作企業(yè)網(wǎng)站、行業(yè)門戶平臺等全方位的服務(wù)。
在數(shù)據(jù)庫讀取方面可以用 DataSet ,BindingSource , TableAdapter 等數(shù)據(jù)綁定控件,
SerialPort控件的具體讀寫方法建議你看MSDN,大概是:
Private Sub 關(guān)閉和啟動(dòng)串口()
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
'等等
既然能夠取得整個(gè)屏幕,可以取到整個(gè)屏幕以后創(chuàng)建一個(gè)全屏窗體顯示靜態(tài)的屏幕圖像,然后在窗體上實(shí)現(xiàn)部分截取。
估計(jì)別的截圖也是這個(gè)原理,因?yàn)橐稽c(diǎn)開始截圖屏幕就變?yōu)殪o態(tài)不動(dòng)了,肯定是在截圖初期復(fù)制了當(dāng)時(shí)的屏幕場景
在窗體上建立2個(gè)文本框text1和text2,一個(gè)按鈕command1,text1里面輸入你要轉(zhuǎn)換的字符串,text2里面顯示結(jié)果,代碼如下:
Dim MyString As String
Dim EveryStr(50) As String
Dim TargetStr As String
Private Sub Command1_Click()
MyString = Text1
For i = 1 To Len(MyString)
EveryStr(i) = Right(Left(MyString, i), 1)
If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"
If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"
TargetStr = TargetStr EveryStr(i)
Next i
Text2 = TargetStr
TargetStr = \"\"
End Sub
引號前面怎么自動(dòng)給加了個(gè)“\”?用的時(shí)候請手動(dòng)把那幾個(gè)“\”去掉