الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الرجاء المساعدة

مغلق
بدأه مهدي عبد المنعم في 8 مارس 2006 · 3 رد · 565 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة اللّـــــــــــه:

ان مبتدئ في لغة الفيجوال واريد ان اعمل البرنامج التالي

اخوتي الاعزاء انا بحاجة لقراءة ملف التقارير لتوضيح اكثر

اعمل على برنامج الكتروني (ORCAD) للدارات المطبوعة ويخرج التقرير بالشكل التالي X162560Y101600

X86360Y100330

X519430Y844550

X511810Y497840

X511810Y354330

X549910Y1047750

X516890Y753110

X515620Y687070

X539750Y452120

X539750Y256540

X419100Y106680

بالاحداثيين X ,Y

ان فورم البرنامج يحوي على text1 وهو المربع الذي اضع فيه التقرير و text2 اضع فيه قيمة

الX و text3 الذي اضع فيه قيمة ال Y .

و زر command 1 الذي بضغطه ياخذ قيمة السطر الاول ويضع قيمة الX في text2

,ويضع قيمة الY في text3 ,وهكذا كلما ضغت ال command 1 يعطيني الاحداثي الجديد للسطر التالي.

وانا اقوم بنسخ هذا التقرير التكست بوكس1في الفورم1

ولكن لا اعرف كيف اقرا البيانات بالسطر الواحد علما انه بالسطر الواحد يوجد بيانين X ,Y

ولاحتى تجاهل الاحرف الاولى من كل احداثي

هل بالامكان المساعدة حول هذا البرنامج او حتى التوجيه بشكل افضل.

وشكرأ جزيلا .

#2

الرجاء ان تتكرمو ولو بقراءة الطلب

#3

بسم الله الرحمن الرحيم

تحتاج لقرائة ملف نصى الى الآتى

ضع هذه السطور فى أول صفحة الكود :

Dim infile As String

Dim infileNumber As Integer

Dim tline As String

ثم فى form_load ضع الكود الآتى :

" مسار الملف النصى "= infile

infileNumber = FreeFile

Open infile For Input Access Read As #infileNumber

ثم فى الحدث command1_click تضع الكود التالى

Line Input #infileNumber, tline

text2.text=mid(tline,1,instr(1,tline,"y")) ' tofind the x axis

text3.text=right(tline,instr(1,tline,"y")) ' tofind y axis

ثم فى الحدث form_unload تضع

Close infileNumber

(h)

#4

شكرا اخي الكريم على ردك

ولكن هل بالامكان شرح تعليمات الامر command1

لاني كتبت الكود ونفذته لكن مربعي النص text2 و texet3

بقيا فارغين

ولك جزيل الشكر

:) :) :)

هذا الموضوع مغلق.

مواضيع مشابهة