求arduino UNO R3开发板连接QT设计界面的例子，最好是有数据库连接在内的例子。

用 Arduino Uno 给 Arduino Mini（Pro）烧录程序

准备

Arduino Uno

Arduino Mini（Pro）

杜邦线若干

接线

首先去掉 Arduino 上的芯片ATMEGA328P

接线

Uno —– Mini

0(RX) – 0(RX)

1(TX) – 1(TX)

VCC —- VCC

GND —- GND

RESET – RST

刷入程序

将 Arduino 连接至计算机

在 工具 ->板 中找到所对应的 Arduino 板子（Arduino Pro or Pro Mini）

在 工具 ->端口中找到 A4对弄对应端口（Mac 上是/dev/tty.usbmodem* 或 /dev/tty.usbserial*）

输入示例 Sketch（blink）

文件 ->示例 ->01.Basic ->Blink

然后在 IDE 中点击 『上传』

完成上传后，Arduino Mini(Pro) 灯开始闪烁

你可以到我们公司网站上随便找个什么模块，都有资料和教程指导。比如你在这里下载了一个18B20的库，这里面这个库的文件夹叫OneWire，然后你把这个OneWire文件夹放到C:\Program Files (x86)\Arduino\libraries(这是你的Arduino的安装目录，根据你的放)，然后写代码时#include <OneWire.h>这个就好了，可以看OneWire\examples\sample文件夹里面的例子。帮助文档在C:\Program Files (x86)\Arduino\reference\中，打开C:\Program Files (x86)\Arduino\reference\index.html

上位机用VB或VC编程，先会接收数据，会保存到TXT文本文件中。再学会保存到EXCEL中，就 算成功，EXCEL表格本身就 是数据库的一部分。至于数据库的 *** 作，用高级语言是很简单的，它和单 片机关系不大。我整过VB编程，串口接收，先保存到TXT文本文件中， 再学会保存到EXCEL中，挺简单的，网上搜几次就 成功了。

下面是我的串口接收程序的一部分：

Select Case MSComm1.CommEvent'事件发生

Case 2

inbuff = MSComm1.Input '读入到缓冲区

ll = UBound(inbuff)

Label10.Caption = Label10.Caption + UBound(inbuff) + 1

ReDim indata(1 To (ll + 1))

For ii = 0 To UBound(inbuff)

strHex = strHex &Right("0" &Hex(inbuff(ii)), 2) &" " '如果只有一个字符，则前补0， 如F显示0F，最后补空格方便显示观察如： 00 0F FE

TextReceive = strHex ‘显示到 文本框

Next ii

Open "12.txt" For Append As #1 ‘打开 文本文件

m = (ll + 1) / 2

Print #1, Now"收到"m"个数据"

Close #1

For ii = 1 To Len(strHex) Step 6

indata((ii + 5) / 6) = Val("&H" &Mid(strHex, ii, 2)) * 4 + Val("&H" &Mid(strHex, ii + 3, 2))

Next ii

n1 = Val(Text1.Text) '电源电压

n2 = Val(Text2.Text) '第一路电压衰减倍数

n3 = Val(Text3.Text) '第二路电压衰减倍数

na = n1 * n2 / 1024

nb = n1 * n3 / 1024

X = (ll + 1) / 2 - 1

For ii = 1 To X Step 2 '存入文本中,每行两个数据

V1 = indata(ii) * na

V2 = indata(ii + 1) * nb

V3 = Format(V1, "0.000")

V4 = Format(V2, "0.000")

Open "12.txt" For Append As #1

Print #1, ii &"电压 " &V3 &" v " &(ii + 1) &"电压 " &V4 &" v"

Close #1

Next

'写入EXCEL表格中

Set xlsApp = New Excel.Application

Set xlsBook = xlsApp.Workbooks.Open(App.Path &"\Book3.xls")

Set xlsSheet = xlsBook.Worksheets(1)

range = 2 '第二列为起始列,但每次写入时,range并不一定是2,而是在原有基础上另起1列

'第一列,写入奇数数据

Do Until xlsSheet.Cells(2, range) = ""

range = range + 1

Loop

xlsSheet.Cells(1, range) = Date '第1行

xlsSheet.Cells(2, range) = Time '第2行

xlsSheet.Cells(3, range) = "回路1电压(V)" '第3 行

For ii = 1 To X Step 2 '从第4行开始存数据

V1 = indata(ii) * na

V3 = Format(V1, "0.000")

xlsSheet.Cells((ii + 1) / 2 + 3, range) = V3 '第4行

Next ii

'另起一列,写入偶数数据

Do Until xlsSheet.Cells(2, range) = ""

range = range + 1

Loop

xlsSheet.Cells(2, range) = Time '第2行

xlsSheet.Cells(3, range) = "回路2电压(V)" '第3行

For ii = 2 To X + 1 Step 2 '从第4行开始存数据

V2 = indata(ii) * nb

V4 = Format(V2, "0.000")

xlsSheet.Cells(ii / 2 + 3, range) = V4

Next ii

xlsBook.Save

xlsBook.Application.Quit

strHex = "" '处理完成后清空字符串,等待下一次接收

'TextReceive = ""

End Select

---