+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد تحول الكود لفيجوال 2008 (/showthread.php?tid=18776)
اريد تحول الكود لفيجوال 2008 - abudawoodd - 12-01-17
السلام عليكم
هذا الكود مكتوب بالفيجوال 6
Dim My_File() As Byte
Open File1.FileName For Binary As #1
ReDim My_File(0 To (LOF(1) - 1))
Get #1, , My_File
Close
وهو عبارة عن كود لفتح ملف ووضعه في مصفوفة
اريد تحويله الى فيجوال 2008
ولكم الشكر
RE: اريد تحول الكود لفيجوال 2008 - مساعدة - 12-01-17
السلام عليكم
واضح من الكود انه يقرأ ملف على شكل مصفوفة بايتات،
تفضل الكود إذا الملف معروف مساره مع اسمه
كود :
Dim My_File() As Byte
My_File = IO.File.ReadAllBytes("C:\folder\filename.ext")وهذا الكود إذا كنت تريد يظهر مستكشف الويندوز لاختيار ملف
كود :
Dim My_File() As Byte
Using openfile As New OpenFileDialog
If openfile.ShowDialog = Windows.Forms.DialogResult.OK Then
My_File = IO.File.ReadAllBytes(openfile.FileName)
End If
End UsingRE: اريد تحول الكود لفيجوال 2008 - abudawoodd - 12-01-17
تمام اخي والف شكر لك جزاك الله خيرا
RE: اريد تحول الكود لفيجوال 2008 - abudawoodd - 12-01-17
اخي العزيز بعد التجربة هو يعمل وبشكل ممتاز لكن واجهتني مشكلة وهي عند تغيير نوع المتغير الى Long لم يتغير شيئ في القراءة
اريد التغيير بكل انواع المتغيرات المتوفرة
كود فيجوال 6 السابق يغير القراءة بمجرد تغيير نوع المتغير يمكنني ان اقرأ كل بايتين او اربعة او ثمانية معاً
فكيف افعل مع 2008
ولكم الشكر والتقدير
RE: اريد تحول الكود لفيجوال 2008 - مساعدة - 12-01-17
لو توضح بالكود لإيجاد كما تقول في فيجوال 6 لتحويله
RE: اريد تحول الكود لفيجوال 2008 - abudawoodd - 13-01-17
نعم اخي اليك هذه الصور للتوضيح
وكما ترى اخي الكود نفسه لم يتغير فقط نوع المتغير ثم يتم اضافة القيم كل بايت او كل بايتين او اربعة او ثمانية في المصفوفة
ارغب الانتقال الى دوت نت لاني سمعت ان فيه متغيرات ذات حجم كبير وقيمها ايجابية
يعني ليست مقسومة بين السالب والموجب
RE: اريد تحول الكود لفيجوال 2008 - abudawoodd - 15-01-17
انا انتظر اي رد يا شباب
فهل من مساعد