السلام عليكم
عندي لوحة اوردينو وربطتها باللابتوب ببرنامج فجوال بيسك دوت نت
وكانت تعمل بصورة جيدة بدون خطا
غيرت نظام الويندوز من 7 ال 8
غيرت الفجوال بيسك من دوت نت 2005 الي فجوال ستوديو 2012
البرنامج اصبح لا يربط مع السيريال بورت
هذا هو كود ربط السيريال بورت
كود:
PrivateSub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim Portnames AsString() = System.IO.Ports.SerialPort.GetPortNames
If Portnames IsNothingThen
MsgBox("There are no Com Ports detected!")
Me.Close()
EndIf
Dim port AsString
ForEach port In Portnames
MsgBox("port =" & port)
ComPortCompo.Items.Add(port)
Console.WriteLine(port)
Next port
BaudRateCompo.Text = "9600"
EndSub
هذا الكود لا يعطيء خطا ولكن لا يظهر معي أي بورت في الكومبو بوكس الذي يحتوي علي البورتات المتاحة
ربط لوحة اوردينيو باللابتوب
