عرض الارقام على شاشة رقمية

[حسام نصير]

السلام عليكم 

اخوانى الاعزاء عندى شاشة رقمية عاوز اشغل عليها عرض ارقام عليها من الاكسيس

 

[Matin_Murad]

قيمة رقمية.accdb

[أبو عبدالله الحلوانى]

59 دقائق مضت, حسام نصير said:

شاشة رقمية

هلا تكرمت بمزيد من التفاصيل عن هذه الشاشة

كالاسم/

المديل/

طريقة اتصالها بالحاسوب/ طريق مباشر كـ usb أم عن طريق غير مباشر كربط من خلال الشبكة 

حتي تسهل علي من يحاول المساعدة المساعدة

 

تم تعديل مايو 11, 2022 بواسطه أبو عبدالله الحلوانى

[حسام نصير]

السلام عليكم اخى الكريم 

مجهود رائع لكن هل من الممكن عرض الرقم صحيح من غير قيم عشرية

hossam.mdb

ذلك مرفق للملف

[Matin_Murad]

[jjafferr]

السلام عليكم 🙂

 

فيه خطوط جاهزة تعمل مثل خطوط شاشات العرض LCD ، مرفق احدها ، واليك طريقة استعمال الخط Font :

أ. قم بتنصيب الخط في الوندوز ، ثم في الاكسس استعمله كأي خط عادي ، وفي حالتك ، استعمله للارقام 🙂 ، او

ب. او اذا لا تريد ان تنصب الخط في الوندوز (قد لا تستطيع الوصول لحاسبة جميع المستخدمين) فيمكنك ان تجعل برنامجك يستعمله لبرنامجك فقط (في احد برامجي ، استعمل خط الباركود code39.ttf ويجب ان يكون في البرنامج علشان ينتج الباركود ، فاستعمل هذه الطريقة) :

1. ضع الخط في نفس مجلد برنامجك ،

2. اعمل وحدة نمطية مستقلة ، احفظها باسم mod_AddFonts ، واضف فيها هذا الكود: 

Option Compare Database
Option Explicit


Private Declare PtrSafe Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" ( _
    ByVal lpFileName As String) As Long

Public Function AddFonts(Font_Name_Path As String)

  Dim result As Long
  
  result = AddFontResource(Font_Name_Path)
  'MsgBox Result & " fonts added"
  
End Function

3. في حدث "عند تحميل" اول نموذج في برنامجك ، نادي الدالة اعلاه هكذا (طبعا تكتب اسم الخط ومساره في مجلد برنامجك) : 

'Code39.ttf Font, install it, just in case it is not installed before
    Call AddFonts(CurrentProject.Path & "\Barcode_Font\code39.ttf")

4. بس على كمبيوترك (كمبيوتر المبرمج) ، يجب ان تنصب الخط في الوندوز لأول مرة ، ثم تعمل برنامجك ، ولما كل شيء يكون تمام ، تقدر تحذف الخط من الوندوز ، وتستعمل الطريقة اعلاه 🙂

 

وبما انه خط عادي ، فما فيه داعي لكود خاص علشان تعرض الارقام ، والتعديل والالوان وحجم الخط ووووو ، يكون بكل سهولة ، لأنه مجرد خط 🙂

 

جعفر

digital-7.zip

[حسام نصير]

السلام عليكم

مجهود اكثر من رائع 

بعد اذنك ممكن اضافه ذلك على المرفق الخاص بى

[sna_yasser]

ممكن التواصل ؟

[حسام نصير]

للتواصل

hossamnosser1712@gmail.com