ارجو المساعده

مرحباً وأهلاً بك أختي الكريمة في منتديات الفريق العربي للبرمجة .

لكي نساعدك في سؤالك الرجاء إدراج شرح أفضل, مالمقصود بـ( تحويل البيانات الرقمية إلى نصية أو حرفية )=( هل المقصود هو قراءة قيمة الـ Byte المقابل لكل من تلك الحروف وبالعكس ؟ ) إذا كان ذلك فيمكنك الإعتماد على :

Chr( خانة الحرف تمثل بالـ Byte )

مثال :

 

Dim CI [color= #b1b100;]As Byte [color= #339933;]= [color= #cc66cc;]65

Dim C [color= #b1b100;]As Char [color= #339933;]= [color= #990000;]Chr[color= #009900;]( CI [color= #009900;])

MsgBox[color= #009900;]( C[color= #339933;].ToString[color= #009900;]([color= #009900;]) [color= #009900;])

وبالعكس, إستخدام العملية Asc والتي تعيد مقابل الحرف بالـ Byte .

مثال :

 

Dim C [color= #b1b100;]As Char [color= #339933;]= [color= #0000ff;]"A"

Dim CI [color= #b1b100;]As Byte [color= #339933;]= Asc[color= #009900;]( C [color= #009900;])

MsgBox[color= #009900;]( CI[color= #339933;].ToString[color= #009900;]([color= #009900;]) [color= #009900;])

إذا لم يكن هذا ماتريدينه, رجاءً حوالي الشرح بشكل مُفصل وأفضل, شكراً .

بالتوفيق .

Bashar Rabat كتب:

مرحباً وأهلاً بك أختي الكريمة في منتديات الفريق العربي للبرمجة .

لكي نساعدك في سؤالك الرجاء إدراج شرح أفضل, مالمقصود بـ( تحويل البيانات الرقمية إلى نصية أو حرفية )=( هل المقصود هو قراءة قيمة الـ Byte المقابل لكل من تلك الحروف وبالعكس ؟ ) إذا كان ذلك فيمكنك الإعتماد على :

Chr( خانة الحرف تمثل بالـ Byte )

مثال :

انسخ الكود

1. Dim CI As Byte = 65 Dim C As Char = Chr( CI ) MsgBox( C.ToString() )
2.  

وبالعكس, إستخدام العملية Asc والتي تعيد مقابل الحرف بالـ Byte .

مثال :

انسخ الكود

1. Dim C As Char = "A" Dim CI As Byte = Asc( C ) MsgBox( CI.ToString() )
2.  
   
   

إذا لم يكن هذا ماتريدينه, رجاءً حوالي الشرح بشكل مُفصل وأفضل, شكراً .

بالتوفيق .

شكرا على استجابتك ولكن ما قصده هو ان عند عمل بعض العمليات الحسابيه لا يستجيب البرنامج وهذا بسبب ان اداة الادخال تقراءه على ان القيم حرفيه وليست رقميه

السوءال حيف تتم عملية التحويل وما هو السبب فى ذلك

شكرا لك