تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
rs323 interface vb.net
#1
لو سمحتوا يا جماعة لوعايز اخد بيانات من جهاز بس الجهازده ليه سيستم معين زي بعض الاجهزة في المجال الطبي.لو عايز اخد الداتا واستقبلها بواسطة ال vb.net عن طريق السيريل كابل.ايه الفكرة وازاي بحصل علي البيانات دي وبتوصلني في شكل ايه
الرد }}}
تم الشكر بواسطة:
#2
قم بإضافة أداة SerialPort1      Button1   Textbox1


وضع هذا الكود في Button1 
مع تغيير الإعدادات التي تناسب الآلة  PortName    BaudRate

كود :
       SerialPort1.PortName = COM1
       SerialPort1.BaudRate = 9600
       SerialPort1.Parity = IO.Ports.Parity.None
       SerialPort1.StopBits = IO.Ports.StopBits.One
       SerialPort1.DataBits = 8
       'SerialPort1.Handshake = IO.Ports.Handshake.None
       'SerialPort1.Encoding = System.Text.Encoding.ASCII
       SerialPort1.Open()


ثم ضع هذا الكود في الفورم


كود :
   Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
       ReceivedText(SerialPort1.ReadExisting())    'Automatically called every time a data is received at the SerialPort1
   End Sub
   Delegate Sub SetTextCallback(ByVal [text] As String) 'Added to prevent threading errors during receiveing of data
   Private Sub ReceivedText(ByVal [text] As String)
       'compares the ID of the creating Thread to the ID of the calling Thread
       If Me.rtbReceived.InvokeRequired Then
           Dim x As New SetTextCallback(AddressOf ReceivedText)
           Me.Invoke(x, New Object() {(text)})
       Else
           Me.rtbReceived.Text &= [text]
           Me.TextBox1.Text = [text]
       End If
   End Sub
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , elgokr , makky , حريف برمجة
#3
جزالك الله خيرا اخي.عفوا سؤال .البيانات هستقبلها في صورة ايه يعني لو في رسومات بيانية وارقام.هستبل ده كله في صورة ايه وازاي اقدر اخد البيانات دي علي البرنامج بتاعي
الرد }}}
تم الشكر بواسطة:
#4
حسب معلوماتي السيريل كابل سيرسل لك بيانات على شكل string فقط
يعني أرقام و حروف
و أنت الذي ستوضف هذه البيانات في برنامجك لتعمل رسومات
الرد }}}
#5
قرأت برتكول الجهاز. بيقول ان النص هيكون عبارة عن ascii والصور binary.
ازاي اقدر احول الascii لداتا اقدر اتعامل معاها وكذلك ال binary
الرد }}}
تم الشكر بواسطة: elgokr , ابراهيم ايبو , حريف برمجة
#6
جيد أخي
قم بالخطوة الأولى و هي قراءة البيانات
ثم ضع جزء منها هنا بالمنتدى سأحاول مساعدتك على قد علمي أو أحد الأعضاء الكرام
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , elgokr , makky , حريف برمجة
#7
(30-06-19, 06:44 PM)sniperjawadino كتب : قم بإضافة أداة SerialPort1      Button1   Textbox1


وضع هذا الكود في Button1 
مع تغيير الإعدادات التي تناسب الآلة  PortName    BaudRate

كود :
       SerialPort1.PortName = COM1
       SerialPort1.BaudRate = 9600
       SerialPort1.Parity = IO.Ports.Parity.None
       SerialPort1.StopBits = IO.Ports.StopBits.One
       SerialPort1.DataBits = 8
       'SerialPort1.Handshake = IO.Ports.Handshake.None
       'SerialPort1.Encoding = System.Text.Encoding.ASCII
       SerialPort1.Open()


ثم ضع هذا الكود في الفورم


كود :
   Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
       ReceivedText(SerialPort1.ReadExisting())    'Automatically called every time a data is received at the SerialPort1
   End Sub
   Delegate Sub SetTextCallback(ByVal [text] As String) 'Added to prevent threading errors during receiveing of data
   Private Sub ReceivedText(ByVal [text] As String)
       'compares the ID of the creating Thread to the ID of the calling Thread
       If Me.rtbReceived.InvokeRequired Then
           Dim x As New SetTextCallback(AddressOf ReceivedText)
           Me.Invoke(x, New Object() {(text)})
       Else
           Me.rtbReceived.Text &= [text]
           Me.TextBox1.Text = [text]
       End If
   End Sub

هو ده اداة تيكست بوكس
Me.rtbReceived.Text
الرد }}}
تم الشكر بواسطة:
#8
نعم ممكن إستعمال تيكس بوكس
أنا كنت أستعمل الإثنين TextBox et RichTextBox1 لأعرف الفرق من باب التعلم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] إستفسار عن إستدعاء متغير عام عن طريق الواجهات Interface princelovelorn 6 2,650 07-10-18, 03:48 PM
آخر رد: princelovelorn
  [نقاش] Make A Program To Run In The Background No Form Interface, No Console, No Interface A سعود 0 1,634 22-02-14, 06:51 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم