Location:
Search - vb-MSComm1
Search list
Description: 安装绿色精简版vb在做串口操作会
控件 MSComm1 的类 MSCommLib.MSComm 不是一个已加载的控件类。
此为补丁
Platform: |
Size: 169690 |
Author: 得到 |
Hits:
Description: VC++ 和VB串并口开发技术工程应用实例导航》一书的配套源代码串口编程
Platform: |
Size: 2601 |
Author: jmjt |
Hits:
Description: vb与plc通信
vb 使用mscomm1 控件与三菱plc通信程序
Platform: |
Size: 2347 |
Author: lbj |
Hits:
Description: Com口调试工具,里面有附有源码，如果有需要，可以作适当的改动。-Com debugging tool with a source inside, and if necessary, make appropriate changes.
Platform: |
Size: 25600 |
Author: 杨工 |
Hits:
Description: 安装绿色精简版vb在做串口操作会
控件 MSComm1 的类 MSCommLib.MSComm 不是一个已加载的控件类。
此为补丁-Green Starter Edition installed vb serial port operation in the control to do MSComm1 class MSCommLib.MSComm is not a type of control has been loaded. This is the patch
Platform: |
Size: 168960 |
Author: 得到 |
Hits:
Description: VC++ 和VB串并口开发技术工程应用实例导航》一书的配套源代码串口编程-VC++ And VB string parallel application development technology project navigation of a book on the source code matching the serial programming
Platform: |
Size: 2048 |
Author: jmjt |
Hits:
Description: vb与plc通信
vb 使用mscomm1 控件与三菱plc通信程序-vb and vb Communications plc control the use of MSComm1 communication program with Mitsubishi plc
Platform: |
Size: 2048 |
Author: lbj |
Hits:
Description: vb与plc通信 vb 使用mscomm1 控件与三菱plc通信程序-vb vb communicate with the plc using mscomm1 Mitsubishi plc controls and communication procedures
Platform: |
Size: 2048 |
Author: wyzyyq |
Hits:
Description: rivate Sub cmdSend_Click()
Dim sj() As Byte
Dim sj_Txt As String
Dim i As Integer
sj_Txt = "800A00113135323634389794"
sj_Txt="00FFWW0D006501" & hex(deltapre*i/n+m_OldPre) & "42"
Text1 = sj_Txt
ReDim sj(Len(sj_Txt) / 2 - 1)
For i = 0 To Len(sj_Txt) - 1 Step 2
sj(i / 2) = Val("&H" & Mid(sj_Txt, i + 1, 2))
Next
MSComm1.Output = sj-rivate Sub cmdSend_Click () Dim sj () As Byte Dim sj_Txt As String Dim i As Integer sj_Txt = " 800A00113135323634389794" ' sj_Txt = " 00FFWW0D006501" & hex (deltapre* i/n+ m_OldPre) & " 42" Text1 = sj_Txt ReDim sj (Len (sj_Txt)/2- 1) For i = 0 To Len (sj_Txt)- 1 Step 2 sj (i/2) = Val (" & H" & Mid (sj_Txt, i+ 1, 2)) Next MSComm1. Output = sj
Platform: |
Size: 1024 |
Author: 穆 |
Hits:
Description: VB实现pc与单片机串口通信任务
//利用vb实现pc与单片机串口通信任务
//编写程序代码
定义变量
Dim cnum As Integer 循环计数标志
Dim choosenum As Integer 选择指示灯号
串口初始化
在窗体的Load事件中加入下列代码对串口进行初始化
Private Sub Form_Load()
MSComm1.CommPort=1
MSComm1.InputMode=1
MSComm1.RThreshold=1
MSComm1.SThreshold=1
MSComm1.Settings="4800,n,8,1"
MSComm1.PortOpen=Ture
choosenum=1
End Sub-VB serial communication with the microcontroller to achieve the task pc
//Use pc with vb achieve single-chip serial communication tasks
//Write program code
Definition of variables
Dim cnum As Integer loop count mark
Dim choosenum As Integer Select Indicators
Serial port initialization
Add the following code in the form s Load event to initialize the serial port
Private Sub Form_Load ()
MSComm1.CommPort = 1
MSComm1.InputMode = 1
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.Settings = "4800, n, 8,1"
MSComm1.PortOpen = Ture
choosenum = 1
End Sub
Platform: |
Size: 2048 |
Author: 朱光前 |
Hits:
Description: VB 串口程序描点画图,程序很小，只有几k,有VB6.0的可对源代码重新编译，运行测试图如截图示。源代码里的部分注释说明：选择com1
MSComm1.CommPort = 1
设置波特率为9.6kpbs，没有奇偶校验，8位数据位，1位结束位
MSComm1.Settings = "9600,N,8,1"
读取全部的输入缓冲区
Case comEvReceive
此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理-VB serial tracing point drawing program, the program is very small, only a few k, there VB6.0 can recompile the source code, run the test pattern as shown in screenshot. Part of the source code annotated: Select com1
MSComm1.CommPort = 1
Set the baud rate to 9.6kpbs, no parity, 8 data bits, 1 stop bit
MSComm1.Settings = "9600, N, 8,1"
Read all of the input buffer
Case comEvReceive
The code here can be accepted when the serial buffer has handled RThreshold characters
Platform: |
Size: 2048 |
Author: wpudn16 |
Hits: