91美女视频-亚洲免费观看视频-欧美a∨-久热在线视频-日韩黄网站-成av人片在线观看www-久操综合-超碰av在线播放-性欧美欧美巨大69-婷婷二区-av男人的天堂网-中文字幕一区在线播放-玖草在线观看-国产网址在线观看-免费在线不卡av

wxg1221
級別: 正式會員
精華主題: 0
發帖數量: 15 個
工控威望: 84 點
下載積分: 466 分
在線時間: 20(小時)
注冊時間: 2018-08-08
最后登錄: 2026-01-15
查看wxg1221的 主題 / 回貼
樓主  發表于: 2020-03-13 15:29
解碼槍解出來的二維碼用串口傳輸  怎么把這個串口的數據直接在EXCEL表格里面顯示  掃一個碼EXCEL里面存一個
wxg1221
級別: 正式會員
精華主題: 0
發帖數量: 15 個
工控威望: 84 點
下載積分: 466 分
在線時間: 20(小時)
注冊時間: 2018-08-08
最后登錄: 2026-01-15
查看wxg1221的 主題 / 回貼
1樓  發表于: 2020-03-13 15:34
圖片:
這是解出來的碼
菜鳥入行
級別: 論壇先鋒

精華主題: 0
發帖數量: 1373 個
工控威望: 1557 點
下載積分: 3690 分
在線時間: 177(小時)
注冊時間: 2017-09-01
最后登錄: 2024-06-11
查看菜鳥入行的 主題 / 回貼
2樓  發表于: 2020-03-15 18:45
正常來說,需要使用VB  VC 等語言。

但是,我個人比較喜歡BAT的一個功能:
你只需要寫這一行代碼:
echo %time%>>c:\1.xls
復制到一個記事本文件,然后另存為  time.bat
每雙擊一次,就會在C盤生成一個叫1的表格文件,里面有每次雙擊的時間。
假如有辦法讓這個BAT獲取到你串口獲取的內容,就可以達到你要的要求了。

我在百度搜索到,BAT可以直接向串口發送數據,理論上接收也可以,只是寫腳本可能麻煩些。
參考:
https://zhidao.baidu.com/question/531586037.html
https://www.cnblogs.com/runliuv/p/9817126.html
[ 此帖被菜鳥入行在2020-03-15 19:00重新編輯 ]
打個醬油,懂的不多
水平有限,能幫則幫
互相幫助,共同進步
908914819
加壘電氣
級別: 家園常客

精華主題: 1 篇
發帖數量: 337 個
工控威望: 535 點
下載積分: 452 分
在線時間: 1430(小時)
注冊時間: 2008-07-06
最后登錄: 2026-01-19
查看908914819的 主題 / 回貼
3樓  發表于: 2020-03-16 14:56
如何將串口接收到的數據保存到EXCEL文檔

1.啟動excel從:工具-->宏-->Visual Basic 編輯器,打開excel VBA.

2.在ThisWorkbook上右單擊鼠標選擇插入--用戶窗體

3.單擊一下插入的窗體,單擊菜單上的--工具--附加控件--選擇Microsoft Communications Control, version 6.0

4.在窗體上添加mscomm1,添加commandButton1

5.單串口機子,短接rs232的2腳和3腳,雙串口機子用232線連接兩個串口,注意2、3線交叉,我這里以單串口短接舉例。

6.復制以下代碼到你的窗體里:

VB code

'VBA代碼
Private Sub CommandButton1_Click()
MSComm1.Output = "BEG1END"
End Sub

Private Sub MSComm1_OnComm()
Dim t1 As Long, com_String As String
Static i As Integer
t1 = Timer

Select Case MSComm1.CommEvent
Case comEvReceive '收到 RThreshold定義的字符數1字節
MSComm1.RThreshold = 0
Do
DoEvents
Loop While Timer - t1 < 0.1 '延時時間自己調整
com_String = MSComm1.Input
MSComm1.RThreshold = 1
i = i + 1: If i > 255 Then i = 1
Application.Cells(3, i).Value = com_String
End Select
'ActiveWorkbook.SaveAs Filename:="C:\d1.xls"
End Sub


Private Sub iniMscomm()
'On Error Resume Next
'=====-----初始化通信串口-----=====

MSComm1.CommPort = 1 '使用 COM1
MSComm1.Settings = "9600,N,8,1" '9600 波特,無奇偶校驗,8 位數據,一個停止位
MSComm1.PortOpen = True '打開端口

MSComm1.RThreshold = 1 '緩沖區有1個字節就產生OnComm事件
MSComm1.InputLen = 0 '為 0 時,使用 Input 將使 MSComm 控件讀取接收緩沖區中全部的內容。

MSComm1.InputMode = comInputModeText 'Input以二進制形式取回用comInputModeBinary,以文本形式取回是(缺省項)
MSComm1.RTSEnable = True
MSComm1.InBufferCount = 0 '清空緩沖區

End Sub

Private Sub UserForm_Initialize()
iniMscomm
End Sub


7.雙擊thisWorkBook,復制以下代碼到窗體里:

VB code

'VBA代碼
Private Sub Workbook_Open()
UserForm1.Show 0
'UserForm1.Hide

End Sub
8.保存文件并關閉excel,然后再打開你的文件,然后單擊你窗體上的按鈕看看。
9.這個程序是我為你特意做的,已經做過測試,sys2003 office2003。
10.如果excel中有數據輸入,再去測試你的設置,注意com口號與波特率的設置。
908914819
加壘電氣
級別: 家園常客

精華主題: 1 篇
發帖數量: 337 個
工控威望: 535 點
下載積分: 452 分
在線時間: 1430(小時)
注冊時間: 2008-07-06
最后登錄: 2026-01-19
查看908914819的 主題 / 回貼
4樓  發表于: 2020-03-16 14:58
以上是百度的

主站蜘蛛池模板: 亚洲熟妇一区 | 国产丝袜在线 | 国产成人综合欧美精品久久 | 欧美日韩国产三级 | 啪啪自拍 | 看黄色一级片 | 午夜精品网 | 国产又粗又猛又色 | 黑人巨大精品人妻一区二区 | 亚洲三级电影网站 | 亚洲午夜精品福利 | 在线免费观看成年人视频 | 少妇人禽zoz0伦视频 | 国产精品久久久免费 | 一级黄色片毛片 | 国产视频二 | aaa特级毛片 | 欧美大尺度床戏做爰 | 精品人妻一区二区三区三区四区 | 北条麻妃一区二区三区 | 美脚の诱脚舐め脚 | 一区二区国产在线 | 天堂av资源在线 | 人妻丰满熟妇无码区免费 | 国产成人久久久 | av在线播放国产 | 亚洲一区二区三区四区在线观看 | 亚洲色图图| av片在线免费观看 | 亚洲一区日本 | 不卡视频在线播放 | a天堂资源在线观看 | 夜夜爽妓女8888视频免费观看 | 日本激情视频网站 | 色老太hd老太色hd | 亚洲毛片视频 | 38在线视频 | 日本系列第一页 | 免费网站观看www在线观 | 久久中文一区 | 国产精品偷伦视频免费观看了 | 久久久久久久久久久久久久av | 午夜视频在线观看网站 | 亚洲精品乱码久久久久久蜜桃欧美 | 中文字幕免费观看 | www.亚洲黄色| 日韩成人在线视频 | 性久久久久久久久久 | 三上悠亚在线播放 | 九九热中文字幕 | 青青在线| 成人在线播放网站 | 日韩欧美亚洲精品 | 在线男人天堂 | 成人观看 | 国产香蕉精品 | 亚洲免费资源 | 国产毛片毛片毛片毛片毛片毛片 | 亚洲av无码专区在线 | 一级毛片黄色 | 国产精品一级二级 | 日日夜夜免费视频 | 亚州av成人 | 在线观看三级视频 | 熟女人妻aⅴ一区二区三区60路 | 亚洲福利视频网站 | 户外少妇对白啪啪野战 | 打屁股疼的撕心裂肺的视频 | 国产剧情av麻豆香蕉精品 | 中文字幕精品久久 | 91夫妻视频| 国产福利99| 中文字幕+乱码+中文乱码www | 完全免费av| 国产成人av一区二区 | 999在线视频| 成人精品自拍 | 日本五十路 | 91av久久 | 欧美激情黄色片 | 哺乳期喷奶水丰满少妇 | 久久偷看各类wc女厕嘘嘘偷窃 | 国产精品一级片 | 久久久久一级片 | 久久ww| 激情综合亚洲 | 国产高清视频在线免费观看 | 日韩夜夜 | 韩国理论午夜 | 中文字幕一区二区三区精华液 | 欧美一区二不卡视频 | 国产深夜视频 | 波多野一区二区 | 高清国产一区二区三区四区五区 | 汗汗视频 | 99reav| 亚洲综合91 | 日本免费不卡 | 国产一级网站 |