hi ashu82 ,this is the code i have wrriten for axmscomm
can u see where is my mistake
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim BytetoSend(5) As Byte
Dim Buffer As Object
Dim Dummy As String
Dim doevents As Object
Dim datain As Object
'Dim Output As Object
BytetoSend(0) = &H59
BytetoSend(1) = &H59
BytetoSend(2) = &H59
Buffer = BytetoSend(2)
'Dim AxMSComm1 As AxMSCommLib.AxMSComm
'Dim Output As AxMSCommLib.AxMSComm
'Dim Output As AxMSCommLib.AxMSComm
'Me.AxMSComm1.Output = Buffer
AxMSComm1.Output = Buffer
StatusBar1.Text = "Sending Data To Port"
'Do
' Dummy = doevents
'Application.DoEvents()
'Loop Until AxMSComm1.InBufferCount > 2
'datain = AxMSComm1.Input
'TextBox1.Text() = Val(datain) '"Hello world"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me.AxMSComm1.CommPort = 1
Me.AxMSComm1.RTSEnable = True
Me.AxMSComm1.DTREnable = True
Me.AxMSComm1.PortOpen = True
End With
Application.DoEvents()
End Sub
Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim sData As String ' Holds our incoming data
Dim lHighByte As Long ' Holds HighByte value
Dim lLowByte As Long ' Holds LowByte value
Dim lWord As Long ' Holds the Word result
Dim lByte As Long
' If comEvReceive Event then get data and display
If Me.AxMSComm1.CommEvent = MSCommLib.OnCommConstants.comEvReceive Then
sData = Me.AxMSComm1.Input ' Get data (2 bytes)
lHighByte = Hex$(Asc(Mid$(sData, 1, 1))) ' get 1st byte
lLowByte = Hex$(Asc(Mid$(sData, 2, 1))) ' Get 2nd byte
' Combine bytes into a word
lWord = (lHighByte * &H100) Or lLowByte
' Convert value to a string and display
'Label1.Caption = Hex$(Asc(lWord))
TextBox1.Text = Me.AxMSComm1.Input
End If
End Sub
