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

إنشاء نص ثلاثي الابعاد 3D Text

اذهب الى الأسفل

إنشاء نص ثلاثي الابعاد 3D Text  Empty إنشاء نص ثلاثي الابعاد 3D Text

مُساهمة من طرف NEXT الثلاثاء أكتوبر 30, 2018 8:51 pm

يوفر Visual Basic 6.0 الكثير من الأدوات لعرض النص العادي ، ولكن ماذا إذا كنت تريد تأثيرات خاصة؟ يوضح هذا المقال كيفية عرض النص ثلاثي الأبعاد في مشروعات الفجوال بيسك 

 الدالة 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

إنشاء نص ثلاثي الابعاد 3D Text  232867231

يمكنك أن ترى أن النص هو خرج 128 مرة. في كل مرة ، يتحول الموضع إلى الأسفل قليلاً وإلى اليمين ، ويتغير اللون. في العملية بأكملها ، يتغير اللون من الأسود أو RGB (0 ، 0 ، 0) إلى الأبيض أو RGB أساسا (254 ، 254 ، 254). 

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

الكود:
.ForeColor = RGB(256 - i * 2, 256 - i * 2, 256 - i * 2)

إنشاء نص ثلاثي الابعاد 3D Text  698467125

هذا الرمز يختلف من اللون الأزرق إلى الأحمر:

الكود:
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


إنشاء نص ثلاثي الابعاد 3D Text  200752820

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
إنشاء نص ثلاثي الابعاد 3D Text  Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

إنشاء نص ثلاثي الابعاد 3D Text  Empty رد: إنشاء نص ثلاثي الابعاد 3D Text

مُساهمة من طرف السنى الثلاثاء نوفمبر 13, 2018 12:50 pm

اخي الكريم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] شكرا جزيلا لك
السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى