infrared modem

any1 help me plz...i need d codes for max 232 chip.in order to send d data from one modem to one modem..this is low cost infrared wireless modem for pc to pc communication...what are a simple modification which i can do in this circuit....mail me to [email protected]


• The schematic of Low Lost Infra-Red Wireless Link for PC-to-PC Communication is as follow:

there doesnt seems to be any code involved in this.. just send data from your PC's uart to other which also connected to similar module.

what language are you using?

i need c codes.then only i can send data from this module to another same module...by using infrared

i need c codes.then only i can send data from this module to another same module...by using infrared

Anigurl

do u mean the computer side software

there are links that explains you how to:
http://electrosofts.com/serial/
http://www.seetron.com/c_tip2.htm
http://www-cdr.stanford.edu/biomimetics/documents/serial/serial.html

you can google for more information.

Public Class Form1
    Private mintbaud As Integer

    
    Dim varRX As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            AxMSComm1.PortOpen = True
        Catch ex As Exception
            MsgBox(" already in used by other application.", vbExclamation, "Message")
            Exit Sub
        End Try
        AxMSComm1.CommPort = TextBox1.Text
        AxMSComm1.Settings = TextBox2.Text & ",N,8,1"

        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = True
        AxMSComm1.DTREnable = True
        AxMSComm1.RTSEnable = True

    End Sub
    Private Sub MSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
        varRX = AxMSComm1.Input
        RichTextBox2.Text = varRX
        AxMSComm1.Output = RichTextBox1

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AxMSComm1.PortOpen = False
        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = False
        AxMSComm1.DTREnable = False
        AxMSComm1.RTSEnable = False


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text = ""

    End Sub

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged

    End Sub
End Class

above is my code.when i debug this code...there is error stated tat "A first chance exception of type 'System.Runtime.InteropServices.COMException' occurred in AxInterop.MSCommLib.dll" and a new exception unhandlled open..and state "Exception from HRESULT: 0x800A1F4C"..i really need ur guys help..

you're asking something that is out of our hands well atleast my hands.
you can however go through this tutorial maybe you get some help on how to program serial port in VB.net
http://www.innovatic.dk/knowledg/SerialCOM/SerialCOM.htm

PS: Its easy to program serial ports in VB6 than in vb.net, thats what i feel