+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ممكن مساعدة تتعلق بالمصفوفات (/showthread.php?tid=2199)
ممكن مساعدة تتعلق بالمصفوفات - شمس الغروب - 10-03-14
السلام عليكم
ممكن مساعدة بالفيجوال بيسك
قراءة نص من ملف ثم تحويل الملف النصي إلى مصفوفة من الرموز ِASCII حيث يمثل كل حرف في النص بما يقابله
من ASCII Code وتكون المصفوفة الناتجة من هذه العملية ذات بعد واحد ، يتم تحويلها الى مصفوفة ذات بعدين
ارجو المساعده وشكررررررررررراً
RE: ممكن مساعدة تتعلق بالمصفوفات - asto - 15-03-14
كود :
حتي تتمكن من إجراء حفظ لقيمة معينة موجودة بملف البيانات مثل برنامج Notepad الشهير يمكنك كما يلي :
Open "C:\Data.txt" For Output As #1
Print#1,Text1.Text
Close#1
وفي حالة الرغبة في قراءة ما هو موجود بملف البيانات إلي مربع النص كما يلي :
Open "C:\Data.txt" For Input As #1
Text1.Text = Input(LOF(1),1)
Close#1
و هذا مثال عن تقسيم كلمة الى رموز اسكي تحتاج ال 2 تكست و 1 كوماند
Private Sub Command1_Click()
d = 0
ReDim f(5)
charlen% = Len(Text1.Text)
For i% = 1 To charlen%
d = d + 1
Letters$ = Mid(Text1.Text, i%, 1)
Encrypt$ = Encrypt$ & Asc(Letters$) + 1
f(d)=Asc(Letters$) + 1
Next i
Text2.Text = Encrypt$
endsub
اما التحويل لبعدين لم افهمه لكن عليك اولا النقل الى لست