درود و خوش آمد .
این نمونه کد برای راه اندازی mscom32 برای منظور شما هست .
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 0
MSComm1.InputLen = 1
MSComm1.PortOpen = True
حالا برای خوندن اطلاعات میتونید به این صورت بایت به بایت بخونید .
Private Sub Timer1_Timer()
Dim C As Byte
While (MSComm1.InBufferCount)
C = AscB(MSComm1.Input)
Wend
End Sub
متغیر C مقدار خونده شده رو ذخیره داره و میتونید ازش استفاده کنید به نحوی که در نظر دارید.مثلا میتونید با توابعی مثل Hex اونرو به فرمت هگز نمایش بدید یا ....
_______________________________________________________________________
پروژه های حرفه ای الکترونیک و کامپیوتر در www.khazama.com
مجموعه متن باز نامهای اصیل ایرانی
وبلاگ نوشته های شخصی من
|
