الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال! باركود وقواعد البيانات

بدأه medo1976 في 10 أبريل 2008 · 3 رد · 1,565 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

اخوانى الكرام

اريد ان اعرف ما هيا اليه توليد الباركود

كود 39

بمعنى عاوز اعمل برنامج عينات قماش كالتالى

اسم المورد

رقم المورد

رقم العينه

نوع العينه

تاريخ

ملاحضات

سعر العينه

وصوره العينه

كيف اقوم توليد الباركود لتلك المدخلات

للعلم سأقوم بربط البرنامج مع sql server 2000

الاتصال انتهيت منه ومافى مشكله

ارجو المشوره اخوانى الكرام

#2

الأخ الكريم ، تحية طيبة وبعد ،

أولاً أخي هناك أنواع معينة من الخطوط يمكننا إستخدامها كما نشاء للـ BarCode !!!

لكن إذا كنت ترغب في معرفة آلية الباركود ، فالباركود ما هو إلا قيمة رقمية ثنائية !!!

بمعني أدق أن كل حرف وكل رقم يحتوي علي كود آسكي ، كل كود يتم تحويلة الي النظام الثنائي Binary ومن ثم يتم رسم النص الي ما ترغبة من خطوط !!!

وإليك فكرة تحويل من نظام عشري الي ثنائي :

Private Function ProBinary(Oct_No As Byte) As String
	Dim Calc As Single
	Dim bytMod As Byte
	Dim intRes As Integer
	Dim strReturn As String

	Calc = Oct_No
	Do While Calc > 0
		If (Calc Mod 2 = 1) Then
			bytMod = 1
		Else
			bytMod = 0
		End If
		Calc = Calc \ 2

		strReturn = bytMod & strReturn
	Loop

	ProBinary = strReturn
End Function

Public Function GetBinary(In_Str As String) As String
	Dim X As Long
	Dim strReturn As String

	For X = 1 To Len(In_Str)
		strReturn = strReturn & ProBinary(Asc(Mid(In_Str, X, 1))) & " "
	Next

	GetBinary = Trim(strReturn)
End Function

Private Sub Command1_Click()
	Me.Caption = GetBinary("Ahmed")
End Sub

شكراً

تم تعديل هذه المشاركة بواسطة MMA_EG_Cairo في 10 أبريل 2008 في 14:15

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#3

اخى الكريم

اشكرك على سرعه استجابتك

اريد ان اولد باركود من تلك المدخلات

اسم المورد

رقم المورد

رقم العينه

نوع العينه

تاريخ

ملاحضات

سعر العينه

وصوره العينه

هل يمكن ان يتكرر الباركود ؟

وشكرا لك اخى

#4

الأخ الكريم ، تحية طيبة وبعد ،

الباركود ما هو إلا قيمة رقمية مخزنة بالمنتج نفسة ، فإذا مررت منتج معين علي جهاز الماسح الضوئي Scaner فيرتجع ناتج العملية بقيمة رقمية مخزنة بقاعدة البيانات ، وفي حالة عدم وجود هذه القيمة الرقمية يتم تهيئة برنامجك كي يكون جاهزاً لإدراج سجل جديد !!!

في هذه اللحظة يمكن إستغلال هذه الظروف الجميلة وتخزين قيمة الباركود المرتجعة من ناتج المسح في حقل بقاعدة بيانات .

بإختصار شديد ، قاعدة البيانات تحتوي علي حقل نصي أو رقمي ( غير مشروط ) ، ولكن الص مجالة أوسع ، أما الرقمي فهو أسرع ( بصفة عامة ) .

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

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

مواضيع مشابهة