إنشاء نص ثلاثي الابعاد 3D Text
صفحة 1 من اصل 1 • شاطر
إنشاء نص ثلاثي الابعاد 3D Text
يوفر Visual Basic 6.0 الكثير من الأدوات لعرض النص العادي ، ولكن ماذا إذا كنت تريد تأثيرات خاصة؟ يوضح هذا المقال كيفية عرض النص ثلاثي الأبعاد في مشروعات الفجوال بيسك
الدالة TextOut الخاصة بـ Windows API تعرض النص على الشاشة ويمكنك استخدامها لانشاء تاثير ثلاثي الابعاد للنص. ويتم الإعلان عنها كما يلي (ضع هذا في وحدة نمطية في البرنامج):
فيما يلي الحجج:
سياق الجهاز هو الطريقة التي يمثل بها Windows بعض كائنات العرض. في Visual Basic ، تحتوي فقط على نماذج وعناصر تحكم مربع الصورة والطابعات ، مما يعني أن هذه التقنية تقتصر على عرض نص ثلاثي الأبعاد على هذه الكائنات.
التقنية المستخدمة هنا لعرض النص ثلاثي الأبعاد هي إخراج السلسلة بشكل متكرر في مواقع متداخلة مختلفة قليلاً. عن طريق تغيير لون النص مع كل التكرار ، لتمكنك من الحصول على تأثير ثلاثي الأبعاد.
إليك مثال على ذلك:
يمكنك أن ترى أن النص هو خرج 128 مرة. في كل مرة ، يتحول الموضع إلى الأسفل قليلاً وإلى اليمين ، ويتغير اللون. في العملية بأكملها ، يتغير اللون من الأسود أو RGB (0 ، 0 ، 0) إلى الأبيض أو RGB أساسا (254 ، 254 ، 254).
يمكنك الحصول على نتيجة فعالة ولكن فعالة من خلال تغيير اللون من الأبيض إلى الأسود عن طريق تغيير هذا السطر من الشفرة:
هذا الرمز يختلف من اللون الأزرق إلى الأحمر:
الدالة TextOut الخاصة بـ Windows API تعرض النص على الشاشة ويمكنك استخدامها لانشاء تاثير ثلاثي الابعاد للنص. ويتم الإعلان عنها كما يلي (ضع هذا في وحدة نمطية في البرنامج):
- الكود:
Public Declare Function TextOut Lib "gdi32" Alias _
"TextOutA" (ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal lpString As String, ByVal _
nCount As Long) As Long
فيما يلي الحجج:
- hdc هو سياق الجهاز للوجهة.
- x و y هي إحداثيات الموقع لعرض النص.
- lpString هو النص الذي سيتم عرضه.
- nCount هو طول السلسلة.
سياق الجهاز هو الطريقة التي يمثل بها Windows بعض كائنات العرض. في Visual Basic ، تحتوي فقط على نماذج وعناصر تحكم مربع الصورة والطابعات ، مما يعني أن هذه التقنية تقتصر على عرض نص ثلاثي الأبعاد على هذه الكائنات.
التقنية المستخدمة هنا لعرض النص ثلاثي الأبعاد هي إخراج السلسلة بشكل متكرر في مواقع متداخلة مختلفة قليلاً. عن طريق تغيير لون النص مع كل التكرار ، لتمكنك من الحصول على تأثير ثلاثي الأبعاد.
إليك مثال على ذلك:
- الكود:
Private Sub Command1_Click()
Dim i As Integer
Dim s As String
With Form1
s = "Text to display"
For i = 0 To 127
.Font.Name = "Times New Roman"
.Font.Size = 36
.ForeColor = RGB(i * 2, i * 2, i * 2)
TextOut .hdc, i / 15, i / 15, s, Len(s)
Next
End With
End Sub
يمكنك أن ترى أن النص هو خرج 128 مرة. في كل مرة ، يتحول الموضع إلى الأسفل قليلاً وإلى اليمين ، ويتغير اللون. في العملية بأكملها ، يتغير اللون من الأسود أو RGB (0 ، 0 ، 0) إلى الأبيض أو RGB أساسا (254 ، 254 ، 254).
يمكنك الحصول على نتيجة فعالة ولكن فعالة من خلال تغيير اللون من الأبيض إلى الأسود عن طريق تغيير هذا السطر من الشفرة:
- الكود:
.ForeColor = RGB(256 - i * 2, 256 - i * 2, 256 - i * 2)
هذا الرمز يختلف من اللون الأزرق إلى الأحمر:
- الكود:
Private Sub Command1_Click()
Dim i As Integer
Dim s As String
With Form1
s = "منتدى مصر التقني"
For i = 0 To 127
.Font.Name = "Times New Roman"
.Font.Size = 36
.ForeColor = RGB(i * 2, 0, 256 - i * 2)
TextOut .hdc, i / 15, i / 15, s, Len(s)
Next
End With
End Sub
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: إنشاء نص ثلاثي الابعاد 3D Text
اخي الكريم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] شكرا جزيلا لك
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 5:56 am من طرف wdqwd
» افضل شركة تنظيف شقق بالرياض
الخميس مايو 09, 2024 5:54 pm من طرف moslema_r
» تطبيق جوال لصيانة المكيفات
الأربعاء مايو 08, 2024 6:58 am من طرف mona mohamed
» مظلات وسواتر الرياض
الثلاثاء مايو 07, 2024 7:47 pm من طرف moslema_r
» شركة تنظيف فلل بالرياض
الثلاثاء مايو 07, 2024 6:55 pm من طرف moslema_r
» شركة تنظيف كنب بالرياض
الأحد مايو 05, 2024 6:56 pm من طرف moslema_r
» مظلات وسواتر
السبت مايو 04, 2024 8:58 pm من طرف moslema_r
» شركة تنظيف خزانات بالرياض
الخميس مايو 02, 2024 6:10 pm من طرف moslema_r
» افضل شركة رش مبيدات بالرياض
الإثنين أبريل 29, 2024 9:00 pm من طرف moslema_r
» ارخص شركة مكافحة الصراصير بالرياض
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r