التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في ربط لوحة اوردينيو باللابتوب
#1
السلام عليكم
عندي لوحة اوردينيو مبرمجة علي استقبال بيانات من السيريال بورت
وصممت برنامج فجوال بيسك دوت نت تقريبا 2008 يعمل علي ارسال بيانات للسيريال بورت

ربطت اللوحة وكان تعمل بحمد الله علي اكمل وجه

غيرت نظام التشغيل من ويندوز 7 الي ويندوز 8
وغيرت الفحوال بيسك الي فجوال استوديو 2012

أصبحت الدائرة عند الاتصال بالكمبيوتر تضيء احمر
لا يظهر في الاشعارات ان هناك جهاز جديد تمت اضافته

عندي في النموذج كومبوبوكس يقوم بإضافة جميع البورتات الموجودة في اللابتوب الا انه يظل فارغا لا يظهر أي بورت

الكود الأول ادناه يقوم بتحميل البورتات في الكومبوبكس
الكود الثاني يقوم بربط الكومبورت بالبالبرنامج

الكود الأول
كود :
Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


       Dim Portnames() As String = System.IO.Ports.SerialPort.GetPortNames

       If Portnames Is Nothing Then
           MsgBox("There are no Com Ports detected!")
           Me.Close()
       End If

       For Each port As String In Portnames
           ComPortCompo.Items.Add(port)
       Next port

   End Sub
الكود الثاني
كود :
   Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Connect.Click

       With SerialPort1

           .ParityReplace = &H3B                    ' replace ";" when parity error occurs
           .PortName = ComPortCompo.Text
           .BaudRate = CInt(BaudRateCompo.Text)
           .Parity = IO.Ports.Parity.None
           .DataBits = 8
           .StopBits = IO.Ports.StopBits.One
           .Handshake = IO.Ports.Handshake.None
           .RtsEnable = False
           .ReceivedBytesThreshold = 1             'threshold: one byte in buffer > event is fired
           .NewLine = vbCr         ' CR must be the last char in frame. This terminates the SerialPort.readLine
           .ReadTimeout = 10000

       End With

       ' check whether device is avaiable:
       Try
           SerialPort1.Open()
           comOpen = SerialPort1.IsOpen
       Catch ex As Exception
           comOpen = False
           MsgBox("Error connection: " & "Make sure the device is connected to the selected COM PORT and power on")
           StatusLed.BackColor = Color.Silver
       End Try

       If comOpen Then
           StatusLed.BackColor = Color.Green
           ComPortCompo.Enabled = False
           BaudRateCompo.Enabled = False
           Disconnect.Enabled = True
           Connect.Enabled = False
       End If
   End Sub

عفواً
تم حل الإجابة
المشكلة هي لان البوردة غير معرفة
نزلت الاوردينو الحديث وثبتو
والكومبورت ظهر معي علي الكومبوبوكس
بس في مشكلة جديدة في مجال الالكترونيات ، كم هو عدد الباودريت "Boud Rate"
شكراً
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
مشكلة في ربط لوحة اوردينيو باللابتوب - بواسطة musab - 10-01-16, 11:06 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] مشكلة إستقبال رسائل باللغة العربية AT Command ؟ a.amin 4 6,813 09-11-22, 01:42 AM
آخر رد: ADAM12
Exclamation أوجة مشكلة في تعريفات الجهاز YousefOkasha 10 5,051 14-07-18, 11:15 AM
آخر رد: YousefOkasha

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


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