สอบถามเงื่อนไขการแสดง Error ของโค๊ด

[cheapache]

Code: Select all

 Private Sub Hosting_port()
        Try
            MyTcpListener = New TcpListener(IPAddress.Any, 6666)
            MyTcpListener.Start()
            While True
                Try
                    MySocket = MyTcpListener.AcceptSocket
                    Dim MyNetworkStream As NetworkStream = New NetworkStream(MySocket)
                    Dim Mystr As StreamReader = New StreamReader(MyNetworkStream)

                    While True

                        DataArray = Split(Mystr.ReadLine, ",")
                        MsgBox(DataArray)
                        Temp = DataArray(0)
                        Humi = DataArray(1)

                        Dim colum1, colum2, colum3 As String
                        colum1 = txtTime
                        colum2 = DataArray(0)
                        colum3 = DataArray(1)

                        Dim filename As String = "" & FN & "" & txtDate1 & ".txt"
                        Dim writer As System.IO.StreamWriter = New StreamWriter(filename, True)
                        writer.WriteLine("Time  " & colum1 & "  Temp.   " & colum2 & "  Humidity    " & colum3)
                        writer.Close()
                    End While
                Catch ex1 As Exception
                    MessageBox.Show("Can't Receive", "WiFiLogtech Message:...")
                End Try
            End While
        Catch ex As Exception
            MessageBox.Show("Disconnect", "WiFiLogtech Message:...")
        End Try
    End Sub

สวัสดีครับอาจารย์ อยากสอบถามว่า ถ้าโปรแกรมแสดง ex1 คือ MessageBox "Can't Receive" นั้นหมายความว่าอะไรครับ
ไม่สามารถรับข้อมูลได้ หรือ มีการขอ Request จาก Client มาแล้วแต่ไม่มีข้อมูล ตอนนี้ผมอยากทราบปัญหาว่า อยู่ที่ตัว Hosting หรือ Client

[snasui]

ลองเพิ่มบรรทัด MessageBox.Show(Ex1.Message) เพื่อดู Error ว่าระบบฟ้องว่าอย่างไรครับ

[cheapache]

ให้เออเรอร์แสดง แล้วปรากฏข้อความนี้มาครับ

[snasui]

ลองเอา Try ตัวในออกแล้วลอง Run ดู สังเกตว่าติดที่บรรทัดใดแจ้งมาอีกทีครับ