how to use Mscomm

[jatinder_44]

I am using AxMscomm1.output property of AxMscomm in vb.net
It Giving error ,that Additional information: Exception from HRESULT: 0x800A017C (CTL_E_INVALIDPROPERTYVALUE). can i get some hlp.

[ashu82]

i used MSCOMM with Vb.NET 2003 and it worked fine..
plz check the properties u hv set for MSCOMM

[jatinder_44]

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

[ashu82]

hey..plz check ur rediff mail...
i hv sent a sample code from Microsoft on how to use COM Port

i hope it will help

[jatinder_44]

thank u ashish u did n't shown about mscomm
i does not required modem utility with my project.Can u have ur code with Axmscomm u have done .sorry iam not good in english.
can i get ur more hlp pls mail me so ican get it from therre thank u.

[ashu82]

hi
u dont require MSCOMM if u use tht code...
i dont hv my code as i m working in VS2005 nodays

why dont u just create object on tht class and u will get Events to capture RS232 data

nyways...i will ask my frens for tht code

[AkmKrishna]

hi ashu. I have developed a hardware for detecting pulse rate and temperature rate in human body and relaying to the computer. i have used vb.net in the front end.i am able to gather the information from the hardware to the hyper terminal but don know how to move that info in our software developed in .net. Pls help me ashu. Its very urgent. thank ya

[M.rahul]

Hi ashu

I have to develop dialing application to system using gsm modem and rs 232 in vb.net.
I'm using Axmscomm control but it is showing exception when i'm referring this control to another window. Please kindly guide me to complete this.I have strucked here from a so many days.I Have to complete this in few days but i not able to do this.please guide me.Please help me with source