קומט אריין פאר א גלעזעלע שנאפס און א גוט ווארט
http://www.ivelt.com/forum/
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Me.[txtNumber1].Text = SerialPort1.ReadLine
End SubInstead of using the DataReceived event, loop until you get the input.
Imports System.Net.Sockets.Socket
Imports MSCommLib
Public Class Form1
Dim axcomm As MSCommLib.MSComm
Dim chars As String
Dim strIdentifier As String 'temporary storage of received
Identifier Event strings
Dim strCommChar As String '* 1 'temporary storage for received
comm port data
Dim intLineNumber As Integer 'Line number for Idnetifier events
Dim strDialed(8) As String 'Holds DTMF digits for each line
Dim strCallerIdName As String 'temporary storage for IdentifierEvents
Dim strCallerIdNumber As String 'temporary storage for IdentifierEvents
Dim strStatus As String 'temporary storage for IdentifierEvents
'Dim strEvent As String
Private mRcveBuffer As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
axcomm = New MSComm
axcomm.PortOpen = True
axcomm.RThreshold = 1 ' Generates a receive event on every
character received
axcomm.InputLen = 1 ' Read the receive buffer 1 char. at a time
axcomm.Output = Chr(13) + "ATSN" + Chr(13) ' Put Identifier in
event mode and receive serial number
' Initialize the Identifer to match the default checkboxes on
line status screen
axcomm.Output = "ATF251" + Chr(13) ' Turn on all events
except Ring Stop (default is all events enabled)
axcomm.Output = "ATD1" + Chr(13) ' Turn on North American
Dialing (default)
axcomm.Output = "ATX,5,7500" + Chr(13) ' Set DTMF timeout to
7.5 seconds (default)
'Dim strEvent As String
AddHandler axcomm.OnComm, AddressOf axComm_OnComm
End Sub
Private Sub axComm_OnComm()
Dim intEvent As Integer
intEvent = axcomm.CommEvent
Select Case intEvent
Case OnCommConstants.comEvReceive ' Received RThreshold # of chars.
While axcomm.InBufferCount() ' get all characters in
receive buffer
strCommChar = axcomm.Input ' read .InputLen
number of characters
Select Case strCommChar
Case "+" 'Beginning of Identifier Event
strIdentifier = ""
Case vbLf 'Ignor the Line Feed after the CR
' ignor line feed
Case vbCr 'The CR indicates the end of
the Identifier Event
' IdentifierEvents.AddItem
strIdentifier 'Add Identifier Event to Screen
IdentifierEvent(strIdentifier) ' Process
the Identifier Event
Case Else
strIdentifier = strIdentifier +
strCommChar 'Save everything between the + and CR
End Select
End While
End Select
End Sub
Public Sub IdentifierEvent(ByVal strEvent As String)
'Called from the axComm (MS Comm control) OnComm Event
Dim strEventType As String '* 1
strStatus = "x" 'Set these strings to a known value to
see if they change
strCallerIdName = "x"
strCallerIdNumber = "x"
strEventType = Mid$(strEvent, 1, 1) 'The first character
indicates the type of event
'Each event data is presented in a fixed field format
'Once you know what type of event it is you can easily
' grab the data with simple substring commands
'Usually the first field to grab is the line number regardless
of what type of event it is
Select Case strEventType
Case "1" 'Caller ID Event
intLineNumber = CByte(Mid$(strEvent, 30, 3)) 'Get line number
strCallerIdNumber = Mid$(strEvent, 3, 10) 'Get
Caller's phone number
strCallerIdName = Mid$(strEvent, 14, 15) 'Get Caller ID Name
Case "2" 'Line status event
intLineNumber = CByte(Mid$(strEvent, 5, 3)) 'Get Line Number
Select Case Mid$(strEvent, 3, 1) 'Get type
of line status event
Case "0" 'On
hook/Idle event
strDialed(intLineNumber) = ""
' Clear all data
strCallerIdName = ""
strCallerIdNumber = ""
strStatus = "Idle"
Case "1" 'Ring
Start Event
strStatus = "Ringing"
Case "3" 'Off
Hook incoming call
strStatus = "Answered"
Case "4"
strStatus = "Outgoing Call"
'Off Hook originating call
End Select
Case "3" 'Serial Number or Watchdog Event
Exit Sub ' Do not process
'The serial number is in response to
'the ATSN which also puts the Identifier
'in Event Mode. It is a good idea to use
'the ATSN instead of the AT command to put
'the Identifer into Event Mode so you can use
'the returned serial number event to establish
'that there is full communications back and
'forth between the Identifer and the Software
'When this program is started you should see the
'serial number event (3,2,XXXXXXXX,01) on the first
'line of the Identifer Events Received List Box
Case "4" 'Caller ID Event - Out of
Area or Private
intLineNumber = CByte(Mid$(strEvent, 5, 3))
strCallerIdNumber = ""
If Mid$(strEvent, 3, 1) = "P" Then 'Private Caller
ID, blocked by caller
strCallerIdName = "Private"
Else
strCallerIdName = "Out of Area" 'Caller ID data
not available to telco
End If
Case "5" 'DTMF event
intLineNumber = CByte(Mid$(strEvent, 5, 3)) 'Get line
number and Save this digit
' with any previous digits received
' on this line
strDialed(intLineNumber) = strDialed(intLineNumber) +
Mid$(strEvent, 3, 1) 'Third char. of event is the Digit
' If !Status(intLineNumber) = "Outgoing Call" Then
'Make sure it's an outgoing call otherwise the
strCallerIdNumber = strDialed(intLineNumber)
'the Caller ID number will be overwritten
' End If
'The MLM-2X can receive digits on incoming calls
Case "8" ' Caller
ID Signal Error Event
intLineNumber = CByte(Mid$(strEvent, 5, 3)) ' The
most common error is answering the line while the Caller ID data is
being received
strCallerIdName = "Unknown"
End Select
If intLineNumber > 0 & intLineNumber < 9 Then ' The LineInfo
form is designed for lines 1 thru 8 only
If Not (strCallerIdName = "x") Then ' Check to
see if it has changed before updating the form
Select Case intLineNumber
Case 1
Me.[txtName1].Text = strCallerIdName
Case 2
Me.[txtName2].Text = strCallerIdName
Case 3
Me.[txtName3].Text = strCallerIdName
Case 4
Me.[txtName4].Text = strCallerIdName
Case 5
Me.[txtName5].Text = strCallerIdName
Case 6
Me.[txtName6].Text = strCallerIdName
Case 7
Me.[txtName7].Text = strCallerIdName
Case 8
Me.[txtName8].Text = strCallerIdName
End Select
End If
If Not (strCallerIdNumber = "x") Then
Select Case intLineNumber
Case 1
Me.[txtNumber1].Text = strCallerIdNumber
Case 2
Me.[txtNumber2].Text = strCallerIdNumber
Case 3
Me.[txtNumber3].Text = strCallerIdNumber
Case 4
Me.[txtNumber4].Text = strCallerIdNumber
Case 5
Me.[txtNumber5].Text = strCallerIdNumber
Case 6
Me.[txtNumber6].Text = strCallerIdNumber
Case 7
Me.[txtNumber7].Text = strCallerIdNumber
Case 8
Me.[txtNumber8].Text = strCallerIdNumber
End Select
End If
If Not (strStatus = "x") Then
Select Case intLineNumber
Case 1
Me.[txtStatus1].Text = strStatus
Case 2
Me.[txtStatus2].Text = strStatus
Case 3
Me.[txtStatus3].Text = strStatus
Case 4
Me.[txtStatus4].Text = strStatus
Case 5
Me.[txtStatus5].Text = strStatus
Case 6
Me.[txtStatus6].Text = strStatus
Case 7
Me.[txtStatus7].Text = strStatus
Case 8
Me.[txtStatus8].Text = strStatus
End Select
End If
End If
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As
System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
Handles SerialPort1.DataReceived
strCommChar = SerialPort1.ReadLine
Select Case strCommChar
Case "+" 'Beginning of Identifier Event
strIdentifier = ""
Case vbLf 'Ignor the Line Feed after the CR
' ignor line feed
Case vbCr 'The CR indicates the end of the Identifier Event
' IdentifierEvents.AddItem strIdentifier 'Add
Identifier Event to Screen
IdentifierEvent(strIdentifier) ' Process the Identifier Event
Case Else
strIdentifier = strIdentifier + strCommChar 'Save
everything between the + and CR
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
SerialPort1.Open()
End Sub
End Classפאטאקי08 האט געשריבן:איך האב אן אלטע כלי וואס ניצט די קאנטראל
אדרבה זאג מיר וועלכע קאנטראל צי ניצן
http://www.yes-tele.com/mlm.html