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

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

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

مرحبا :

مثلا لنقل أن لدي في نافذة الفجوال بيسيك وفي مشروع جديد

مربع نص (text1) ، و (label1) مربع كتابة

ولدي الاوامر التالية

عندما يكون مربع النص (1) ، فمربع الكتابة يكون (2)

وعندما يكون مربع النص (3) ، فمربع الكتابة يكون (4)

وعندما يكون مربع النص (6) ، فمربع الكتابة يكون (10)

كل هذه امثلة وليس لديها قاعدة حسابية ثابتة

وهنا الكود 

private sub coomand1_click ()

if text1.text = "1" then label1 = "2" 
end if
if text1.text = "3" then label1 = "4"
end if
if text1.text = "6" then label1 = "10"
end if

end sub

ومع العلم بأن هذه القائمة لها تكملة كبيرة جدا ولا تحوي قاعدة ثابتة أي أن بعضها يحوي حروفا وبعضها كلمات وارقام

والسؤال :

اريد أن اضع أمرا في النهاية بحيث يجعل كل هذه الاوامر عكوسة .. أي أنني عندما أضع القيمة (1) في مربع النص فإنه يكتب لي (2) في الـ(label1) .. واريد أن أمرا في النهاية بحيث أنني عندما أكتب (2) فينتج لي (1) .. أي جعل العملية عكوسة تجري في الاتجاهين ..

حيث أنني أستطيع أن أضع لكل أمر معاكس بهذه الطريقة فمثلا :

private sub coomand1_click ()

if text1.text = "1" then label1 = "2" 
end if

if text1.text = "2" then label1 = "1"
end if

end sub

ولكن القائمة كبيرة جدا لذلك أبحث عن أمر يجعل العملية عكوسة بالنسبة لجميع الأوامر التي أكتبها .. وبذلك أوفر الجهد

وشكرا لكم

تم تعديل هذه المشاركة بواسطة kurdish80 في 31 أكتوبر 2005 في 01:25

www.kiwan.net
#2

السلام عليكم ورحمة الله وبركاته ...

فكرت شوية في موضوعك ولقيت حل مو بطال لكن يمكن يكون أخف شوية من الطريقة اللي راح تتبعها وانا راح ابحث في مجموعة أكواد عندي ولو حصلت راح ارسلك .

بعد ما تخلص من إسناد القيم والحركة الشرطية .

وقبل كذا عرف متغيرات حسب نوع البيانات اللي تبغاها :

private sub coomand1_click ()

dim x,y,z,d as integer

dim st as string

if text1.text = "1" then label1 = "2"

end if

if text1.text = "3" then label1 = "4"

end if

if text1.text = "6" then label1 = "10"

end if

'بعد كذا اسند كل متغير لحقل من الحقول اللي عندك :

x=text1.text

y=text1.text

'إلى أخر الحقول الموجودة

end sub

private sub coomand1_click ()

'بعد كذا اسند المتغير للحقل اللي تبغاه

'مثلا

text1.text =x

.

.

معليش طويلة لكن هذا اللي يحضرني الحين وإن شاء الله افكر معاك وأساعدك ....

من الشهد ...

.


      
      

      
    

  

    
    

      
#3
        
        

      
السلام عليكم ورحمة الله وبركاته ... 
    فكرت شوية في موضوعك ولقيت حل مو بطال لكن يمكن يكون أخف شوية من الطريقة اللي راح تتبعها وانا راح ابحث في مجموعة أكواد عندي ولو حصلت راح ارسلك .
بعد ما تخلص من إسناد القيم والحركة الشرطية . 
وقبل كذا عرف متغيرات حسب نوع البيانات اللي تبغاها : 
private sub coomand1_click ()

dim x,y,z,d as integer
dim st as string
if text1.text = "1" then label1 = "2" 
end if
if text1.text = "3" then label1 = "4"
end if
if text1.text = "6" then label1 = "10"
end if

'بعد كذا اسند كل متغير لحقل من الحقول اللي عندك : 
x=text1.text 
y=text1.text 
'إلى أخر الحقول الموجودة

end sub
private sub coomand1_click ()

'بعد كذا اسند المتغير للحقل اللي تبغاه 

'مثلا
text1.text =x
.
.
معليش طويلة لكن هذا اللي يحضرني الحين وإن شاء الله افكر معاك وأساعدك ....
من الشهد ...

      
      

      
    

  

    
    

      
#4
        
        

      
شكرا اخ / اخت الشهد
يا ريت والله  .. لانو ضروري كتير

      
      

      
www.kiwan.net

    

  

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

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