إنشاء نص ثلاثي الابعاد 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد