₦airaland Forum

Option Explicit

Enum AttachStatus

    NotComplete = 0
    Complete = 1
    Error = 2
End Enum

Private Function View(docId As String, windowTitle As String, _
                        MisysSessionId As String, WebPageUrl As String, _
                        success As Boolean) As Boolean
                        
        Call  displayMenu(title as Variant)
                        

End Function

Private Function AttachTo(name As String, description As String, _
                          windowTitle As String, MisysSessonId As String, _
                          WebPageUrl As String, success As Boolean) As Boolean

End Function

Private Function EnhanceAttachTo(name As String, description As String, _
                                 windowTitle As String, MisysSessionId As String, _
                                 XmlSearchCriteria As String, WebPageUrl As String)
    

End Function


Private Function AttachComplete(MisysSessionId As String, docId As String, _
                                status As AttachStatus, success As Boolean) As Boolean
                                


End Function


Private Function AttachTimeout(MisysSessionId As String, success As Boolean)


End Function


Private Function Scan(name As String, description, _
                      windowTitlw As Boolean, _
                      MisysSessionId As String, WebPageUrl As String) As Boolean
                      


End Function


Private Function ScanComplete(MisysSessionId As String, docId As String, _
                              ScanStatus As String, success As Boolean) As Boolean
                              





End Function

Private Function ScanTimeout(MisysSessionId As String, success As Boolean) As Boolean



End Function


Private Function Printa(docId As String, windowTitle As String, _
                       MisysSessionId As String, WebPageUrl As String, _
                       success As Boolean) As Boolean


End Function

Private Function Delete(docId As String, success As Boolean) As Boolean


End Function



Private Function Detach(docId As String, success As Boolean) As Boolean


End Function

Private Function SetName(docId As String, name As String, success As Boolean) As Boolean


End Function

Private Function SetDescription(docId As String, description As String, success As Boolean) As Boolean

End Function

Private Function GetName(docId As String, name As String, success As Boolean) As Boolean


End Function
                                 

Private Function GetDescription(docId As String, name As String, success As Boolean) As Boolean


End Function

Private Function IsAvailable(success As String)


End Function

::Andrew:::
Dim comPorts As Array 'Com ports enumerated into here
Dim rxBuff As String 'Buffer for receievd data

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'When the form loads
'Enumerate available Com ports and add to ComboBox1
comPorts = IO.Ports.SerialPort.GetPortNames()

For i = 0 To UBound(comPorts)
ComboBox1.Items.Add(comPorts(i))
Next

'Set ComboBox1 text to first available port
ComboBox1.Text = ComboBox1.Items.Item(0)
'Set SerialPort1 portname to first available port
SerialPort1.PortName = ComboBox1.Text

'Set remaining port attributes
SerialPort1.BaudRate = 19200
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.DataBits = 8


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'When Tx button clicked
'Clear buffer
rxBuff = ""

'If port is closed, then open it
If SerialPort1.IsOpen = False Then SerialPort1.Open()

'Write this data to port
SerialPort1.Write(TextBox1.Text & vbCr)

'Pause for 800ms
System.Threading.Thread.Sleep(800)

'If the port is open, then close it
If SerialPort1.IsOpen = True Then SerialPort1.Close()

'If the buffer is still empty then no data. End sub
If rxBuff = "" Then GoTo ends

'Else display the recieved data in the RichTextBox
RichTextBox1.Text = rxBuff

ends:
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'When ComboBox1 selection is changed, we need to update SerialPort1 with the new choise
'But only if the port is closed!

If SerialPort1.IsOpen = False Then
SerialPort1.PortName = ComboBox1.Text
Else : MsgBox("Operation only valid when port is closed.", MsgBoxStyle.Exclamation, "Error"

End If

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
'This sub gets called automatically when the com port recieves some data

'Pause while all data is read
System.Threading.Thread.Sleep(300)

'Move recieved data into the buffer
rxBuff = (SerialPort1.ReadExisting)

End Sub

End Class