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

textbox

مغلق
بدأه مهدي عبد المنعم في 8 مارس 2006 · 2 رد · 537 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب 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

السلام عليكم اخي يا ريت توضح اكثر ماهي مشكلتك بمثال بسيط بغض النظر علي انت ماذا تريد فعلة حتي يستطيع اخوانك مساعدتك

اللهم انصر الاسلام والمسلمين

2035881233.gif

#3

اخي الكريم الموضوع جدا سهل عليك بالدالتي

instr

و

mid

كالتالي

dim str = "X549910Y1047750"

dim ypos as integer = 0

dim xvalue , yvalue as string

ypos = instr(str,1,"Y")

xvalue=mid(str,2,ypos-2)

yvalue=mid(ypos+1,str)

والله اعلم

الشرح:

جملة instr تعطيك رقم الحرف المطلوب في الجملة اي موقعه في الجملة

mid ترجع لك جملة بحسب المواصفات

انا كنتب الكود من راسي شوف جربه واعطيني خبر اذا غلط :)

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

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

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