behrouz_h
جمعه 06 خرداد 1390, 12:30 عصر
سلام . این کد مربوط میشه به بخشی از کد یک مسنجر. اطلاعات دریافتی از سرور در مبنای 16 . برای نمایش اطلاعات در برنامه باید به کدهای اسکی تبدیل شوند . با کد زیر اطلاعات هگز به اسکی تبدیل می شود . ولی زمان نمایش در یک Text box ،هیچ چیز دیده نمی شود.
packet2 داده های در مبنای 16 با H& هم کاراکتر به کاراکتر به اسکی تبدیل می شود و در متغییر Buf ذخیره می شود. زمان Pause برنامه، تمامی حروف به شکل صحیح در متغییر Buf نمایش داده می شود ولی موقع قرار دادن در تکست باکس 3 ، هیچ چیز دیده نمی شود.
لطفا اگر اطلاعاتی در این مورد دارید راهنمایی کنید.ممنون
Dim Buf ,str As String
Dim temp() As String
Dim ii As Integer
If Len(paket2) Mod 2 <> 0 Then
'HexToStr = vbNullString
Else
For ii = 1 To Len(paket2) Step 3
(str=Mid(paket2, ii, 2
Text2.Text = Text2.Text + str
(Buf = Buf + Chr("&H" + str
Next ii
Text3.Text = Buf
End If
packet2 داده های در مبنای 16 با H& هم کاراکتر به کاراکتر به اسکی تبدیل می شود و در متغییر Buf ذخیره می شود. زمان Pause برنامه، تمامی حروف به شکل صحیح در متغییر Buf نمایش داده می شود ولی موقع قرار دادن در تکست باکس 3 ، هیچ چیز دیده نمی شود.
لطفا اگر اطلاعاتی در این مورد دارید راهنمایی کنید.ممنون
Dim Buf ,str As String
Dim temp() As String
Dim ii As Integer
If Len(paket2) Mod 2 <> 0 Then
'HexToStr = vbNullString
Else
For ii = 1 To Len(paket2) Step 3
(str=Mid(paket2, ii, 2
Text2.Text = Text2.Text + str
(Buf = Buf + Chr("&H" + str
Next ii
Text3.Text = Buf
End If