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

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

أولاً أخي هناك أنواع معينة من الخطوط يمكننا إستخدامها كما نشاء للـ 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

شكراً

اخى الكريم

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

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

اسم المورد

رقم المورد

رقم العينه

نوع العينه

تاريخ

ملاحضات

سعر العينه

وصوره العينه

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

وشكرا لك اخى

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

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

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

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

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

شكراً