展開全部

你需要做個個串e69da5e6ba9062616964757a686964616f31333262363132口通訊，將單片機的數據上載到電腦端，電腦端要寫一個上位機。可講通訊過來的數據存入 sql server的數據庫中

單片機端需要寫串口程序，PC 端需要些上位機軟件 VB可以寫用MSComm1 控件

通訊例子如下

Dim i As Integer

Dim a As Integer

Dim t() As Byte

Private Sub Command1_Click()

If Command1.Caption = "打開串口" Then

'Shape1.Visible = True

Shape1.FillColor = &HFF&

Shape1.BackColor = &HFF&

Shape1.BorderColor = &HFF&

Command2.Enabled = True

Command3.Enabled = True

Command1.Caption = "關閉串口"

'MSComm1.CommPort = 1 '設定Com1口

MSComm1.CommPort = Combo1.Text '設定Com1口

If MSComm1.PortOpen = False Then

'MSComm1.Settings = "4800,N,8,1" '4800波特率,無校驗,8位數據位,1位停止位

MSComm1.Settings = Combo2.Text & "," & Combo3.Text & "," & Combo4.Text & "," & Combo5.Text '4800波特率,無校驗,8位數據位,1位停止位

MSComm1.InputLen = 1 '讀取接收緩沖區的所有字符

MSComm1.InputLen = 5

MSComm1.InBufferSize = 5 '設置接收緩沖區為1024字節

MSComm1.OutBufferSize = 5 '設置發送緩沖區為512字節

MSComm1.SThreshold = 0 '不觸發發送事件

MSComm1.RThreshold = 1 '每一個字符到接收緩沖區都觸發接收事件

MSComm1.PortOpen = True '打開串口

End If

MSComm1.OutBufferCount = 0 '清空發送緩沖區

MSComm1.InBufferCount = 0 '清空接收緩沖區

Dim temp() As Byte

Else

'Option2.Value = False

'Option1.Value = False

'Shape1.Visible = False

Shape1.BackColor = &H808080

Shape1.BorderColor = &H808080

Shape1.FillColor = &H808080

Command2.Enabled = False

'Command3.Enabled = False

MSComm1.PortOpen = False

Command1.Caption = "打開串口"

End If

End Sub

Private Sub Command2_Click()

'Command2.Enabled = False

'Option2.Value = False

'Option1.Value = False

'Shape2.Visible = False

MSComm1.OutBufferCount = 0 '清空發送緩沖區

MSComm1.InBufferCount = 0 '清空接收緩沖區

't(0) = "255"

' MSComm1.Output = t

MSComm1.Output = Text2.Text

End Sub

Private Sub Command3_Click()

Text1.Text = ""

End Sub

Private Sub Command5_Click() '退出

End

End Sub

Private Sub Command6_Click()

Text2.Text = ""

End Sub

Private Sub Command7_Click()

If Command7.Value Then

'Command7.Visible = False

Command1.Visible = True

Command2.Visible = True

Command3.Visible = True

Command6.Visible = True

Label1.Visible = True

Label2.Visible = True

Label3.Visible = True

Label4.Visible = True

Label5.Visible = True

Label6.Visible = True

Label7.Visible = True

Combo1.Visible = True

Combo2.Visible = True

Combo3.Visible = True

Combo4.Visible = True

Combo5.Visible = True

Text1.Visible = True

Text2.Visible = True

Frame1.Visible = True

Frame2.Visible = False

'Command3.Visible = False

'Option1.Value = False

Shape1.Visible = True

Else

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

Label6.Visible = False

Label7.Visible = False

Combo1.Visible = False

Combo2.Visible = False

Combo3.Visible = False

Combo4.Visible = False

Combo5.Visible = False

Command1.Visible = False

Command2.Visible = False

Command3.Visible = False

Text1.Visible = False

Text2.Visible = False

Frame1.Visible = False

Frame2.Visible = False

End If

End Sub

Private Sub Form_Load()

MSComm1.InBufferCount = 0 '清除發送緩沖區數據

MSComm1.OutBufferCount = 0 '清除接收緩沖區數據

ReDim t(0)

t(0) = "0"

Combo1.AddItem "1"

Combo1.AddItem "2"

Combo1.AddItem "3"

Combo1.AddItem "4"

'Combo1.Text = "1"

Combo2.AddItem "300"

Combo2.AddItem "600"

Combo2.AddItem "1200"

Combo2.AddItem "2400"

Combo2.AddItem "4800"

Combo2.AddItem "9600"

Combo2.AddItem "19200"

Combo3.AddItem "N"

Combo3.AddItem "O"

Combo3.AddItem "E"

Combo4.AddItem "8"

Combo4.AddItem "7"

Combo4.AddItem "6"

Combo5.AddItem "1"

Combo5.AddItem "2"

Combo5.AddItem "3"

End Sub

Private Sub MSComm1_OnComm()

Dim s1 As String

Dim s2 As String

Select Case MSComm1.CommEvent

Case comEventOverrun '數據丟失

Text_SEND.Text = "" '清空發送緩沖區

Text_RECV.Text = "" '清空接收緩沖區

Text_SEND.SetFocus

Exit Sub

Case comEventRxOver '接收緩沖區溢出

Text_SEND.Text = "" '清空發送緩沖區

Text_RECV.Text = "" '清空接收緩沖區

Text_SEND.SetFocus

Exit Sub

Case comEventTxFull '發送緩沖區已滿

Text_SEND.Text = "" '清空發送緩沖區

Text_RECV.Text = "" '清空接收緩沖區

Text_SEND.SetFocus

Exit Sub

Case comEvReceive '接收字符數據

Dim Buffer As Variant

MSComm1.InputLen = 1

MSComm1.InputMode = comInputModeBinary '二進制傳輸

Buffer = MSComm1.Input

'Text1.Text = Buffer(0)

's2 = Buffer(1)

Text1.Text = Text1.Text & (Val(MSComm1.Input)) & " "

Case Else

End Select

End Sub

Private Sub Option1_Click()

End Sub

已贊過

已踩過<

你對這個回答的評價是？

評論

收起

總結

以上是生活随笔為你收集整理的单片机发送数据到mysql_单片机的数据怎样进入到sql server的数据库中的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。