UNICODE 16

أخي العزيز لم أفهم قصدك لكن إذا كنت تريد أن تكتب حرف من خلال الـ unicode مثل ما هو الحال في جدول ascii ( كنا نكتب Chr و Asc ) و في الـ unicode نكتب

ChrW و AscW

أرجو أن يكون المطلوب

مشكوووور عزيزي والله ماقصرت

يعني بس اجيب رمز الحرف باليونيكود وأكتبه

اخوي عرفته كذا

dim s as chrw أو dim s as ascw

عطاني أيرور ما رضي ياخذ الصيغه

عزيزي جربت الطريقه هذي لكن رموزه لم تنجح في كتابته

المفروض ان تبدأ اللغه العربيه في اليونيكود من 245 ولكنها تبدأ من 1685

ولا تدعم لغة الهيكسا وأمر asciw لم تنفع غير أنها أعطتني رمز ال ascii

أرجوا أن تجدولي حل مع هذه القضيه

أريد أن أكتب سورة الفاتحه عن طريق اليونيكود كالكتابات اللتي تكتب بها سور القرآن وهذه لاتفع إلا عن طريق اليونيكود أرجوا أيجاد رمز يستطيع الكتابة بلغة يونيكود 16

مساعده ياشباب بلييييييييييييز

ما أحد عنده حل ياشباب

أخي العزيز ما في شي اسمه

dim x as ascw

لكن يمكنك ذلك من خلال

x=ascw()

و ذا كنت كتابة جميع الاحرف اكتب

dim i as long

for i = 1 to 1658

text1.text=ascw(i) & vbcrlf

next i

مشكوووور عزيزي بس وش معنا هذي

& vbcrlf

السـاحر كتب:

مشكوووور عزيزي بس وش معنا هذي

& vbcrlf

←

vbCrLf+ = مفتاح Enter في برنامج الورد بمعني ان النص الذى ياتي بعدها بكتب في السطر التالي و لو كررتها مرتين بعني ان النص في السطر بعد التالي

ارجو ان اكون فهمت السؤال ويكون ردى مفيدا

عزيزي الله لايهينك والله ما صار شي معي ما طلعلي غلا حرفين س وح

راح أعيدلك طريقة البرنامج

الحين عندي أرقام الأحرف بال يونيكود زين أبغا أكتبهم بالكود وهم يكتبون الكلام اللي أبي أكتبه زي سورة الفاتحة

اقتباس

الحين عندي أرقام الأحرف بال يونيكود زين أبغا أكتبهم بالكود وهم يكتبون الكلام اللي أبي أكتبه زي سورة الفاتحة

اخي العزيز لاادرى ان كان هذا الكود سوف يفيدك لمعرفة ارقام الاحرف باليونيكود ام هناك شئ آخر

انما انا لا انكر ان موضوعك يستهويني فهي طريقة جديدة بالنسبة لي لكتابة آيات القرآن الكريم

وانا متعطش لرؤية مثال لذلك !!!

Private Sub Form_KeyPress(KeyAscii As Integer)

Me.Cls

'MYNUMBR = Asc("A")

MYNUMBR = KeyAscii

Form1.CurrentX = Form1.Width / 2

Form1.CurrentY = Form1.Height / 2

Me.FontSize = 18

Me.FontBold = True

Me.FontTransparent = True

Me.ForeColor = vbRed

Print MYNUMBR

End Sub

Private Sub Form_Load()

Me.KeyPreview = True

End Sub

اخي الكريم gaf58

هل ستظهر الحروف العربية بهذه الطريقة عندما يعمل برنامجنا على نسخ Windows التي لا تقرأ العربية ؟

عذرا نسيت اضافة الرابط

كيف أستطيع تمكين اظهار اللغة العربية

أشكرك أخي gaf58

لقد قرأت ذلك الرابط سابقاً و لكن لا مشكلة

أنا فقط كنت أستفسر إن كانت المشكلة قد تم حلها

حتى الآن لم أستطع إيجاد حل لتلك المشكلة و لم أستطع التوصل لأي شيء :unsure:

فهي مشكلة سيئة جداً حيث يتغير شكل الكتابة باللغة العربية على بعض الاجهزة الاخرى و تصبح غير مفهومة .