Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > การรับข้อมูลออกจาก Serial Port แล้วนำไปหาข้อมูลจาก Access นะครับ



 

การรับข้อมูลออกจาก Serial Port แล้วนำไปหาข้อมูลจาก Access นะครับ

 



Topic : 113724



โพสกระทู้ ( 0 )
บทความ ( 0 )



สถานะออฟไลน์




ผมดีผมต้องการให้ค่าที่อ่านมาจาก RFID นะครับ ซึ่งมันเป็นข้อมุมาเป้น Hex Code นะครับ ไม่ทราบว่ามีพี่ๆๆท่านแนะนำได้มั่งครับ ตัวอย่าง Code ด้านล่างเปป็นตัวที่รับค่าที่อ่านมาแล้วปมไปแปลงใช้หาข้อมุล คือผมติดเรื่องนี้ที่เดียวนะครับ ขอคำแนะนำด้วยครับ

Code (VB.NET)
 Imports System
Imports System.Threading
Imports System.IO.Ports
Imports System.ComponentModel

Public Class Form1

Dim myPort As Array

Private Sub GetSerialPortNames()
For Each sport As String In My.Computer.Ports.SerialPortNames
portComboBox.Items.Add(sport)
Next
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim BaudRates() As String = {"300", "1200", "2400", "4800", "9600", "14400", "19200", "28800", "38400", "57600", "115200"}
baudComboBox.Items.AddRange(BaudRates)
baudComboBox.SelectedIndex = 4
Try
GetSerialPortNames()
baudComboBox.SelectedIndex = 0
Catch
MsgBox("No ports connected.")
End Try
Timer1.Stop()

End Sub

Private Sub connectBotton_Click(sender As Object, e As EventArgs) Handles connectBotton.Click
SerialPort1.PortName = portComboBox.Text
SerialPort1.BaudRate = baudComboBox.Text
SerialPort1.DataBits = 8
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.Open()
Timer1.Interval = 500
Timer1.Start()
portComboBox.Enabled = False
baudComboBox.Enabled = False
connectBotton.Enabled = False
disconnectBotton.Enabled = True

End Sub

Private Sub closeBotton_Click(sender As Object, e As EventArgs) Handles disconnectBotton.Click

SerialPort1.Close()
Timer1.Stop()
portComboBox.Enabled = True
baudComboBox.Enabled = True
connectBotton.Enabled = True
disconnectBotton.Enabled = False

End Sub

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
SerialPort1.Close()
Timer1.Stop()
portComboBox.Enabled = True
baudComboBox.Enabled = True
connectBotton.Enabled = True
disconnectBotton.Enabled = False
End

End Sub

Delegate Sub myMethodDelegate(ByVal [text] As String)
Dim myDelegate As New myMethodDelegate(AddressOf ShowString)

Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim str As String = SerialPort1.ReadExisting()
Invoke(myDelegate, str)
End Sub

Sub ShowString(ByVal myString As String)
outputTextBox.AppendText(myString)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
outputTextBox.Clear()
End Sub
End Class




Tag : .NET, Ms Access, VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2015-01-11 21:22:10 By : ekwater View : 1342 Reply : 1
 

 

No. 1



โพสกระทู้ ( 1,458 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter Facebook Blogger

ฟังชันอ่าน Serial Port

Code (VB.NET)
Function ReceiveSerialData() As String
    ' Receive strings from a serial port.
    Dim returnStr As String = ""

    Dim com1 As IO.Ports.SerialPort = Nothing
    Try
        com1 = My.Computer.Ports.OpenSerialPort("COM1")
        com1.ReadTimeout = 10000
        Do
            Dim Incoming As String = com1.ReadLine()
            If Incoming Is Nothing Then
                Exit Do
            Else
                returnStr &= Incoming & vbCrLf
            End If
        Loop
    Catch ex As TimeoutException
        returnStr = "Error: Serial Port read timed out."
    Finally
        If com1 IsNot Nothing Then com1.Close()
    End Try

    Return returnStr
End Function








แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2020-05-31 15:02:55 By : PhrayaDev
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : การรับข้อมูลออกจาก Serial Port แล้วนำไปหาข้อมูลจาก Access นะครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่