PDA

View Full Version : سوال: ارسال اطاعات به ميكرو به صورت HEX



RamezanBeik
پنج شنبه 01 مهر 1389, 08:15 صبح
سلام وقت خوش
آيا آين تكه كدي كه من نوشتم اطلاعات رو به صورت Hex به ميكرو ارسل مي كند.در صورت اشتباه لطفا راهنمايي بفرماييد.




Dim convert As Integer
convert = Hex(Asc(Text2.Text))
Form1.MSComm1.Output = convert

RamezanBeik
شنبه 03 مهر 1389, 08:17 صبح
دوستان اين مشكل برطرف شد با كد زير:



dim array() byte as Byte
dim StrSend as string
Strsend="&H &textSend.text"
array()=StrSend
MsComm1.Output=array()