Machine Monitoring System : Part 3

สั่งปิดเปิดเครื่องจักร จากห้องควบคุม

    หลังจากที่เรามีห้องควบคุมเพื่อดูการทำงานของเครื่องจักร เราก็พัฒนาโปรแกรมเพื่อสั่งหยุดเครื่องจักรจากห้องควบคุมได้เลย

เรื่องที่กี่ยวข้อง :

Machine Monitoring System : Part 1

Machine Monitoring System : Part 2

Machine Monitoring System : Part 2

แนวคิดห้องคอนโทรล

    ถ้าสมมติว่าโรงงานมีเครื่องจักรประมาณ 56 เครื่อง ท่านต้องใช้คนกี่คนเพื่อคอยดู คอย Support เครื่องจักร อย่างน้อยๆ ต้องใช้มากกว่า 6 คน แน่นอน 

    จะดีกว่ามั้ย หากนำ Technology มาช่วย เช่นเมื่อเครื่องจักรหยุด แทนที่จะต้องคอยโทรไปตามช่างเพื่อมาซ่อม เราก็ให้ระบบส่งเป็น Message เข้ามือถือช่างโดยตรง

    จะดีกว่ามั้ยแทนที่จะใช้พนักงานดูเครื่องจักร 6 คน ก็เปลี่ยนมาใช้ คนเดียว โดยติดตั้งระบบกล้องวงจรปิด และ ให้พนักงานคอยมอนิเตอร์เครื่องจักร ทั้งหมด 

    จะดีกว่ามั้ย แทนที่จะคอยเดินไป ปิดเปิดเครื่องจักร ในกรณีที่วัตถุดิบหมด หรือ สั่งผลิดจนเต็มความยาวแล้ว เราก็สั่งการจากโปรแกรม ให้เปิดปิด เครื่อง จากห้องคอนโทรล

    ระบบเหล่านี้ ไม่ใช่แนวคิดอีกต่อไป เราทำให้มันเกิดขึ้นได้จริงๆ ครับ

เรื่องที่กี่ยวข้อง :

Machine Monitoring System : Part 1

Machine Monitoring System : Part 3

Zebra-finch.blogspot.com

 

Zebra-finch.blogspot.com

Machine Monitoring System : Part 1

     MMS คือ เป็นระบบที่ใช้ Monitoring การทำงานของเครื่องจักร ทำให้เราสามารถตรวจสอบได้ว่า ตอนนี้เครื่องจักทำงานอะไรอยู่บ้าง เครื่องไหนกำลังทำงาน (สีเขียว) เครื่องไหนหยุด (สีแดง) ความยาวที่ผลิตได้ รวมทั้งนำข้อมูลมาทำกราฟ วิเคราะห็ประสิทธิภาพการทำงานของเครื่องจักรได้

    ในการ MMS ประกอบได้ด้วย คอมพิวเตอร์ที่ลงโปรแกรม RS Linx เพื่อใช้ติดต่อไป PLC ที่ Connect กับเครื่องจักร หลังจากนั้น จะใช้ OPC Data Logger ในการเก็บข้อมูลจากเครื่องจักร ส่งให้ SQL Server เพื่อ เก็บข้อมูลต่างของเครื่องจักร หลังจากนั้น เราจะใช้ Visual Studio dot Net ในการเขียน Web Application โดยจะเชื่อต่อข้อมูลจาก PLC และ ข้อมูลจาก ระบบ ERP

เรื่องที่เกี่ยวข้อง : 

Machine Monitoring System : Part 2

Machine Monitoring System : Part 3

Send sms use api v2 by SMSMKT

    Send Sms By API2 (ASP.Net , VB.Net) - SMSMKT

    เมื่อเรากดปุ่ม ส่ง SMS ให้เรียก Function จาก PIC 2. ในการส่ง SMS ที่เป็น API2 ได้เลยครับ 

    จากตัวอย่างเป็นการส่ง SMS ของ web : บริการ SMS ส่ง SMS คุณภาพสูง ใช้งานง่าย ส่งเร็ว ราคาถูก | SMSMKT

    ลองสมัครใช้บริการได้ที่ SMSMKT.COM นะครับ มีการส่ง API2 ได้หลายๆภาษา PHP,JAVA,PYTHON, .NET C# และ อื่นๆครับ

PIC 1.หน้าจอเมื่อเรากดปุ่มส่ง SMS  จะไปเรียก Function SendSMS_By_SMSMKT() ในการส่ง

PIC 2.SendSMS_By_SMSMKT() ใช้ในการส่ง SMS ASP.Net (VB.Net)

Coding ครับ

Private Sub SendSMS_By_SMSMKT()

        Try

            Dim strURL As String = "https://portal-otp.smsmkt.com/api/send-message"

            Dim json, jsonOri, strCH As String

            Dim strSender, strReceiver, strMessage As String

            strSender = "Demo-SMS" 'SenderName : 

            strReceiver = "01234567891" 'Telephone No

            strMessage = "Test send SMS By API2 of SMSMKT"

            ServicePointManager.Expect100Continue = True

            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls

            Dim request As HttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)

            request.Method = "POST"

            request.Headers("api_key") = "XXX"  'API Key

            request.Headers("secret_key") = "XXX" 'API Secret

            request.ContentType = "application/json; charset=utf-8"

            Using streamWriter = New StreamWriter(request.GetRequestStream())

                strCH = """"

                jsonOri = "{ ""message"":""Test send SMS"",""phone"":""01234567891"",""sender"":""Demo-SMS"" }" ' From WEB for looking                

                json = "{ " & strCH & "message" & strCH & ":" & strCH & strMessage & strCH & ","

                json = json & strCH & "phone" & strCH & ":" & strCH & strReceiver & strCH

                json = json & "," & strCH & "sender" & strCH & ":" & strCH & strSender & strCH & " }"

                streamWriter.Write(json) : streamWriter.Flush()

            End Using

            Dim webResponse As WebResponse = request.GetResponse()

            Using webStream As Stream = If(webResponse.GetResponseStream(), Stream.Null)

                Using responseReader As StreamReader = New StreamReader(webStream)

                    Dim response As String = responseReader.ReadToEnd()

                    Console.Out.WriteLine(response)

                End Using

            End Using

        Catch e As Exception

            Console.Out.WriteLine("-----------------")

            Console.Out.WriteLine(e.Message)

        End Try

    End Sub

ระบบ สินเชื่อ : รายงานลูกหนี้เงินกู้คงเหลือ

     ในรายงาน ส่วนมาก มีฟังก์ชัน ที่ ส่งรายงานออก โดยเป็น Pdf File และ Microsoft Excel

เพื่อง่าย หากต้องการนำข้อมูลไปใช้ต่อ หรือ ทำรายงานเพิ่มเติม

    ตัวอย่าง การส่งรายงานออก เป็น Microsoft Excel

    ติดต่อสอบถามข้อมูลได้ที่ 099-082-5559 (คุณโอ๋)

ระบบ สินเชื่อ : ตรวจสอบวงเงินคงเหลือ

 ระบบ สินเชื่อ : ตรวจสอบวงเงินคงเหลือ 

ก่อนที่ สมาชิกจะทำสัญญากู้ สามารถตรวจสอบยอดคงเหลือได้ว่า มียอดเงินคงเหลือเท่าไหร่ ที่สามารถกู้ได้

    จากหน้าจอจะ ตรวจสอบได้่ว่า นาย ทศพร พอเพียง ตอนนี้มี สัญญาที่กู้ในระบบไปแล้วกี่สัญญา และ วงเงินที่ค้างชำระเท่าไหร่ และ เหลือยอดเงินที่ สามารถกู้เพิ่มได้เท่าไหร่

    

    ติดต่อสอบถามข้อมูลได้ที่ 099-082-5559 (คุณโอ๋)