ممكن شرح كود اذا امكن

up

السلام عليكم ...

1. الدالة CByte  تحول الــ Expression  الممرر لها إلى نوع بيانات byte  و هو عدد من 8 بت قيمته من 0 إلى 255 .
2. نقرة يمينية على Alpha16Bit ثم Goto Definition   ليأخذك لتعريف هذا المتحول و نوع بياناته .. هو معرف في مكتبة خارجية , يبدو أنك تتعامل مع برنامج للتعامل مع الــ SMS  مثلا (GSMComm) .

والله يا اخي انا باقرا وباحاول بنفس الوقت في برنامج لارسال ال SMS باستخدام ال AT COMMAND ولكن اتصور حضرتك عندك خلفية عن الموضوع لانك عرفت الكود وانا وجدته في اخد المنتديات هو لحل مشكلة اللغة العربية التي لا تظهر بصورة صحيحة عند ارسال الرسالة  وبصراحة انا ما فهمت الكود  قلت عسى ولعلى احد مشتغل فيه ويفيدن  

السلام عليكم ...

1. في الحقيقة لم اتعامل معها من قبل و لكن , بحثت في جوجل و قادني للموضوع .
2. الــ DataCodingScheme.GeneralCoding.Alpha16Bit هو Enum  معرف في المكتبة (GSM Communication Library (GSMComm))  رابط كمايلي : 

   Enum  GeneralCoding
               Alpha7BitDefault = 0,
               NoClass = 0,
               Uncompressed = 0,
               Alpha8Bit = 4,
               Alpha16Bit = 8,
               AlphaReserved = 12,
               Class0 = 16,
               Class1 = 17,
               Class2 = 18,
               Class3 = 19,
               Compressed = 32,
   End Enum

    و الــ Constructor  للكلاس SmsSubmitPdu معرف بأحد التعريفات كمايلي :

   Public Sub New(userDataText As String, destinationAddress As String, dataCodingScheme As Byte)

    أي أنه يأخذ وسيط لتحديد طريقة الترميز من نوع Byte  و لتمرير (Alpha16Bit) الذي هو Enum  يجب عمل هذا التحويل .

3. Dim dcs As Byte = CByte(DataCodingScheme.GeneralCoding.Alpha16Bit)
   Dim pdu1 As SmsSubmitPdu = New SmsSubmitPdu(SMS_Message, CELL_Number, dcs)
   com.SendMessage(pdu)

    

4. حسب ما فهمت أن الترميز Alpha16Bit يعني ان كل حرف سيأخذ 16 بت في الرسالة و هذا لدعم اللغة العربية (أي حجم الرسالة سينقص للنصف و الله اعلم) .