تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد تحول الكود لفيجوال 2008
#1
السلام عليكم
هذا الكود مكتوب بالفيجوال 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 
ولكم الشكر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

واضح من الكود انه يقرأ ملف على شكل مصفوفة بايتات،

تفضل الكود إذا الملف معروف مساره مع اسمه
كود :
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 Using
الرد }}}}
تم الشكر بواسطة: abudawoodd
#3
تمام اخي والف شكر لك جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#4
اخي العزيز بعد التجربة هو يعمل وبشكل ممتاز لكن واجهتني مشكلة وهي عند تغيير نوع المتغير  الى Long لم يتغير شيئ في القراءة
اريد التغيير بكل انواع المتغيرات المتوفرة
كود فيجوال 6 السابق يغير القراءة بمجرد تغيير نوع المتغير يمكنني ان اقرأ كل بايتين او اربعة او ثمانية معاً
فكيف افعل مع 2008
ولكم الشكر والتقدير
الرد }}}}
تم الشكر بواسطة:
#5
لو توضح بالكود لإيجاد كما تقول في فيجوال 6 لتحويله
الرد }}}}
تم الشكر بواسطة:
#6
نعم اخي اليك هذه الصور للتوضيح
وكما ترى اخي الكود نفسه لم يتغير فقط نوع المتغير ثم يتم اضافة القيم كل بايت او كل بايتين او اربعة او ثمانية في المصفوفة
ارغب الانتقال الى دوت نت لاني سمعت ان فيه متغيرات ذات حجم كبير وقيمها ايجابية 
يعني ليست مقسومة بين السالب والموجب


الملفات المرفقة صورة/صور
           
الرد }}}}
تم الشكر بواسطة:
#7
انا انتظر اي رد يا شباب
فهل من مساعد
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعده في تحويل الكود VB.NET 3 50 منذ 1 ساعه مضت
آخر رد: HASAN6.0
  [VB.NET] هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 2 35 اليوم, 01:42 AM
آخر رد: السيد الجوهري
  هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 0 22 اليوم, 01:22 AM
آخر رد: السيد الجوهري
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,455 أمس, 09:30 PM
آخر رد: رمضان محمد
  تغير خط التقرير باستخدام الكود أثناء التشغيل engmedomed@gmail.com 1 58 11-01-18, 04:38 PM
آخر رد: عبدالله الدوسري
  اريد امر بدل من امر Else IF يقوم بنفس الاوامر ؟ ضروري . DanyGhost2010 5 139 04-01-18, 09:21 PM
آخر رد: zinom
  عندي مشكلة في تشغيل هذا الكود nooralcown 1 86 04-01-18, 05:45 PM
آخر رد: Amir_alzubidy
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 11 4,892 02-01-18, 08:20 PM
آخر رد: ابو روضة
  مساعده لدي فورم اريد اظهار الموديل بشرط النوع مراد بورجي 8 161 02-01-18, 07:58 PM
آخر رد: karimx
  تعديل الكود ده لو سمحتوا يا جماعه نبيل فتحى 1 50 02-01-18, 04:58 PM
آخر رد: طالب برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم