איך זוך א פייל VB6Controls.reg

[פאטאקי08]

אויב איינער האט די דיסק פון וויבי 6 אין די פאלדער
\Extras\VB6 Controls
ליגט א פייל VB6Controls.reg

איך דארף וויכטיג האבן די פייל
מיט דאנק פון פאראויס

[שוועמל]

אין אנשי גוגלינו ליסטע שוין געזוכט?
http://unicode-controls-for-vb6.lorenzi ... chive.org/

[פאטאקי08]

שכח שוועמל
יעצט זיי מוחל און דאונלאוד עס פון דארט און גיב מיר די איינע פייל דאנקע...
---
איך קום שוין פון דארט איך האב נישט געטראפן אין דיזע לינק די אויבענדערמאנטע פייל

[פאטאקי08]

קיינער האט נישט די אינסטולעישאן דיסק פון וויבי6?
ווי קען מען עס פארשאפן?

[פאטאקי08]

jj the big 1
קענסטו מיר העלפן מיט דעם?

[jjthebig1]

Check your private box.

[פאטאקי08]

דאנקע שיין
System.Runtime.InteropServices.COMException (0x80040112): Creating an instance of the COM component with CLSID {648A5600-2C6E-101B-82B6-000000000014} from the IClassFactory failed due to the following error: 80040112
די ערראר באקום איך ווען איך פרוביר צי ניצן די פייל MSCOMM32.OCX
איך זעה נישט אין דיין אימעיל אדער אין מיין רעדזשיסטרי אזא קלאס איידי
קענט איר מיר העלפן?
די יודעי דבר זאגן אז אין יענע סידי דארף ליגן די לייסענס

[לאז געמאכט]

פאטאקי ביסט זיכער ווילסט נעמען די מהלך?

כ'האב אויך אמאל געהאט א פאל וואס האט געזאלט ארבעטן נאר מיט וויבי6 אבער נאכן זעהן וויפיל פראבלעמען דאס האט אריינגעברענגט האמיר עס געמאכט מיט .נעט געהעריג.

ווילסט עס נוצן פאר א פינגער-פרינט דיווייס אדער וואס?

[פאטאקי08]

איך האב אן אלטע כלי וואס ניצט די קאנטראל
אדרבה זאג מיר וועלכע קאנטראל צי ניצן
http://www.yes-tele.com/mlm.html

[jjthebig1]

Use the SerialPort control. It's on the Toolbox under Components. If you want to do it programmatically, add an Imports System.IO.Ports statement.

[פאטאקי08]

שכח אייך
וועט דאס ארבעטן אויף די כלי?

[jjthebig1]

It should. It has a RS-232 port, in pushet yiddish it means a serial port.

You need to look in the manual for configuration and commands. Usually you'd send a command and wait for the response. Some machines with serial ports are on continuous print mode so you'll need to parse the data returned.

[פאטאקי08]

דאנקע
גיי מיר פרובירן

[פאטאקי08]

איך עפן די פארט אבער איך באקום נישט צוריק גארנישט

קאוד: וועל אויס אלע

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 Sub

[jjthebig1]

A couple of things to check:
- Did you configure it properly?
- If the machine is set to PRINT mode, are you sending a print character (either 'P' or 'PR')?
- If it's continous, you need to loop until you get input
- Instead of using the DataReceived event, loop until you get the input.

[פאטאקי08]

Instead of using the DataReceived event, loop until you get the input.

עקזעמפל ביטע

[פאטאקי08]

{"The I/O operation has been aborted because of either a thread exit or an application request. "}
די ערראר באקום איך ווען איך ניץ עני סיריעל פארט איווענט

[פאטאקי08]

קוק צום סוף פרוביר איך צי ניצן די דאט נעט סיריעל פארט

קאוד: וועל אויס אלע

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

למעשה האב איך צוריק געשיקט די דעווייס און געקויפט פון דא און ער ארבעט פיין