المتغير من نوع byte

من اسمه. تحفظ بيانات من نوع بايت. أي من 0 حتى 255. و أي عملية حسابية هي تحكم بالمتغير على مستوى البت.

أخي System Down مشكور على ردك

و لكن نريد أمثلة عملية لهذا المتغير و هل يمكن بواسطة هذا النوع من المتغيرات -أقصد متغيرات البايت- كتابة قيم ثنائية و تخزينها في ملف

و شاكرين لكم ردكم و حسن اصغائكم

كل القيم في النهاية تسجل على شكل رقم بايناري.

أما عن أمثلة لاستخدامها فلا حد أمامك سوى الحد الأعلى 255 و خيالك :)

أي رقم تريد تسجيله و يقع داخل 0-255 يمكنك استخدامه مع هذا النوع.

اتذكر اني عملت بهذا المتغير كود جميل يمكنك من عمل Test لكلمة السر مثلا بدون استعمال اي جملة شرطية سوف أبحث عن المثال و أكتبه هنا (كتبته بالفيجوال 6)

ثم يا أخي فائدته هي انه من 0 ال 255 :)

بمعنى انك لو كنت ستنتظر من المستعمل قيمة معينة و انت تعرف انه يجب ان لا تكون سالبة و ان لا تتعدى 255 فتستعمله يعني لا يعقل ان تستعملInteger او Long في هذه الحالة لأنك ستفعل كمن يحجز باخرة لنقل دجاجة :D

هذا هو الكود الذي تحدثث عنه :

On Error GoTo IncorrectPass ' if there is an error we will go to the "IncorrectPass"
Dim ThePassword As Long ' The variable that will contain the correct password
ThePassword = 2514587 ' assignin the Password value
Dim UserPassword As Long ' The variable that will contain the password typed by user
UserPassword = Text1 ' put the user password in the variable
Dim MyByteTest As Byte ' Declare the Byte variable
' coz the variable MyByteTest will accept just values between 0 and 255 then if
' we try to assign a value that's more then 255 or less then 0 the we got an error
' so if the "ThePassword" contain a value more then or less then the "UserPassword"
' for exemple ThePassword = 10 & UserPassword = 5 then in the first statement the
' variable MyByteTest will be 5 that correct but in the second statement it will be -5
' and here where we get an error and show the "Incorrect Password" but if the two
' variables (ThePassword && UserPassword) has the same value then in the pair statements
' the "MyByteTest" variable will be 0 and that won't coz any error and then we show
' the "Correct Password" MsgBox and exit from the sub to not show the "Incorrect PassWord"

MyByteTest = ThePassword - UserPassword
MyByteTest = UserPassword - ThePassword
MsgBox "Correct Password"
Exit Sub
IncorrectPass:
MsgBox "Incorrect PassWord"

اسف لكتابتي الشرح باللغة الانجليزية ذلك لأن الفيجوال 6 عندي لا يدعم العربية

المهم لو كان اي لبس في الشرح اطرحه و انا اكتبه لك بالعربية

و شكرا

فكرة جميلة أخي أيوب

شكرا على الردود و الجهود الطيبة ...........

فكرة جميلة أخ أيوب و لكن يا شباب أنا جربت حفظت في ملف قيمة متغير من نوع بايت و كانت نتيجة الحفظ قيمة حرفية

يعني هل من الممكن كتابة ترميز معين لملف بواسطة هذا النوع من المتغيرات .

أنا أحتاج لمثل هذه الطرق لاني ناوي أسوي برنامج يقوم بتحويل صيغة الصوت الى صيغة أخرى و هذا بالطبع يستلزم طريقة لكتابة بيانات الموجة و التي قد تكون بالبتات .

و سؤالي هل يمكن عمل ذلك بالإعتماد على المتغيرات من نوع بايت .

آسف كنت أعتقد قبل كتابة الموضوع أن المتغير بايت له علاقة ، أرجو أن أحصل على ردود على سؤالي الأخير في هذا الرد .

المتغير Byte لا يرمز اي شئ هو كما ذكر سابقا متغير يقبل القيم من0 الى 255

مشكورين شباب على الردود