+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم التحكم (http://vb4arb.com/vb/forumdisplay.php?fid=62)
+--- قسم : قسم ربط الكمبيوتر بالعالم الخارجي (http://vb4arb.com/vb/forumdisplay.php?fid=63)
+--- الموضوع : مشكلة في ربط لوحة اوردينيو باللابتوب (/showthread.php?tid=14354)
مشكلة في ربط لوحة اوردينيو باللابتوب - musab - 10-01-16
السلام عليكم
عندي لوحة اوردينيو مبرمجة علي استقبال بيانات من السيريال بورت
وصممت برنامج فجوال بيسك دوت نت تقريبا 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"
شكراً
RE: مشكلة في ربط لوحة اوردينيو باللابتوب - Omar Mekkawy - 22-06-16
وعليكم السلام أخوي
الحمد لله أن المشكلة الأولى تم حلها
المشكلة الثانية وهي ان الـ Baud rate هذا يعتبر التردد اللي انت مستخدمه في الاتصال بين البوردة والحاسوب
الدالة هذه تقوم بتحديد تردد الاتصال ( في برنامج اردوينو ) :
كود :
(Serial.begin(9600حيث أن الرقم 9600 هذا هو قيمة التردد.
في الفيجوال بيسك. الاداة الخاصة بالإتصال بمنفذ السيريال تقوم بوضع نفس القيمة التردد هذا بها.