درود و خوش آمد به شما 
توی همون مقاله در مورد ارسال دیتا هم صحبت شده و مثال هم بود 
به هر حال یک نمونه کد ساده برای ارسال دیتا این هست
	 
	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
مجموعه متن باز نامهای اصیل ایرانی
وبلاگ نوشته های شخصی من 
  |