sahar15125
شنبه 06 آذر 1389, 17:52 عصر
برنامه زیر رو برای کار با پورت سریال دانلود کردم اما نمیدونم شی SerialPort معادل کدوم کامپوننت هستش ؟؟؟!!!
لطفا راهنمایی کنید تا حالا برنامه پورت ننوشتم و باید یک برنامه که تاریخ شمسیه سیستمی رو بگیره و از طریق پورت برای سیستم دیگه ایی بفرسته بنویسم و تحویل استاد بدم :افسرده:
برنامه تبدیل تاریخ قمری به شمسی رو نوشتم فقط می خوام بدونم توی قطه کد زیر چه تغییری لازمه تا این کار انجام بشه ... لطفا راهنمایی کنید :ناراحت::قلب:
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
Handles SerialPort1.DataReceived
MsgBox (SerialPort1.ReadExisting)
MsgBox (SerialPort1.ReadLine)
MsgBox (SerialPort1.ReadChar)
MsgBox (SerialPort1.ReadByte)
End Sub
Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
HandlesMyBase.Load
SerialPort1.Open()
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 9600
SerialPort1.DiscardNull = True
SerialPort1.DataBits = 8
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.RtsEnable = False
SerialPort1.Write ("hello world !")
SerialPort1.WriteLine ("hello world !")
End Sub
وقتی اجرا می گیرم روی خط :
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs
خطای :
user defined type not defined
رو دارم :ناراحت:
لطفا راهنمایی کنید تا حالا برنامه پورت ننوشتم و باید یک برنامه که تاریخ شمسیه سیستمی رو بگیره و از طریق پورت برای سیستم دیگه ایی بفرسته بنویسم و تحویل استاد بدم :افسرده:
برنامه تبدیل تاریخ قمری به شمسی رو نوشتم فقط می خوام بدونم توی قطه کد زیر چه تغییری لازمه تا این کار انجام بشه ... لطفا راهنمایی کنید :ناراحت::قلب:
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
Handles SerialPort1.DataReceived
MsgBox (SerialPort1.ReadExisting)
MsgBox (SerialPort1.ReadLine)
MsgBox (SerialPort1.ReadChar)
MsgBox (SerialPort1.ReadByte)
End Sub
Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
HandlesMyBase.Load
SerialPort1.Open()
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 9600
SerialPort1.DiscardNull = True
SerialPort1.DataBits = 8
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.RtsEnable = False
SerialPort1.Write ("hello world !")
SerialPort1.WriteLine ("hello world !")
End Sub
وقتی اجرا می گیرم روی خط :
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs
خطای :
user defined type not defined
رو دارم :ناراحت: