VB6.0&串口&MSCOMM控件　十六进制　文本　发送接收代码
----------------FROM 水中鱼
FORM1全部代码：
Private Sub Combo1_Click()
On Error GoTo BLAK
If MSComm1.PortOpen = True Then
&& MSComm1.PortOpen = False
&& mPort =
Combo1.ListIndex + 1& '10
&& MSComm1.PortOpen = True
& mPort = Combo1.ListIndex +
& MSComm1.PortOpen = True
MsgBox "串口不存在或者被占用!", vbOKOnly, "提示信息"
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
Private Sub Command2_Click()
MsgBox Hex(Text1.Text)
Private Sub Form_Load()
'MSComm1.Settings = "9600,n,8,1"
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
Combo1.AddItem "COM5"
Combo1.AddItem "COM6"
Combo1.AddItem "COM7"
Combo1.AddItem "COM8"
Combo1.AddItem "COM9"
Combo1.AddItem "COM10"
Combo1.AddItem "COM11"
Combo1.AddItem "COM12"
Combo1.AddItem "COM13"
Combo1.AddItem "COM14"
Combo1.AddItem "COM15"
Form2.Show
FORM2全部代码：
Dim BytReceived()& As Byte
Private Sub Combo1_Click()
On Error GoTo BLAK
If MSComm1.PortOpen = True Then
&& MSComm1.PortOpen = False
&& mPort =
Combo1.ListIndex + 1
&& MSComm1.PortOpen = True
& mPort = Combo1.ListIndex + 1
& MSComm1.PortOpen = True
MsgBox "串口不存在或者被占用!", vbOKOnly, "提示信息"
Private Sub Command1_Click()
&If Option1.Value = True Then
&Text1.Text = MSComm1.Input
&'MSComm1.InBufferCount = 0
&'MSComm1.OutBufferCount = 0
&MSComm1.InputMode =
comInputModeBinary&&
'不加此句会多一个０
&Dim strBuff() As Byte
& 'MSComm1.InputLen = 0
& strBuff = MSComm1.Input
& BytReceived() = strBuff
& 'MSComm1.InBufferCount = 0
& 'MSComm1.OutBufferCount = 0
Private Sub Form_Load()
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
Combo1.AddItem "COM5"
Combo1.AddItem "COM6"
Combo1.AddItem "COM7"
Combo1.AddItem "COM8"
Combo1.AddItem "COM9"
Combo1.AddItem "COM10"
Combo1.AddItem "COM11"
Combo1.AddItem "COM12"
Combo1.AddItem "COM13"
Combo1.AddItem "COM14"
Combo1.AddItem "COM15"
Private Sub MSComm1_OnComm()
& MSComm1.InputMode = comInputModeBinary
& Dim strBuff() As Byte
& Select mEvent
& MSComm1.InputLen = 0
& strBuff = MSComm1.Input
& BytReceived() = strBuff
& End Select
Public Function jieshou()
&& Dim i As Integer
&& Dim str As String
&& For i = 0 To
UBound(BytReceived)
&& 'If Len(Hex(BytReceived(i))) =
&& 'str = str &
"0" & Hex(BytReceived(i))
&& str = str &
Hex(BytReceived(i)) & " "
&& 'End If
&& Text1.Text = str
End Function
&----------------FROM 水中鱼
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。unit Unit1;
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.D
TForm1 = class(TForm)
Button1: TB
{ Private declarations }
{ Public declarations }
Form1: TForm1;
implementation
{$R *.fmx}
实际在 在 IOS中,这种代码是不可以通过的.应该要改成Delphi(Pascal) code
SysUtils, Types, UITypes, Classes, Variants,
FMX_Types, FMX_Controls, FMX_Forms, FMX_D
另外,Delphi(Pascal) code
{$R *.fmx}
上面那段代码, 必须要注释掉,不然也没有办法通过
{$R *.fmx}& 现在的问题就是,做出来的IOS程序,没有窗体,所以我叫阉割版的程序,暂时还没有找到如何解决的办法,大家有空一起来研究吧.-----参考解决方法-------火速围观.
-----参考解决方法-------恭喜 恭喜
-----参考解决方法-------恭喜 恭喜
-----参考解决方法-------我艹,哪个孙子删我回复?
-----参考解决方法-------恭喜cc哥,性裕被负增长
-----参考解决方法-------探讨我艹,哪个孙子删我回复?
-----参考解决方法-------郁闷啊,我的沙发,被水产了.
-----参考解决方法-------感谢郭嘉,感谢CCAV,感谢++,俺的沙发回复现在反水产了.
-----参考解决方法-------恭喜LZ算无意义回复咩?
-----参考解决方法-------我也正在研究这个玩意儿.
-----参考解决方法-------手机应用程序要认准有保障的下载地点,不然要威胁到手机的安全问题.
-----参考解决方法-------iOS开发还是用object-c好一点的,你用这样的,效率肯定低,要设计到转换的问题,而且以后的兼容性也得不到保证
-----参考解决方法-------for iOS刚开始,希望能坚持下去,不要像之前的Kylix一样
-----参考解决方法-------能用到SDK里头的东西吗?调用相册?摄像头?等等
-----参考解决方法-------
-----参考解决方法------- 看来XE有戏,虽然俺讨厌那个"X"
-----参考解决方法-------路过,希望DELPHI重振声威
开发者笔记
软件开发/管理/测试
企业管理/开发
嵌入式开发
高性能开发
编程语言/框架
专题项目/开发/技术
Linux/Unix在EXCEL中VBA的MSComm控件用不了是怎么回事？_百度知道
在EXCEL中VBA的MSComm控件用不了是怎么回事？
ocx 102K 1998年的,,ocx并且提示注册成功,我注册是这样注册的,查看注册表有,主键AC2-11cf-8ADB-00AA00C00905内容为, kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun。往窗体中添加电话一样的控件,运行&quot,点击“开始”-&gt,把它复制过去试试,system32&#92,再在中填入Regsvr32 C,HKEY_CLASSES_ROOT&#92,该主题不受信任用VB6带的mscomm,Licenses,&quot,还是不行。,&#92,Mscomm32,Windows&#92,对于指定操作,提示,
我有更好的答案
按默认排序
文件, Copying the keys may be a violation of established copyrights,system32目录下面,reg&quot,Licenses = Licensing,并另存为&quot,
2,AC2-11cf-8ADB-00AA00C00905 = kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun
3,串口通讯,OCX文件拷贝到 windows&#92,将以下内容到拷贝进去,串口通讯,试试这样做,运行&quot,打开记事本, (文件类型为据有类型, The MsComm32 Control License follows,完成注册。,
HKEY_CLASSES_ROOT&#92,)
HKEY_CLASSES_ROOT&#92,reg&quot,将MSComm32,&#47,Licenses&#92,
试了还是不行呢？还有其它办法吗？
那就奇怪了，我以上两种办法都能通过呢!看来这问题属于win操作系统漏洞，具体原因不明再尝试一下1.删除原机器中的MSCOMM32.OCX控件 及注册表中的项
HKEY_CLASSES_ROOT\Licenses\AC2-11cf-8ADB-00AA00C009052.切换到DOS窗口，再次注册控件
copy mscomm32.ocx * %windir%\system32 /y
Regsvr32 %windir%\system32\mscomm32.ocx /s
reg add &HKCR\Licenses\AC2-11cf-8ADB-00AA00C00905& /v && /d &kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun& /f
注册后重启机器再看看
其他类似问题
mscomm控件的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb6中两个页面的两个MSComm控件，共用电脑一个串口ComPort，怎么控制？
[问题点数：50分，结帖人usun82]
vb6中两个页面的两个MSComm控件，共用电脑一个串口ComPort，怎么控制？
[问题点数：50分，结帖人usun82]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2014年5月 VC/MFC大版内专家分月排行榜第二2014年3月 VC/MFC大版内专家分月排行榜第二2013年10月 VB大版内专家分月排行榜第二2013年7月 VB大版内专家分月排行榜第二2012年5月 VB大版内专家分月排行榜第二2012年4月 VB大版内专家分月排行榜第二2012年2月 VB大版内专家分月排行榜第二2011年11月 VB大版内专家分月排行榜第二
2014年1月 VC/MFC大版内专家分月排行榜第三2012年3月 VB大版内专家分月排行榜第三2011年12月 VB大版内专家分月排行榜第三2011年10月 VB大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。用VB6.0中的Mscomm控件接收二进制数_百度知道
用VB6.0中的Mscomm控件接收二进制数
要有注释,把收到的二进制数存在一个文件中。希望懂VB的大侠提供一个程序源码,--无线数传,--PC机这样发送接收的。现需要一个用VB6,0的MScomm写的接收程序,我是完完全全的菜鸟。小女子拜谢了。,要用VB6,0中的MScomm控件接收由与单片机发过来的二进制数据。数据是通过单片机--无线数传,
提问者采纳
其实不难在 MScomm 控件的 OnCom 事件里接收网络上有很的,aspx" target="_blank">http,//blog,csdn,net/zdingyun/archive//2969936,aspx祝你顺利,//blog,csdn,net/zdingyun/archive//2969936,如 <a href="http,
提问者评价
谢了 硬编了一个 不知道对不对
其他类似问题
按默认排序
其他1条回答
在OnCom 事件中写接收代码。具体的算法及接收代码须依据你单片机与PC机的通信协议及数据格式约定而定。,0的MScomm控件按2进制方式接收,用VB6,
mscomm控件的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}