ساعدوني في هذا الكود

[nan740]

في الشاشة الاولى عند الضغط على احد المربعات ينتقل الى الشاشة الثانية و في الثانية اذا اخترت من RADIO BUTTON

READY يتحول لون المربع في الشاشة السابقة الى اخضر
RENT الى احمر
CLEANING الى اصفر

واشتغل كويس بس المشكلة انه عندي 30 مربع في الشاشة الاولى قابلة للزيادة مش معقول اني اكرر الكود
ثلاثين مره يعني كيف اخلي البرنامج يعرف اني قادم من المربع رقم واحد واي تغيرات تتم فيه واذا جيت من
المربع رقم 2 وغيرت التغيرات تتم فيه وهكذا بدون تكرار الكود ...وهل طريقتي صحيحه
لانه هذا اللي ابغاه انا

الكود

DECLARE IT_ID_1 ITEM;--FOR TEXT ITEM
	IT_ID_2 item;--FOR PUSH BUTTON
			
begin IT_ID_1:=FIND_ITEM('MAIN_BLK.T1');
IT_ID_2:=FIND_ITEM('MAIN_BLK.B1');

if :RE_STATE=1 then
IF ID_NULL(IT_ID_1) THEN
	NULL;
ELSE
	SET_ITEM_PROPERTY(IT_ID_1,BACKGROUND_COLOR,'r0g50b0');
	SET_ITEM_PROPERTY(IT_ID_2,BACKGROUND_COLOR,'r0g50b0');
end if;

ELSE

IF :RE_STATE=2 THEN
IF ID_NULL(IT_ID_1) THEN
	NULL;
ELSE
	SET_ITEM_PROPERTY(IT_ID_1,BACKGROUND_COLOR,'r50g0b0');
	SET_ITEM_PROPERTY(IT_ID_2,BACKGROUND_COLOR,'r50g0b0');
			
END IF;
ELSE
IF :RE_STATE=3 THEN
IF ID_NULL(IT_ID_1) THEN
	NULL;
ELSE
	SET_ITEM_PROPERTY(IT_ID_1,BACKGROUND_COLOR,'r88g75b0');
	SET_ITEM_PROPERTY(IT_ID_2,BACKGROUND_COLOR,'r88g75b0');
			
END IF;
END IF;
END IF;

END IF;


end;

في المرفقات الشاشة
MAIN_SCREEN.rar

[nan740]

يعني ما في امل يالله جزاكم الله خير

[nan740]

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

[nan740]

يعني ايش اسوي عشان احد يرد علي ولا اي رد تم على هذا الموضوع مو معقوووول

[أحمد جادو]

لق قمت بالرد على استفسارك هذا في الموضوع الآخر

برجاء زيارة هذا الرابط

http://www.araboug.org/ib/index.php?showto...mp;#entry148090

[PLANET]

اكيد فكرتك في التصميم فيها خطأ
حاول تغيرها وأن شاء الله تلقى أفضل حل