16,556
社区成员
发帖
与我相关
我的任务
分享vb.net当中如何才能使用mscomm32.ocx和MSWINSCK.OCX？
为什么我增加MSCOMM32.OCX的时候，系统提示：不兼容....，无法增加？
我怎样才能使用MSCOMM32.OCX组件呢？
同样，如何才能在VS。NET中使用串口控件！！！
我怎样才能使用MSCOMM32.OCX组件呢？
同样，如何才能在VS。NET中使用串口控件！！！
...全文
请发表友善的回复…
发表回复
vb_vs 2005-09-15
- 打赏
- 举报
呵呵，
把安装盘下的Extras\VB6 Controls
的注册表文件添加一下看看，
把安装盘下的Extras\VB6 Controls
的注册表文件添加一下看看，
njhyh 2005-09-14
- 打赏
- 举报
在解决方案中：打开引用-->点击右键--〉添加引用--〉加入Interop.MSCommLib.dll动态库，然后就可以了。
xiaolang88 2005-09-14
- 打赏
- 举报
#Region "Properties"
' This property gets or sets the BaudRate
Public Property BaudRate() As Integer
Get
Return miBaudRate
End Get
Set(ByVal Value As Integer)
miBaudRate = Value
End Set
End Property
' This property gets or sets the BufferSize
Public Property BufferSize() As Integer
Get
Return miBufferSize
End Get
Set(ByVal Value As Integer)
miBufferSize = Value
End Set
End Property
' This property gets or sets the DataBit.
Public Property DataBit() As Integer
Get
Return miDataBit
End Get
Set(ByVal Value As Integer)
miDataBit = Value
End Set
End Property
' This write-only property sets or resets the DTR line.
Public WriteOnly Property Dtr() As Boolean
Set(ByVal Value As Boolean)
If Not mhRS = -1 Then
If Value Then
EscapeCommFunction(mhRS, Lines.SetDtr)
Else
EscapeCommFunction(mhRS, Lines.ClearDtr)
End If
End If
End Set
End Property
' This read-only property returns an array of bytes that represents
' the input coming into the Comm Port.
Overridable ReadOnly Property InputStream() As Byte()
Get
Return mabtRxBuf
End Get
End Property
' This read-only property returns a string that represents
' the data coming into to the Comm Port.
Overridable ReadOnly Property InputStreamString() As String
Get
Dim oEncoder As New System.Text.ASCIIEncoding()
Return oEncoder.GetString(Me.InputStream)
End Get
End Property
' This property returns the open status of the Comm Port.
ReadOnly Property IsOpen() As Boolean
Get
Return CBool(mhRS <> -1)
End Get
End Property
' This read-only property returns the status of the modem.
Public ReadOnly Property ModemStatus() As ModemStatusBits
Get
If mhRS = -1 Then
Throw New ApplicationException("Please initialize and open " + _
"port before using this method")
Else
' Retrieve modem status
Dim lpModemStatus As Integer
If Not GetCommModemStatus(mhRS, lpModemStatus) Then
Throw New ApplicationException("Unable to get modem status")
Else
Return CType(lpModemStatus, ModemStatusBits)
End If
End If
End Get
End Property
' This property gets or sets the Parity
Public Property Parity() As DataParity
Get
Return meParity
End Get
Set(ByVal Value As DataParity)
meParity = Value
End Set
End Property
' This property gets or sets the Port
Public Property Port() As Integer
Get
Return miPort
End Get
Set(ByVal Value As Integer)
miPort = Value
End Set
End Property
' This write-only property sets or resets the RTS line.
Public WriteOnly Property Rts() As Boolean
Set(ByVal Value As Boolean)
If Not mhRS = -1 Then
If Value Then
EscapeCommFunction(mhRS, Lines.SetRts)
Else
EscapeCommFunction(mhRS, Lines.ClearRts)
End If
End If
End Set
End Property
' This property gets or sets the StopBit
Public Property StopBit() As DataStopBit
Get
Return meStopBit
End Get
Set(ByVal Value As DataStopBit)
meStopBit = Value
End Set
End Property
' This property gets or sets the Timeout
Public Overridable Property Timeout() As Integer
Get
Return miTimeout
End Get
Set(ByVal Value As Integer)
miTimeout = CInt(IIf(Value = 0, 500, Value))
' If Port is open updates it on the fly
pSetTimeout()
End Set
End Property
' This property gets or sets the working mode to overlapped
' or non-overlapped.
Public Property WorkingMode() As Mode
Get
Return meMode
End Get
Set(ByVal Value As Mode)
meMode = Value
End Set
End Property
#End Region
' This property gets or sets the BaudRate
Public Property BaudRate() As Integer
Get
Return miBaudRate
End Get
Set(ByVal Value As Integer)
miBaudRate = Value
End Set
End Property
' This property gets or sets the BufferSize
Public Property BufferSize() As Integer
Get
Return miBufferSize
End Get
Set(ByVal Value As Integer)
miBufferSize = Value
End Set
End Property
' This property gets or sets the DataBit.
Public Property DataBit() As Integer
Get
Return miDataBit
End Get
Set(ByVal Value As Integer)
miDataBit = Value
End Set
End Property
' This write-only property sets or resets the DTR line.
Public WriteOnly Property Dtr() As Boolean
Set(ByVal Value As Boolean)
If Not mhRS = -1 Then
If Value Then
EscapeCommFunction(mhRS, Lines.SetDtr)
Else
EscapeCommFunction(mhRS, Lines.ClearDtr)
End If
End If
End Set
End Property
' This read-only property returns an array of bytes that represents
' the input coming into the Comm Port.
Overridable ReadOnly Property InputStream() As Byte()
Get
Return mabtRxBuf
End Get
End Property
' This read-only property returns a string that represents
' the data coming into to the Comm Port.
Overridable ReadOnly Property InputStreamString() As String
Get
Dim oEncoder As New System.Text.ASCIIEncoding()
Return oEncoder.GetString(Me.InputStream)
End Get
End Property
' This property returns the open status of the Comm Port.
ReadOnly Property IsOpen() As Boolean
Get
Return CBool(mhRS <> -1)
End Get
End Property
' This read-only property returns the status of the modem.
Public ReadOnly Property ModemStatus() As ModemStatusBits
Get
If mhRS = -1 Then
Throw New ApplicationException("Please initialize and open " + _
"port before using this method")
Else
' Retrieve modem status
Dim lpModemStatus As Integer
If Not GetCommModemStatus(mhRS, lpModemStatus) Then
Throw New ApplicationException("Unable to get modem status")
Else
Return CType(lpModemStatus, ModemStatusBits)
End If
End If
End Get
End Property
' This property gets or sets the Parity
Public Property Parity() As DataParity
Get
Return meParity
End Get
Set(ByVal Value As DataParity)
meParity = Value
End Set
End Property
' This property gets or sets the Port
Public Property Port() As Integer
Get
Return miPort
End Get
Set(ByVal Value As Integer)
miPort = Value
End Set
End Property
' This write-only property sets or resets the RTS line.
Public WriteOnly Property Rts() As Boolean
Set(ByVal Value As Boolean)
If Not mhRS = -1 Then
If Value Then
EscapeCommFunction(mhRS, Lines.SetRts)
Else
EscapeCommFunction(mhRS, Lines.ClearRts)
End If
End If
End Set
End Property
' This property gets or sets the StopBit
Public Property StopBit() As DataStopBit
Get
Return meStopBit
End Get
Set(ByVal Value As DataStopBit)
meStopBit = Value
End Set
End Property
' This property gets or sets the Timeout
Public Overridable Property Timeout() As Integer
Get
Return miTimeout
End Get
Set(ByVal Value As Integer)
miTimeout = CInt(IIf(Value = 0, 500, Value))
' If Port is open updates it on the fly
pSetTimeout()
End Set
End Property
' This property gets or sets the working mode to overlapped
' or non-overlapped.
Public Property WorkingMode() As Mode
Get
Return meMode
End Get
Set(ByVal Value As Mode)
meMode = Value
End Set
End Property
#End Region
xiaolang88 2005-09-14
- 打赏
- 举报
#Region "Structures"
' This is the DCB structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure DCB
Public DCBlength As Integer
Public BaudRate As Integer
Public Bits1 As Integer
Public wReserved As Int16
Public XonLim As Int16
Public XoffLim As Int16
Public ByteSize As Byte
Public Parity As Byte
Public StopBits As Byte
Public XonChar As Byte
Public XoffChar As Byte
Public ErrorChar As Byte
Public EofChar As Byte
Public EvtChar As Byte
Public wReserved2 As Int16
End Structure
' This is the CommTimeOuts structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure COMMTIMEOUTS
Public ReadIntervalTimeout As Integer
Public ReadTotalTimeoutMultiplier As Integer
Public ReadTotalTimeoutConstant As Integer
Public WriteTotalTimeoutMultiplier As Integer
Public WriteTotalTimeoutConstant As Integer
End Structure
' This is the CommConfig structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure COMMCONFIG
Public dwSize As Integer
Public wVersion As Int16
Public wReserved As Int16
Public dcbx As DCB
Public dwProviderSubType As Integer
Public dwProviderOffset As Integer
Public dwProviderSize As Integer
Public wcProviderData As Byte
End Structure
' This is the OverLapped structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Public Structure OVERLAPPED
Public Internal As Integer
Public InternalHigh As Integer
Public Offset As Integer
Public OffsetHigh As Integer
Public hEvent As Integer
End Structure
#End Region
#Region "Exceptions"
' This class defines a customized channel exception. This exception is
' raised when a NACK is raised.
Public Class CIOChannelException : Inherits ApplicationException
Sub New(ByVal Message As String)
MyBase.New(Message)
End Sub
Sub New(ByVal Message As String, ByVal InnerException As Exception)
MyBase.New(Message, InnerException)
End Sub
End Class
' This class defines a customized timeout exception.
Public Class IOTimeoutException : Inherits CIOChannelException
Sub New(ByVal Message As String)
MyBase.New(Message)
End Sub
Sub New(ByVal Message As String, ByVal InnerException As Exception)
MyBase.New(Message, InnerException)
End Sub
End Class
#End Region
#Region "Events"
' These events allow the program using this class to react to Comm Port
' events.
Public Event DataReceived(ByVal Source As Rs232, ByVal DataBuffer() As Byte)
Public Event TxCompleted(ByVal Source As Rs232)
Public Event CommEvent(ByVal Source As Rs232, ByVal Mask As EventMasks)
#End Region
#Region "Constants"
' These constants are used to make the code clearer.
Private Const PURGE_RXABORT As Integer = &H2
Private Const PURGE_RXCLEAR As Integer = &H8
Private Const PURGE_TXABORT As Integer = &H1
Private Const PURGE_TXCLEAR As Integer = &H4
Private Const GENERIC_READ As Integer = &H80000000
Private Const GENERIC_WRITE As Integer = &H40000000
Private Const OPEN_EXISTING As Integer = 3
Private Const INVALID_HANDLE_VALUE As Integer = -1
Private Const IO_BUFFER_SIZE As Integer = 1024
Private Const FILE_FLAG_OVERLAPPED As Integer = &H40000000
Private Const ERROR_IO_PENDING As Integer = 997
Private Const WAIT_OBJECT_0 As Integer = 0
Private Const ERROR_IO_INCOMPLETE As Integer = 996
Private Const WAIT_TIMEOUT As Integer = &H102&
Private Const INFINITE As Integer = &HFFFFFFFF
#End Region
' This is the DCB structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure DCB
Public DCBlength As Integer
Public BaudRate As Integer
Public Bits1 As Integer
Public wReserved As Int16
Public XonLim As Int16
Public XoffLim As Int16
Public ByteSize As Byte
Public Parity As Byte
Public StopBits As Byte
Public XonChar As Byte
Public XoffChar As Byte
Public ErrorChar As Byte
Public EofChar As Byte
Public EvtChar As Byte
Public wReserved2 As Int16
End Structure
' This is the CommTimeOuts structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure COMMTIMEOUTS
Public ReadIntervalTimeout As Integer
Public ReadTotalTimeoutMultiplier As Integer
Public ReadTotalTimeoutConstant As Integer
Public WriteTotalTimeoutMultiplier As Integer
Public WriteTotalTimeoutConstant As Integer
End Structure
' This is the CommConfig structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Private Structure COMMCONFIG
Public dwSize As Integer
Public wVersion As Int16
Public wReserved As Int16
Public dcbx As DCB
Public dwProviderSubType As Integer
Public dwProviderOffset As Integer
Public dwProviderSize As Integer
Public wcProviderData As Byte
End Structure
' This is the OverLapped structure used by the calls to the Windows API.
<StructLayout(LayoutKind.Sequential, Pack:=1)> Public Structure OVERLAPPED
Public Internal As Integer
Public InternalHigh As Integer
Public Offset As Integer
Public OffsetHigh As Integer
Public hEvent As Integer
End Structure
#End Region
#Region "Exceptions"
' This class defines a customized channel exception. This exception is
' raised when a NACK is raised.
Public Class CIOChannelException : Inherits ApplicationException
Sub New(ByVal Message As String)
MyBase.New(Message)
End Sub
Sub New(ByVal Message As String, ByVal InnerException As Exception)
MyBase.New(Message, InnerException)
End Sub
End Class
' This class defines a customized timeout exception.
Public Class IOTimeoutException : Inherits CIOChannelException
Sub New(ByVal Message As String)
MyBase.New(Message)
End Sub
Sub New(ByVal Message As String, ByVal InnerException As Exception)
MyBase.New(Message, InnerException)
End Sub
End Class
#End Region
#Region "Events"
' These events allow the program using this class to react to Comm Port
' events.
Public Event DataReceived(ByVal Source As Rs232, ByVal DataBuffer() As Byte)
Public Event TxCompleted(ByVal Source As Rs232)
Public Event CommEvent(ByVal Source As Rs232, ByVal Mask As EventMasks)
#End Region
#Region "Constants"
' These constants are used to make the code clearer.
Private Const PURGE_RXABORT As Integer = &H2
Private Const PURGE_RXCLEAR As Integer = &H8
Private Const PURGE_TXABORT As Integer = &H1
Private Const PURGE_TXCLEAR As Integer = &H4
Private Const GENERIC_READ As Integer = &H80000000
Private Const GENERIC_WRITE As Integer = &H40000000
Private Const OPEN_EXISTING As Integer = 3
Private Const INVALID_HANDLE_VALUE As Integer = -1
Private Const IO_BUFFER_SIZE As Integer = 1024
Private Const FILE_FLAG_OVERLAPPED As Integer = &H40000000
Private Const ERROR_IO_PENDING As Integer = 997
Private Const WAIT_OBJECT_0 As Integer = 0
Private Const ERROR_IO_INCOMPLETE As Integer = 996
Private Const WAIT_TIMEOUT As Integer = &H102&
Private Const INFINITE As Integer = &HFFFFFFFF
#End Region
xiaolang88 2005-09-14
- 打赏
- 举报
微软的例子，参考一下
Option Strict On
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Threading
' This class provides all the necessary support for communicating
' with the Comm Port (otherwise known as the Serial Port, or
' RS232 port).
Public Class Rs232
' Declare the necessary class variables, and their initial values.
Private mhRS As Integer = -1 ' Handle to Com Port
Private miPort As Integer = 1 ' Default is COM1
Private miTimeout As Integer = 70 ' Timeout in ms
Private miBaudRate As Integer = 9600
Private meParity As DataParity = 0
Private meStopBit As DataStopBit = 0
Private miDataBit As Integer = 8
Private miBufferSize As Integer = 512 ' Buffers size default to 512 bytes
Private mabtRxBuf As Byte() ' Receive buffer
Private meMode As Mode ' Class working mode
Private mbWaitOnRead As Boolean
Private mbWaitOnWrite As Boolean
Private mbWriteErr As Boolean
Private muOverlapped As OVERLAPPED
Private muOverlappedW As OVERLAPPED
Private muOverlappedE As OVERLAPPED
Private mabtTmpTxBuf As Byte() ' Temporary buffer used by Async Tx
Private moThreadTx As Thread
Private moThreadRx As Thread
Private miTmpBytes2Read As Integer
Private meMask As EventMasks
#Region "Enums"
' This enumeration provides Data Parity values.
Public Enum DataParity
Parity_None = 0
Pariti_Odd
Parity_Even
Parity_Mark
End Enum
' This enumeration provides Data Stop Bit values.
' It is set to begin with a one, so that the enumeration values
' match the actual values.
Public Enum DataStopBit
StopBit_1 = 1
StopBit_2
End Enum
' This enumeration contains values used to purge the various buffers.
Private Enum PurgeBuffers
RXAbort = &H2
RXClear = &H8
TxAbort = &H1
TxClear = &H4
End Enum
' This enumeration provides values for the lines sent to the Comm Port
Private Enum Lines
SetRts = 3
ClearRts = 4
SetDtr = 5
ClearDtr = 6
ResetDev = 7 ' Reset device if possible
SetBreak = 8 ' Set the device break line.
ClearBreak = 9 ' Clear the device break line.
End Enum
' This enumeration provides values for the Modem Status, since
' we'll be communicating primarily with a modem.
' Note that the Flags() attribute is set to allow for a bitwise
' combination of values.
<Flags()> Public Enum ModemStatusBits
ClearToSendOn = &H10
DataSetReadyOn = &H20
RingIndicatorOn = &H40
CarrierDetect = &H80
End Enum
' This enumeration provides values for the Working mode
Public Enum Mode
NonOverlapped
Overlapped
End Enum
' This enumeration provides values for the Comm Masks used.
' Note that the Flags() attribute is set to allow for a bitwise
' combination of values.
<Flags()> Public Enum EventMasks
RxChar = &H1
RXFlag = &H2
TxBufferEmpty = &H4
ClearToSend = &H8
DataSetReady = &H10
ReceiveLine = &H20
Break = &H40
StatusError = &H80
Ring = &H100
End Enum
#End Region
Option Strict On
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Threading
' This class provides all the necessary support for communicating
' with the Comm Port (otherwise known as the Serial Port, or
' RS232 port).
Public Class Rs232
' Declare the necessary class variables, and their initial values.
Private mhRS As Integer = -1 ' Handle to Com Port
Private miPort As Integer = 1 ' Default is COM1
Private miTimeout As Integer = 70 ' Timeout in ms
Private miBaudRate As Integer = 9600
Private meParity As DataParity = 0
Private meStopBit As DataStopBit = 0
Private miDataBit As Integer = 8
Private miBufferSize As Integer = 512 ' Buffers size default to 512 bytes
Private mabtRxBuf As Byte() ' Receive buffer
Private meMode As Mode ' Class working mode
Private mbWaitOnRead As Boolean
Private mbWaitOnWrite As Boolean
Private mbWriteErr As Boolean
Private muOverlapped As OVERLAPPED
Private muOverlappedW As OVERLAPPED
Private muOverlappedE As OVERLAPPED
Private mabtTmpTxBuf As Byte() ' Temporary buffer used by Async Tx
Private moThreadTx As Thread
Private moThreadRx As Thread
Private miTmpBytes2Read As Integer
Private meMask As EventMasks
#Region "Enums"
' This enumeration provides Data Parity values.
Public Enum DataParity
Parity_None = 0
Pariti_Odd
Parity_Even
Parity_Mark
End Enum
' This enumeration provides Data Stop Bit values.
' It is set to begin with a one, so that the enumeration values
' match the actual values.
Public Enum DataStopBit
StopBit_1 = 1
StopBit_2
End Enum
' This enumeration contains values used to purge the various buffers.
Private Enum PurgeBuffers
RXAbort = &H2
RXClear = &H8
TxAbort = &H1
TxClear = &H4
End Enum
' This enumeration provides values for the lines sent to the Comm Port
Private Enum Lines
SetRts = 3
ClearRts = 4
SetDtr = 5
ClearDtr = 6
ResetDev = 7 ' Reset device if possible
SetBreak = 8 ' Set the device break line.
ClearBreak = 9 ' Clear the device break line.
End Enum
' This enumeration provides values for the Modem Status, since
' we'll be communicating primarily with a modem.
' Note that the Flags() attribute is set to allow for a bitwise
' combination of values.
<Flags()> Public Enum ModemStatusBits
ClearToSendOn = &H10
DataSetReadyOn = &H20
RingIndicatorOn = &H40
CarrierDetect = &H80
End Enum
' This enumeration provides values for the Working mode
Public Enum Mode
NonOverlapped
Overlapped
End Enum
' This enumeration provides values for the Comm Masks used.
' Note that the Flags() attribute is set to allow for a bitwise
' combination of values.
<Flags()> Public Enum EventMasks
RxChar = &H1
RXFlag = &H2
TxBufferEmpty = &H4
ClearToSend = &H8
DataSetReady = &H10
ReceiveLine = &H20
Break = &H40
StatusError = &H80
Ring = &H100
End Enum
#End Region
kw123 2005-09-14
- 打赏
- 举报
只有
imports system
Mircrosoft
VBNET
imports system
Mircrosoft
VBNET
kw123 2005-09-14
- 打赏
- 举报
to njhyh(小辉) :
Imports MSCommLib.MSCommClass
怎么倒入到内部去。关键是这里。若能倒入就行了！
Imports MSCommLib.MSCommClass
怎么倒入到内部去。关键是这里。若能倒入就行了！
njhyh 2005-09-13
- 打赏
- 举报
b2 = Hex(buffer(2))
If Len(b2) = 1 Then
b2 = "0" + b2
Else
b2 = b2
End If
b3 = Hex(buffer(3))
If Len(b3) = 1 Then
b3 = "0" + b3
Else
b3 = b3
End If
b4 = Hex(buffer(4))
If Len(b4) = 1 Then
b4 = "0" + b4
Else
b4 = b4
End If
b5 = Hex(buffer(5))
If Len(b5) = 1 Then
b5 = "0" + b5
Else
b5 = b5
End If
b6 = Hex(buffer(6))
If Len(b6) = 1 Then
b6 = "0" + b6
Else
b6 = b6
End If
b7 = Hex(buffer(7))
If Len(b7) = 1 Then
b7 = "0" + b7
Else
b7 = b7
End If
RString = b0 + b1 + b2 + b3 + b4 + b5 + b6 + b7
If Microsoft.VisualBasic.Left(RString, 2) = "EB" Then
RString = Microsoft.VisualBasic.Left(RString, 10) '''将所有位数取上来
Else
Call Communication(RString) ''判断如果起始两位不是EB,则重新取数据
End If
TT1 = Mid(RString, 3, 2) ''将高两位取出,并付给一个字符变量
TT2 = Mid(RString, 5, 2) ''将中两位取出,并付给一个字符变量
TT3 = Mid(RString, 7, 2) ''将第两位取出,并付给一个字符变量
p = CInt(TT1)
m = CInt(TT2)
'n = CInt(TT3)
TextBox3.Text = RString
TextBox1.Text = CStr(p) + CStr(m) + "." + CStr(TT3)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RString
Timer1.Enabled = True
Call Communication(RString)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'CheckBox1.BackColor = Color.FromArgb(0, CheckBox1.BackColor)
Mscomm.CommPort = 1
Mscomm.Settings = "4800,n,8,1"
Mscomm.InputMode = Mscomm.InputMode.comInputModeBinary '(采用二进制方式进行输入)
Mscomm.InputLen = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim g As Graphics = e.Graphics
Dim rpen As New Pen(Color.Black)
g.DrawLine(rpen, 152, 195 + 30, 152 + 114, 195 + 30)
End Sub
End Class
'很久以前写的。写的不是很好，但是用到了MScomm控件，你可以看一下！
If Len(b2) = 1 Then
b2 = "0" + b2
Else
b2 = b2
End If
b3 = Hex(buffer(3))
If Len(b3) = 1 Then
b3 = "0" + b3
Else
b3 = b3
End If
b4 = Hex(buffer(4))
If Len(b4) = 1 Then
b4 = "0" + b4
Else
b4 = b4
End If
b5 = Hex(buffer(5))
If Len(b5) = 1 Then
b5 = "0" + b5
Else
b5 = b5
End If
b6 = Hex(buffer(6))
If Len(b6) = 1 Then
b6 = "0" + b6
Else
b6 = b6
End If
b7 = Hex(buffer(7))
If Len(b7) = 1 Then
b7 = "0" + b7
Else
b7 = b7
End If
RString = b0 + b1 + b2 + b3 + b4 + b5 + b6 + b7
If Microsoft.VisualBasic.Left(RString, 2) = "EB" Then
RString = Microsoft.VisualBasic.Left(RString, 10) '''将所有位数取上来
Else
Call Communication(RString) ''判断如果起始两位不是EB,则重新取数据
End If
TT1 = Mid(RString, 3, 2) ''将高两位取出,并付给一个字符变量
TT2 = Mid(RString, 5, 2) ''将中两位取出,并付给一个字符变量
TT3 = Mid(RString, 7, 2) ''将第两位取出,并付给一个字符变量
p = CInt(TT1)
m = CInt(TT2)
'n = CInt(TT3)
TextBox3.Text = RString
TextBox1.Text = CStr(p) + CStr(m) + "." + CStr(TT3)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RString
Timer1.Enabled = True
Call Communication(RString)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'CheckBox1.BackColor = Color.FromArgb(0, CheckBox1.BackColor)
Mscomm.CommPort = 1
Mscomm.Settings = "4800,n,8,1"
Mscomm.InputMode = Mscomm.InputMode.comInputModeBinary '(采用二进制方式进行输入)
Mscomm.InputLen = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim g As Graphics = e.Graphics
Dim rpen As New Pen(Color.Black)
g.DrawLine(rpen, 152, 195 + 30, 152 + 114, 195 + 30)
End Sub
End Class
'很久以前写的。写的不是很好，但是用到了MScomm控件，你可以看一下！
njhyh 2005-09-13
- 打赏
- 举报
Imports MSCommLib.MSCommClass
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(103, 62)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(221, 21)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "TextBox1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(160, 27)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(86, 26)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Button1"
'
'Timer1
'
'
'TextBox2
'
Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox2.Location = New System.Drawing.Point(174, 203)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(114, 14)
Me.TextBox2.TabIndex = 2
Me.TextBox2.Text = "TextBox2"
'
'CheckBox1
'
Me.CheckBox1.Location = New System.Drawing.Point(107, 284)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(142, 22)
Me.CheckBox1.TabIndex = 3
Me.CheckBox1.Text = "CheckBox1"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(56, 124)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(120, 24)
Me.Button2.TabIndex = 4
Me.Button2.Text = "备份"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(226, 121)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(147, 28)
Me.Button3.TabIndex = 5
Me.Button3.Text = "恢复"
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(104, 87)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(219, 21)
Me.TextBox3.TabIndex = 6
Me.TextBox3.Text = "TextBox3"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(464, 390)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Dim buffer As Object
Dim Mscomm As New MSCommLib.MSComm ''先建立一个对象 在这里建立全局对象以后,在后面就不能够再建立对象了，否则会出错!
Sub Communication(ByVal RString As String)
'Dim Mscomm As New MSCommLib.MSComm ''先建立一个对象
Dim buffer As Object
Dim aa As String
Dim Dummy As Integer
Dim SendData(2) As Byte
Dim Arraya As Object
Dim TT1 As String
Dim TT2 As String
Dim TT3 As String
Dim p, m, n As Integer
Dim i, J, K As Integer
Mscomm.PortOpen = True
Mscomm.InputLen = 14 '将接收的字节数
Do '等待3秒
Application.DoEvents() '调用DoEvents函数,使接收完成前Timer1起作用
Loop Until Mscomm.InBufferCount >= 14 '是否收到全部字节
If Mscomm.PortOpen = True Then
'读取接收到的数据
buffer = Mscomm.Input '' 因为通讯协议写的是每次都传送上来两个字节
End If
Mscomm.PortOpen = False
''将收取上来的值转换成16进制(BCD码),并把格式换算成"00"的格式
Dim b0 As String
Dim b1 As String
Dim b2 As String
Dim b3 As String
Dim b4 As String
Dim b5 As String
Dim b6 As String
Dim b7 As String
''判断取上来的十六进制数位数为几位，1位则前面添0，否则全部显示
b0 = Hex(buffer(0))
If Len(b0) = 1 Then
b0 = "0" + b0
Else
b0 = b0
End If
b1 = Hex(buffer(1))
If Len(b1) = 1 Then
b1 = "0" + b1
Else
b1 = b1
End If
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(103, 62)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(221, 21)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "TextBox1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(160, 27)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(86, 26)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Button1"
'
'Timer1
'
'
'TextBox2
'
Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBox2.Location = New System.Drawing.Point(174, 203)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(114, 14)
Me.TextBox2.TabIndex = 2
Me.TextBox2.Text = "TextBox2"
'
'CheckBox1
'
Me.CheckBox1.Location = New System.Drawing.Point(107, 284)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(142, 22)
Me.CheckBox1.TabIndex = 3
Me.CheckBox1.Text = "CheckBox1"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(56, 124)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(120, 24)
Me.Button2.TabIndex = 4
Me.Button2.Text = "备份"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(226, 121)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(147, 28)
Me.Button3.TabIndex = 5
Me.Button3.Text = "恢复"
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(104, 87)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(219, 21)
Me.TextBox3.TabIndex = 6
Me.TextBox3.Text = "TextBox3"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(464, 390)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Dim buffer As Object
Dim Mscomm As New MSCommLib.MSComm ''先建立一个对象 在这里建立全局对象以后,在后面就不能够再建立对象了，否则会出错!
Sub Communication(ByVal RString As String)
'Dim Mscomm As New MSCommLib.MSComm ''先建立一个对象
Dim buffer As Object
Dim aa As String
Dim Dummy As Integer
Dim SendData(2) As Byte
Dim Arraya As Object
Dim TT1 As String
Dim TT2 As String
Dim TT3 As String
Dim p, m, n As Integer
Dim i, J, K As Integer
Mscomm.PortOpen = True
Mscomm.InputLen = 14 '将接收的字节数
Do '等待3秒
Application.DoEvents() '调用DoEvents函数,使接收完成前Timer1起作用
Loop Until Mscomm.InBufferCount >= 14 '是否收到全部字节
If Mscomm.PortOpen = True Then
'读取接收到的数据
buffer = Mscomm.Input '' 因为通讯协议写的是每次都传送上来两个字节
End If
Mscomm.PortOpen = False
''将收取上来的值转换成16进制(BCD码),并把格式换算成"00"的格式
Dim b0 As String
Dim b1 As String
Dim b2 As String
Dim b3 As String
Dim b4 As String
Dim b5 As String
Dim b6 As String
Dim b7 As String
''判断取上来的十六进制数位数为几位，1位则前面添0，否则全部显示
b0 = Hex(buffer(0))
If Len(b0) = 1 Then
b0 = "0" + b0
Else
b0 = b0
End If
b1 = Hex(buffer(1))
If Len(b1) = 1 Then
b1 = "0" + b1
Else
b1 = b1
End If
kw123 2005-09-13
- 打赏
- 举报
不行，重新回答！！！
tanzsf 2005-08-20
- 打赏
- 举报
最好别用,我用过发现不太稳定,有一些错误在程序中会捕捉不到
kw123 2005-08-18
- 打赏
- 举报
好象不行啊！
wangchong 2005-08-05
- 打赏
- 举报
1,安装VB6
2,添加引用。
但版本高的操作系统好像不是很稳定！！
2,添加引用。
但版本高的操作系统好像不是很稳定！！
supershagua 2005-08-05
- 打赏
- 举报
安装VB6里面的activeX控件就可以了
