درود و خوش آمد به شما
توی همون مقاله در مورد ارسال دیتا هم صحبت شده و مثال هم بود
به هر حال یک نمونه کد ساده برای ارسال دیتا این هست
Private Sub Form_Load()
On Error GoTo er
Dim b(10) As Byte
b(0) = 10
b(10) = 56
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = b
MSComm1.PortOpen = False
Exit Sub
er:
MsgBox "error"
End Sub
آرایه با نام b به تعداد فرضی 10 در نظر گرفته شده که میشه 11 بایت
میتونید به تعداد دلخواه این آرایه رو کم یا زیاد کنید و اطلاعات یا اعدادتون رو توی خونه های مختلفش بنویسید و ارسال کنید
_______________________________________________________________________ پروژه های حرفه ای الکترونیک و کامپیوتر در www.khazama.com
مجموعه متن باز نامهای اصیل ایرانی
وبلاگ نوشته های شخصی من
|